Module s2dw_types_mod

module s2dw_types_mod

        ! Variables
    integer, public, parameter :: sp = SELECTED_REAL_KIND (5, 30)
    integer, public, parameter :: dp_p = 12
    integer, public, parameter :: dp_r = 200
    integer, public, parameter :: dp = SELECTED_REAL_KIND (dp_p, dp_r)
    integer, public, parameter :: spc = KIND ((1.0_sp, 1.0_sp))
    integer, public, parameter :: dpc = KIND ((1.0_dp, 1.0_dp))
    real (kind=dp), public, parameter :: TOL_ADMISS = 1e-12
    real (kind=dp), public, parameter :: TOL_ZERO = 1e-12
    real (kind=dp), public, parameter :: TOL_QUAD = 1d-12
    real (kind=dp), public, parameter :: TOL_LIMIT = 1d-12
    real (kind=dp), public, parameter :: TOL_CEIL = 1d-5
    integer, public, parameter :: STRING_LEN = 256
    real (kind=dp), public, parameter :: PI = 3.141592653589793238462643383279502884197_dp
    real (kind=dp), public, parameter :: PION2 = 1.570796326794896619231321691639751442099_dp
    complex (kind=dpc), public, parameter :: I = (0.0_dp, 1.0_dp)

end module s2dw_types_mod

Definition of intrinsic types and constants used in the s2dw library.

Author: J. D. McEwen (mcewen@mrao.cam.ac.uk)

Version: 0.1 October 2007

Description of Variables

sp

integer, public, parameter :: sp = SELECTED_REAL_KIND (5, 30)

Type definition for single precision real.

dp_p

integer, public, parameter :: dp_p = 12

Decimal precision for double precision real.

dp_r

integer, public, parameter :: dp_r = 200

Radix for double precision real.

dp

integer, public, parameter :: dp = SELECTED_REAL_KIND (dp_p, dp_r)

Type definition for double precision real.

spc

integer, public, parameter :: spc = KIND ((1.0_sp, 1.0_sp))

Type definition for single precisison complex.

dpc

integer, public, parameter :: dpc = KIND ((1.0_dp, 1.0_dp))

Type definition for double precision complex.

TOL_ADMISS

real (kind=dp), public, parameter :: TOL_ADMISS = 1e-12

Admissibility tolerance.

TOL_ZERO

real (kind=dp), public, parameter :: TOL_ZERO = 1e-12

Zero tolerance.

TOL_QUAD

real (kind=dp), public, parameter :: TOL_QUAD = 1d-12

Numerical integration tolerance.

TOL_LIMIT

real (kind=dp), public, parameter :: TOL_LIMIT = 1d-12

Limit opening tolerance for definite numerical integration.

TOL_CEIL

real (kind=dp), public, parameter :: TOL_CEIL = 1d-5

Tolerance for floor and ceiling functions.

STRING_LEN

integer, public, parameter :: STRING_LEN = 256

String buffer length.

PI

real (kind=dp), public, parameter :: PI = 3.141592653589793238462643383279502884197_dp

PI definition.

PION2

real (kind=dp), public, parameter :: PION2 = 1.570796326794896619231321691639751442099_dp

PI/2 definition.

I

complex (kind=dpc), public, parameter :: I = (0.0_dp, 1.0_dp)

Complex unit definition.