1:         module petsctsdef
  2:         use petscsnesdef
  3: #include "petsc/finclude/petscts.h"
  4: #include <../ftn/ts/petscts.h>
  5:         end module petsctsdef

  7:         module petscts
  8:         use petscsnes
  9:         use petsctsdef

 11: #include <../src/ts/ftn-mod/petscts.h90>
 12: #include <../ftn/ts/petscts.h90>

 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

 22:       contains

 24: #include <../ftn/ts/petscts.hf90>

 26:         end module

 28: !     ----------------------------------------------

 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