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 @@
#if !(defined(__TOS_BGQ__)||defined(__PGI))
!Do not open out-file on BlueGene
IF (judft_was_argument("-info")) THEN
CLOSE(6)
OPEN (6,status='SCRATCH')
ELSE
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