Actual source code: ex171f.F
petsc-3.6.4 2016-04-12
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