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