[问题] 关于minloc ej001 PTT批踢踢实业坊

[问题] 关于minloc

楼主: ej001 ( ) 2012-05-10 14:42:33

大家好
dimension a(5), ib(1), ic(1)
DATA a /5,4,7,6,9/
ib=minloc(a)
ic=maxloc(a)
若一开始设定的阵列大小等于DATA数目, 则会得到预期的结果
ib=2, ic=5
但我把a阵列大小改成大于5的数字,say 10,则ib会出现错误
ib=6, ic=5
请问我要怎么避免这种情况发生? 感谢
(因我的程式需要, 阵列a大小一定要大于DATA数目)

作者: terryys (terry) 2012-05-10 14:46:00

初始值是0，所以最小值在第6个可以用minloc(a(1:5))

楼主: ej001 ( ) 2012-05-10 14:54:00

非常感谢!!!!!

作者: saixpzooo (校队) 2012-05-12 04:19:00

也可以用MASK 加上 .GT. 0.01楼很省事 (建议)

继续阅读

[问题] 如何找阵列的index, 使得阵列有最大值?ej001 [问题] cvf 更改read默认目标Semisphere Re: [请益] FORTRAN do loop 在某问题上的写法py94g Re: [请益] FORTRAN读档案的问题py94g [问题] damped 牛顿法olampaboy Re: [请益] FORTRAN读档案的问题py94g Re: [请益] FORTRAN读档案的问题mouseforlove [请益] FORTRAN读档案的问题py94g [请益] FORTRAN do loop 在某问题上的写法py94g [公告] Fortran板板规blc