mean_int64 Function

private pure function mean_int64(array) result(m)

Mean of an integer(int64) array.

Arguments

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

Return Value real(kind=dp)


Called by

proc~~mean_int64~~CalledByGraph proc~mean_int64 mean_int64 interface~mean mean interface~mean->proc~mean_int64

Variables

Type Visibility Attributes Name Initial
integer(kind=default_int), private :: n

Source Code

   pure function mean_int64(array) result(m)
      !! Mean of an integer(int64) array.
      integer(int64), intent(in) :: array(:)
      real(dp) :: m
      integer(default_int) :: n

      n = size(array, kind=default_int)
      if (n == 0) then
         m = 0.0_dp
      else
         m = sum(real(array, dp))/real(n, dp)
      end if
   end function mean_int64