16dd63270SBarry Smith module petscsnesdef 2*fe66ebccSMartin Diehluse, intrinsic :: ISO_C_binding 36dd63270SBarry Smith use petsckspdef 46dd63270SBarry Smith 56dd63270SBarry Smith#include <../ftn/snes/petscall.h> 66dd63270SBarry Smith#include "petsc/finclude/petscconvest.h" 76dd63270SBarry Smith#include <../ftn/snes/petscconvest.h> 86dd63270SBarry Smith end module petscsnesdef 96dd63270SBarry Smith 106dd63270SBarry Smith module petscsnes 116dd63270SBarry Smith use petscksp 126dd63270SBarry Smith use petscsnesdef 136dd63270SBarry Smith 146dd63270SBarry Smith#include <../src/snes/ftn-mod/petscsnes.h90> 156dd63270SBarry Smith#include <../ftn/snes/petscall.h90> 166dd63270SBarry Smith#include <../ftn/snes/petscconvest.h90> 176dd63270SBarry Smith 186dd63270SBarry Smith! Some PETSc Fortran functions that the user might pass as arguments 196dd63270SBarry Smith! 206dd63270SBarry Smith external SNESCOMPUTEJACOBIANDEFAULT 216dd63270SBarry Smith external MATMFFDCOMPUTEJACOBIAN 226dd63270SBarry Smith external SNESCOMPUTEJACOBIANDEFAULTCOLOR 236dd63270SBarry Smith 246dd63270SBarry Smith external SNESCONVERGEDDEFAULT 256dd63270SBarry Smith external SNESCONVERGEDSKIP 266dd63270SBarry Smith 276dd63270SBarry Smith contains 286dd63270SBarry Smith 296dd63270SBarry Smith#include <../ftn/snes/petscall.hf90> 306dd63270SBarry Smith#include <../ftn/snes/petscconvest.hf90> 316dd63270SBarry Smith 326dd63270SBarry Smith end module 33