From 57308b587930200f0f375840c32b66c8a1796b8c Mon Sep 17 00:00:00 2001
From: tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Mon, 10 Apr 2000 14:47:12 +0000
Subject: Added C version of CCTK_VInfo.

git-svn-id: http://svn.cactuscode.org/flesh/trunk@1530 17b73243-c579-4c4c-a9d2-2d5706c11dac
---
 src/include/cctk_WarnLevel.h |  1 +
 src/main/WarnLevel.c         | 32 ++++++++++++++++++++++++++++++++
 2 files changed, 33 insertions(+)

diff --git a/src/include/cctk_WarnLevel.h b/src/include/cctk_WarnLevel.h
index 52cbda39..48fca652 100644
--- a/src/include/cctk_WarnLevel.h
+++ b/src/include/cctk_WarnLevel.h
@@ -28,6 +28,7 @@ int CCTK_VWarn(int level,
                 const char *format, ...);
 int CCTK_ParamWarn(const char *thorn, const char *message);
 int CCTK_Info(const char *thorn, const char *message);
+int CCTK_VInfo(const char *thorn, const char *format, ...);
 
 #ifdef __cplusplus 
 }
diff --git a/src/main/WarnLevel.c b/src/main/WarnLevel.c
index 9036bcbe..6b30b468 100644
--- a/src/main/WarnLevel.c
+++ b/src/main/WarnLevel.c
@@ -374,6 +374,38 @@ void FMODIFIER FORTRAN_NAME(CCTK_Info)(TWO_FORTSTRINGS_ARGS)
 }
 
 
+/*@@
+   @routine    CCTK_VInfo
+   @date       Mon Apr 10
+   @author     Thomas Radke
+   @desc 
+   Info routine with variable argument list
+   @enddesc 
+   @calls     
+   @calledby   
+   @history 
+ 
+   @endhistory 
+
+@@*/
+
+int CCTK_VInfo (const char *thorn, const char *format, ...)
+{
+  va_list ap;
+
+  va_start(ap, format);
+
+  fprintf(stdout, "INFO (%s): ", thorn);
+  vfprintf(stdout, format, ap);
+  fprintf(stdout, "\n");
+  fflush(stdout);
+
+  va_end(ap);
+
+  return 0;
+}  
+
+
 /*@@
    @routine    CCTKi_SetErrorLevel
    @date       Wed Feb 17 00:48:02 1999
-- 
cgit v1.2.3