Searched refs:newvint (Results 1 – 1 of 1) sorted by relevance
102 PetscFortranAddr *newvint; in vecduplicatevecs_() local106 *ierr = PetscMalloc1(*m, &newvint); in vecduplicatevecs_()109 for (i = 0; i < *m; i++) newvint[i] = (PetscFortranAddr)lV[i]; in vecduplicatevecs_()112 *ierr = F90Array1dCreate(newvint, MPIU_FORTRANADDR, 1, *m, ptr PETSC_F90_2PTR_PARAM(ptrd)); in vecduplicatevecs_()