Actual source code: petscsnesmod.F90
1: module petscsnesdef
2: use, intrinsic :: ISO_C_binding
3: use petsckspdef
5: #include <../ftn/snes/petscall.h>
6: #include "petsc/finclude/petscconvest.h"
7: #include <../ftn/snes/petscconvest.h>
8: end module petscsnesdef
10: module petscsnes
11: use petscksp
12: use petscsnesdef
14: #include <../src/snes/ftn-mod/petscsnes.h90>
15: #include <../ftn/snes/petscall.h90>
16: #include <../ftn/snes/petscconvest.h90>
18: ! Some PETSc Fortran functions that the user might pass as arguments
19: !
20: external SNESCOMPUTEJACOBIANDEFAULT
21: external MATMFFDCOMPUTEJACOBIAN
22: external SNESCOMPUTEJACOBIANDEFAULTCOLOR
24: external SNESCONVERGEDDEFAULT
25: external SNESCONVERGEDSKIP
27: contains
29: #include <../ftn/snes/petscall.hf90>
30: #include <../ftn/snes/petscconvest.hf90>
32: end module petscsnes