Changed names of PUGH functions to be uniform. Now all PUGH functions

should begin with PUGH.

Tom


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

1 files changed, 16 insertions, 38 deletions

diff --git a/src/SetupGroup.c b/src/SetupGroup.c
index 384557e..812aae4 100644
--- a/src/SetupGroup.c
+++ b/src/SetupGroup.c
@@ -13,38 +13,16 @@
 
 #include "cctk.h"
 #include "pugh.h"
+#include "pughi.h"
 
 static char *rcsid = "$Header$";
 
 CCTK_FILEVERSION (CactusPUGH_PUGH_SetupGroup_c)
 
 
-pGExtras *pugh_SetupPGExtras(int  dim, 
-			     int *perme,
-			     int  stagger,
-			     int *sh,
-			     int *nghosts,
-			     int  total_procs,
-			     int *nprocs,
-			     int  this_proc);
-
-pConnectivity *pugh_SetupConnectivity(int  dim, 
-				      int  total_procs, 
-				      int *nprocs,
-				      int *perme);
-
-pGA *SetupPGA(void          *parent,
-	      pGExtras      *extras,
-	      pConnectivity *connectivity,
-	      const char    *name,
-	      int            id,
-	      int            varsize, 
-	      int            vtype, 
-	      int            stagger);      
-
   
  /*@@
-   @routine    pugh_SetupScalarGroup
+   @routine    PUGH_SetupScalarGroup
    @date       Wed Feb 17 04:45:49 1999
    @author     Tom Goodale
    @desc 
@@ -58,7 +36,7 @@ pGA *SetupPGA(void          *parent,
 
 @@*/
 
-int pugh_SetupScalarGroup
+int PUGH_SetupScalarGroup
   (
    pGH *newGH, 
    int vtype, 
@@ -112,7 +90,7 @@ int pugh_SetupScalarGroup
 
 
  /*@@
-   @routine    pugh_SetupArrayGroup
+   @routine    PUGH_SetupArrayGroup
    @date       January 19 2000
    @author     Gabrielle Allen
    @desc 
@@ -126,7 +104,7 @@ int pugh_SetupScalarGroup
 
 @@*/
 
-int pugh_SetupArrayGroup(pGH *newGH, 
+int PUGH_SetupArrayGroup(pGH *newGH, 
 			 int *nsize, 
 			 int *ghostsize,
 			 int  vtype, 
@@ -176,9 +154,9 @@ int pugh_SetupArrayGroup(pGH *newGH,
     CCTK_WARN(0,"Memory error in PUGH");
   }
 
-  connectivity = pugh_SetupConnectivity(dim,newGH->nprocs,nprocs,perme);
+  connectivity = PUGH_SetupConnectivity(dim,newGH->nprocs,nprocs,perme);
 
-  extras = pugh_SetupPGExtras(dim, 
+  extras = PUGH_SetupPGExtras(dim, 
                               perme,
                               staggercode,
                               nsize,
@@ -207,7 +185,7 @@ int pugh_SetupArrayGroup(pGH *newGH,
         for(level = 0; level < n_timelevels; level++)
         {
           newGH->variables[newGH->nvariables][level] = 
-	    SetupPGA(newGH,
+	    PUGH_SetupPGA(newGH,
 		     extras,
 		     connectivity,
 		     CCTK_VarName(newGH->nvariables), 
@@ -237,7 +215,7 @@ int pugh_SetupArrayGroup(pGH *newGH,
 
 
  /*@@
-   @routine    pugh_SetupGFGroup
+   @routine    PUGH_SetupGFGroup
    @date       Wed Feb 17 04:45:49 1999
    @author     Tom Goodale
    @desc 
@@ -250,7 +228,7 @@ int pugh_SetupArrayGroup(pGH *newGH,
    @endhistory 
 
 @@*/
-int pugh_SetupGFGroup(pGH *newGH, 
+int PUGH_SetupGFGroup(pGH *newGH, 
                       int vtype, 
                       int dim, 
                       int n_variables,
@@ -281,7 +259,7 @@ int pugh_SetupGFGroup(pGH *newGH,
         for(level = 0; level < n_timelevels; level++)
         {
 	    newGH->variables[newGH->nvariables][level] = 
-	      SetupPGA(newGH,
+	      PUGH_SetupPGA(newGH,
 		       newGH->GFExtras[dim-1],
 		       newGH->Connectivity[dim-1],
 		       CCTK_VarName(newGH->nvariables), 
@@ -312,7 +290,7 @@ int pugh_SetupGFGroup(pGH *newGH,
 
 
  /*@@
-   @routine    pugh_SetupGroup
+   @routine    PUGH_SetupGroup
    @date       Mon Feb  8 19:37:55 1999
    @author     Tom Goodale
    @desc 
@@ -345,13 +323,13 @@ int PUGH_SetupGroup
   switch(gtype)
   {
     case CCTK_SCALAR : 
-      returncode = pugh_SetupScalarGroup(newGH, 
+      returncode = PUGH_SetupScalarGroup(newGH, 
                                          vtype, 
                                          n_variables,
                                          n_timelevels); 
       break;
     case CCTK_ARRAY  :
-      returncode = pugh_SetupArrayGroup(newGH, 
+      returncode = PUGH_SetupArrayGroup(newGH, 
                                         nsize,
                                         nghostsize,
                                         vtype,
@@ -361,7 +339,7 @@ int PUGH_SetupGroup
                                         n_timelevels); 
       break;
     case CCTK_GF     : 
-      returncode = pugh_SetupGFGroup(newGH, 
+      returncode = PUGH_SetupGFGroup(newGH, 
                                      vtype,
                                      dim,
                                      n_variables,
@@ -369,7 +347,7 @@ int PUGH_SetupGroup
                                      n_timelevels); 
       break;
     default : 
-      CCTK_WARN(0, "Unknown group type in pugh_SetupGroup");
+      CCTK_WARN(0, "Unknown group type in PUGH_SetupGroup");
       returncode = PUGH_ERROR;
   }