1*6dd63270SBarry Smith module petsctsdef 2*6dd63270SBarry Smith use petscsnesdef 3*6dd63270SBarry Smith#include "petsc/finclude/petscts.h" 4*6dd63270SBarry Smith#include <../ftn/ts/petscts.h> 5*6dd63270SBarry Smith end module petsctsdef 6*6dd63270SBarry Smith 7*6dd63270SBarry Smith module petscts 8*6dd63270SBarry Smith use petscsnes 9*6dd63270SBarry Smith use petsctsdef 10*6dd63270SBarry Smith 11*6dd63270SBarry Smith#include <../src/ts/ftn-mod/petscts.h90> 12*6dd63270SBarry Smith#include <../ftn/ts/petscts.h90> 13*6dd63270SBarry Smith 14*6dd63270SBarry Smith! 15*6dd63270SBarry Smith! Some PETSc Fortran functions that the user might pass as arguments 16*6dd63270SBarry Smith! 17*6dd63270SBarry Smith external TSCOMPUTERHSFUNCTIONLINEAR 18*6dd63270SBarry Smith external TSCOMPUTERHSJACOBIANCONSTANT 19*6dd63270SBarry Smith external TSCOMPUTEIFUNCTIONLINEAR 20*6dd63270SBarry Smith external TSCOMPUTEIJACOBIANCONSTANT 21*6dd63270SBarry Smith 22*6dd63270SBarry Smith contains 23*6dd63270SBarry Smith 24*6dd63270SBarry Smith#include <../ftn/ts/petscts.hf90> 25*6dd63270SBarry Smith 26*6dd63270SBarry Smith end module 27*6dd63270SBarry Smith 28*6dd63270SBarry Smith! ---------------------------------------------- 29*6dd63270SBarry Smith 30*6dd63270SBarry Smith module petsccharacteristic 31*6dd63270SBarry Smith use petscvecdef 32*6dd63270SBarry Smith use petscsys 33*6dd63270SBarry Smith#include <petsc/finclude/petsccharacteristic.h> 34*6dd63270SBarry Smith#include <../ftn/ts/petsccharacteristic.h> 35*6dd63270SBarry Smith#include <../ftn/ts/petsccharacteristic.h90> 36*6dd63270SBarry Smith contains 37*6dd63270SBarry Smith#include <../ftn/ts/petsccharacteristic.hf90> 38*6dd63270SBarry Smith end module 39