Mean_1d Subroutine

public subroutine Mean_1d(x, ave, error, nc)

Average x

Arguments

Type IntentOptional Attributes Name
double precision, intent(in) :: x(:)

Input data

double precision, intent(inout) :: ave

Output mean value

double precision, intent(in), optional :: error

Missing value

integer, intent(inout), optional :: nc

Number of sampling data without error