1: #include <petsc/private/ftnimpl.h>
  2: #include <petscmat.h>
  3: #include <petscviewer.h>

  5: #if PetscDefined(HAVE_FORTRAN_CAPS)
  6:   #define matnullspacegetvecs_     MATNULLSPACEGETVECS
  7:   #define matnullspacerestorevecs_ MATNULLSPACERESTOREVECS
  8: #elif !PetscDefined(HAVE_FORTRAN_UNDERSCORE)
  9:   #define matnullspacegetvecs_     matnullspacegetvecs
 10:   #define matnullspacerestorevecs_ matnullspacerestorevecs
 11: #endif

 13: PETSC_EXTERN void matnullspacegetvecs_(MatNullSpace *sp, PetscBool *has_const, PetscInt *n, F90Array1d *vecs, PetscErrorCode *ierr PETSC_F90_2PTR_PROTO(ptrd))
 14: {
 15:   PetscBool has_cnst;
 16:   PetscInt  nv;
 17:   Vec      *tvecs;

 19:   CHKFORTRANNULLBOOL(has_const);
 20:   CHKFORTRANNULLINTEGER(n);
 21:   *ierr = MatNullSpaceGetVecs(*sp, &has_cnst, &nv, (const Vec **)&tvecs);
 22:   if (has_const) *has_const = has_cnst;
 23:   if (n) *n = nv;
 24:   *ierr = F90Array1dCreate(tvecs, MPIU_FORTRANADDR, 1, nv, vecs PETSC_F90_2PTR_PARAM(ptrd));
 25: }

 27: PETSC_EXTERN void matnullspacerestorevecs_(MatNullSpace *sp, PetscBool *has_const, PetscInt *n, F90Array1d *vecs, PetscErrorCode *ierr PETSC_F90_2PTR_PROTO(ptrd))
 28: {
 29:   *ierr = F90Array1dDestroy(vecs, MPIU_FORTRANADDR PETSC_F90_2PTR_PARAM(ptrd));
 30: }