From f925d237717b9da88c87a5a660cbac6fada71798 Mon Sep 17 00:00:00 2001 From: dalcorso Date: Mon, 23 Nov 2009 08:17:39 +0000 Subject: [PATCH] In my opinion this instruction is wrong. print_clock_pw should not modify the output organization. Otherwise after calling this routine the images cannot write any more in their output files. Please check. git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@6202 c92efa57-630b-4861-b058-cf58834340f0 --- PW/print_clock_pw.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/PW/print_clock_pw.f90 b/PW/print_clock_pw.f90 index 203b1363e..89c3fadc7 100644 --- a/PW/print_clock_pw.f90 +++ b/PW/print_clock_pw.f90 @@ -21,8 +21,8 @@ SUBROUTINE print_clock_pw() IMPLICIT NONE ! ! - IF ( mpime /= root ) & - OPEN( UNIT = stdout, FILE = '/dev/null', STATUS = 'UNKNOWN' ) +! IF ( mpime /= root ) & +! OPEN( UNIT = stdout, FILE = '/dev/null', STATUS = 'UNKNOWN' ) ! WRITE( stdout, * ) !