第五章数组.ppt.ppt

第五章 数 组; 数组声明实例 REAL，DIMENSION(15) ::X ！下界缺省值为1 REAL，DIMENSION(1:5，1:3) ::Y REAL，DIMENSION(-4:0，1:3) ::Z （1）维(rank) — 代表下标个数。X为一维数组，Y和Z为二维数组。 （2）界(bounds) — X下界1、上界15，Y下界1和1，上界5和3，Z下界-4和1、上界0和3。 （3）度(extent) — 维上的元素个数。X度为15，Y和Z度为5和3。 （4）大小(size) — 总的元素个数，或特定维上的元素个数。X、Y和Z的大小为15。 （5）形状(shape) — 由维和度决定。X的形状为(/15/)，Y和Z形状为(/5，3/)。 （6）一致的(conformable) — 形状相同的数组是一致的或兼容的，一致的数组才能相互赋值，这里Y和Z 形状相同。;数组声明的一般形式： TYPE，DIMENSION( [dl:]，du[[dl:] du]…) ::Arr TYPE [::] Arr( [dl:]， du[[dl:] du]…) TYPE代表数据类型，dl 和du 分别为维的下界和上界，Arr 为数组变量。 下列都是合法的数组声明： REAL，DIMENSION(100) ::R REAL，DIMENSION(1:10，1:10) ::S REAL ::T(10，10) REAL，DIMENSION(-10: -1) ::X INTEGER，PARAMETER ::1da=5 REAL，DIMENSION(0:1da-1) ::Y REAL，DIMENSION(1+1da*1da，10) ::Z 表明： （1）上、下界可以任意规定； （2）缺省下界为1； （3）可省略 DIMENSION 属性，如 T ； （4）数组大小可以为0； （5） Fortran 77数组声明分2步：先数组类型，再数组维数及大小。;例 5-1 一维数组的使用，从保存有学生学号、姓名和成绩三列数据的文件中读取全部数据，并在屏幕上显示 PROGRAM Main IMPLICIT NONE INTEGER，PARAMETER :: MAX = 100 ! 最大行数 CHARACTER(20) NO(MAX)，NAME(MAX) ! 学号、姓名 REAL MARK(MAX) ! 成绩 INTEGER IO，I，N ! N 代表实际行数 OPEN (1，FILE = ‘DATA.TXT’) READ(1，*，IOSTAT = IO) (NO(I)，NAME(I)，MARK(I)，I=1，MAX) IF(IO0)THEN ! 遭遇文件尾 N=I-1 ELSE N=MAX END IF PRINT*，N WRITE(*，‘(2A，F4.1)’) (NO(I)，NAME(I)，MARK(I)，I=1，N) CLOSE(1) END PROGRAM;例5-2 二维数组的使用，从保存有