Update to permit reading of pre version 7.0 geo files

RMAGENV84/RMAGENV84.vfproj

@@ -13,7 +13,7 @@
 				<Tool Name="VFPreBuildEventTool"/>
 				<Tool Name="VFPostBuildEventTool"/>
 				<Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration>
-		<Configuration Name="Release|Win32" TargetName="rmagenv84-JUN5">
+		<Configuration Name="Release|Win32" TargetName="rmagenv84-JUN15">
 				<Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" BufferedIO="true" UseWindowsLibs="true"/>
 				<Tool Name="VFLinkerTool" SuppressStartupBanner="true" AdditionalLibraryDirectories="C:\WINT\LIB.IF8" SubSystem="subSystemWindows" StackReserveSize="10000000" StackCommitSize="6000000" AdditionalDependencies="WINTER.LIB COMDLG32.LIB WINSPOOL.LIB WINMM.LIB SHELL32.LIB ADVAPI32.LIB VERSION.LIB HTMLHELP.LIB opengl32.lib glu32.lib"/>
 				<Tool Name="VFResourceCompilerTool"/>

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