Actual source code: ex171f.F
petsc-3.5.4 2015-05-23
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