summaryrefslogtreecommitdiff
path: root/src/main/Coord.c
diff options
context:
space:
mode:
authorgoodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac>2000-01-27 18:56:31 +0000
committergoodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac>2000-01-27 18:56:31 +0000
commitca08c68ac75f62fb3750be571301c470136538f9 (patch)
tree9f16b2ee285a472827a69f7a28b456aaf4464ecd /src/main/Coord.c
parent3476a41713d8ba22e68990f9690ec12005298c89 (diff)
Untabified.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1312 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/main/Coord.c')
-rw-r--r--src/main/Coord.c52
1 files changed, 26 insertions, 26 deletions
diff --git a/src/main/Coord.c b/src/main/Coord.c
index 0d7f9d12..81c6cf9f 100644
--- a/src/main/Coord.c
+++ b/src/main/Coord.c
@@ -203,7 +203,7 @@ void FMODIFIER FORTRAN_NAME(CCTK_CoordRegisterI)(int *handle, int *dir, int *ind
@@*/
int CCTK_CoordRegister(int dir,
- const char *gfname,
+ const char *gfname,
const char *coordname)
{
@@ -227,8 +227,8 @@ int CCTK_CoordRegister(int dir,
}
void FMODIFIER FORTRAN_NAME(CCTK_CoordRegister)(int *handle,
- int *dir,
- TWO_FORTSTRINGS_ARGS)
+ int *dir,
+ TWO_FORTSTRINGS_ARGS)
{
TWO_FORTSTRINGS_CREATE(gf,name)
*handle = CCTK_CoordRegister(*dir, gf, name);
@@ -240,8 +240,8 @@ void FMODIFIER FORTRAN_NAME(CCTK_CoordRegister)(int *handle,
int CCTK_CoordRegisterRange(cGH *GH,
- CCTK_REAL min,
- CCTK_REAL max,
+ CCTK_REAL min,
+ CCTK_REAL max,
const char *coordname)
{
coord_range *newguy;
@@ -279,9 +279,9 @@ int CCTK_CoordRegisterRange(cGH *GH,
}
void FMODIFIER FORTRAN_NAME(CCTK_CoordRegisterRange)(cGH *GH,
- CCTK_REAL *lower,
- CCTK_REAL *upper,
- ONE_FORTSTRING_ARG)
+ CCTK_REAL *lower,
+ CCTK_REAL *upper,
+ ONE_FORTSTRING_ARG)
{
ONE_FORTSTRING_CREATE(name)
CCTK_CoordRegisterRange (GH,*lower,*upper,name);
@@ -389,9 +389,9 @@ void FMODIFIER FORTRAN_NAME(CCTK_CoordDir)(int *dir, ONE_FORTSTRING_ARG)
@@*/
int CCTK_CoordRange(cGH *GH,
- CCTK_REAL *lower,
- CCTK_REAL *upper,
- const char *name)
+ CCTK_REAL *lower,
+ CCTK_REAL *upper,
+ const char *name)
{
coord_range *curr;
@@ -409,7 +409,7 @@ int CCTK_CoordRange(cGH *GH,
#ifdef DEBUG_COORD
printf("Returning range (%f,%f) for %s (from %x)\n",
- *lower,*upper,name,curr);
+ *lower,*upper,name,curr);
#endif
return 0;
@@ -441,7 +441,7 @@ void FMODIFIER FORTRAN_NAME(CCTK_CoordRange)(int *ierr,
@author Gabrielle Allen
@desc
Returns the range of the coordinate on this processor
- For now this is done in a straightforward manner, assuming
+ For now this is done in a straightforward manner, assuming
that a regular grid is used and that the coordinate is a
Grid function.
@enddesc
@@ -461,9 +461,9 @@ void FMODIFIER FORTRAN_NAME(CCTK_CoordRange)(int *ierr,
@@*/
int CCTK_CoordLocalRange(cGH *GH,
- CCTK_REAL *lower,
- CCTK_REAL *upper,
- const char *name)
+ CCTK_REAL *lower,
+ CCTK_REAL *upper,
+ const char *name)
{
CCTK_REAL global_lower;
@@ -480,10 +480,10 @@ int CCTK_CoordLocalRange(cGH *GH,
}
void FMODIFIER FORTRAN_NAME(CCTK_CoordLocalRange)(int *ierr,
- cGH *GH,
- CCTK_REAL *lower,
- CCTK_REAL *upper,
- ONE_FORTSTRING_ARG)
+ cGH *GH,
+ CCTK_REAL *lower,
+ CCTK_REAL *upper,
+ ONE_FORTSTRING_ARG)
{
ONE_FORTSTRING_CREATE(name)
*ierr = CCTK_CoordLocalRange (GH,lower,upper,name);
@@ -570,17 +570,17 @@ void FMODIFIER FORTRAN_NAME(CCTK_RegisterCoord)(int *handle, int *dir, TWO_FORTS
}
int CCTK_RegisterCoordRange(cGH *GH,
- CCTK_REAL min,
- CCTK_REAL max,
+ CCTK_REAL min,
+ CCTK_REAL max,
const char *coordname)
{
return CCTK_CoordRegisterRange(GH,min,max,coordname);
}
void FMODIFIER FORTRAN_NAME(CCTK_RegisterCoordRange)(cGH *GH,
- CCTK_REAL *lower,
- CCTK_REAL *upper,
- ONE_FORTSTRING_ARG)
+ CCTK_REAL *lower,
+ CCTK_REAL *upper,
+ ONE_FORTSTRING_ARG)
{
ONE_FORTSTRING_CREATE(name)
CCTK_RegisterCoordRange (GH,*lower,*upper,name);
@@ -588,7 +588,7 @@ void FMODIFIER FORTRAN_NAME(CCTK_RegisterCoordRange)(cGH *GH,
}
int CCTK_RegisterCoord(int dir,
- const char *gfname,
+ const char *gfname,
const char *coordname)
{
return CCTK_CoordRegister(dir,gfname,coordname);