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