add_pops_norm_contrib Subroutine

public subroutine add_pops_norm_contrib(ilut)

Uses

Arguments

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

Contents

Source Code

add_pops_norm_contrib

Source Code

    subroutine add_pops_norm_contrib(ilut)

        use CalcData, only: pops_norm

        integer(n_int), intent(in) :: ilut(0:NIfTot)
        real(dp) :: real_sign(lenof_sign)

        call extract_sign(ilut, real_sign)

#ifdef DOUBLERUN_
        pops_norm = pops_norm + real_sign(1) * real_sign(2)
#elif CMPLX_
        pops_norm = pops_norm + real_sign(1)**2 + real_sign(2)**2
#else
        pops_norm = pops_norm + real_sign(1) * real_sign(1)
#endif

    end subroutine add_pops_norm_contrib