mean Interface

public interface mean

Calculates the mean value of a set of values given in a vector of any size with one dimension applying the following equation:

Where:

  • is a vector with real numbers.
  • is how many numbers are included in .

Syntax

y = mean(x)

Where:

  • x = vector of rank 1 with real numbers. See this example to use an array of rank larger than 1.
  • y = real number of the same kind as x with the mean value of x.

Example

The following program calculates the mean value of a vector:

 PROGRAM meanExample
    USE FU_Statistics, ONLY: mean
    IMPLICIT NONE
    REAL, DIMENSION(5) :: x = [1., 2., 3., 4., 5.]
    WRITE(*,*) mean(x)
 END PROGRAM meanExample

Contents


Module Procedures

private pure function mean_sp(x) result(res)

Arguments

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

Vector of real numbers to calculate the mean value. It can have any size and it must have one dimension.

Return Value real(kind=sp)

Real number with the average of x.

private pure function mean_dp(x) result(res)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in), DIMENSION(:) :: x

Vector of real numbers to calculate the mean value. It can have any size and it must have one dimension.

Return Value real(kind=dp)

Real number with the average of x.

private pure function mean_qp(x) result(res)

Arguments

Type IntentOptional Attributes Name
real(kind=qp), intent(in), DIMENSION(:) :: x

Vector of real numbers to calculate the mean value. It can have any size and it must have one dimension.

Return Value real(kind=qp)

Real number with the average of x.