bit_rep_data Module


Uses


Contents

Variables

Derived Types

Functions

Subroutines


Variables

Type Visibility Attributes Name Initial
type(BitRep_t), public :: IlutBits = BitRep_t()
type(BitRep_t), public :: IlutBitsParent = BitRep_t()
type(BitRep_t), public :: GugaBits = BitRep_t()
integer, public :: nIfTot
integer, public :: nIfD
integer, public :: nIfTotKP
integer, public :: nIfGUGA
logical, public :: bit_rdm_init
integer, public :: flag_counter
logical, public :: tuseflags = .true.
integer, public, parameter :: flag_removed = 0
integer, public, parameter :: flag_determ_parent = 1
integer, public, parameter :: flag_trial = 2
integer, public, parameter :: flag_connected = 3
integer, public, parameter :: flag_prone = 4
integer, public, parameter :: flag_rescale = 5
integer, public, parameter :: flag_deltaB_single = 6
integer, public, parameter :: flag_deltaB_double = 7
integer, public, parameter :: flag_deltaB_sign = 8
integer, public, parameter :: flag_ic0_spawn = 9
integer, public, parameter :: flag_death_done = 10
integer, public, parameter :: flag_negative_sign = 11
integer, public, parameter :: flag_large_matel = 12
integer, public, parameter :: flag_initiator(2) = (/13, 14/)
integer, public, parameter :: flag_adi_checked = 15
integer, public, parameter :: flag_static_init(2) = (/16, 17/)
integer, public, parameter :: flag_deterministic(2) = (/19, 20/)
integer, public, parameter :: num_flags = 21

Derived Types

type, public ::  BitRep_t

Components

Type Visibility Attributes Name Initial
integer, public :: len_orb = -1
integer, public :: ind_pop = -1
integer, public :: len_pop = -1
integer, public :: ind_flag = -1
integer, public :: len_tot = -1
integer, public :: len_bcast = -1
integer, public :: ind_spawn = -1
integer, public :: ind_hdiag = -1
integer, public :: ind_rdm_ind = -1
integer, public :: ind_rdm_x0 = -1
integer, public :: ind_rdm_x1 = -1
integer, public :: ind_x0 = -1
integer, public :: ind_x1 = -1
integer, public :: ind_b = -10
integer, public :: ind_rdm_fac = -1
integer, public :: ind_parent_flag = -1
integer, public :: ind_source = -1
integer, public :: ind_parent = -1

Functions

public pure function test_flag(ilut, flg) result(bSet)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(in) :: ilut(0:nIfTot)
integer, intent(in) :: flg

Return Value logical

public pure function test_flag_multi(ilut, flg) result(bSet)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(in) :: ilut(0:nIfTot)
integer, intent(in) :: flg(:)

Return Value logical

public pure function get_weight(ilut) result(res)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(in) :: ilut(0:NIfTot)

Return Value real(kind=dp)


Subroutines

public pure subroutine extract_sign(ilut, real_sgn)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(in) :: ilut(0:nIfTot)
real(kind=dp), intent(out) :: real_sgn(lenof_sign)