Added CCTK_Info("message")

git-svn-id: http://svn.cactuscode.org/flesh/trunk@427 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 35 insertions, 1 deletions

diff --git a/src/main/WarnLevel.c b/src/main/WarnLevel.c
index 9fbc0f11..10aa445d 100644
--- a/src/main/WarnLevel.c
+++ b/src/main/WarnLevel.c
@@ -76,7 +76,6 @@ int CCTK_SetWarnLevel(int level)
   return retval;
 }
 
-
  /*@@
    @routine    CCTK_Warn
    @date       Wed Feb 17 00:45:07 1999
@@ -122,6 +121,41 @@ int FORTRAN_NAME(CCTK_Warn)(int *level, ONE_FORTSTRING_ARG)
   return(retval);
 }
 
+
+ /*@@
+   @routine    CCTK_Info
+   @date       Tue Mar 30 1999
+   @author     Gabrielle Allen
+   @desc 
+   Print information
+   @enddesc 
+   @calls     
+   @calledby   
+   @history 
+ 
+   @endhistory 
+
+@@*/
+int CCTK_Info(const char *message)
+{
+  int retval;
+
+  fprintf(stderr, "INFO: %s\n", message);
+  retval = 1;
+
+  return retval;
+}
+
+int FORTRAN_NAME(CCTK_Info)(ONE_FORTSTRING_ARG)
+{
+  ONE_FORTSTRING_CREATE(message)
+  int retval;
+  retval = CCTK_Info(message);
+  free(message); 
+  return(retval);
+}
+
+
  /*@@
    @routine    CCTK_SetErrorLevel
    @date       Wed Feb 17 00:48:02 1999