16dd63270SBarry Smithmodule petscsnesdef 2fe66ebccSMartin Diehl use, 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 Smithend module petscsnesdef 96dd63270SBarry Smith 106dd63270SBarry Smithmodule 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 MATMFFDCOMPUTEJACOBIAN 216dd63270SBarry Smith 226dd63270SBarry Smithcontains 236dd63270SBarry Smith 246dd63270SBarry Smith#include <../ftn/snes/petscall.hf90> 256dd63270SBarry Smith#include <../ftn/snes/petscconvest.hf90> 266dd63270SBarry Smith 27*37cc6f30SBarry Smithend module petscsnes 28