Fortran Coder

标题: 三个语法代码的解释问题 [打印本页]

作者: cwhe_10 时间: 2015-10-29 00:23
标题: 三个语法代码的解释问题
以下是问题，求解释下：
1.integer ,dimension(-10:15) :: current
   为啥定义矩阵的长度从-10到15呢，那么矩阵小标索引是不是也是-10到15，而不是像matlab或者c一样，从1:26呢？
2.print 100,firstname
100 format(1x,a)       这一句怎么理解（括号里面和那个100）？
3.read *,x,y
read(unit=*,fmt=100) x,y
read(unit=5,fmt=*) x,y       这三行代码如何解释呢？主要是那个*号和括号里面的两个变量不懂？

作者: fcode 时间: 2015-10-29 08:15
1. Fortran 可以从任何下标开始。例如 -10:15，那么一共有26个元素。分别是
-10，-9，-8，-7......0，1，2，3......15
既然定义了从-10开始，那就是-10开始，不会从1到26。

2. print,100 这里的100指定了输出格式，按照语句标号100所示的格式输出。
那么 100 format(1x,a) 就说明了它的格式。1x 表示输出一个空格，a 表示输出一个字符串，即firstname

3. 这是 read 读取语句。第一个写法已经被废止了，它等效于 read( * , * ) x , y
第二个写法等效于 read( * , 100 ) x , y
第三个写法等效于 read( 5 , * ) x , y

括号里有两个东西，第一个是 unit，表示读取的位置，如果是 * 表示从屏幕读入
第二个是 fmt，如果是 * 表示表控格式（list-directed 即让编译器自动选择格式）

作者: cwhe_10 时间: 2015-10-29 12:13

fcode 发表于 2015-10-29 08:15
1. Fortran 可以从任何下标开始。例如 -10:15，那么一共有26个元素。分别是
-10，-9，-8，-7.... ...

非常感谢，(*^__^*) 嘻嘻……

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