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