1 module petsctsdef 2use, intrinsic :: ISO_C_binding 3 use petscsnesdef 4#include "petsc/finclude/petscts.h" 5#include <../ftn/ts/petscts.h> 6 end module petsctsdef 7 8 module 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 23 contains 24 25#include <../ftn/ts/petscts.hf90> 26 27 end module 28 29! ---------------------------------------------- 30 31 module 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> 37 contains 38#include <../ftn/ts/petsccharacteristic.hf90> 39 end module 40