setDeltaB Subroutine

public pure subroutine setDeltaB(deltaB, ilut)

Arguments

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

Contents

Source Code

setDeltaB

Source Code

    pure subroutine setDeltaB(deltaB, ilut)
        ! routine to encode the deltaB value in a given CSF in ilut bit
        ! representation, by using the newly defined flags:
        ! flag_deltaB_sign   ... 7
        ! flag_deltaB_single ... 5
        ! and if necessary
        ! flag_deltaB_double ... 6
        integer, intent(in) :: deltaB
        integer(n_int), intent(inout) :: ilut(0:GugaBits%len_tot)

        ! should no just be:
        ilut(GugaBits%ind_b) = deltaB

    end subroutine setDeltaB