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