stand_devi Subroutine

public subroutine stand_devi(x, true_val, anor, undef)

Calculate RMSE of x for the "true_val" (from STPK)
Definition: RMSE $= \sqrt{\sum^{N}_{i=1}{(1/N)(x(i)-x_t)^2}},$
$x_t=\mathrm{true\_val}$

Arguments

Type	Intent	Optional	Attributes		Name
double precision,	intent(in)			::	x(:)	sampling data
double precision,	intent(in)			::	true_val	reference data
double precision,	intent(out)			::	anor	RMSE
double precision,	intent(in),	optional		::	undef	missing value