bit_reps Module


Uses


Contents

Variables

Interfaces

Functions

Subroutines


Variables

Type Visibility Attributes Name Initial
integer, private, parameter :: l1(1:33) = [0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 2, 0, 0, 0, 0, 0, 0, 0, 2, 1, 2, 0, 0, 0]
integer, private, parameter :: l2(1:33) = [0, 0, 0, 1, 3, 0, 0, 0, 0, 0, 0, 0, 2, 1, 3, 0, 0, 0, 0, 0, 0, 2, 2, 3, 0, 0, 0, 0, 0, 0, 3, 1, 2]
integer, private, parameter :: l3(1:33) = [3, 0, 0, 0, 0, 0, 1, 4, 0, 0, 0, 0, 0, 0, 0, 2, 1, 4, 0, 0, 0, 0, 0, 0, 2, 2, 4, 0, 0, 0, 0, 0, 0]
integer, private, parameter :: l4(1:33) = [3, 1, 2, 4, 0, 0, 0, 0, 0, 2, 3, 4, 0, 0, 0, 0, 0, 0, 3, 1, 3, 4, 0, 0, 0, 0, 0, 3, 2, 3, 4, 0, 0]
integer, private, parameter :: l5(1:33) = [0, 0, 0, 4, 1, 2, 3, 4, 0, 0, 0, 0, 1, 5, 0, 0, 0, 0, 0, 0, 0, 2, 1, 5, 0, 0, 0, 0, 0, 0, 2, 2, 5]
integer, private, parameter :: l6(1:33) = [0, 0, 0, 0, 0, 0, 3, 1, 2, 5, 0, 0, 0, 0, 0, 2, 3, 5, 0, 0, 0, 0, 0, 0, 3, 1, 3, 5, 0, 0, 0, 0, 0]
integer, private, parameter :: l7(1:33) = [3, 2, 3, 5, 0, 0, 0, 0, 0, 4, 1, 2, 3, 5, 0, 0, 0, 0, 2, 4, 5, 0, 0, 0, 0, 0, 0, 3, 1, 4, 5, 0, 0]
integer, private, parameter :: l8(1:33) = [0, 0, 0, 3, 2, 4, 5, 0, 0, 0, 0, 0, 4, 1, 2, 4, 5, 0, 0, 0, 0, 3, 3, 4, 5, 0, 0, 0, 0, 0, 4, 1, 3]
integer, private, parameter :: l9(1:33) = [4, 5, 0, 0, 0, 0, 4, 2, 3, 4, 5, 0, 0, 0, 0, 5, 1, 2, 3, 4, 5, 0, 0, 0, 1, 6, 0, 0, 0, 0, 0, 0, 0]
integer, private, parameter :: l10(1:33) = [2, 1, 6, 0, 0, 0, 0, 0, 0, 2, 2, 6, 0, 0, 0, 0, 0, 0, 3, 1, 2, 6, 0, 0, 0, 0, 0, 2, 3, 6, 0, 0, 0]
integer, private, parameter :: l11(1:33) = [0, 0, 0, 3, 1, 3, 6, 0, 0, 0, 0, 0, 3, 2, 3, 6, 0, 0, 0, 0, 0, 4, 1, 2, 3, 6, 0, 0, 0, 0, 2, 4, 6]
integer, private, parameter :: l12(1:33) = [0, 0, 0, 0, 0, 0, 3, 1, 4, 6, 0, 0, 0, 0, 0, 3, 2, 4, 6, 0, 0, 0, 0, 0, 4, 1, 2, 4, 6, 0, 0, 0, 0]
integer, private, parameter :: l13(1:33) = [3, 3, 4, 6, 0, 0, 0, 0, 0, 4, 1, 3, 4, 6, 0, 0, 0, 0, 4, 2, 3, 4, 6, 0, 0, 0, 0, 5, 1, 2, 3, 4, 6]
integer, private, parameter :: l14(1:33) = [0, 0, 0, 2, 5, 6, 0, 0, 0, 0, 0, 0, 3, 1, 5, 6, 0, 0, 0, 0, 0, 3, 2, 5, 6, 0, 0, 0, 0, 0, 4, 1, 2]
integer, private, parameter :: l15(1:33) = [5, 6, 0, 0, 0, 0, 3, 3, 5, 6, 0, 0, 0, 0, 0, 4, 1, 3, 5, 6, 0, 0, 0, 0, 4, 2, 3, 5, 6, 0, 0, 0, 0]
integer, private, parameter :: l16(1:33) = [5, 1, 2, 3, 5, 6, 0, 0, 0, 3, 4, 5, 6, 0, 0, 0, 0, 0, 4, 1, 4, 5, 6, 0, 0, 0, 0, 4, 2, 4, 5, 6, 0]
integer, private, parameter :: l17(1:33) = [0, 0, 0, 5, 1, 2, 4, 5, 6, 0, 0, 0, 4, 3, 4, 5, 6, 0, 0, 0, 0, 5, 1, 3, 4, 5, 6, 0, 0, 0, 5, 2, 3]
integer, private, parameter :: l18(1:33) = [4, 5, 6, 0, 0, 0, 6, 1, 2, 3, 4, 5, 6, 0, 0, 1, 7, 0, 0, 0, 0, 0, 0, 0, 2, 1, 7, 0, 0, 0, 0, 0, 0]
integer, private, parameter :: l19(1:33) = [2, 2, 7, 0, 0, 0, 0, 0, 0, 3, 1, 2, 7, 0, 0, 0, 0, 0, 2, 3, 7, 0, 0, 0, 0, 0, 0, 3, 1, 3, 7, 0, 0]
integer, private, parameter :: l20(1:33) = [0, 0, 0, 3, 2, 3, 7, 0, 0, 0, 0, 0, 4, 1, 2, 3, 7, 0, 0, 0, 0, 2, 4, 7, 0, 0, 0, 0, 0, 0, 3, 1, 4]
integer, private, parameter :: l21(1:33) = [7, 0, 0, 0, 0, 0, 3, 2, 4, 7, 0, 0, 0, 0, 0, 4, 1, 2, 4, 7, 0, 0, 0, 0, 3, 3, 4, 7, 0, 0, 0, 0, 0]
integer, private, parameter :: l22(1:33) = [4, 1, 3, 4, 7, 0, 0, 0, 0, 4, 2, 3, 4, 7, 0, 0, 0, 0, 5, 1, 2, 3, 4, 7, 0, 0, 0, 2, 5, 7, 0, 0, 0]
integer, private, parameter :: l23(1:33) = [0, 0, 0, 3, 1, 5, 7, 0, 0, 0, 0, 0, 3, 2, 5, 7, 0, 0, 0, 0, 0, 4, 1, 2, 5, 7, 0, 0, 0, 0, 3, 3, 5]
integer, private, parameter :: l24(1:33) = [7, 0, 0, 0, 0, 0, 4, 1, 3, 5, 7, 0, 0, 0, 0, 4, 2, 3, 5, 7, 0, 0, 0, 0, 5, 1, 2, 3, 5, 7, 0, 0, 0]
integer, private, parameter :: l25(1:33) = [3, 4, 5, 7, 0, 0, 0, 0, 0, 4, 1, 4, 5, 7, 0, 0, 0, 0, 4, 2, 4, 5, 7, 0, 0, 0, 0, 5, 1, 2, 4, 5, 7]
integer, private, parameter :: l26(1:33) = [0, 0, 0, 4, 3, 4, 5, 7, 0, 0, 0, 0, 5, 1, 3, 4, 5, 7, 0, 0, 0, 5, 2, 3, 4, 5, 7, 0, 0, 0, 6, 1, 2]
integer, private, parameter :: l27(1:33) = [3, 4, 5, 7, 0, 0, 2, 6, 7, 0, 0, 0, 0, 0, 0, 3, 1, 6, 7, 0, 0, 0, 0, 0, 3, 2, 6, 7, 0, 0, 0, 0, 0]
integer, private, parameter :: l28(1:33) = [4, 1, 2, 6, 7, 0, 0, 0, 0, 3, 3, 6, 7, 0, 0, 0, 0, 0, 4, 1, 3, 6, 7, 0, 0, 0, 0, 4, 2, 3, 6, 7, 0]
integer, private, parameter :: l29(1:33) = [0, 0, 0, 5, 1, 2, 3, 6, 7, 0, 0, 0, 3, 4, 6, 7, 0, 0, 0, 0, 0, 4, 1, 4, 6, 7, 0, 0, 0, 0, 4, 2, 4]
integer, private, parameter :: l30(1:33) = [6, 7, 0, 0, 0, 0, 5, 1, 2, 4, 6, 7, 0, 0, 0, 4, 3, 4, 6, 7, 0, 0, 0, 0, 5, 1, 3, 4, 6, 7, 0, 0, 0]
integer, private, parameter :: l31(1:33) = [5, 2, 3, 4, 6, 7, 0, 0, 0, 6, 1, 2, 3, 4, 6, 7, 0, 0, 3, 5, 6, 7, 0, 0, 0, 0, 0, 4, 1, 5, 6, 7, 0]
integer, private, parameter :: l32(1:33) = [0, 0, 0, 4, 2, 5, 6, 7, 0, 0, 0, 0, 5, 1, 2, 5, 6, 7, 0, 0, 0, 4, 3, 5, 6, 7, 0, 0, 0, 0, 5, 1, 3]
integer, private, parameter :: l33(1:33) = [5, 6, 7, 0, 0, 0, 5, 2, 3, 5, 6, 7, 0, 0, 0, 6, 1, 2, 3, 5, 6, 7, 0, 0, 4, 4, 5, 6, 7, 0, 0, 0, 0]
integer, private, parameter :: l34(1:33) = [5, 1, 4, 5, 6, 7, 0, 0, 0, 5, 2, 4, 5, 6, 7, 0, 0, 0, 6, 1, 2, 4, 5, 6, 7, 0, 0, 5, 3, 4, 5, 6, 7]
integer, private, parameter :: l35(1:33) = [0, 0, 0, 6, 1, 3, 4, 5, 6, 7, 0, 0, 6, 2, 3, 4, 5, 6, 7, 0, 0, 7, 1, 2, 3, 4, 5, 6, 7, 0, 1, 8, 0]
integer, private, parameter :: l36(1:33) = [0, 0, 0, 0, 0, 0, 2, 1, 8, 0, 0, 0, 0, 0, 0, 2, 2, 8, 0, 0, 0, 0, 0, 0, 3, 1, 2, 8, 0, 0, 0, 0, 0]
integer, private, parameter :: l37(1:33) = [2, 3, 8, 0, 0, 0, 0, 0, 0, 3, 1, 3, 8, 0, 0, 0, 0, 0, 3, 2, 3, 8, 0, 0, 0, 0, 0, 4, 1, 2, 3, 8, 0]
integer, private, parameter :: l38(1:33) = [0, 0, 0, 2, 4, 8, 0, 0, 0, 0, 0, 0, 3, 1, 4, 8, 0, 0, 0, 0, 0, 3, 2, 4, 8, 0, 0, 0, 0, 0, 4, 1, 2]
integer, private, parameter :: l39(1:33) = [4, 8, 0, 0, 0, 0, 3, 3, 4, 8, 0, 0, 0, 0, 0, 4, 1, 3, 4, 8, 0, 0, 0, 0, 4, 2, 3, 4, 8, 0, 0, 0, 0]
integer, private, parameter :: l40(1:33) = [5, 1, 2, 3, 4, 8, 0, 0, 0, 2, 5, 8, 0, 0, 0, 0, 0, 0, 3, 1, 5, 8, 0, 0, 0, 0, 0, 3, 2, 5, 8, 0, 0]
integer, private, parameter :: l41(1:33) = [0, 0, 0, 4, 1, 2, 5, 8, 0, 0, 0, 0, 3, 3, 5, 8, 0, 0, 0, 0, 0, 4, 1, 3, 5, 8, 0, 0, 0, 0, 4, 2, 3]
integer, private, parameter :: l42(1:33) = [5, 8, 0, 0, 0, 0, 5, 1, 2, 3, 5, 8, 0, 0, 0, 3, 4, 5, 8, 0, 0, 0, 0, 0, 4, 1, 4, 5, 8, 0, 0, 0, 0]
integer, private, parameter :: l43(1:33) = [4, 2, 4, 5, 8, 0, 0, 0, 0, 5, 1, 2, 4, 5, 8, 0, 0, 0, 4, 3, 4, 5, 8, 0, 0, 0, 0, 5, 1, 3, 4, 5, 8]
integer, private, parameter :: l44(1:33) = [0, 0, 0, 5, 2, 3, 4, 5, 8, 0, 0, 0, 6, 1, 2, 3, 4, 5, 8, 0, 0, 2, 6, 8, 0, 0, 0, 0, 0, 0, 3, 1, 6]
integer, private, parameter :: l45(1:33) = [8, 0, 0, 0, 0, 0, 3, 2, 6, 8, 0, 0, 0, 0, 0, 4, 1, 2, 6, 8, 0, 0, 0, 0, 3, 3, 6, 8, 0, 0, 0, 0, 0]
integer, private, parameter :: l46(1:33) = [4, 1, 3, 6, 8, 0, 0, 0, 0, 4, 2, 3, 6, 8, 0, 0, 0, 0, 5, 1, 2, 3, 6, 8, 0, 0, 0, 3, 4, 6, 8, 0, 0]
integer, private, parameter :: l47(1:33) = [0, 0, 0, 4, 1, 4, 6, 8, 0, 0, 0, 0, 4, 2, 4, 6, 8, 0, 0, 0, 0, 5, 1, 2, 4, 6, 8, 0, 0, 0, 4, 3, 4]
integer, private, parameter :: l48(1:33) = [6, 8, 0, 0, 0, 0, 5, 1, 3, 4, 6, 8, 0, 0, 0, 5, 2, 3, 4, 6, 8, 0, 0, 0, 6, 1, 2, 3, 4, 6, 8, 0, 0]
integer, private, parameter :: l49(1:33) = [3, 5, 6, 8, 0, 0, 0, 0, 0, 4, 1, 5, 6, 8, 0, 0, 0, 0, 4, 2, 5, 6, 8, 0, 0, 0, 0, 5, 1, 2, 5, 6, 8]
integer, private, parameter :: l50(1:33) = [0, 0, 0, 4, 3, 5, 6, 8, 0, 0, 0, 0, 5, 1, 3, 5, 6, 8, 0, 0, 0, 5, 2, 3, 5, 6, 8, 0, 0, 0, 6, 1, 2]
integer, private, parameter :: l51(1:33) = [3, 5, 6, 8, 0, 0, 4, 4, 5, 6, 8, 0, 0, 0, 0, 5, 1, 4, 5, 6, 8, 0, 0, 0, 5, 2, 4, 5, 6, 8, 0, 0, 0]
integer, private, parameter :: l52(1:33) = [6, 1, 2, 4, 5, 6, 8, 0, 0, 5, 3, 4, 5, 6, 8, 0, 0, 0, 6, 1, 3, 4, 5, 6, 8, 0, 0, 6, 2, 3, 4, 5, 6]
integer, private, parameter :: l53(1:33) = [8, 0, 0, 7, 1, 2, 3, 4, 5, 6, 8, 0, 2, 7, 8, 0, 0, 0, 0, 0, 0, 3, 1, 7, 8, 0, 0, 0, 0, 0, 3, 2, 7]
integer, private, parameter :: l54(1:33) = [8, 0, 0, 0, 0, 0, 4, 1, 2, 7, 8, 0, 0, 0, 0, 3, 3, 7, 8, 0, 0, 0, 0, 0, 4, 1, 3, 7, 8, 0, 0, 0, 0]
integer, private, parameter :: l55(1:33) = [4, 2, 3, 7, 8, 0, 0, 0, 0, 5, 1, 2, 3, 7, 8, 0, 0, 0, 3, 4, 7, 8, 0, 0, 0, 0, 0, 4, 1, 4, 7, 8, 0]
integer, private, parameter :: l56(1:33) = [0, 0, 0, 4, 2, 4, 7, 8, 0, 0, 0, 0, 5, 1, 2, 4, 7, 8, 0, 0, 0, 4, 3, 4, 7, 8, 0, 0, 0, 0, 5, 1, 3]
integer, private, parameter :: l57(1:33) = [4, 7, 8, 0, 0, 0, 5, 2, 3, 4, 7, 8, 0, 0, 0, 6, 1, 2, 3, 4, 7, 8, 0, 0, 3, 5, 7, 8, 0, 0, 0, 0, 0]
integer, private, parameter :: l58(1:33) = [4, 1, 5, 7, 8, 0, 0, 0, 0, 4, 2, 5, 7, 8, 0, 0, 0, 0, 5, 1, 2, 5, 7, 8, 0, 0, 0, 4, 3, 5, 7, 8, 0]
integer, private, parameter :: l59(1:33) = [0, 0, 0, 5, 1, 3, 5, 7, 8, 0, 0, 0, 5, 2, 3, 5, 7, 8, 0, 0, 0, 6, 1, 2, 3, 5, 7, 8, 0, 0, 4, 4, 5]
integer, private, parameter :: l60(1:33) = [7, 8, 0, 0, 0, 0, 5, 1, 4, 5, 7, 8, 0, 0, 0, 5, 2, 4, 5, 7, 8, 0, 0, 0, 6, 1, 2, 4, 5, 7, 8, 0, 0]
integer, private, parameter :: l61(1:33) = [5, 3, 4, 5, 7, 8, 0, 0, 0, 6, 1, 3, 4, 5, 7, 8, 0, 0, 6, 2, 3, 4, 5, 7, 8, 0, 0, 7, 1, 2, 3, 4, 5]
integer, private, parameter :: l62(1:33) = [7, 8, 0, 3, 6, 7, 8, 0, 0, 0, 0, 0, 4, 1, 6, 7, 8, 0, 0, 0, 0, 4, 2, 6, 7, 8, 0, 0, 0, 0, 5, 1, 2]
integer, private, parameter :: l63(1:33) = [6, 7, 8, 0, 0, 0, 4, 3, 6, 7, 8, 0, 0, 0, 0, 5, 1, 3, 6, 7, 8, 0, 0, 0, 5, 2, 3, 6, 7, 8, 0, 0, 0]
integer, private, parameter :: l64(1:33) = [6, 1, 2, 3, 6, 7, 8, 0, 0, 4, 4, 6, 7, 8, 0, 0, 0, 0, 5, 1, 4, 6, 7, 8, 0, 0, 0, 5, 2, 4, 6, 7, 8]
integer, private, parameter :: l65(1:33) = [0, 0, 0, 6, 1, 2, 4, 6, 7, 8, 0, 0, 5, 3, 4, 6, 7, 8, 0, 0, 0, 6, 1, 3, 4, 6, 7, 8, 0, 0, 6, 2, 3]
integer, private, parameter :: l66(1:33) = [4, 6, 7, 8, 0, 0, 7, 1, 2, 3, 4, 6, 7, 8, 0, 4, 5, 6, 7, 8, 0, 0, 0, 0, 5, 1, 5, 6, 7, 8, 0, 0, 0]
integer, private, parameter :: l67(1:33) = [5, 2, 5, 6, 7, 8, 0, 0, 0, 6, 1, 2, 5, 6, 7, 8, 0, 0, 5, 3, 5, 6, 7, 8, 0, 0, 0, 6, 1, 3, 5, 6, 7]
integer, private, parameter :: l68(1:33) = [8, 0, 0, 6, 2, 3, 5, 6, 7, 8, 0, 0, 7, 1, 2, 3, 5, 6, 7, 8, 0, 5, 4, 5, 6, 7, 8, 0, 0, 0, 6, 1, 4]
integer, private, parameter :: l69(1:33) = [5, 6, 7, 8, 0, 0, 6, 2, 4, 5, 6, 7, 8, 0, 0, 7, 1, 2, 4, 5, 6, 7, 8, 0, 6, 3, 4, 5, 6, 7, 8, 0, 0]
integer, private, parameter :: l70(1:27) = [7, 1, 3, 4, 5, 6, 7, 8, 0, 7, 2, 3, 4, 5, 6, 7, 8, 0, 8, 1, 2, 3, 4, 5, 6, 7, 8]
integer, private, parameter :: decode_map_arr(0:8,0:255) = reshape([l1, l2, l3, l4, l5, l6, l7, l8, l9, l10, l11, l12, l13, l14, l15, l16, l17, l18, l19, l20, l21, l22, l23, l24, l25, l26, l27, l28, l29, l30, l31, l32, l33, l34, l35, l36, l37, l38, l39, l40, l41, l42, l43, l44, l45, l46, l47, l48, l49, l50, l51, l52, l53, l54, l55, l56, l57, l58, l59, l60, l61, l62, l63, l64, l65, l66, l67, l68, l69, l70], [9, 256])

Interfaces

public interface set_flag

  • private subroutine set_flag_single(ilut, flg)

    Arguments

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

  • private subroutine set_flag_general(ilut, flg, state)

    Arguments

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

public interface decode_bit_det

  • private pure subroutine decode_bit_det_chunks(nI, ilut)

    Arguments

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

  • public subroutine decode_bit_det_lists(nI, iLut, store)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(out) :: nI(:)
    integer(kind=n_int), intent(in) :: iLut(0:niftot)
    type(excit_gen_store_type), intent(inout) :: store

Functions

public function extract_flags(ilut) result(flags)

Arguments

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

Return Value integer

public pure function extract_part_sign(ilut, part_type) result(real_sgn)

Arguments

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

Return Value real(kind=dp)

public pure function extract_run_sign(ilut, run) result(sgn)

Arguments

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

Return Value real(kind=dp)

public pure function get_initiator_flag(sgn_index) result(flag)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: sgn_index

Return Value integer

public pure function get_initiator_flag_by_run(run) result(flag)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: run

Return Value integer

public pure function any_run_is_initiator(ilut) result(t)

Arguments

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

Return Value logical

public pure function all_runs_are_initiator(ilut) result(t)

Arguments

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

Return Value logical

public function bit_parent_zero(ilut) result(zero)

Arguments

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

Return Value logical

public function extract_spawn_hdiag(ilut) result(hel)

Arguments

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

Return Value real(kind=dp)

public function get_num_spawns(ilut) result(nSpawn)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(inout) :: ilut(0:IlutBits%len_bcast)

Return Value integer

public pure function getExcitationType(ExMat, IC) result(exTypeFlag)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ExMat(2,ic)
integer, intent(in) :: IC

Return Value integer


Subroutines

public subroutine init_bit_rep()

Arguments

None

public subroutine extract_bit_rep(ilut, nI, real_sgn, flags, j, store)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(in) :: ilut(0:nIfTot)
integer, intent(out) :: nI(nel)
real(kind=dp), intent(out) :: real_sgn(lenof_sign)
integer, intent(out) :: flags
integer, intent(in), optional :: j
type(excit_gen_store_type), intent(inout), optional :: store

public pure subroutine encode_bit_rep(ilut, Det, real_sgn, flag)

Arguments

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

public subroutine encode_flags(ilut, flag)

Arguments

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

public subroutine clear_all_flags(ilut)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(inout) :: ilut(0:niftot)

public subroutine encode_sign(ilut, real_sgn)

Arguments

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

public subroutine encode_part_sign(ilut, real_sgn, part_type)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(inout) :: ilut(0:NIfTot)
real(kind=dp), intent(in) :: real_sgn
integer, intent(in) :: part_type

public subroutine nullify_ilut(ilut)

Arguments

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

public subroutine nullify_ilut_part(ilut, part_type)

Arguments

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

private subroutine set_flag_general(ilut, flg, state)

Arguments

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

private subroutine set_flag_single(ilut, flg)

Arguments

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

public subroutine clr_flag(ilut, flg)

Arguments

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

public subroutine clr_flag_multi(ilut, flg)

Arguments

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

public subroutine encode_parent(ilut, ilut_parent, RDMBiasFacCurr)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(inout) :: ilut(0:IlutBits%len_bcast)
integer(kind=n_int), intent(in) :: ilut_parent(0:NIfTot)
real(kind=dp), intent(in) :: RDMBiasFacCurr

public subroutine zero_parent(ilut)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(inout) :: ilut(0:IlutBits%len_bcast)

public subroutine encode_spawn_hdiag(ilut, hel)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(inout) :: ilut(0:IlutBits%len_bcast)
real(kind=dp), intent(in) :: hel

public subroutine log_spawn(ilut)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(inout) :: ilut(0:IlutBits%len_bcast)

public subroutine increase_spawn_counter(ilut)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(inout) :: ilut(0:IlutBits%len_bcast)

public subroutine encode_det(ilut, Det)

Arguments

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

public subroutine decode_bit_det_lists(nI, iLut, store)

Arguments

Type IntentOptional Attributes Name
integer, intent(out) :: nI(:)
integer(kind=n_int), intent(in) :: iLut(0:niftot)
type(excit_gen_store_type), intent(inout) :: store

public subroutine decode_bit_det_spinsep(nI, iLut, store)

Arguments

Type IntentOptional Attributes Name
integer, intent(out) :: nI(:)
integer(kind=n_int), intent(in) :: iLut(0:niftot)
type(excit_gen_store_type), intent(inout) :: store

private pure subroutine decode_bit_det_chunks(nI, ilut)

Arguments

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

public subroutine add_ilut_lists(ndets_1, ndets_2, sorted_lists, list_1, list_2, list_out, ndets_out, prefactor)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ndets_1
integer, intent(in) :: ndets_2
logical, intent(in) :: sorted_lists
integer(kind=n_int), intent(inout) :: list_1(0:,1:)
integer(kind=n_int), intent(inout) :: list_2(0:,1:)
integer(kind=n_int), intent(inout) :: list_out(0:,1:)
integer, intent(out) :: ndets_out
real(kind=dp), intent(in), optional :: prefactor

public subroutine writebitdet(nunit, ilutni, lterm)

Arguments

Type IntentOptional Attributes Name
integer :: nunit
integer(kind=n_int) :: ilutni(0:niftot)
logical :: lterm