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