FORTRAN的数组-笔记

    首先，FORTRAN数组的索引下界默认情况下为1。

    FORTRAN中的数组是按“列元素优化”的规则进行存储的。C语言中的数组则是按照“行元素优先”的原则进行存储，并且C语言中数组的下标下界固定是从0开始的。在FORTRAN中，使用DO循环进行高效数组操作的代码写法，可能是在C语言中恰恰是最低效的。

    FORTRAN读取文件时，逐行读取文件内容，然后在内存中按列存储。print 和write函数，按列输出。

 

 

program test1 integer temp, b(3,3), c(3,3) temp = 0 do 20 i = 1, 3 do 20 j = 1, 3 temp = temp + 1 b(i, j) = temp write(*, *) i, j, '----', b(i, j) 20 continue open(100, file = 'test.txt') write(100, *) ((b(i,j),i = 1, 3),j = 1,3) close(100) write(*,*) '###############################' open(101, file = 'test.txt') read(101, *)((c(i, j), i = 1, 3), j = 1, 3) close(101) do 21 i = 1, 3 do 21 j = 1, 3 write(*,*) i, j, '----', c(i, j) 21 continue end program test1  

 

结果：

[root@c0108 test]# gfortran test1.f90 -o test [root@c0108 test]# ./test 1 1 ---- 1 1 2 ---- 2 1 3 ---- 3 2 1 ---- 4 2 2 ---- 5 2 3 ---- 6 3 1 ---- 7 3 2 ---- 8 3 3 ---- 9 ############################### 1 1 ---- 1 1 2 ---- 2 1 3 ---- 3 2 1 ---- 4 2 2 ---- 5 2 3 ---- 6 3 1 ---- 7 3 2 ---- 8 3 3 ---- 9 [root@c0108 test]# cat test.txt 1 4 7 2 5 8 3 6 9