diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-10-14 09:36:48 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-10-14 09:36:48 +0000 |
commit | 1a382d8381c88813f4c3f68fc55790cec67579b7 (patch) | |
tree | 1e2e58f3561a2551a85c275db65310b9425f7578 | |
parent | 7b6f5ccf34e3e4d3f693724d0a2cb17fdc7871fd (diff) |
Adding fortran bindings and special status for Cactus banner
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1034 17b73243-c579-4c4c-a9d2-2d5706c11dac
-rw-r--r-- | src/main/Banner.c | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/src/main/Banner.c b/src/main/Banner.c index 63cefd3f..43347f5a 100644 --- a/src/main/Banner.c +++ b/src/main/Banner.c @@ -7,11 +7,15 @@ @enddesc @@*/ +/*#define DEBUG_BANNER*/ + #include <stdlib.h> #include <stdio.h> #include "config.h" #include "cctk_parameters.h" +#include "cctk_Banner.h" +#include "cctk_FortranString.h" static char *rcsis = "$Header$"; @@ -21,6 +25,44 @@ static const char **banner_strings; void CCTK_PrintBanners(void); + + /*@@ + @routine CactusBanner + @date Wed Oct 13 21:41:28 CEST 1999 + @author Gabrielle Allen + @desc + Prints the Cactus Banner + @enddesc +@@*/ + +void CactusBanner(void) +{ + + const char *string; + +#define B_1 " 10 " +#define B_2 " 1 0101 ************************ " +#define B_3 " 01 1010 10 The Cactus Code V4.0 " +#define B_4 " 1010 1101 011 www.cactuscode.org " +#define B_5 " 1001 100101 ************************ " +#define B_6 " 00010101 " +#define B_7 " 100011 (c) Copyright The Authors " +#define B_8 " 0100 GNU Licensed. No Warranty " +#define B_9 " 0101 " + + +#define B_ANNERLINE B_1 "\n" B_2 "\n" B_3 "\n" B_4 "\n" B_5 "\n" B_6 "\n" B_7 "\n" B_8 "\n" B_9 "\n" + + + string = B_ANNERLINE; + + printf("-----------------------------------------------------------\n"); + printf("%s\n",string); + printf("-----------------------------------------------------------\n"); + +} + + /*@@ @routine CCTK_RegisterBanner @date July 16 00:11:26 1999 @@ -62,8 +104,18 @@ void CCTK_RegisterBanner(const char *string) banner_strings[number_banners-1] = string; } +#ifdef DEBUG_BANNER + printf("Registering banner .... \n%s\n",banner_strings[number_banners-1]); +#endif + } +void FMODIFIER FORTRAN_NAME(CCTK_RegisterBanner)(ONE_FORTSTRING_ARG) +{ + ONE_FORTSTRING_CREATE(message) + CCTK_RegisterBanner(message); + /* Don't free0 "message" or it will disappear */ +} /*@@ @routine CCTK_PrintBanners |