找矩陣中的index

楚香饭

给你个简单的例子吧。剩下的你自己循环，构建矩阵

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

Program www_fcode_cn
  Implicit none
  Integer :: a = 1 , loca(1) = 0
  Integer :: b(5) = (/5,3,4,1,2/)
  loca = minloc( b , mask=(b==a) )
  write(*,*) loca
End Program www_fcode_cn