16dd63270SBarry Smith module petsctsdef 2*fe66ebccSMartin Diehluse, intrinsic :: ISO_C_binding 36dd63270SBarry Smith use petscsnesdef 46dd63270SBarry Smith#include "petsc/finclude/petscts.h" 56dd63270SBarry Smith#include <../ftn/ts/petscts.h> 66dd63270SBarry Smith end module petsctsdef 76dd63270SBarry Smith 86dd63270SBarry Smith module petscts 96dd63270SBarry Smith use petscsnes 106dd63270SBarry Smith use petsctsdef 116dd63270SBarry Smith 126dd63270SBarry Smith#include <../src/ts/ftn-mod/petscts.h90> 136dd63270SBarry Smith#include <../ftn/ts/petscts.h90> 146dd63270SBarry Smith 156dd63270SBarry Smith! 166dd63270SBarry Smith! Some PETSc Fortran functions that the user might pass as arguments 176dd63270SBarry Smith! 186dd63270SBarry Smith external TSCOMPUTERHSFUNCTIONLINEAR 196dd63270SBarry Smith external TSCOMPUTERHSJACOBIANCONSTANT 206dd63270SBarry Smith external TSCOMPUTEIFUNCTIONLINEAR 216dd63270SBarry Smith external TSCOMPUTEIJACOBIANCONSTANT 226dd63270SBarry Smith 236dd63270SBarry Smith contains 246dd63270SBarry Smith 256dd63270SBarry Smith#include <../ftn/ts/petscts.hf90> 266dd63270SBarry Smith 276dd63270SBarry Smith end module 286dd63270SBarry Smith 296dd63270SBarry Smith! ---------------------------------------------- 306dd63270SBarry Smith 316dd63270SBarry Smith module petsccharacteristic 326dd63270SBarry Smith use petscvecdef 336dd63270SBarry Smith use petscsys 346dd63270SBarry Smith#include <petsc/finclude/petsccharacteristic.h> 356dd63270SBarry Smith#include <../ftn/ts/petsccharacteristic.h> 366dd63270SBarry Smith#include <../ftn/ts/petsccharacteristic.h90> 376dd63270SBarry Smith contains 386dd63270SBarry Smith#include <../ftn/ts/petsccharacteristic.hf90> 396dd63270SBarry Smith end module 40