fortran课件-F90第八章 函数与子例行程序.pptVIP

第八章 函数与子例行程序 第八章 函数与子例行程序 !主程序 PROGRAM m_add !声明3个外部子例行程序 EXTERNAL input,matrix_add,output INTEGER,PARAMETER :: m=3,n=4 INTEGER,DIMENSION(m,n) :: A,B,C !调用执行外部子例行程序input输入A矩阵数据 CALL input(A,m,n) !调用执行外部子例行程序input输入B矩阵数据 CALL input(B,m,n) !调用外部子例行程序matrix_add求A、B矩阵和,得C矩阵 CALL matrix_add(A,B,C,m,n) !调用执行外部子例行程序output输出C矩阵数据 CALL output(C,m,n) END 8. 7 外部子程序 第八章 函数与子例行程序 !外部子例行程序 !输入矩阵数据,mat为数组,n1为行数,n2为列数 SUBROUTINE input(mat,n1,n2) INTEGER mat(n1,n2),n1,n2,i,j WRITE(*,100) n1,n2 WRITE(*,200) n1*n2 READ*,((mat(i,j),j=1,n2),i=1,n1) 100 FORMAT(以行为主输入,I2,×,I2,矩阵。\) 200 FORMAT(1X,共,I4,