资源描述:
《fortran两实数矩阵相乘程序》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、!两实数矩阵相乘程序PROGRAMMatrix_multiply!定义动态数组A,B,SREAL,ALLOCATABLE::A(:,:)REAL,ALLOCATABLE::B(:,:)REAL,ALLOCATABLE::S(:,:)!矩阵维数定义INTEGERM,N,L,I,J,KPRINT*,'请输入矩阵A的大小,格式MN'READ*,M,NPRINT*,'请输入矩阵B的大小,格式NL'READ*,N,LALLOCATE(A(M,N))ALLOCATE(B(N,L))ALLOCATE(S(M,L))!输入A,B矩阵PRINT*,'请输入矩阵A
2、',M,'行',N,'列'DOI=1,MPRINT*,'请输入第',I,'行'READ*,A(I,:)ENDDOPRINT*,'请输入矩阵B',N,'行',L,'列'DOI=1,NPRINT*,'请输入第',I,'行'READ*,B(I,:)ENDDO!计算A,B相乘DOI=1,MDOJ=1,LS(I,J)=0DOK=1,NS(I,J)=S(I,J)+A(I,K)*B(K,J)ENDDOENDDOENDDO!打印输出DOI=1,MPRINT*,S(I,:)ENDDOEND