[求助]这需要哪个fortran编译器?
本人有N年不用Fortran。工作需要,有如下一段老程序需要重新编译以适应现在的操作平台,请问需要哪个fortran编译器?
请指点。谢谢!
$INCLUDE:'WINDOW.H'
C----------------------------------------------------
INTEGER *2 PAGE,DMD
C----------------------------------------------------
CHARACTER*25 NAME1,NAME2,NAME3
CHARACTER*10 I1,NSOIL
real*8 OD(20),H(10),TT(10),TT0(10),D(2),R,W0
call fwin1()
333 call fwin2()
CALL SELECT(1)
CALL INTMNU('STMENU.DEF'C)
444 PAGE=1
CALL MENU(PAGE,DMD)
SELECTCASE (DMD)
CASE(1)
CALL SELECT(2)
CALL FWIN3(NAME1,NAME2,NAME3)
CALL STIN(NAME1)
GO TO 444
CASE(2)
CALL SELECT(2)
CALL FWIN3(NAME1,NAME2,NAME3)
CALL STREAD(NAME1,N,OD,TT,H,TT0,R,D,N1,I1,J1,NSOIL,W0)
CASE (3)
go to 11
CASE (4)
go to 444
CASE (5)
go to 11
ENDSELECT
c-------------------------------------
11 END
请指点。谢谢!
$INCLUDE:'WINDOW.H'
C----------------------------------------------------
INTEGER *2 PAGE,DMD
C----------------------------------------------------
CHARACTER*25 NAME1,NAME2,NAME3
CHARACTER*10 I1,NSOIL
real*8 OD(20),H(10),TT(10),TT0(10),D(2),R,W0
call fwin1()
333 call fwin2()
CALL SELECT(1)
CALL INTMNU('STMENU.DEF'C)
444 PAGE=1
CALL MENU(PAGE,DMD)
SELECTCASE (DMD)
CASE(1)
CALL SELECT(2)
CALL FWIN3(NAME1,NAME2,NAME3)
CALL STIN(NAME1)
GO TO 444
CASE(2)
CALL SELECT(2)
CALL FWIN3(NAME1,NAME2,NAME3)
CALL STREAD(NAME1,N,OD,TT,H,TT0,R,D,N1,I1,J1,NSOIL,W0)
CASE (3)
go to 11
CASE (4)
go to 444
CASE (5)
go to 11
ENDSELECT
c-------------------------------------
11 END