bshr_infnan_mod.F90 File Reference

#include "dtypes.h"

Data Types
interface	bshr_infnan_mod::shr_infnan_isnan
interface	bshr_infnan_mod::shr_infnan_isinf
interface	bshr_infnan_mod::shr_infnan_isposinf
interface	bshr_infnan_mod::shr_infnan_isneginf
type	bshr_infnan_mod::shr_infnan_nan_type
type	bshr_infnan_mod::shr_infnan_inf_type
interface	bshr_infnan_mod::assignment(=)
interface	bshr_infnan_mod::shr_infnan_to_r8
interface	bshr_infnan_mod::shr_infnan_to_r4

Modules
module	bshr_infnan_mod

Functions/Subroutines
elemental logical function	bshr_infnan_mod::shr_infnan_isinf_double (x)
elemental logical function	bshr_infnan_mod::shr_infnan_isinf_real (x)
elemental logical function	bshr_infnan_mod::shr_infnan_isposinf_double (x)
elemental logical function	bshr_infnan_mod::shr_infnan_isposinf_real (x)
elemental logical function	bshr_infnan_mod::shr_infnan_isneginf_double (x)
elemental logical function	bshr_infnan_mod::shr_infnan_isneginf_real (x)
pure subroutine	bshr_infnan_mod::set_nan_0d_double (output, nan)
pure subroutine	bshr_infnan_mod::set_nan_1d_double (output, nan)
pure subroutine	bshr_infnan_mod::set_nan_2d_double (output, nan)
pure subroutine	bshr_infnan_mod::set_nan_3d_double (output, nan)
pure subroutine	bshr_infnan_mod::set_nan_4d_double (output, nan)
pure subroutine	bshr_infnan_mod::set_nan_5d_double (output, nan)
pure subroutine	bshr_infnan_mod::set_nan_6d_double (output, nan)
pure subroutine	bshr_infnan_mod::set_nan_7d_double (output, nan)
pure subroutine	bshr_infnan_mod::set_nan_0d_real (output, nan)
pure subroutine	bshr_infnan_mod::set_nan_1d_real (output, nan)
pure subroutine	bshr_infnan_mod::set_nan_2d_real (output, nan)
pure subroutine	bshr_infnan_mod::set_nan_3d_real (output, nan)
pure subroutine	bshr_infnan_mod::set_nan_4d_real (output, nan)
pure subroutine	bshr_infnan_mod::set_nan_5d_real (output, nan)
pure subroutine	bshr_infnan_mod::set_nan_6d_real (output, nan)
pure subroutine	bshr_infnan_mod::set_nan_7d_real (output, nan)
pure subroutine	bshr_infnan_mod::set_inf_0d_double (output, inf)
pure subroutine	bshr_infnan_mod::set_inf_1d_double (output, inf)
pure subroutine	bshr_infnan_mod::set_inf_2d_double (output, inf)
pure subroutine	bshr_infnan_mod::set_inf_3d_double (output, inf)
pure subroutine	bshr_infnan_mod::set_inf_4d_double (output, inf)
pure subroutine	bshr_infnan_mod::set_inf_5d_double (output, inf)
pure subroutine	bshr_infnan_mod::set_inf_6d_double (output, inf)
pure subroutine	bshr_infnan_mod::set_inf_7d_double (output, inf)
pure subroutine	bshr_infnan_mod::set_inf_0d_real (output, inf)
pure subroutine	bshr_infnan_mod::set_inf_1d_real (output, inf)
pure subroutine	bshr_infnan_mod::set_inf_2d_real (output, inf)
pure subroutine	bshr_infnan_mod::set_inf_3d_real (output, inf)
pure subroutine	bshr_infnan_mod::set_inf_4d_real (output, inf)
pure subroutine	bshr_infnan_mod::set_inf_5d_real (output, inf)
pure subroutine	bshr_infnan_mod::set_inf_6d_real (output, inf)
pure subroutine	bshr_infnan_mod::set_inf_7d_real (output, inf)
pure real(r8) function	bshr_infnan_mod::nan_r8 (nan)
pure real(r4) function	bshr_infnan_mod::nan_r4 (nan)
pure real(r8) function	bshr_infnan_mod::inf_r8 (inf)
pure real(r4) function	bshr_infnan_mod::inf_r4 (inf)

Variables
character(len= *), parameter, private	bshr_infnan_mod::mod_filename = __FILE__
type(shr_infnan_nan_type), parameter, public	bshr_infnan_mod::shr_infnan_nan = shr_infnan_nan_type(.false.)
type(shr_infnan_nan_type), parameter, public	bshr_infnan_mod::shr_infnan_snan = shr_infnan_nan_type(.false.)
type(shr_infnan_nan_type), parameter, public	bshr_infnan_mod::shr_infnan_qnan = shr_infnan_nan_type(.true.)
type(shr_infnan_inf_type), parameter, public	bshr_infnan_mod::shr_infnan_inf = shr_infnan_inf_type(.true.)
type(shr_infnan_inf_type), parameter, public	bshr_infnan_mod::shr_infnan_posinf = shr_infnan_inf_type(.true.)
type(shr_infnan_inf_type), parameter, public	bshr_infnan_mod::shr_infnan_neginf = shr_infnan_inf_type(.false.)
integer(i4), parameter	bshr_infnan_mod::ssnan_pat = int(Z'7FA00000', i4)
integer(i4), parameter	bshr_infnan_mod::sqnan_pat = int(Z'7FC00000', i4)
integer(i4), parameter	bshr_infnan_mod::sposinf_pat = int(Z'7F800000', i4)
integer(i4), parameter	bshr_infnan_mod::sneginf_pat = ibset(sposinf_pat, bit_size(1_i4)-1)
integer(i8), parameter	bshr_infnan_mod::dsnan_pat = int(Z'7FF4000000000000', i8)
integer(i8), parameter	bshr_infnan_mod::dqnan_pat = int(Z'7FF8000000000000', i8)
integer(i8), parameter	bshr_infnan_mod::dposinf_pat = int(Z'7FF0000000000000', i8)
integer(i8), parameter	bshr_infnan_mod::dneginf_pat = ibset(dposinf_pat, bit_size(1_i8)-1)