Fix another nprint_nfi related bug, related to the I/O and MPI stuff.

Kostya


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3162 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
kkudin 2006-06-06 21:39:51 +00:00
parent 05ad0af71a
commit 42cd902b4e
1 changed files with 1 additions and 2 deletions

View File

@ -1417,12 +1417,11 @@ MODULE cp_restart
!
END IF
!
if (ionode.and.(nprint_nfi.eq.-2)) then
if (nprint_nfi.eq.-2) then
write( stdout,*) 'nprint_nfi= ',nprint_nfi
CALL read_print_counter( nprint_nfi, scradir, ndr )
write( stdout,*) 'nprint_nfi= ',nprint_nfi
endif
CALL mp_bcast( nprint_nfi, ionode_id, intra_image_comm )
!
RETURN
!