Fortran关于默认数组读取的认识

有这样一组数据：

15 36 85 96 67 45 14 14

28 23 45 56 45 45 34 12

42 65 56 67 43 12 45 60

73 85 96 93 82 65 16 29

这里想将其写入到一个A(4,8)的数组里面。

首先定义

integer :: A(4,8)

然后进行读取

read(11,*) A

那么输出会是怎样的呢？是这样排列的。

a(11) a(21) a(31) a(41) a(12) a(22) a(32) a(42)

a(13) a(23) a(33) a(43) a(14) a(24) a(34) a(44)

a(15) a(25) a(35) a(45) a(16) a(26) a(36) a(46)

a(17) a(27) a(37) a(47) a(18) a(28) a(38) a(48)

结果并不是如我们所期望，如果不留意，很容易出错，为了确保安全，可以在读取的时候这样写：

read(11,*) ( (A(i,j),j=1,8),i=1,4 )

！这是一个隐循环

那么结果就是自己期望的那样：

a(11) a(12) a(13) a(14) a(15) a(16) a(17) a(18)

a(21) a(22) a(23) a(24) a(25) a(26) a(27) a(28)

a(31) a(32) a(33) a(34) a(35) a(36) a(37) a(38)

a(41) a(42) a(43) a(44) a(45) a(46) a(47) a(48)

注意 Fortran存储数据列优先原则。