From 28b8412721391c4880fa9aaf0b31c4099424e787 Mon Sep 17 00:00:00 2001 From: lanfer Date: Wed, 19 Jan 2000 10:55:22 +0000 Subject: 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 --- src/main/Stagger.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src') 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); } -- cgit v1.2.3