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