subroutineclose_unitprivate

subroutine close_unit(list, id, s)
    type(entity_list_t), intent(inout) :: list  !! the entities
    integer, intent(in) :: id                   !! the entity
    type(settings_t), intent(in) :: s           !! the settings

    select case (list%box(id)%e%kind)
    case (E_MODULE, E_SUBMODULE, E_PROGRAM, E_BLOCKDATA, E_MODPROC)
        call apply_attributes(list, id)
    case (E_SUBROUTINE, E_FUNCTION)
        call apply_attributes(list, id)
        call attach_arguments(list, id)
    case (E_INTERFACE)
        call close_interface(list, id)
    end select
end subroutine close_unit