reallocate_ilutRefAdi Subroutine

public subroutine reallocate_ilutRefAdi(size)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: size

Contents

Source Code

reallocate_ilutRefAdi

Source Code

    subroutine reallocate_ilutRefAdi(size)
        implicit none
        integer, intent(in) :: size

        ! reallocate first the ilutref itself
        if (allocated(ilutRefAdi)) deallocate(ilutRefAdi)
        allocate(ilutRefAdi(0:NIfTot, size))
        ilutRefAdi = 0_n_int

        tSetupSIs = .false.
        tUseCaches = .false.

    end subroutine reallocate_ilutRefAdi