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

Cleanup. 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@6146 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2009-11-13 17:14:12 +00:00
parent b562d0880c
commit 11871fb770
2 changed files with 10 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
PH/check_restart_recover.f90
View File

@ -14,20 +14,15 @@ iunrec = 99
iunres = 98
CALL seqopn (iunrec, 'recover', 'unformatted', exst_recover)
CALL seqopn( iunres, 'restart', 'UNFORMATTED', exst_restart )
IF (.not.exst_recover.and..not.exst_restart) THEN
close (unit = iunrec, status = 'delete')
close (unit = iunres, status = 'delete')
IF (exst_recover) THEN
close (unit = iunrec, status = 'keep')
ELSE
IF (exst_recover) THEN
close (unit = iunrec, status = 'keep')
ELSE
close (unit = iunrec, status = 'delete')
ENDIF
IF (exst_restart) THEN
close (unit = iunres, status = 'keep')
ELSE
close (unit = iunres, status = 'delete')
ENDIF
close (unit = iunrec, status = 'delete')
ENDIF
IF (exst_restart) THEN
close (unit = iunres, status = 'keep')
ELSE
close (unit = iunres, status = 'delete')
ENDIF
RETURN
END SUBROUTINE check_restart_recover

4
PH/initialize_ph.f90
View File

@ -41,8 +41,8 @@ SUBROUTINE initialize_ph()
!
END IF
!
! Save the current status of the run: all the flags, the list of q,
! and the current q, the fact that we are after the bands
! Save again the status of the run because now the bands have been
! calculated
!
CALL ph_writefile('init',0)
!