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