aspen 用户模块 fortran 编写问题

hbeden · 发表于 2015-5-15 17:05:27

DO 200 I=NCOMP_NCC+2,NCOMP_NCC+3 !2温度压力
SOUT2(I)=SIN1(I)
200 CONTINUE

这是user模块一个简单的例子中fortran文件，其中的一段代码，是将温度压力输出。
问题是，这个只迭代两次么。第一次是 SOUT2(NCOMP_NCC+2)=SIN1（NCOMP_NCC+2），第二次是SOUT2(NCOMP_NCC+3)=SIN1（NCOMP_NCC+3）吗？
DO循环不是步长默认为1么。在这里怎么体现。难道NCOMP_NCC+2和NCOMP_NCC+3 只是类型为整型的代码。大家多多讨论下。

chenhaijunsjy · 发表于 2015-5-15 17:05:27

瞧一瞧，看一看，学一学

zenglanmu · 发表于 2015-5-15 17:05:27

本帖最后由 zenglanmu 于 2015-5-23 11:45 编辑

不指定步长的话就是默认步长是1啦，NCOMP_NCC+2和NCOMP_NCC+3是循环的起始值和结束值，这个必须是整形。
另外
DO 200 I=NCOMP_NCC+2,NCOMP_NCC+3 !2温度压力
SOUT2(I)=SIN1(I)
200 CONTINUE
可以写成
DO I=NCOMP_NCC+2,NCOMP_NCC+3 !2温度压力
SOUT2(I)=SIN1(I)
END DO
这种形式
原来的DO 200相当于GOTO到定义成200行（即CONTINUE）这个地方，编程中是不太提倡的

ectxcqm · 发表于 2015-5-15 17:05:27

路过学习下

hs_001002 · 发表于 2015-5-15 17:05:27

路过学习下
- 本文出自马后炮化工论坛，原文地址：http://meng.horse/thread-124979-1-1.html

ljx9531 · 发表于 2015-5-15 17:05:27

编写的程序用asplink生成dll是说111.obj : error LNK2019: 无法解析的外部符号 _DSET@16，该符号在函数 _SFCRGE 中被引用
111.obj : error LNK2019: 无法解析的外部符号 _FCNJSG，该符号在函数 _SFCRGE 中被引用怎么回事啊？有大神吗？求解答。。。

aspen 用户模块 fortran 编写问题

相关帖子