mean_sp Function

private pure function mean_sp(array) result(m)

Mean of a real(sp) array.

Arguments

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

Return Value real(kind=dp)


Called by

proc~~mean_sp~~CalledByGraph proc~mean_sp mean_sp interface~mean mean interface~mean->proc~mean_sp

Variables

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

Source Code

   pure function mean_sp(array) result(m)
      !! Mean of a real(sp) array.
      real(sp), 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_sp