clean_adi Subroutine

    subroutine clean_adi()
        implicit none

        call deallocate_adi_caches()
        if (allocated(ilutRefAdi)) deallocate(ilutRefAdi)
    end subroutine clean_adi