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: contains

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

 19: end module petscts

 21: module petsccharacteristic
 22:   use petscdm
 23: #include <petsc/finclude/petsccharacteristic.h>
 24: #include <../ftn/ts/petsccharacteristic.h>
 25: #include <../ftn/ts/petsccharacteristic.h90>
 26: contains
 27: #include <../ftn/ts/petsccharacteristic.hf90>
 28: end module petsccharacteristic