ncd_kinds.F90 File Reference

Go to the source code of this file.

Modules
module	ncd_kinds

Variables
integer, parameter, public	ncd_kinds::i_byte = selected_int_kind(1)
integer, parameter, public	ncd_kinds::i_short = selected_int_kind(4)
integer, parameter, public	ncd_kinds::i_long = selected_int_kind(8)
integer, parameter, private	ncd_kinds::llong_t = selected_int_kind(16)
integer, parameter, public	ncd_kinds::i_llong = max( llong_t, i_long )
integer, parameter, public	ncd_kinds::num_bytes_for_i_byte = 1
integer, parameter, public	ncd_kinds::num_bytes_for_i_short = 2
integer, parameter, public	ncd_kinds::num_bytes_for_i_long = 4
integer, parameter, public	ncd_kinds::num_bytes_for_i_llong = 8
integer, parameter, private	ncd_kinds::num_i_kinds = 4
integer, dimension(num_i_kinds), parameter, private	ncd_kinds::integer_types = (/ i_byte, i_short, i_long, i_llong /)
integer, dimension(num_i_kinds), parameter, private	ncd_kinds::integer_byte_sizes = (/ num_bytes_for_i_byte, num_bytes_for_i_short, num_bytes_for_i_long, num_bytes_for_i_llong /)
integer, parameter, private	ncd_kinds::default_integer = 3
integer, parameter, public	ncd_kinds::i_kind = integer_types( default_integer )
integer, parameter, public	ncd_kinds::num_bytes_for_i_kind = integer_byte_sizes( default_integer )
integer, parameter, public	ncd_kinds::r_single = selected_real_kind(6)
integer, parameter, public	ncd_kinds::r_double = selected_real_kind(15)
integer, parameter, private	ncd_kinds::quad_t = selected_real_kind(20)
integer, parameter, public	ncd_kinds::r_quad = max( quad_t, r_double )
integer, parameter, public	ncd_kinds::num_bytes_for_r_single = 4
integer, parameter, public	ncd_kinds::num_bytes_for_r_double = 8
integer, parameter, public	ncd_kinds::num_bytes_for_r_quad = 16
integer, parameter, private	ncd_kinds::num_r_kinds = 3
integer, dimension(num_r_kinds), parameter, private	ncd_kinds::real_kinds = (/ r_single, r_double, r_quad /)
integer, dimension(num_r_kinds), parameter, private	ncd_kinds::real_byte_sizes = (/ num_bytes_for_r_single, num_bytes_for_r_double, num_bytes_for_r_quad /)
integer, parameter, private	ncd_kinds::default_real = 1
integer, parameter, public	ncd_kinds::r_kind = real_kinds( default_real )
integer, parameter, public	ncd_kinds::num_bytes_for_r_kind = real_byte_sizes( default_real )