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