mirror of https://gitlab.com/QEF/q-e.git
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:
parent
b562d0880c
commit
11871fb770
|
@ -14,20 +14,15 @@ iunrec = 99
|
||||||
iunres = 98
|
iunres = 98
|
||||||
CALL seqopn (iunrec, 'recover', 'unformatted', exst_recover)
|
CALL seqopn (iunrec, 'recover', 'unformatted', exst_recover)
|
||||||
CALL seqopn( iunres, 'restart', 'UNFORMATTED', exst_restart )
|
CALL seqopn( iunres, 'restart', 'UNFORMATTED', exst_restart )
|
||||||
IF (.not.exst_recover.and..not.exst_restart) THEN
|
IF (exst_recover) THEN
|
||||||
close (unit = iunrec, status = 'delete')
|
close (unit = iunrec, status = 'keep')
|
||||||
close (unit = iunres, status = 'delete')
|
|
||||||
ELSE
|
ELSE
|
||||||
IF (exst_recover) THEN
|
close (unit = iunrec, status = 'delete')
|
||||||
close (unit = iunrec, status = 'keep')
|
ENDIF
|
||||||
ELSE
|
IF (exst_restart) THEN
|
||||||
close (unit = iunrec, status = 'delete')
|
close (unit = iunres, status = 'keep')
|
||||||
ENDIF
|
ELSE
|
||||||
IF (exst_restart) THEN
|
close (unit = iunres, status = 'delete')
|
||||||
close (unit = iunres, status = 'keep')
|
|
||||||
ELSE
|
|
||||||
close (unit = iunres, status = 'delete')
|
|
||||||
ENDIF
|
|
||||||
ENDIF
|
ENDIF
|
||||||
RETURN
|
RETURN
|
||||||
END SUBROUTINE check_restart_recover
|
END SUBROUTINE check_restart_recover
|
||||||
|
|
|
@ -41,8 +41,8 @@ SUBROUTINE initialize_ph()
|
||||||
!
|
!
|
||||||
END IF
|
END IF
|
||||||
!
|
!
|
||||||
! Save the current status of the run: all the flags, the list of q,
|
! Save again the status of the run because now the bands have been
|
||||||
! and the current q, the fact that we are after the bands
|
! calculated
|
||||||
!
|
!
|
||||||
CALL ph_writefile('init',0)
|
CALL ph_writefile('init',0)
|
||||||
!
|
!
|
||||||
|
|
Loading…
Reference in New Issue