54REAL,
PARAMETER :: rmiss = huge(1.0)
55DOUBLE PRECISION,
PARAMETER :: dmiss = huge(1.0d0)
56REAL(kind=fp_s),
PARAMETER :: rsmiss = huge(1.0_fp_s)
57REAL(kind=fp_d),
PARAMETER :: rdmiss = huge(1.0_fp_d)
58INTEGER,
PARAMETER :: imiss = huge(0)
59INTEGER(kind=int_b),
PARAMETER :: ibmiss = huge(0_int_b)
60INTEGER(kind=int_b),
PARAMETER :: bmiss = ibmiss
61INTEGER(kind=int_s),
PARAMETER :: ismiss = huge(0_int_s)
62INTEGER(kind=int_l),
PARAMETER :: ilmiss = huge(0_int_l)
63INTEGER(kind=int_ll),
PARAMETER :: illmiss = huge(0_int_ll)
64CHARACTER(len=1),
PARAMETER :: cmiss = char(0)
73 MODULE PROCEDURE c_e_b, c_e_s, c_e_l,c_e_ll, c_e_r, c_e_d, c_e_c
76PRIVATE c_e_b, c_e_s, c_e_l,c_e_ll, c_e_r, c_e_d, c_e_c
81ELEMENTAL LOGICAL FUNCTION c_e_b(var)
82INTEGER(kind=int_b),
INTENT(in) :: var
90ELEMENTAL LOGICAL FUNCTION c_e_s(var)
91INTEGER(kind=int_s),
INTENT(in) :: var
99ELEMENTAL LOGICAL FUNCTION c_e_l(var)
100INTEGER(kind=int_l),
INTENT(in) :: var
109ELEMENTAL LOGICAL FUNCTION c_e_ll(var)
110INTEGER(kind=int_ll),
INTENT(in) :: var
112c_e_ll = var /= illmiss
118ELEMENTAL LOGICAL FUNCTION c_e_r(var)
119REAL,
INTENT(in) :: var
127ELEMENTAL LOGICAL FUNCTION c_e_d(var)
128DOUBLE PRECISION,
INTENT(in) :: var
136ELEMENTAL LOGICAL FUNCTION c_e_c(var)
137CHARACTER(len=*),
INTENT(in) :: var
Function to check whether a value is missing or not.
Definition of constants to be used for declaring variables of a desired type.
Definitions of constants and functions for working with missing values.