mirror of https://gitlab.com/QEF/q-e.git
34 lines
997 B
Fortran
34 lines
997 B
Fortran
!
|
|
! Copyright (C) 2008 Quantum ESPRESSO group
|
|
! This file is distributed under the terms of the
|
|
! GNU General Public License. See the file `License'
|
|
! in the root directory of the present distribution,
|
|
! or http://www.gnu.org/copyleft/gpl.txt .
|
|
!
|
|
SUBROUTINE check_restart_recover(exst_recover, exst_restart)
|
|
IMPLICIT NONE
|
|
INTEGER :: iunrec, iunres
|
|
LOGICAL :: exst_recover, exst_restart
|
|
|
|
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')
|
|
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
|
|
ENDIF
|
|
RETURN
|
|
END SUBROUTINE check_restart_recover
|