PetscErrorCode StokesSetupIndexSets(Stokes *s) { PetscErrorCode ierr; PetscFunctionBeginUser; /* the two index sets */ ierr = MatNestGetISs(s->A, s->isg, NULL);CHKERRQ(ierr); /* ISView(isg[0],PETSC_VIEWER_STDOUT_WORLD);CHKERRQ(ierr); */ /* ISView(isg[1],PETSC_VIEWER_STDOUT_WORLD);CHKERRQ(ierr); */ PetscFunctionReturn(0); }
PETSC_EXTERN void PETSC_STDCALL matnestgetiss_(Mat *A,IS rows[],IS cols[], int *ierr ) { CHKFORTRANNULLOBJECT(rows); CHKFORTRANNULLOBJECT(cols); *ierr = MatNestGetISs(*A,rows,cols); }