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