diff --git a/RMAGEN/TRANSFER/RMAGENV83G.exe b/RMAGEN/TRANSFER/RMAGENV83G.exe index 04933f9..2579cee 100644 Binary files a/RMAGEN/TRANSFER/RMAGENV83G.exe and b/RMAGEN/TRANSFER/RMAGENV83G.exe differ diff --git a/src/GETNEWFIL.F90 b/src/GETNEWFIL.F90 index f94d4af..fe366c1 100644 --- 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