Untabified.

Got rid of redundant file.
Did some formatting changes in line with the coding guidelines.

Tom


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

1 files changed, 98 insertions, 72 deletions

diff --git a/src/PostSendGA.c b/src/PostSendGA.c
index 784e391..732ce52 100644
--- a/src/PostSendGA.c
+++ b/src/PostSendGA.c
@@ -8,7 +8,7 @@
    and @seefile FinishReceiveGA.c. See the documentation for
    @seeroutine PostSendGA for details on this routine.
    @enddesc 
-   @version $Id$
+   @version $Header$
  @@*/
 
 #include <stdio.h>
@@ -16,7 +16,7 @@
 #include "cctk.h"
 #include "pugh.h"
 
-static char *rcsid = "$Id$";
+static char *rcsid = "$Header$";
 
 void PostSendGA1(pGH *GH, pGA *GA, int dir);
 void PostSendGA3(pGH *GH, pGA *GA, int dir);
@@ -121,11 +121,11 @@ void PostSendGA(pGH *GH, pGA *GA, int dir)
 #ifdef DEBUG_PUGH
   printf ("SEND: GA %s Side %d Proc %d stag %d Size %d to %d\n",
           GA->name,
-	  dir,
-	  GH->myproc,
-	  stag,
+          dir,
+          GH->myproc,
+          stag,
           GA->buffer_sz[dir],
-	  GA->connectivity->neighbours[GH->myproc][dir]);
+          GA->connectivity->neighbours[GH->myproc][dir]);
 #endif
 
   if (GH->commmodel == PUGH_DERIVEDTYPES)
@@ -188,42 +188,67 @@ void PostSendGA3(pGH *GH, pGA *GA, int dir)
     
   /* Great now copy */
   xx = 0;
-  switch (GA->vtype) {
-  case CCTK_VARIABLE_CHAR:
-    char_data = (CCTK_CHAR *) GA->send_buffer [dir];
-    for (kk=kstart; kk<kend; kk++) 
-      for (jj=jstart; jj<jend; jj++)
-	for (ii=istart; ii<iend; ii++)
-	  char_data [xx++] =
-	    ((CCTK_CHAR *) GA->data) [DATINDEX (GA->extras,ii,jj,kk)];
-    break;
-    
-  case CCTK_VARIABLE_INT:
-    int_data = (CCTK_INT *) GA->send_buffer [dir];
-    for (kk=kstart; kk<kend; kk++) 
-      for (jj=jstart; jj<jend; jj++)
-	for (ii=istart; ii<iend; ii++)
-	  int_data [xx++] =
-	    ((CCTK_INT *) GA->data) [DATINDEX (GA->extras,ii,jj,kk)];
-    break;
-    
-  case CCTK_VARIABLE_REAL:
-    real_data = (CCTK_REAL *) GA->send_buffer [dir];
-    for (kk=kstart; kk<kend; kk++) 
-      for (jj=jstart; jj<jend; jj++)
-	for (ii=istart; ii<iend; ii++)
-	  real_data [xx++] =
-	    ((CCTK_REAL *) GA->data) [DATINDEX (GA->extras,ii,jj,kk)];
-    break;
+  switch (GA->vtype) 
+  {
+    case CCTK_VARIABLE_CHAR:
+      char_data = (CCTK_CHAR *) GA->send_buffer [dir];
+      for (kk=kstart; kk<kend; kk++) 
+      {
+        for (jj=jstart; jj<jend; jj++)
+        {
+          for (ii=istart; ii<iend; ii++)
+          {
+            char_data [xx++] =
+              ((CCTK_CHAR *) GA->data) [DATINDEX (GA->extras,ii,jj,kk)];
+          }
+        }
+      }
+      break;
     
-  case CCTK_VARIABLE_COMPLEX:
-    complex_data = (CCTK_COMPLEX *) GA->send_buffer [dir];
-    for (kk=kstart; kk<kend; kk++) 
-      for (jj=jstart; jj<jend; jj++)
-	for (ii=istart; ii<iend; ii++)
-	  complex_data [xx++] =
-	    ((CCTK_COMPLEX *) GA->data) [DATINDEX (GA->extras,ii,jj,kk)];
-    break;
+    case CCTK_VARIABLE_INT:
+      int_data = (CCTK_INT *) GA->send_buffer [dir];
+      for (kk=kstart; kk<kend; kk++) 
+      {
+        for (jj=jstart; jj<jend; jj++)
+        {
+          for (ii=istart; ii<iend; ii++)
+          {
+            int_data [xx++] =
+              ((CCTK_INT *) GA->data) [DATINDEX (GA->extras,ii,jj,kk)];
+          }
+        }
+      }
+      break;
+      
+    case CCTK_VARIABLE_REAL:
+      real_data = (CCTK_REAL *) GA->send_buffer [dir];
+      for (kk=kstart; kk<kend; kk++)
+      { 
+        for (jj=jstart; jj<jend; jj++)
+        {
+          for (ii=istart; ii<iend; ii++)
+          {
+            real_data [xx++] =
+              ((CCTK_REAL *) GA->data) [DATINDEX (GA->extras,ii,jj,kk)];
+          }
+        }
+      }
+      break;
+      
+    case CCTK_VARIABLE_COMPLEX:
+      complex_data = (CCTK_COMPLEX *) GA->send_buffer [dir];
+      for (kk=kstart; kk<kend; kk++) 
+      {
+        for (jj=jstart; jj<jend; jj++)
+        {
+          for (ii=istart; ii<iend; ii++)
+          {
+            complex_data [xx++] =
+              ((CCTK_COMPLEX *) GA->data) [DATINDEX (GA->extras,ii,jj,kk)];
+          }
+        }
+      }
+      break;
   }
 }
 
@@ -245,37 +270,38 @@ void PostSendGA1(pGH *GH, pGA *GA, int dir)
     
   /* Great now copy */
   xx = 0;
-  switch (GA->vtype) {
-  case CCTK_VARIABLE_CHAR:
-    char_data = (CCTK_CHAR *) GA->send_buffer [dir];
-    for (ii=istart; ii<iend; ii++)
-    {
-      char_data [xx++] = ((CCTK_CHAR *) GA->data) [ii];
-    }
-    break;
-    
-  case CCTK_VARIABLE_INT:
-    int_data = (CCTK_INT *) GA->send_buffer [dir];
-    for (ii=istart; ii<iend; ii++)
-    {
-      int_data [xx++] = ((CCTK_INT *) GA->data) [ii];
-    }
-    break;
-    
-  case CCTK_VARIABLE_REAL:
-    real_data = (CCTK_REAL *) GA->send_buffer [dir];
-    for (ii=istart; ii<iend; ii++)
-    {
-      real_data [xx++] = ((CCTK_REAL *) GA->data) [ii];
-    }
-    break;
+  switch (GA->vtype) 
+  {
+    case CCTK_VARIABLE_CHAR:
+      char_data = (CCTK_CHAR *) GA->send_buffer [dir];
+      for (ii=istart; ii<iend; ii++)
+      {
+        char_data [xx++] = ((CCTK_CHAR *) GA->data) [ii];
+      }
+      break;
     
-  case CCTK_VARIABLE_COMPLEX:
-    complex_data = (CCTK_COMPLEX *) GA->send_buffer [dir];
-    for (ii=istart; ii<iend; ii++)
-    {
-      complex_data [xx++] = ((CCTK_COMPLEX *) GA->data) [ii];
-    }
-    break;
+    case CCTK_VARIABLE_INT:
+      int_data = (CCTK_INT *) GA->send_buffer [dir];
+      for (ii=istart; ii<iend; ii++)
+      {
+        int_data [xx++] = ((CCTK_INT *) GA->data) [ii];
+      }
+      break;
+      
+    case CCTK_VARIABLE_REAL:
+      real_data = (CCTK_REAL *) GA->send_buffer [dir];
+      for (ii=istart; ii<iend; ii++)
+      {
+        real_data [xx++] = ((CCTK_REAL *) GA->data) [ii];
+      }
+      break;
+      
+    case CCTK_VARIABLE_COMPLEX:
+      complex_data = (CCTK_COMPLEX *) GA->send_buffer [dir];
+      for (ii=istart; ii<iend; ii++)
+      {
+        complex_data [xx++] = ((CCTK_COMPLEX *) GA->data) [ii];
+      }
+      break;
   }
 }