Actual source code: petsctsmod.F90
1: module petsctsdef
2: use, intrinsic :: ISO_C_binding
3: use petscsnesdef
4: #include "petsc/finclude/petscts.h"
5: #include <../ftn/ts/petscts.h>
6: end module petsctsdef
8: module petscts
9: use petscsnes
10: use petsctsdef
12: #include <../src/ts/ftn-mod/petscts.h90>
13: #include <../ftn/ts/petscts.h90>
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
23: contains
25: #include <../ftn/ts/petscts.hf90>
27: end module petscts
29: ! ----------------------------------------------
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 petsccharacteristic