本人为fortran初学者,跪求fortran上矩阵相乘.矩阵求逆的程序,要自己遍的那种.

来源：学生作业帮编辑：大师作文网作业帮分类：综合作业时间：2024/11/21 00:12:11

C
C 矩阵乘法范例
C By Perng 1997/9/17
PROGRAM MATMUL_DEMO
IMPLICIT NONE
INTEGER N
PARAMETER(N=3)
INTEGER A(N,N) !MATRIX A
INTEGER B(N,N) !MATRIX B
INTEGER C(N,N) !MATRIX C
DATA B /1,2,3,4,5,6,7,8,9/
DATA C /9,8,7,6,5,4,3,2,1/
CALL MATMUL(A,B,N,N,C,N,N)
WRITE(*,*) 'Matrix A:'
CALL OUTPUT(A,N)
STOP
END
C
C 输出矩阵的子程序
C
SUBROUTINE OUTPUT(A,N)
IMPLICIT NONE
INTEGER N,A(N,N)
INTEGER I,J
CHARACTER FOR*20
DATA FOR /'(?(1X,I3))'/
C 用字符串来设定输出格式
WRITE( FOR(2:3),'(I2)' ) N
DO I=1,N
WRITE( *,FMT=FOR ) (A(I,J),J=1,N)
END DO
RETURN
END
C
C 矩阵乘法的子程序
C
SUBROUTINE MATMUL(A,B,BR,BC,C,CR,CC)
IMPLICIT NONE
INTEGER BR !Row of Matrix B
INTEGER BC !Column of Matrix B
INTEGER B(BR,BC) !Matrix B
INTEGER CR !Row of Matrix C
INTEGER CC !Column of Matrix C
INTEGER C(CR,CC) !Matrix C
INTEGER A(BR,CC) !Matrix A
INTEGER I,J,K !循环的计数器
!BC若不等于CR,这两个矩阵无法相乘
IF ( BC .NE.CR ) THEN
WRITE(*,*) 'Matrix size error!'
STOP
END IF
DO I=1,BR
DO J=1,CC
A(I,J)=0
DO K=1,BC
A(I,J)=A(I,J)+B(I,K)*C(K,J)
END DO
END DO
END DO
RETURN
END

求fortran编写的三个矩阵相乘的程序,三个矩阵设置成（m,m）形状的. fortran语言矩阵求逆用fortran语言编一个矩阵相乘的通用程序急用写出一个“求3*4矩阵中的最大元素和最小元素”的fortran程序,本人程序小白,望能详细解读下, 如何用Fortran求矩阵中某元素的位置 fortran程序求编辑求相关系数fortran程序~ 求一个Fortran程序急求fortran 四元方程组的程序高斯消元法求用FORTRAN编的数据处理小程序用Fortran语言编写两个4*4矩阵乘的程序一个简单的FORTRAN程序,