calc_orbital_pgen_contr Subroutine

private subroutine calc_orbital_pgen_contr(this, nI, ilut, csf_i, occ_orbs, above_cpt, below_cpt)

Type Bound

PCHB_t

Arguments

Type IntentOptional Attributes Name
class(PCHB_t), intent(in) :: this
integer, intent(in) :: nI(nEl)
integer(kind=n_int), intent(in) :: ilut(0:GugaBits%len_tot)
type(CSF_Info_t), intent(in) :: csf_i
integer, intent(in) :: occ_orbs(2)
real(kind=dp), intent(out) :: above_cpt
real(kind=dp), intent(out) :: below_cpt