Initial check in of thorn pugh.

Currently doesn't compile.

Tom


git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGH/PUGH/trunk@2 b61c5cb5-eaca-4651-9a7a-d64986f99364

1 files changed, 67 insertions, 0 deletions

diff --git a/src/Startup.c b/src/Startup.c
new file mode 100644
index 0000000..1f2f25a
--- /dev/null
+++ b/src/Startup.c
@@ -0,0 +1,67 @@
+ /*@@
+   @file      Startup.c
+   @date      Wed Feb  3 23:10:19 1999
+   @author    Tom Goodale
+   @desc 
+   Startup routines for pugh.
+   @enddesc 
+ @@*/
+
+#include <stdio.h>
+
+#include "flesh.h"
+#include "GHExtensions.h"
+
+#include "pugh_extension.h"
+#include "pugh_Comm.h"
+
+static char *rcsid="$Header$";
+
+/* Store the handle in a global variable for the moment. */
+int PUGH_GHExtension;
+
+
+ /*@@
+   @routine    pugh_Startup
+   @date       Wed Feb  3 23:14:38 1999
+   @author     Tom Goodale
+   @desc 
+   The startup registration routine for PUGH.
+   @enddesc 
+   @calls     
+   @calledby   
+   @history 
+ 
+   @endhistory 
+
+@@*/
+void pugh_Startup(void)
+{
+  printf("Registering PUGH GH extension\n");
+
+  /* Register the stuff in the GH extension. */
+  PUGH_GHExtension = CCTK_RegisterGHExtension("PUGH");
+
+  CCTK_RegisterGHExtensionSetupGH(PUGH_GHExtension, pugh_SetupGH);
+
+  CCTK_RegisterGHExtensionInitGH(PUGH_GHExtension, pugh_InitGH);
+
+  CCTK_RegisterGHExtensionrfrTraverseGH(PUGH_GHExtension, pugh_rfrTraverseGH);
+
+  /* Overload some functions */
+  CCTK_OverloadSyncGroup(pugh_SyncGroup);
+  CCTK_OverloadEnableGroupStorage(pugh_EnableGroupStorage);
+  CCTK_OverloadDisableGroupStorage(pugh_EnableGroupStorage);
+
+  CCTK_OverloadEnableGroupComm(pugh_EnableGroupComm);
+  CCTK_OverloadDisableGroupComm(pugh_EnableGroupComm);
+
+  CCTK_OverloadBarrier(pugh_Barrier);
+  CCTK_OverloadReduce(pugh_Reduce);
+  CCTK_OverloadInterp(pugh_Interp);
+
+  CCTK_OverloadParallelInit(pugh_ParallelInit);
+  CCTK_OverloadExit(pugh_Exit);
+  CCTK_OverloadAbort(pugh_Abort);
+
+}