min_max_int64 Function

private pure function min_max_int64(array) result(mm)

Minimum and maximum of an integer(int64) array.

Arguments

Type IntentOptional Attributes Name
integer(kind=int64), intent(in) :: array(:)

Return Value integer(kind=int64), (2)


Called by

proc~~min_max_int64~~CalledByGraph proc~min_max_int64 min_max_int64 interface~min_max min_max interface~min_max->proc~min_max_int64

Source Code

   pure function min_max_int64(array) result(mm)
      !! Minimum and maximum of an integer(int64) array.
      integer(int64), intent(in) :: array(:)
      integer(int64) :: mm(2)
      mm(1) = minval(array)
      mm(2) = maxval(array)
   end function min_max_int64