mean_dp Function

private pure function mean_dp(array) result(m)

Mean of a real(dp) array.

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: array(:)

Return Value real(kind=dp)


Called by

proc~~mean_dp~~CalledByGraph proc~mean_dp mean_dp interface~mean mean interface~mean->proc~mean_dp

Variables

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

Source Code

   pure function mean_dp(array) result(m)
      !! Mean of a real(dp) array.
      real(dp), 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(array)/real(n, dp)
      end if
   end function mean_dp