From 4bb83281ded02de04c4915214b135bec6bfc8fa4 Mon Sep 17 00:00:00 2001
From: allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Tue, 6 Apr 1999 00:44:34 +0000
Subject: 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
---
 lib/sbin/schedule_parser.pl | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'lib')

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));
 
 }
-- 
cgit v1.2.3