aboutsummaryrefslogtreecommitdiff
path: root/src/FinishReceiveGA.c
diff options
context:
space:
mode:
authorgoodale <goodale@b61c5cb5-eaca-4651-9a7a-d64986f99364>2000-02-17 17:38:50 +0000
committergoodale <goodale@b61c5cb5-eaca-4651-9a7a-d64986f99364>2000-02-17 17:38:50 +0000
commitc06576a3bcd5cace72592c6041e6fb2827ffbff6 (patch)
tree5565cc938c0841bcf8372b15496b72b6b98b221f /src/FinishReceiveGA.c
parent539cd2636da010382f41c9ff1ba237ec080e5341 (diff)
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
Diffstat (limited to 'src/FinishReceiveGA.c')
-rw-r--r--src/FinishReceiveGA.c70
1 files changed, 47 insertions, 23 deletions
diff --git a/src/FinishReceiveGA.c b/src/FinishReceiveGA.c
index 5648b4b..5b954bd 100644
--- a/src/FinishReceiveGA.c
+++ b/src/FinishReceiveGA.c
@@ -7,7 +7,7 @@
function. Critically linked with @seefile pGA_PostRecv.c
and @seefile pGA_PostSend.c
@enddesc
- @version $Id$
+ @version $Header$
@@*/
/*#define DEBUG_PUGH*/
@@ -20,7 +20,7 @@
void FinishReceiveGA3(pGH *GH, pGA *GA, int dir);
void FinishReceiveGA1(pGH *GH, pGA *GA, int dir);
-static char *rcsid = "$Id$";
+static char *rcsid = "$Header$";
/*@@
@routine FinishReceiveGA
@@ -113,38 +113,62 @@ void FinishReceiveGA3(pGH *GH,pGA *GA,int dir)
{
case CCTK_VARIABLE_CHAR:
char_data = (CCTK_CHAR *) GA->data;
- for (kk=kstart; kk<kend; kk++)
- for (jj=jstart; jj<jend; jj++)
- for (ii=istart; ii<iend; ii++)
- char_data [DATINDEX (GA->extras,ii,jj,kk)] =
- ((CCTK_CHAR *) GA->recv_buffer[dir]) [xx++];
+ for (kk=kstart; kk<kend; kk++)
+ {
+ for (jj=jstart; jj<jend; jj++)
+ {
+ for (ii=istart; ii<iend; ii++)
+ {
+ char_data [DATINDEX (GA->extras,ii,jj,kk)] =
+ ((CCTK_CHAR *) GA->recv_buffer[dir]) [xx++];
+ }
+ }
+ }
break;
case CCTK_VARIABLE_INT:
int_data = (CCTK_INT *) GA->data;
for (kk=kstart; kk<kend; kk++)
- for (jj=jstart; jj<jend; jj++)
- for (ii=istart; ii<iend; ii++)
- int_data [DATINDEX (GA->extras,ii,jj,kk)] =
- ((CCTK_INT *) GA->recv_buffer[dir]) [xx++];
+ {
+ for (jj=jstart; jj<jend; jj++)
+ {
+ for (ii=istart; ii<iend; ii++)
+ {
+ int_data [DATINDEX (GA->extras,ii,jj,kk)] =
+ ((CCTK_INT *) GA->recv_buffer[dir]) [xx++];
+ }
+ }
+ }
break;
case CCTK_VARIABLE_REAL:
real_data = (CCTK_REAL *) GA->data;
for (kk=kstart; kk<kend; kk++)
- for (jj=jstart; jj<jend; jj++)
- for (ii=istart; ii<iend; ii++)
- real_data [DATINDEX (GA->extras,ii,jj,kk)] =
- ((CCTK_REAL *) GA->recv_buffer[dir]) [xx++];
+ {
+ for (jj=jstart; jj<jend; jj++)
+ {
+ for (ii=istart; ii<iend; ii++)
+ {
+ real_data [DATINDEX (GA->extras,ii,jj,kk)] =
+ ((CCTK_REAL *) GA->recv_buffer[dir]) [xx++];
+ }
+ }
+ }
break;
case CCTK_VARIABLE_COMPLEX:
complex_data = (CCTK_COMPLEX *) GA->data;
for (kk=kstart; kk<kend; kk++)
- for (jj=jstart; jj<jend; jj++)
- for (ii=istart; ii<iend; ii++)
- complex_data [DATINDEX (GA->extras,ii,jj,kk)] =
- ((CCTK_COMPLEX *) GA->recv_buffer[dir]) [xx++];
+ {
+ for (jj=jstart; jj<jend; jj++)
+ {
+ for (ii=istart; ii<iend; ii++)
+ {
+ complex_data [DATINDEX (GA->extras,ii,jj,kk)] =
+ ((CCTK_COMPLEX *) GA->recv_buffer[dir]) [xx++];
+ }
+ }
+ }
break;
default:
@@ -176,7 +200,7 @@ void FinishReceiveGA1(pGH *GH,pGA *GA,int dir)
char_data = (CCTK_CHAR *) GA->data;
for (ii=istart; ii<iend; ii++)
{
- char_data [ii] = ((CCTK_CHAR *)GA->recv_buffer[dir])[xx++];
+ char_data [ii] = ((CCTK_CHAR *)GA->recv_buffer[dir])[xx++];
}
break;
@@ -184,7 +208,7 @@ void FinishReceiveGA1(pGH *GH,pGA *GA,int dir)
int_data = (CCTK_INT *) GA->data;
for (ii=istart; ii<iend; ii++)
{
- int_data [ii] = ((CCTK_INT *)GA->recv_buffer[dir])[xx++];
+ int_data [ii] = ((CCTK_INT *)GA->recv_buffer[dir])[xx++];
}
break;
@@ -192,7 +216,7 @@ void FinishReceiveGA1(pGH *GH,pGA *GA,int dir)
real_data = (CCTK_REAL *) GA->data;
for (ii=istart; ii<iend; ii++)
{
- real_data [ii] = ((CCTK_REAL *)GA->recv_buffer[dir])[xx++];
+ real_data [ii] = ((CCTK_REAL *)GA->recv_buffer[dir])[xx++];
}
break;
@@ -200,7 +224,7 @@ void FinishReceiveGA1(pGH *GH,pGA *GA,int dir)
complex_data = (CCTK_COMPLEX *) GA->data;
for (ii=istart; ii<iend; ii++)
{
- complex_data [ii] = ((CCTK_COMPLEX *)GA->recv_buffer[dir])[xx++];
+ complex_data [ii] = ((CCTK_COMPLEX *)GA->recv_buffer[dir])[xx++];
}
break;