Function to calculate the mean of a real array
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=wp), | intent(inout), | dimension(:) | :: | a | 
                 A real array  | 
        
A real value with the calculated mean
function mean(a) result(mn) !============================================================================================= !! Function to calculate the mean of a real array real(kind=wp),dimension(:),intent(inout) :: a !! A real array real(kind=wp) :: mn !! A real value with the calculated mean mn=sum(a)/float(size(a)); ! end function mean