diff options
| author | allen <allen@b61c5cb5-eaca-4651-9a7a-d64986f99364> | 2001-10-31 19:12:21 +0000 |
|---|---|---|
| committer | allen <allen@b61c5cb5-eaca-4651-9a7a-d64986f99364> | 2001-10-31 19:12:21 +0000 |
| commit | ad3e03f0fc961880469a315dde1b7a42fad72715 (patch) | |
| tree | e1da1c1b0901664f5b44cec858efdf8b48dbd56a | |
| parent | bd57ff2896f7a8927a33c51ae9a1d3dea68abfdf (diff) | |
Added a simple routine for a thorn to register a routine for scheduled
function calling to PUGH. This will be improved in the next few days.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGH/PUGH/trunk@361 b61c5cb5-eaca-4651-9a7a-d64986f99364
| -rw-r--r-- | src/GHExtension.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/GHExtension.c b/src/GHExtension.c index e25ada9..dec849e 100644 --- a/src/GHExtension.c +++ b/src/GHExtension.c @@ -29,6 +29,7 @@ CCTK_FILEVERSION(CactusPUGH_pugh_GHExtension_c) /* prototypes of routines defined in this source file */ int PUGH_PrintTimingInfo (cGH *GH); +static int (* PUGHCallFunc)(void *function, cFunctionData *fdata, void *data) = NULL; /*@@ @routine PUGH_SetupGH @@ -351,11 +352,15 @@ int PUGH_ScheduleTraverseGH (cGH *GH, PUGH_InitGHVariables (GH); } - retval = CCTK_ScheduleTraverse (where, GH, NULL); + retval = CCTK_ScheduleTraverse (where, GH, PUGHCallFunc); return (retval); } +void PUGH_RegisterCallFunc(int (* func)(void *function, cFunctionData *fdata, void *data)) +{ + PUGHCallFunc = func; +} /*@@ @routine PUGH_GFSize |