mean_mixed_dss Subroutine

public subroutine mean_mixed_dss(x_dp, xm, xs, number)

Uses


                                                                        *

This subroutine calculates mean and standard deviation of a given element.* * AUTHOR: Andreas Stohl, 25 January 1994 * * Mixed precision version ESO 2016 (dp in, sp out, sp out) *


                                                                        *

Variables: * x_dp(number) field of input data * xm mean * xs standard deviation * number number of elements of field x_dp * * Constants: * eps tiny number * *


Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: x_dp(number)
real(kind=sp), intent(out) :: xm
real(kind=sp), intent(out) :: xs
integer, intent(in) :: number