Some cleaning, info calls, banners, etc.

and changing the default of PUGH::padding_active to "no". This obscure
thingy is in principle only useful on the T3E...

- Joan


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

1 files changed, 28 insertions, 0 deletions

diff --git a/src/main/Startup.c b/src/main/Startup.c
index 1ea8b998..b485a8fe 100644
--- a/src/main/Startup.c
+++ b/src/main/Startup.c
@@ -1,10 +1,38 @@
+/*@@
+   @file      Startup.c
+   @date      July 29 1999
+   @author    Joan Masso
+   @desc 
+    This is the artistic contribution from Joan to the flesh code ;-)
+   @enddesc 
+ @@*/
 
 int Cactus_Startup(void)
 {
   
   const char *string;
 
+#if 0
+  /* Old startup */
   string = "        \\ |/\n        /--\\\n      \\|   .|-                    \\  |  |  |  /  \n       | .  |\n       | .  |-                   -  Cactus 4.0  -\n      -|    |\n       |  / |                     /  |  |  |  \\\n      \\|    |/\n       | .  |           Thorny problems in Numerical Relativity and Beyond\n       |    |-\n       \\    /     Credits: Tom Goodale, Joan Masso, Paul Walker and Gabrielle Allen\n      --------        Including contributions from many worldwide collaborators\n      \\______/\n                ";
+#endif
+
+#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;
+
 
   CCTK_RegisterBanner(string);