diff options
| author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-04-06 00:44:34 +0000 |
|---|---|---|
| committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-04-06 00:44:34 +0000 |
| commit | 4bb83281ded02de04c4915214b135bec6bfc8fa4 (patch) | |
| tree | 74189699d8b8cbbd45ece3ba43c8af0212c9ce4a /lib/sbin | |
| parent | 084b8fccaf18639254f8e786b1b3991e71066918 (diff) | |
Added a print statement contained in an #ifdef DEBUG to the wrapper files
so I can see what is being called
git-svn-id: http://svn.cactuscode.org/flesh/trunk@442 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin')
| -rw-r--r-- | lib/sbin/schedule_parser.pl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/sbin/schedule_parser.pl b/lib/sbin/schedule_parser.pl index 81f80977..0c10f361 100644 --- a/lib/sbin/schedule_parser.pl +++ b/lib/sbin/schedule_parser.pl @@ -635,6 +635,10 @@ sub fortran_wrapper { DECLARE_$THORN_C2F INITIALISE_$THORN_C2F +#ifdef DEBUG + printf(\"Calling \%s from rfr wrapper\\n\"); +#endif + FORTRAN_NAME($routine)(PASS_$THORN_C2F(GH)); } |