Question

fortran程序中语句执行顺序和自己命名行数的关系

摘自一个子程序应用的例子，但是作者很有想法，我不知道这些语句是什么顺序运行的，以至于没有看懂他的简单形法寻优原理。。。还望大师能够解惑！高分！





Answer 1

查看一段其他人书写的代码的执行流程，是一件比较麻烦的事情。

我无法帮你代劳。

但是我可以告诉你的是，自定义的行标，与执行顺序没有必然的联系。
执行顺序应该是由上而下的，同时，IF Do Goto 这些执行语句也会改变它。

但是行标不会。

追问

嗯嗯！我会自己努力看的！

那标注那么多行标是做什么的呀？我知道write的格式中的数字是和format对应的。但是do循环里写行标有什么用？比如这个：

追答

do 10 k = 1 , n

...
10 continue

表示循环截止到 10 这一行。这是很老的语法，现在一般都这样写：

Do k = 1 , n
...
End Do

追问

simnl是什么意思呀？是程序库中“单纯形寻优子程序”的英文名称(查不到就算了)么？

还有fomat中输入(/4x,'No.',5x,8hc/[mg/L],4x,8hq/[mg/g],2x,11hqcal/[mg/g],3x, 'dq/[%]'/4x,52(1h-))输出结果如图，我看懂这里8hc/[mg/L]有用八个字符输出c/[mg/L]的功能，但还是想知道h的格式化功能最标准的介绍

追答

语法里没有规定 simnl 的含义。没有任何关键字和保留字及修饰符叫 simnl

关于 h 标识符，可参考编译器的帮助文档，比我说的详细，权威。

H Editing

The H edit descriptor transfers data between the
external record and the H edit descriptor itself. The H edit
descriptor is a deleted feature in Fortran 95; it was obsolescent in Fortran 90.
Compaq Fortran fully supports features deleted in Fortran 95.
An H edit descriptor has the form of a Hollerith
constant, as follows:

nHstring

n
Is an unsigned, positive default integer
literal constant (with no kind parameter) indicating the number of characters in
string (including blanks and tabs).
The range of n is 1 through 2147483647 (2**31-1)
on Alpha processors; 1 through 32767 (2**15-1) on x86 processors. Actual useful
ranges may be constrained by record sizes (RECL) and the file system.