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 MATMFFDCOMPUTEJACOBIAN 21 22contains 23 24#include <../ftn/snes/petscall.hf90> 25#include <../ftn/snes/petscconvest.hf90> 26 27end module petscsnes 28