1module petsctsdef 2 use, intrinsic :: ISO_C_binding 3 use petscsnesdef 4#include "petsc/finclude/petscts.h" 5#include <../ftn/ts/petscts.h> 6end module petsctsdef 7 8module petscts 9 use petscsnes 10 use petsctsdef 11 12#include <../src/ts/ftn-mod/petscts.h90> 13#include <../ftn/ts/petscts.h90> 14 15! 16! Some PETSc Fortran functions that the user might pass as arguments 17! 18 external TSCOMPUTERHSFUNCTIONLINEAR 19 external TSCOMPUTERHSJACOBIANCONSTANT 20 external TSCOMPUTEIFUNCTIONLINEAR 21 external TSCOMPUTEIJACOBIANCONSTANT 22 23contains 24 25#include <../ftn/ts/petscts.hf90> 26 27end module petscts 28 29! ---------------------------------------------- 30 31module petsccharacteristic 32 use petscvecdef 33 use petscsys 34#include <petsc/finclude/petsccharacteristic.h> 35#include <../ftn/ts/petsccharacteristic.h> 36#include <../ftn/ts/petsccharacteristic.h90> 37contains 38#include <../ftn/ts/petsccharacteristic.hf90> 39end module petsccharacteristic 40