diff options
| author | lanfer <lanfer@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-01-19 10:55:22 +0000 |
|---|---|---|
| committer | lanfer <lanfer@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-01-19 10:55:22 +0000 |
| commit | 28b8412721391c4880fa9aaf0b31c4099424e787 (patch) | |
| tree | 1416d9bb84770198502430d051f6bbf965ebd800 /src | |
| parent | 12a3fd5947450d85cc6f33347aa441205817d361 (diff) | |
the directional staggertypes are F aware, meaning the resulting type can be plugged into the arrays without further index mangling
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1275 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src')
| -rw-r--r-- | src/main/Stagger.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/main/Stagger.c b/src/main/Stagger.c index 5d1b93fa..56f7c174 100644 --- a/src/main/Stagger.c +++ b/src/main/Stagger.c @@ -108,6 +108,7 @@ void FMODIFIER FORTRAN_NAME(CCTK_DirStaggerCodeVal) ( int *dsc, int *dir, int *gsc) { *dsc = CCTK_DirStaggerCodeVal((*dir)-1, *gsc); + if ((*dsc)>=0) (*dsc)++; } @@ -135,12 +136,13 @@ int CCTK_DirStaggerCodeName(int dir, const char *stype) { return(scode); } -void FMODIFIER FORTRAN_NAME(CCTK_DirStaggerName) +void FMODIFIER FORTRAN_NAME(CCTK_DirStaggerCodeName) (int *ierr, int *dsc, int *dir, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE(sname); *ierr= 0; - *dsc = CCTK_DirStaggerCodeName(*dir,sname); + *dsc = CCTK_DirStaggerCodeName((*dir)-1,sname); + if ((*dsc)>=0) (*dsc)++; free(sname); } |