Fortran90章 6.ppt

§6 数组;§6.1 数组的定义与操作; 维数说明:由下标界限说明组成,有几个下标界限说明就表示数组是几维的。多于一维的数组称多维数组,下标界限说明之间用逗号(,)分隔。;例:INTEGER,DIMENSION(-2:10):: P 定义一维整数组P,下标从-2到10,13个元素。;§6.1.2 数组的逻辑结构与存储结构; 数组元素在内存中连续存放,下标数值小的排在前面。存储多维数组时,下标变化速度依次为第一个,第二个…;用数组名(下标[,下标])指定所要引用的数组元素。例:a(12),B5(3,6),c3b4(I,J,K); 必须确保数组元素的下标的值不超过下标界限。如果下标越界,系统一般会对存储于数组之前(后)的存储单元进行操作(引用或者赋值),导致错误。;§6.1.4 数组的输入与输出; 特别提示:二维数组是按列存储的,在输入/输出时也按列进行。;用DO循环对数组进行输入/输出不方便,为此,提供了针对I/O的隐含DO循环方式。 例: read(*,*) (A(I),I=4,10,2) read(*,*) (M(K),K=1,12) WRITE(*,*) ((D(L,N),N=1,6),L=1,5);§6.1.5 数组的操作;§6.1.5 数组的操作;do i = 1,2 print 1,(b(i,j),j=1,3) enddo c = reshape(a,(/3,2/)) do i = 1,3 print 1,(c(i,j),j=1,2) enddo 1 format(8(3x,f4.1)) end ;§6.1.5 数组的操作;§6.1.6 数组片段;§6.1.6 数组片段;例如：;§6.1.7 给数组元素赋初值; 对单个数组元素赋值,与对变量赋值没有任何区别。;可以用DATA语句对同一个变量多次赋初值,但只有最后一次赋值有效。;§6.2 动态数组;§6.2 动态数组;§6.2 动态数组;§6.2 动态数组;§6.2 动态数组;§6.3 数组在函数和子程序中的应用;§6.3 数组在函数和子程序中的应用;§6.3 数组在函数和子程序中的应用;数组作为虚参;PROGRAM MAIN SUBROUTINE SUB（B） REAL C（3,3） REAL B（5） CALL SUB(C) C(1,1) C(2,1) C(3,1) C(1,2) C(2,2) C(3,2) C(1,3) C(2,3) C(3,3) B(1) B(2) B(3) B(4) B(5) 注意:虚参数组的元素个数必须小于等于实参数组的元素个数. B:实参为同类型的数组元素 CALL SUB(A(3)) A(1) A(2) A(3) A(4) A(5) A(6) A(7) A(8) B(1) B(2) B(3) B(4) B(5) ;CALL SUB(C(1,2)) C(1,1) C(2,1) C(3,1) C(1,2) C(2,2) C(3,2) C(1,3) C(2,3) C(3,3) B(1) B(2) B(3) B(4) B(5) 注意:虚参数组不能越出实参数组的范围.如 CALL SUB(C(3,2))是错误的 (2)当虚参数组为字符型,实参为同类型的数组名或数组元素,虚参与实参是按字符位置一一对应. PROGRAM MAIN SUBROUTINE SUB(B) CHARACTER*4 A(5) CHARACTER*3 B(4) CALL SUB(A) ;;parameter (n=20) integer a(n),X data a/52,98,-45,0,8,10,-23,6,25,12, -89,8,4,15,2,-5,81,60,32,75/ write(*,100) a write(*,*) Enter a number for search read(*,*) X do k = 1,n;parameter (N=10) INTEGER A(N) Data a/18,10,6,25,12,8,4,15,2,-5/ WRITE(*,100) A DO I = 1,N-1 DO J = N,I+1,-1 IF(A(J).LT.A(J-1)) THEN M = A(J);A(J) = A(J-1);A(J-1) = M