mean_int32 Function

private pure function mean_int32(array) result(m)

Mean of an integer(int32) array.

Arguments

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

Return Value real(kind=dp)


Called by

proc~~mean_int32~~CalledByGraph proc~mean_int32 mean_int32 interface~mean mean interface~mean->proc~mean_int32

Variables

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

Source Code

   pure function mean_int32(array) result(m)
      !! Mean of an integer(int32) array.
      integer(int32), 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_int32