extract_spawn_hdiag Function

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)


Contents

Source Code

extract_spawn_hdiag

Source Code

    function extract_spawn_hdiag(ilut) result(hel)

        integer(n_int), intent(in) :: ilut(0:IlutBits%len_bcast)

        HElement_t(dp) :: hel
#ifdef CMPLX_
        routine_name("extract_spawn_hdiag")
#endif

#ifdef CMPLX_
        ! Properly ensure that complex uses two words instead of one
        call stop_all(this_routine, "not implemented for complex")
        unused_var(ilut)
        hel = 0._dp
#else
        hel = transfer(ilut(IlutBits%ind_hdiag), hel)
#endif

    end function extract_spawn_hdiag