Fortran Coder

标题: 不了解的语句，请求各..... [打印本页]

作者: 大眼睛 时间: 2022-2-14 06:04
标题: 不了解的语句，请求各.....
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(***)是个什么意思？是数组吗？

作者: fcode 时间: 2022-2-14 08:07
PLO 是个数组
RTER1 可能是数组，也可能是函数。

作者: 大眼睛 时间: 2022-2-14 08:16

fcode 发表于 2022-2-14 08:07
PLO 是个数组
RTER1 可能是数组，也可能是函数。

你好，能具体讲讲吗

作者: fcode 时间: 2022-2-14 08:22
我觉得挺具体的了。关于什么方面，你还有疑问？

作者: 大眼睛 时间: 2022-2-14 08:23

fcode 发表于 2022-2-14 08:22
我觉得挺具体的了。关于什么方面，你还有疑问？

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

作者: fcode 时间: 2022-2-14 08:49
如果是数组，括号里是它的引用下标。
如果是函数，括号里是它的参数。

确定是函数还是数组，看同一个程序单元里是否有 DIMENSION RTER1（有的话是数组，没有的话是函数）

作者: 大眼睛 时间: 2022-2-14 08:57

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))，函数具体形式程序里面没有呀！可是执行程序后还是有值产生。。这是为什么？

作者: fcode 时间: 2022-2-14 09:04
那需要去看RTER1函数的实现代码。

作者: jojo9 时间: 2022-2-15 16:50
可以在源文件里搜一下RTER1

作者: 大眼睛 时间: 2022-2-17 17:07

jojo9 发表于 2022-2-15 16:50
可以在源文件里搜一下RTER1

好的，谢谢

作者: 大眼睛 时间: 2022-2-17 17:08

fcode 发表于 2022-2-14 09:04
那需要去看RTER1函数的实现代码。

好的，已找到

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