CSF_Info_t Derived Type

type, public :: CSF_Info_t


Contents

Variables

Constructor

Type-Bound Procedures


Components

Type Visibility Attributes Name Initial
integer, public, allocatable :: stepvector(:)
integer, public, allocatable :: Occ_int(:)
integer, public, allocatable :: B_int(:)
real(kind=dp), public, allocatable :: Occ_real(:)
real(kind=dp), public, allocatable :: B_real(:)
real(kind=dp), public, allocatable :: cum_list(:)

also use a fake cum-list of the non-doubly occupied orbital to increase preformance in the picking of orbitals (a)

Constructor

public interface CSF_Info_t

  • private pure function construct_CSF_Info_t(ilut) result(csf_i)

    Arguments

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

    Return Value type(CSF_Info_t)


Type-Bound Procedures

procedure, private, :: eq_CSF_Info_t

  • private elemental function eq_CSF_Info_t(csf_i, csf_j) result(res)

    Arguments

    Type IntentOptional Attributes Name
    class(CSF_Info_t), intent(in) :: csf_i
    class(CSF_Info_t), intent(in) :: csf_j

    Return Value logical

procedure, private, :: neq_CSF_Info_t

  • private elemental function neq_CSF_Info_t(csf_i, csf_j) result(res)

    Arguments

    Type IntentOptional Attributes Name
    class(CSF_Info_t), intent(in) :: csf_i
    class(CSF_Info_t), intent(in) :: csf_j

    Return Value logical

generic, public :: operator(==) => eq_CSF_Info_t

  • private elemental function eq_CSF_Info_t(csf_i, csf_j) result(res)

    Arguments

    Type IntentOptional Attributes Name
    class(CSF_Info_t), intent(in) :: csf_i
    class(CSF_Info_t), intent(in) :: csf_j

    Return Value logical

generic, public :: operator(/=) => neq_CSF_Info_t

  • private elemental function neq_CSF_Info_t(csf_i, csf_j) result(res)

    Arguments

    Type IntentOptional Attributes Name
    class(CSF_Info_t), intent(in) :: csf_i
    class(CSF_Info_t), intent(in) :: csf_j

    Return Value logical