Fortran Coder

查看: 4810|回复: 10

[求助] 不了解的语句,请求各.....

[复制链接]

7

帖子

1

主题

0

精华

入门

五星上将

F 币
133 元
贡献
51 点

规矩勋章

发表于 2022-2-14 06:04:26 | 显示全部楼层 |阅读模式
REAL RTER1
DIMENSION PLO(-151:151,-151:151)
DO 5221 I=0,NXPLOT
            IX = INT((XPL(I)-X0)/DX)
            X1 = X0 +IX*DX
            X2 = X0 +(IX+1)*DX
            PLO(I,0) = RTER1(X1,X2,EPS1(IX,IY),EPS1(IX+1,IY),XPL(I))
            PLO(I,1) = RTER1(X1,X2,BNR1(IX,IY),BNR1(IX+1,IY),XPL(I))
            PLO(I,2) = RTER1(X1,X2,V11(IX,IY),V11(IX+1,IY),XPL(I))
            PLO(-I,0)=PLO(I,0)
            PLO(-I,1)=PLO(I,1)
            PLO(-I,2)=-PLO(I,2)
我是个新手,请问这里的PLO 和RTER1(***)是个什么意思?是数组吗?

1976

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1404 元
贡献
599 点

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

发表于 2022-2-14 08:07:12 | 显示全部楼层
PLO 是个数组
RTER1 可能是数组,也可能是函数。

7

帖子

1

主题

0

精华

入门

五星上将

F 币
133 元
贡献
51 点

规矩勋章

 楼主| 发表于 2022-2-14 08:16:26 | 显示全部楼层
fcode 发表于 2022-2-14 08:07
PLO 是个数组
RTER1 可能是数组,也可能是函数。

你好,能具体讲讲吗

1976

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1404 元
贡献
599 点

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

发表于 2022-2-14 08:22:18 | 显示全部楼层
我觉得挺具体的了。关于什么方面,你还有疑问?

7

帖子

1

主题

0

精华

入门

五星上将

F 币
133 元
贡献
51 点

规矩勋章

 楼主| 发表于 2022-2-14 08:23:47 | 显示全部楼层
fcode 发表于 2022-2-14 08:22
我觉得挺具体的了。关于什么方面,你还有疑问?

RTER1后面的括号是什么意思,执行的时候,数值是怎么算的

1976

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1404 元
贡献
599 点

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

发表于 2022-2-14 08:49:20 | 显示全部楼层
如果是数组,括号里是它的引用下标。
如果是函数,括号里是它的参数。

确定是函数还是数组,看同一个程序单元里是否有 DIMENSION RTER1(有的话是数组,没有的话是函数)

7

帖子

1

主题

0

精华

入门

五星上将

F 币
133 元
贡献
51 点

规矩勋章

 楼主| 发表于 2022-2-14 08:57:55 | 显示全部楼层
fcode 发表于 2022-2-14 08:49
如果是数组,括号里是它的引用下标。
如果是函数,括号里是它的参数。

REAL RTER1
DIMENSION PLO(-151:151,-151:151)
只有以上几个定义,那就是说RTER1是函数吗?那么如果是函数的话,这里的数值怎么计算的呢?RTER1(X1,X2,EPS1(IX,IY),EPS1(IX+1,IY),XPL(I)), 函数具体形式程序里面没有呀!可是执行程序后还是有值产生。。这是为什么?

1976

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1404 元
贡献
599 点

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

发表于 2022-2-14 09:04:04 | 显示全部楼层
那需要去看RTER1函数的实现代码。

35

帖子

11

主题

0

精华

熟手

F 币
241 元
贡献
140 点
发表于 2022-2-15 16:50:24 | 显示全部楼层
可以在源文件里搜一下RTER1

7

帖子

1

主题

0

精华

入门

五星上将

F 币
133 元
贡献
51 点

规矩勋章

 楼主| 发表于 2022-2-17 17:07:34 | 显示全部楼层
jojo9 发表于 2022-2-15 16:50
可以在源文件里搜一下RTER1

好的,谢谢
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-6-19 17:42

Powered by Tencent X3.4

© 2013-2024 Tencent

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