encode_spawn_hdiag Subroutine

public subroutine encode_spawn_hdiag(ilut, hel)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(inout) :: ilut(0:IlutBits%len_bcast)
real(kind=dp), intent(in) :: hel

Contents

Source Code

encode_spawn_hdiag

Source Code

    subroutine encode_spawn_hdiag(ilut, hel)

        integer(n_int), intent(inout) :: ilut(0:IlutBits%len_bcast)
        HElement_t(dp), intent(in) :: hel
#ifdef CMPLX_
        routine_name("encode_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)
        unused_var(hel)
#else
        ilut(IlutBits%ind_hdiag) = transfer(hel, ilut(IlutBits%ind_hdiag))
#endif

    end subroutine encode_spawn_hdiag