Fortran Coder

标题: 求问程序里的@是什么意思 [打印本页]

作者: leehow 时间: 2020-7-28 21:59
标题: 求问程序里的@是什么意思
接过了老板十几年前的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
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
这是 Ftn95 的 ClearWin+
https://www.silverfrost.com/18/ftn95/clearwin.aspx

作者: leehow 时间: 2020-7-29 15:23
感谢两位！

再求问一下，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
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
建议弄清楚每个函数的目的，不兼容的找类似函数替换，用以前程序的输出作为验证。

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)