Date: 2025-03-29T05:58:51+00:00

Actual source code: petsctsmod.F90

      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