diff --git a/RMAGENV84/INSTALL/rmagenv84-JUN15.exe b/RMAGENV84/INSTALL/rmagenv84-JUN15.exe new file mode 100644 index 0000000..249673a Binary files /dev/null and b/RMAGENV84/INSTALL/rmagenv84-JUN15.exe differ diff --git a/RMAGENV84/RMAGENV84.vfproj b/RMAGENV84/RMAGENV84.vfproj index 9732b78..06f83cd 100644 --- a/RMAGENV84/RMAGENV84.vfproj +++ b/RMAGENV84/RMAGENV84.vfproj @@ -13,7 +13,7 @@ - + diff --git a/SRC84/NEWRMGN.F90 b/SRC84/NEWRMGN.F90 index 6b25916..b7b0453 100644 --- a/SRC84/NEWRMGN.F90 +++ b/SRC84/NEWRMGN.F90 @@ -1,3 +1,4 @@ +!IPK LAST UPDATE JUN 15 2020 FIXUP TO READ OLD FORMAT GEO !IPK LAST UPDATE SEP 23 2015 ADD MORE INFO ON FRAME ! PROGRAM NEWRMAGEN @@ -448,7 +449,14 @@ OPEN(IIN ,FILE=FNAME,STATUS='OLD',form='binary',ACTION='READ') FNAMKEP=FNAME READ(IIN) HEADR +!IPK JUN20 ALLOOW FOR OLD FORMAT GEO + IF(HEADR(1:6) .NE. 'RMAGEN') THEN + CLOSE (IIN) + OPEN(IIN ,FILE=FNAME,STATUS='OLD',form='unformatted',ACTION='READ') + ENDIF READ(IIN) N2,M2 + + REWIND (IIN) ITRIAN=0