linux数组fortran,[转载]FORTRAN中数组的定义及使用

From: 《Fortran 95 程序设计》 彭国伦

1.基本使用：

一维数组：

datatype name (size)

datatype: integer, real, complex,

logical,或type自定义出来的类型。

integer, parameter :: students = 5

integer :: student (students)

其他定义方法：

integer a(10) !最简单的

integer, dimension (10) :: a !另外的方法

integer, dimension (10) :: a,b,c !一起定义

integer

a !f77 先声明a是整型，

dimension a(10) ！再声明a是大小为10的数组

或type

type :: person

real ::height, weight

end type

type (person) :: a(10)

a(2)%height = 180.0

二维数组：

integer a(3, 3)

a(1,1) = 3

定义方法：

integer a(10,10)

integer, dimension (10, 10) :: a,b,c

integer a

dimension a(10,10) ! f77, 先定义类型

二维数组常用来当作矩阵使用。

多维数组：

frotran最多可声明高达七维的数组。

integer a(D1,D2,...,Dn) ！n维

一般说来，越高维数组读数据越慢。

另类声明方法：

integer a(5) 可使用的是a(1), a(2), a(3), a(4), a(5)

integer a(0:5) 下标可使用的是0～5，a(0),a(1),...,a(5)六个元素。

integer a(-3：3) 可以使用的是a(-3), a(-2), a(-1),

a(0),...,a(3)七个元素。

integer a (5,0:5) 可用a(1~5, 0~5)

integer b(2:3, -1:3) 可用b(2~3, -1~3)

2.数组内容的设置

赋初值：

integer a(5)

data a /1, 2, 3, 4, 5/

data a /5*3/ !5个3 &#x