Actual source code: petscsnesmod.F90
1: module petscsnesdef
2: use petsckspdef
4: #include <../ftn/snes/petscall.h>
5: #include "petsc/finclude/petscconvest.h"
6: #include <../ftn/snes/petscconvest.h>
7: end module petscsnesdef
9: module petscsnes
10: use petscksp
11: use petscsnesdef
13: #include <../src/snes/ftn-mod/petscsnes.h90>
14: #include <../ftn/snes/petscall.h90>
15: #include <../ftn/snes/petscconvest.h90>
17: ! Some PETSc Fortran functions that the user might pass as arguments
18: !
19: external SNESCOMPUTEJACOBIANDEFAULT
20: external MATMFFDCOMPUTEJACOBIAN
21: external SNESCOMPUTEJACOBIANDEFAULTCOLOR
23: external SNESCONVERGEDDEFAULT
24: external SNESCONVERGEDSKIP
26: contains
28: #include <../ftn/snes/petscall.hf90>
29: #include <../ftn/snes/petscconvest.hf90>
31: end module