1*6dd63270SBarry Smith module petscsnesdef 2*6dd63270SBarry Smith use petsckspdef 3*6dd63270SBarry Smith 4*6dd63270SBarry Smith#include <../ftn/snes/petscall.h> 5*6dd63270SBarry Smith#include "petsc/finclude/petscconvest.h" 6*6dd63270SBarry Smith#include <../ftn/snes/petscconvest.h> 7*6dd63270SBarry Smith end module petscsnesdef 8*6dd63270SBarry Smith 9*6dd63270SBarry Smith module petscsnes 10*6dd63270SBarry Smith use petscksp 11*6dd63270SBarry Smith use petscsnesdef 12*6dd63270SBarry Smith 13*6dd63270SBarry Smith#include <../src/snes/ftn-mod/petscsnes.h90> 14*6dd63270SBarry Smith#include <../ftn/snes/petscall.h90> 15*6dd63270SBarry Smith#include <../ftn/snes/petscconvest.h90> 16*6dd63270SBarry Smith 17*6dd63270SBarry Smith! Some PETSc Fortran functions that the user might pass as arguments 18*6dd63270SBarry Smith! 19*6dd63270SBarry Smith external SNESCOMPUTEJACOBIANDEFAULT 20*6dd63270SBarry Smith external MATMFFDCOMPUTEJACOBIAN 21*6dd63270SBarry Smith external SNESCOMPUTEJACOBIANDEFAULTCOLOR 22*6dd63270SBarry Smith 23*6dd63270SBarry Smith external SNESCONVERGEDDEFAULT 24*6dd63270SBarry Smith external SNESCONVERGEDSKIP 25*6dd63270SBarry Smith 26*6dd63270SBarry Smith contains 27*6dd63270SBarry Smith 28*6dd63270SBarry Smith#include <../ftn/snes/petscall.hf90> 29*6dd63270SBarry Smith#include <../ftn/snes/petscconvest.hf90> 30*6dd63270SBarry Smith 31*6dd63270SBarry Smith end module 32