extract_h_element Function

public function extract_h_element(ilutG) result(HElement)

Arguments

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

Return Value real(kind=dp)


Contents

Source Code

extract_h_element

Source Code

    function extract_h_element(ilutG) result(HElement)
        integer(n_int), intent(in) :: ilutG(0:GugaBits%len_tot)
        HElement_t(dp) :: HElement

#ifdef CMPLX_
        HElement = cmplx(extract_matrix_element(ilutG, 1), &
                         extract_matrix_element(ilutG, 2), kind=dp)
#else
        HElement = extract_matrix_element(ilutG, 1)
#endif

    end function extract_h_element