Actual source code: ex171f.F

petsc-3.5.4 2015-05-23
Report Typos and Errors
  1: !
  2: !   This program tests MatNullSpaceCreate()
  3: !
  4:       program main
  5:       implicit none

  7: #include <finclude/petscsys.h>
  8: #include <finclude/petscis.h>
  9: #include <finclude/petscvec.h>
 10: #include <finclude/petscmat.h>
 11: #include <finclude/petscviewer.h>

 13:       PetscErrorCode ierr
 14:       MatNullSpace nsp
 15:       PetscScalar value
 16:       Vec     v(1)

 18:       call PetscInitialize(PETSC_NULL_CHARACTER,ierr)

 20:       call VecCreateMPI(PETSC_COMM_WORLD,12,PETSC_DETERMINE,v(1),ierr)
 21:       call MatNullSpaceCreate(PETSC_COMM_WORLD,PETSC_FALSE,1,v(1),         &
 22:      &                        nsp,ierr)
 23:       call MatNullSpaceDestroy(nsp,ierr)
 24:       call VecDestroy(v(1),ierr)
 25:       call PetscFinalize(ierr)
 26:       end