Fortran 90 配列関数

• maxval,minval
maxval: dim番目の次元について、maskが真である要素に対応したarrayの要素の最大値を求める
minval: dim番目の次元について、maskが真である要素に対応したarrayの要素の最小値を求める

     y = maxval(array [,dim][,mask])
     y = minval(array [,dim][,mask])

     integer,intent(in) :: array(:,:,:...)
     integer,intent(in) :: dim
     logical,intent(in) :: mask(:,:,:...)   ! arrayと同じ形状
     integer            :: y

     real,intent(in)    :: array(:,:,:...)
     integer,intent(in) :: dim
     logical,intent(in) :: mask(:,:,:...)   ! arrayと同じ形状
     real               :: y
     

• maxloc,minloc
maxloc:maskが真である要素に対応したarrayの要素のうち、最大の値を持っている最初の要素の位置を調べる
minloc:maskが真である要素に対応したarrayの要素のうち、最小の値を持っている最初の要素の位置を調べる

     i = maxloc(array [,mask])
     i = minloc(array [,mask])

     integer,intent(in) :: array(:,:,:...)
     logical,intent(in) :: mask(:,:,:...)   ! arrayと同じ形状
     integer            :: i(:)             ! arrayの次元数の大きさ

     real,intent(in)    :: array(:,:,:...)
     logical,intent(in) :: mask(:,:,:...)   ! arrayと同じ形状
     integer            :: i(:)             ! arrayの次元数の大きさ

     

• sum
maskが真である要素に対応したarrayの要素のすべての合計を計算する

     y = sum(array [,dim][,mask])

     integer,intent(in) :: array(:,:,:...)
     logical,intent(in) :: mask(:,:,:...)   ! arrayと同じ形状
     integer            :: y

     real,intent(in)    :: array(:,:,:...)
     logical,intent(in) :: mask(:,:,:...)   ! arrayと同じ形状
     real               :: y

     complex,intent(in) :: array(:,:,:...)
     logical,intent(in) :: mask(:,:,:...)   ! arrayと同じ形状
     complex            :: y