mirror of https://gitlab.com/QEF/q-e.git
do not crash if new flag PP_CHECK_FILE is not found
git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3166 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
parent
16d1197d56
commit
f265ab7ee0
|
@ -261,7 +261,7 @@ MODULE xml_io_base
|
|||
LOGICAL :: pp_check_file
|
||||
CHARACTER(LEN=256) :: dirname, filename
|
||||
INTEGER :: ierr
|
||||
LOGICAL :: lval
|
||||
LOGICAL :: lval, found
|
||||
!
|
||||
!
|
||||
dirname = TRIM( tmp_dir ) // TRIM( prefix ) // '.save'
|
||||
|
@ -275,7 +275,9 @@ MODULE xml_io_base
|
|||
!
|
||||
IF ( ionode ) THEN
|
||||
!
|
||||
CALL iotk_scan_dat( iunpun, "PP_CHECK_FLAG", lval )
|
||||
CALL iotk_scan_dat( iunpun, "PP_CHECK_FLAG", lval, FOUND = found)
|
||||
!
|
||||
IF ( .NOT. found ) lval = .FALSE.
|
||||
!
|
||||
CALL iotk_close_read( iunpun )
|
||||
!
|
||||
|
|
Loading…
Reference in New Issue