deallocate_adi_caches Subroutine

private subroutine deallocate_adi_caches()

Arguments

None

Contents

Source Code

deallocate_adi_caches

Source Code

    subroutine deallocate_adi_caches()
        implicit none

        if (allocated(nIRef)) deallocate(nIRef)
        if (allocated(signsRef)) deallocate(signsRef)
        if (allocated(exLvlRef)) deallocate(exLvlRef)
    end subroutine deallocate_adi_caches