mirror of https://gitlab.com/QEF/q-e.git
Output of non-writing processes should not be redirected to /dev/null: it is
useless (the call to "environment_set" already does that) and breaks Windows git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@12357 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
parent
9f75263c56
commit
ff7471ead0
|
@ -81,8 +81,6 @@
|
|||
write(name_proc,'(5i1)') &
|
||||
& (mpime+1)/10000,mod(mpime+1,10000)/1000,mod(mpime+1,1000)/100,mod(mpime+1,100)/10,mod(mpime+1,10)
|
||||
OPEN( UNIT = stdout, FILE = trim(tmp_dir)//trim(prefix)//'-out_'//name_proc, STATUS = 'UNKNOWN' )
|
||||
else
|
||||
if(.not.ionode) OPEN ( unit = stdout, file='/dev/null', status='unknown' )
|
||||
endif
|
||||
#endif
|
||||
|
||||
|
|
|
@ -19,9 +19,6 @@ SUBROUTINE print_clock_pwcond()
|
|||
IMPLICIT NONE
|
||||
!
|
||||
!
|
||||
IF ( mpime /= root ) &
|
||||
OPEN( UNIT = stdout, FILE = '/dev/null', STATUS = 'UNKNOWN' )
|
||||
!
|
||||
WRITE( stdout, * )
|
||||
!
|
||||
CALL print_clock( 'PWCOND' )
|
||||
|
|
|
@ -24,9 +24,6 @@ SUBROUTINE print_clock_lr()
|
|||
!
|
||||
IMPLICIT NONE
|
||||
!
|
||||
IF ( mpime /= root ) &
|
||||
OPEN( UNIT = stdout, FILE = '/dev/null', STATUS = 'UNKNOWN' )
|
||||
!
|
||||
WRITE( stdout, * )
|
||||
!
|
||||
IF (eels) THEN
|
||||
|
|
Loading…
Reference in New Issue