求已知数左右两边的数

fcode · 发表于 2016-9-9 19:29:00

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

program www_fcode_cn
  implicit none
  real :: a(10) = [1,2,3,4,5,6,7,8,9,10]
  write(*,*) maxloc( a , a < 7.5 )
  write(*,*) minloc( a , a > 7.5 )
end program www_fcode_cn

fcode · 发表于 2016-9-11 21:32:28

也许你需要的是 maxval 或 minval

[求助] 求已知数左右两边的数

美女勋章

热心勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

规矩勋章

元老勋章

水王勋章