Actual source code: ex171f.F
 
   petsc-3.6.2 2015-10-02
   
  1: !
  2: !   This program tests MatNullSpaceCreate()
  3: !
  4:       program main
  5:       implicit none
  7: #include <petsc/finclude/petscsys.h>
  8: #include <petsc/finclude/petscis.h>
  9: #include <petsc/finclude/petscvec.h>
 10: #include <petsc/finclude/petscmat.h>
 11: #include <petsc/finclude/petscviewer.h>
 13:       PetscErrorCode ierr
 14:       MatNullSpace nsp
 15:       PetscScalar value
 16:       Vec     v(1)
 17:       PetscInt nloc
 19:       call PetscInitialize(PETSC_NULL_CHARACTER,ierr)
 21:       nloc = 12
 22:       call VecCreateMPI(PETSC_COMM_WORLD,nloc,PETSC_DETERMINE,v(1),ierr)
 23:       call MatNullSpaceCreate(PETSC_COMM_WORLD,PETSC_FALSE,1,v(1),         &
 24:      &                        nsp,ierr)
 25:       call MatNullSpaceDestroy(nsp,ierr)
 26:       call VecDestroy(v(1),ierr)
 27:       call PetscFinalize(ierr)
 28:       end