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

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:
giannozz 2006-06-08 11:59:40 +00:00
parent 16d1197d56
commit f265ab7ee0
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Modules/xml_io_base.f90
View File

@ -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 )
!