subroutine allocate_adi_caches() implicit none call deallocate_adi_caches() allocate(nIRef(nel, nRefs)) allocate(signsRef(lenof_sign, nRefs)) allocate(exLvlRef(nRefs)) end subroutine allocate_adi_caches