1 module petscsnesdef 2use, 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> 8 end module petscsnesdef 9 10 module 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 27 contains 28 29#include <../ftn/snes/petscall.hf90> 30#include <../ftn/snes/petscconvest.hf90> 31 32 end module 33