- Bug Fix for parallel build, recently introduced

ATTENTION ATTENTION ATTENTION
  When you are inside an IONODE section
  please check that all subroutines you call do not contains
  communications!!


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@4778 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
cavazzon 2008-04-06 19:12:40 +00:00
parent 9e6a1bcd16
commit 8360bf5f3a
1 changed files with 5 additions and 5 deletions

View File

@ -1822,13 +1822,13 @@ SUBROUTINE verify_tmpdir( tmp_dir )
file_path = TRIM( tmp_dir ) // TRIM( prefix )
!
IF ( restart_mode == 'from_scratch' ) THEN
!
! ... xml data file in save directory is removed
! but, header is read anyway to store qexml version
!
CALL pw_readfile( 'header', ios )
!
IF ( ionode ) THEN
!
! ... xml data file in save directory is removed
! but, header is read anyway to store qexml version
!
CALL pw_readfile( 'header', ios )
!
IF ( .NOT. lbands ) &
CALL delete_if_present( TRIM( file_path ) // '.save/data-file.xml' )