Actual source code: ex171f.F

petsc-3.6.4 2016-04-12
Report Typos and Errors
  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