求问程序里的@是什么意思

leehow

接过了老板十几年前的FORTRAN程序，根本运行不了，核心就是里面有很多名称里包含@的函数，求问有没有大神知道是调了什么库，还是用了什么编译器呀？orz

里面就是下面这些函数之类的：

[Fortran] 纯文本查看 复制代码

查看代码

打印?

01	CHARACTER*8 EDATE@

02	CHARACTER*8 TIME@

03	CHARACTER*50 CURDIR@

04

05	DATE=EDATE@()

06	TIME=TIME@()

07

08	PATH= CURDIR@()

09	22      CALL TRIM@(PATH)

10

11	CALL FILES@(PATH,N,NMAX,FILES,ATTR,DATE_FILE,TIME_FILE,

12	*         FILE_SIZE)

13

14	CALL CLEAR_SCREEN@

15

16	10        CALL GET_KEY1@(IKEY)

chiangtp

Extension of Salford FTN77
Salford FTN77 User Guide: https://www.silverfrost.com/manuals/77userguide.pdf
Salford FTN77 Library Reference: https://www.silverfrost.com/manuals/77library.pdf

fcode

这是 Ftn95 的 ClearWin+
https://www.silverfrost.com/18/ftn95/clearwin.aspx

leehow

感谢两位！

再求问一下，FTN95是不支持win10嘛？
我在win10上装了之后，再DEBUG的.NET模式下，compile可以成功，但是build的时候就出问题了。

Linking...
LINK : warning : Routine SELECT_FILE#(Salford.Fortran.Character*, Salford.Fortran.Character*, Salford.Fortran.AlternateReturnType, Int32, Int32) not found
Assembly file Debug\NET\FortranApplication1.exe for .NET 2.0 produced

运行也成功不了，

未处理的异常:  Salford.Fortran.RuntimeException: 52: Invalid character in field

chiangtp

SELECT_FILE@
FTN77: https://www.silverfrost.com/manuals/77library.pdf , page 40
FTN95: https://www.silverfrost.com/ftn9 ... ation_routines.aspx, not found
i.e., 77->95, "SELECT_FILE@"被移除了

1. 想辦法取代SELECT_FILE@, or,
2. 安裝 Silverfrost FTN77, https://download.cnet.com/Silver ... 069_4-10537937.html (64-bit Windows可能有問題)

necrohan

建议弄清楚每个函数的目的，不兼容的找类似函数替换，用以前程序的输出作为验证。