fortran 中 矩阵与向量计算问题

fcode

[Fortran] 纯文本查看 复制代码

integer::a(1,3)
a(1,:)=[1,2,3]
write(*,*) matmul(transpose(a),a)

fcode

可以用
k=sum(matmul(a,transpose(a))) 呀