FORTRAN两实数矩阵相乘程序
!两实数矩阵相乘程序PROGRAM Matrix_multiply!定义动态数组A,B,SREAL,ALLOCATABLE : A(:,:)REAL,ALLOCATABLE : B(:,:)REAL,ALLOCATABLE : S(:,:)!矩阵维数定义INTEGER M,N,L,I,J,KPRINT *,'请输入矩阵A的大小,格式M N'READ *,M,NPRINT *,'请输入矩阵B的大小,格式N L'READ *,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