Fortran流程.ppt

数组 一、基本使用 1、一维数组 数组的声明： 数组 例： program ex0701 implicit none integer, parameter :: students = 5 integer :: student(students) integer :: i do i=1, students write(*,(Number ,I2)) i read(*,*) student(i) end do do while( .true. ) write(*,*) Query: read(*,*) i if ( i=0 .or. istudents ) exit write(*,*) student(i) end do stop end 常数的声明 定义了名student大小为5的数组 do循环录入 do while不定次数查询 数组 数组的赋值：student(1)=89 ！设置第一个元素的值为89student(3)=83 ！设置第三个元素的值为83a=student(1)+student(3) ！将1、3俩元素值相加 一维数组的其他声明语法： integer :: a(10) !最简单的方法 integer,dimension(10):: a !另一种方法 integer a !Fortran77的做法，先声明a是整型， dimension a(10) !再声明a是大小为10的数组。 数组 2、二维数组 声明数组大小时，如果使用两个数字， 中间用逗号隔开，它就变成二维数组。使用二维数组时，要给两个坐标索引值。 integer :: a(3,3) ! 数组a是3*3的二维数组 a(1,1)=3 ! 赋值给一个二维数组的一个元素或者使用二维数 组时，要给两个索引值。 例： 二维数组的声明方法： integer :: a(10,10) !最简单的方法 integer,dimension(10,10):: a !另一种方法,Fortran9x integer a !Fortran77的做法，先声明a是整型， dimension a(10,10) !再声明a是大小为10x10的数组 数组 program ex0704 implicit none integer, parameter :: row = 2 integer, parameter :: col = 2 integer :: A(row,col) integer :: B(row,col) integer :: C(row,col) integer :: r ! 用来指定row integer :: c ! 用来指定column ! 读入矩阵A的内容 write(*,*) Matrix A do r=1, row do c=1, col write(*,(A(,I1,,,I1,)=)) r,c read(*,*) A(r,c) end do end do ! 读入矩阵B的内容 write(*,*) Matrix B do r=1, row do c=1, col write(*,(‘B(,I1,,,I1,)=)) r,c read(*,*) B(r,c) end do end do ! 把矩阵A,B相加并输出结果 write(*,*) Matrix A+B= do r=1, row do c=1, col C(r,c) = B(r,c)+A(r,c) write(*,((,I1,,,I1,)=,I3)) r,c, C(r,c) end do end do end 数组 除了二维数组，还可以声明出更高维的数组，只要声明与使用时多给几个数字就行了。Fortran最多可以声明高达七维的数组。 3、多维数组 integer :: a（D1，D2，…，Dn） ！n维数组 a(I1,I2,…,In) ！使用n维数组时要给n个坐标值 一般来说，使用越高维的数组，程序执行时读取数据的速度会越慢。并警告在使用多维数组时要小心，因为在使用多维数组时很容易把坐标位置搞混。 * 流程控制 （教材的第5章） 顺序结构 选择结构 循环结构 程序的执行有三种基本结构： 流程控制 一、 IF基本用法 IF(逻辑判断式) THEN …… …… ← 逻辑成