如题所述
第1个回答 2010-12-25
IMPLICT NONE
REAL::A(4,4),B(4,4),C(4,4)=0
INTEGER::I,J,K
READ(*,*) A,B ! 输入方式也可改为读文件
DO I= 1,4
DO J=1,4
DO K=1,4
C(I,J)=C(I,J)+A(I,K)*B(K,J)
ENDDO
ENDDO
ENDDO
WRITE(*,*) C
END
REAL::A(4,4),B(4,4),C(4,4)=0
INTEGER::I,J,K
READ(*,*) A,B ! 输入方式也可改为读文件
DO I= 1,4
DO J=1,4
DO K=1,4
C(I,J)=C(I,J)+A(I,K)*B(K,J)
ENDDO
ENDDO
ENDDO
WRITE(*,*) C
END