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