FORTRAN程序问题MAXLOC

integer f
修改为
integer f(1)
MaxLoc 函数的返回值是一个数组。
它的第一个参数可以用于多维数组，也就是查找多维数组，比如二维数组，每一行的最大值位置。
于是结果是多个数。
如果你的参数是一维数组，虽然结果是1个，但还是必须是数组。只是大小是1而已。
于是，必须是 integer f(1) 而不能是 integer f