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 MATMFFDCOMPUTEJACOBIAN

 22: contains

 24: #include <../ftn/snes/petscall.hf90>
 25: #include <../ftn/snes/petscconvest.hf90>

 27: end module petscsnes