INITIAL

6 years ago · c980fb83b5
parent 94dd74b226
commit c980fb83b5
2 changed files with 1 additions and 0 deletions
--- a/RMAGEN/TRANSFER/RMAGENV83G.exe
+++ b/RMAGEN/TRANSFER/RMAGENV83G.exe
--- a/src/GETNEWFIL.F90
+++ b/src/GETNEWFIL.F90
@ -4,6 +4,7 @@

 !   WRITE CURRENT DATA TO A SCRATCH FILE

+      
      IF(IACTVFIL .GT. 0  .AND.  ISWT .NE. -1) THEN 
        IFILOUT=IACTVFIL+50
        WRITE(90,*) 'INGETNEWFIL IFILOUT',IFILOUT