scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fixed bug in turbo_lanczos.x . Restarts of polarizations other than ipol=1 or ipol=4 wern't working properly due to buggy test_restart routine. 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@8187 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
sbinnie 2011-10-07 14:02:41 +00:00
parent 40c2aa7601
commit 197543740b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
TDDFPT/src/lr_main.f90
View File

@ -339,7 +339,7 @@ CONTAINS
IF ( wfc_dir /= 'undefined' ) tmp_dir = wfc_dir
!
IF ( n_ipol == 1 ) THEN
filename = trim(prefix)//'.d0psi.'//trim(int_to_char(1))
filename = trim(prefix)//'.d0psi.'//trim(int_to_char(LR_polarization))
tempfile = trim(tmp_dir) // trim(filename) //nd_nmbr
INQUIRE (file = tempfile, exist = exst)
!print *, tempfile," exst=",exst
@ -364,7 +364,7 @@ CONTAINS
! check if these files can be read from outdir instead of wfcdir
!
IF ( n_ipol == 1 ) THEN
filename = trim(prefix)//'.d0psi.'//trim(int_to_char(1))
filename = trim(prefix)//'.d0psi.'//trim(int_to_char(LR_polarization))
tempfile = trim(tmp_dir) // trim(filename) //nd_nmbr
INQUIRE (file = tempfile, exist = exst)
IF (exst) THEN
@ -386,7 +386,7 @@ CONTAINS
!Restart files are always written in outdir
IF ( n_ipol == 1 ) THEN
filename = trim(prefix)//'.restart_lanczos.'//trim(int_to_char(1))
filename = trim(prefix)//'.restart_lanczos.'//trim(int_to_char(LR_polarization))
tempfile = trim(tmp_dir) // trim(filename) //nd_nmbr
ELSE
filename = trim(prefix)//'.restart_lanczos.'//trim(int_to_char(LR_polarization))
@ -401,7 +401,7 @@ CONTAINS
!End of parallel file i/o
!
IF ( n_ipol == 1 ) THEN
filename = trim(prefix) // trim(bgz_suffix) // trim(int_to_char(1))
filename = trim(prefix) // trim(bgz_suffix) // trim(int_to_char(LR_polarization))
tempfile = trim(tmp_dir) // trim(filename)
ELSE
filename = trim(prefix) // trim(bgz_suffix) // trim(int_to_char(LR_polarization))