getDeltaB Function

public function getDeltaB(ilut) result(deltaB)


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

Return Value integer


Source Code

Source Code

    function getDeltaB(ilut) result(deltaB)
        ! function to get the deltaB value encoded in the flag-byte in ilut
        integer(n_int), intent(in) :: ilut(0:GugaBits%len_tot)
        integer :: deltaB

        ! check if flags are correctly set

        ! and this should now jsut be:
        deltaB = int(ilut(GugaBits%ind_b))

    end function getDeltaB