作业帮 > 综合 > 作业

用fortran语言编一个矩阵相乘的通用程序 急用

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/06/02 20:08:47
用fortran语言编一个矩阵相乘的通用程序 急用
program matrix_multiplication
implicit none
integer::i,j,k
integer,parameter::m=4,n=4,l=4,p=4
integer(kind=8)::a(m,n),b(n,p)
integer(kind=8)::c(m,p)
do i=1,m
do j=1,n
write(*,"('Please input a('i2,i2')')")i,j
read(*,*)a(i,j)
end do
end do
do i=1,n
do j=1,p
write(*,"('Please input b('i2,i2')')")i,j
read(*,*)b(i,j)
end do
end do
do i=1,m
do j=1,p
 c(i,j)=0
 do k=1,n
 c(i,j)=c(i,j)+a(i,k)*b(k,j)
 end do
end do
end do

do i=1,m
do j=1,p
write(*,"(i2)")c(i,j)
end do
end do
end program
俺只是刚刚学,会的不多,这个你需要自己从程序开始,改那个m,n,l,p才可以算你需要的维数的.