Question

关于一个Fortran的简单数组函数问题！ 谢谢！

program Gauss
implicit none
integer::w
real::a(7)=(/1,2,3,4,5,6,7/)
w=maxloc(a)
print*,w
end

C:\MSDEV\Projects\Gausslie列主元素消去法\Gauss列主元素消去法.f90(8): error FOR2614: assignment between arrays of differing rank
老是报错！ 不知道怎么处理了，是不是Fortran的问题。以前在机房的时候用了可以。 大家帮忙看看。

Answer 1

program Gauss
implicit none
integer::w(1)
real::a(7)=(/1,2,42,4,5,6,7/)
w=maxloc(a)
print*,w
end

把 w 定义成只有一个元素码亩的迟穗森数组即族让可。