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

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

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

里面就是下面这些函数之类的：
      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/ftn95-help/file_man/idh_file_manipulation_routines.aspx, not found
i.e., 77->95, "SELECT_FILE@"被移除了

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

necrohan 发表于 2020-8-1 09:43:54

建议弄清楚每个函数的目的，不兼容的找类似函数替换，用以前程序的输出作为验证。
页: [1]
查看完整版本: 求问程序里的@是什么意思