diff options
| author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-11-24 20:50:59 +0000 |
|---|---|---|
| committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-11-24 20:50:59 +0000 |
| commit | d475e8040a76eb7776eb5ed8f3f3edc0f417f6c7 (patch) | |
| tree | e377c6a035918a2ef81c2655946a11b27513e253 /src/comm | |
| parent | 1de5cce82d9fac333fba971bd5c19547c4d22abe (diff) | |
Removed tabs from files.
Added @version lines to various header files.
Tom
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1170 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/comm')
| -rw-r--r-- | src/comm/CactusDefaultComm.c | 48 | ||||
| -rw-r--r-- | src/comm/Reduction.c | 14 |
2 files changed, 31 insertions, 31 deletions
diff --git a/src/comm/CactusDefaultComm.c b/src/comm/CactusDefaultComm.c index f01e4af8..47eba601 100644 --- a/src/comm/CactusDefaultComm.c +++ b/src/comm/CactusDefaultComm.c @@ -27,19 +27,19 @@ extern char MPI_Active; #ifdef MPI #define CACTUS_MPI_ERROR(xf) do {int errcode; \ if((errcode = xf) != MPI_SUCCESS) \ - { \ - char mpi_error_string[MPI_MAX_ERROR_STRING+1]; \ - int resultlen; \ - MPI_Error_string(errcode, mpi_error_string, &resultlen);\ - fprintf(stderr, "MPI Call %s returned error code %d (%s)\n", \ + { \ + char mpi_error_string[MPI_MAX_ERROR_STRING+1]; \ + int resultlen; \ + MPI_Error_string(errcode, mpi_error_string, &resultlen);\ + fprintf(stderr, "MPI Call %s returned error code %d (%s)\n", \ #xf, errcode, mpi_error_string); \ - fprintf(stderr, "At line %d of file %s\n", \ - __LINE__, __FILE__); \ - } \ - } while (0) + fprintf(stderr, "At line %d of file %s\n", \ + __LINE__, __FILE__); \ + } \ + } while (0) #endif -static char *rcsid = "$Id$"; +static char *rcsid = "$Header$"; /*@@ @@ -119,20 +119,20 @@ cGH *CactusDefaultSetupGH(tFleshConfig *config, int convergence_level) { for(variable = 0; variable < n_variables; variable++) { - ntimelevels = CCTK_NumTimeLevelsFromVarI(variable); - - thisGH->data[variable] = (void **)malloc(ntimelevels*sizeof(void *)); - if(thisGH->data[variable]) - { - for(level = 0; level < ntimelevels; level++) - { - thisGH->data[variable][level] = NULL; - } - } - else - { - break; - } + ntimelevels = CCTK_NumTimeLevelsFromVarI(variable); + + thisGH->data[variable] = (void **)malloc(ntimelevels*sizeof(void *)); + if(thisGH->data[variable]) + { + for(level = 0; level < ntimelevels; level++) + { + thisGH->data[variable][level] = NULL; + } + } + else + { + break; + } } } diff --git a/src/comm/Reduction.c b/src/comm/Reduction.c index 1256fcdb..af5ca2a3 100644 --- a/src/comm/Reduction.c +++ b/src/comm/Reduction.c @@ -651,7 +651,7 @@ void FMODIFIER FORTRAN_NAME(CCTK_ReduceLocalScalar)(int *fortran_return, @author Gerd Lanfermann @desc Interface to the migthy CCTK_Reduce for - reduction of local 1D arrays. + reduction of local 1D arrays. @enddesc @calls @calledby @@ -663,12 +663,12 @@ void FMODIFIER FORTRAN_NAME(CCTK_ReduceLocalScalar)(int *fortran_return, int CCTK_ReduceLocalArray1D (cGH *GH, int proc, int operation_handle, - void *in_array1d, void *out_array1d, int num_in_array1d, - int data_type) + void *in_array1d, void *out_array1d, int num_in_array1d, + int data_type) { return (CCTK_ReduceArray (GH, proc, operation_handle, - num_in_array1d, data_type, out_array1d, - 1, 1, data_type, num_in_array1d, in_array1d)); + num_in_array1d, data_type, out_array1d, + 1, 1, data_type, num_in_array1d, in_array1d)); } void FMODIFIER FORTRAN_NAME(CCTK_ReduceLocalArray1D)(int *fortran_return, @@ -677,12 +677,12 @@ void FMODIFIER FORTRAN_NAME(CCTK_ReduceLocalArray1D)(int *fortran_return, int *operation_handle, void *in_array1d, void *out_array1d, - int *num_in_array1d, + int *num_in_array1d, int *data_type) { *fortran_return = CCTK_ReduceArray (GH, *proc, *operation_handle, *num_in_array1d, *data_type, out_array1d, - 1, 1, *data_type, *num_in_array1d, + 1, 1, *data_type, *num_in_array1d, in_array1d); } |