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

leehow · 发表于 2020-7-28 21:59:57

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

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

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

        CHARACTER*8 EDATE@
        CHARACTER*8 TIME@
        CHARACTER*50 CURDIR@

        DATE=EDATE@()
        TIME=TIME@()

         PATH= CURDIR@()
22      CALL TRIM@(PATH)

CALL FILES@(PATH,N,NMAX,FILES,ATTR,DATE_FILE,TIME_FILE,
     *         FILE_SIZE)

CALL CLEAR_SCREEN@

10        CALL GET_KEY1@(IKEY)

chiangtp · 发表于 2020-7-29 00:30:06

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 · 发表于 2020-7-29 09:05:44

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

leehow · 发表于 2020-7-29 15:23:11

感谢两位！

再求问一下，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 · 发表于 2020-7-29 21:05:32

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 · 发表于 2020-8-1 09:43:54

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

[绘图界面库] 求问程序里的@是什么意思

贡献勋章

管理勋章

帅哥勋章

元老勋章

星光勋章

规矩勋章

美女勋章

热心勋章

新人勋章

爱心勋章

水王勋章