Fortran Coder

查看: 74|回复: 5

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

[复制链接]

3

帖子

1

主题

0

精华

新人

F 币
29 元
贡献
9 点
发表于 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)
回复

使用道具 举报

111

帖子

8

主题

0

精华

版主

F 币
537 元
贡献
325 点

贡献勋章管理勋章帅哥勋章元老勋章星光勋章规矩勋章

发表于 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

1538

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1411 元
贡献
933 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2020-7-29 09:05:44 | 显示全部楼层

3

帖子

1

主题

0

精华

新人

F 币
29 元
贡献
9 点
 楼主| 发表于 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

111

帖子

8

主题

0

精华

版主

F 币
537 元
贡献
325 点

贡献勋章管理勋章帅哥勋章元老勋章星光勋章规矩勋章

发表于 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可能有問題)

132

帖子

2

主题

0

精华

大师

F 币
820 元
贡献
427 点

规矩勋章

发表于 5 天前 | 显示全部楼层
建议弄清楚每个函数的目的,不兼容的找类似函数替换,用以前程序的输出作为验证。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2020-8-6 23:30

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表