Commit 70a1536d authored by Gregor Michalicek's avatar Gregor Michalicek

Add CLOSE(6) in front of OPEN(...) to avoid problems with gfortran compiler

parent f4231ee8
...@@ -122,6 +122,7 @@ ...@@ -122,6 +122,7 @@
#if !(defined(__TOS_BGQ__)||defined(__PGI)) #if !(defined(__TOS_BGQ__)||defined(__PGI))
!Do not open out-file on BlueGene !Do not open out-file on BlueGene
IF (judft_was_argument("-info")) THEN IF (judft_was_argument("-info")) THEN
CLOSE(6)
OPEN (6,status='SCRATCH') OPEN (6,status='SCRATCH')
ELSE ELSE
OPEN (6,file='out',form='formatted',status='unknown') OPEN (6,file='out',form='formatted',status='unknown')
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment