inpgetexcitations Subroutine

subroutine inpgetexcitations(NWHTAY, w)
    use util_mod, only: stop_all
    IMPLICIT NONE
    INTEGER NWHTAY
    character(*), parameter :: this_routine = 'inpgetexcitations'
    CHARACTER(LEN=16) w
    select case(w)
    case("FORCEROOT")
        NWHTAY = IOR(NWHTAY, 1)
    case("FORCETREE")
        NWHTAY = IOR(NWHTAY, 2)
    case("SINGLES")
        NWHTAY = IOR(NWHTAY, 8)
    case("DOUBLES")
        NWHTAY = IOR(NWHTAY, 16)
    case("ALL")
        NWHTAY = 0
    case default
        call stop_all(this_routine, "Keyword error with EXCITATIONS "//trim(w))
    end select
end subroutine inpgetexcitations