将 MILOC 与 Fortran 结合使用：赋值中的等级 0 和 1 不兼容

给出错误消息的版本

program hello
   integer a(9)
   integer index; ! note no dimension here
   a=(/1, 3, 4, 5, 6, 7, 8, 9, 10/)
   index = MINLOC(a, MASK=(a > 5))
   Print *, index
end program Hello

错误信息

主要.f95:5.3:

索引 = MILOC(a, MASK=(a > 5)) 1 错误：(1) 处的分配中的等级 0 和 1 不兼容

工作版本

program hello
   integer a(9)
   integer index(1) ! note dimension 1 here which looks redundant at first
   a=(/1, 3, 4, 5, 6, 7, 8, 9, 10/)
   index = MINLOC(a, MASK=(a > 5))
   Print *, index
end program Hello

Search

Here http://morecakelessfish.blogspot.com.au/2008/12/incompatible-ranks.html我可以找到相关的讨论，但我发现它不够详细，无法让我理解其中的差异。

您可以修复第一个版本，从以下位置获取标量返回minloc，通过使用DIM争论：

index = MINLOC(a, DIM=1, MASK=(a > 5))

附：不需要用分号来结束语句，除非每行放置多个语句。 Fortran 不是 C。