1个回答
展开全部
嗯,你的 ld 都没有定义,也没有赋值。就这一点你的程序就完全没法继续看了。 Fortran 的优势就是矩阵运算。你的程序可以非常简单。 program main real a(3,3),b(3,3),c(3,3),cmax integer n,m print*,'输入m' read*,m print*,'输入n' read*,n print*,'输入矩阵a' read*,a print*,'输入b' read*,b call smv(a,b,c,m,m,n,cmax) print*,'matrice c',c,'cmax',cmax end subroutine smv(a,b,c,ld,m,n,cmax) real a(ld,m),b(ld,m),c(ld,m) integer n,m c = a + b cmax = maxval(c) end subroutine 这两句代码就可以了。 我建议你看一下这个文章,关于定义数组和变量的一些常识:fcode.cn/guide-43-1.html
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |