diff options
author | goodale <goodale@b61c5cb5-eaca-4651-9a7a-d64986f99364> | 2000-02-17 17:38:50 +0000 |
---|---|---|
committer | goodale <goodale@b61c5cb5-eaca-4651-9a7a-d64986f99364> | 2000-02-17 17:38:50 +0000 |
commit | c06576a3bcd5cace72592c6041e6fb2827ffbff6 (patch) | |
tree | 5565cc938c0841bcf8372b15496b72b6b98b221f /src/FinishReceiveGA.c | |
parent | 539cd2636da010382f41c9ff1ba237ec080e5341 (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.c | 70 |
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; |