23 REAL(KIND=8),
DIMENSION(:),
ALLOCATABLE ::
m 24 REAL(KIND=8),
DIMENSION(:),
ALLOCATABLE ::
mprev 25 REAL(KIND=8),
DIMENSION(:),
ALLOCATABLE ::
v 26 REAL(KIND=8),
DIMENSION(:),
ALLOCATABLE ::
mtmp 38 IF (allocstat /= 0) stop
'*** Not enough memory ***' 49 REAL(KIND=8),
DIMENSION(0:ndim),
INTENT(IN) :: x
60 REAL(KIND=8),
DIMENSION(0:ndim) :: mean
66 REAL(KIND=8),
DIMENSION(0:ndim) :: var
integer ndim
Number of variables (dimension of the model)
integer i
Number of stats accumulated.
subroutine, public acc(x)
Accumulate one state.
real(kind=8) function, dimension(0:ndim), public var()
Function returning the variance.
real(kind=8), dimension(:), allocatable v
Vector storing the inline variance.
subroutine, public init_stat
Initialise the accumulators.
The model parameters module.
real(kind=8), dimension(:), allocatable m
Vector storing the inline mean.
real(kind=8) function, dimension(0:ndim), public mean()
Function returning the mean.
real(kind=8), dimension(:), allocatable mprev
Previous mean vector.
real(kind=8), dimension(:), allocatable mtmp
integer function, public iter()
Function returning the number of data accumulated.
subroutine, public reset
Routine resetting the accumulators.