《FORTRAN两实数矩阵相乘程序》由会员分享，可在线阅读，更多相关《FORTRAN两实数矩阵相乘程序（2页珍藏版）》请在金锄头文库上搜索。
!两实数矩阵相乘程序PROGRAM Matrix_multiply!定义动态数组A,B,SREAL,ALLOCATABLE : A(:,:)REAL,ALLOCATABLE : B(:,:)REAL,ALLOCATABLE : S(:,:)!矩阵维数定义INTEGER M,N,L,I,J,KPRINT *,请输入矩阵A的大小,格式M NREAD *,M,NPRINT *,请输入矩阵B的大小,格式N LREAD *,N,LALLOCATE(A(M,N)ALLOCATE(B(N,L)ALLOCATE(S(M,L)!输入A,B矩阵PRINT *,请输入矩阵A,M,行,N,列DO I=1,MPRINT *,请输入第,I,行READ *,A(I,:)ENDDOPRINT *,请输入矩阵B,N,行,L,列DO I=1,NPRINT *,请输入第,I,行READ *,B(I,:)ENDDO!计算A,B相乘DO I=1,MDO J=1,LS(I,J)=0DO K=1,NS(I,J)=S(I,J)+A(I,K)*B(K,J)ENDDOENDDOENDDO!打印输出DO I=1,MPRINT *,S(I,:)ENDDOEND
