diff options
Diffstat (limited to 'src/Overloadables.c')
-rw-r--r-- | src/Overloadables.c | 39 |
1 files changed, 15 insertions, 24 deletions
diff --git a/src/Overloadables.c b/src/Overloadables.c index ebb2551..ac70e9a 100644 --- a/src/Overloadables.c +++ b/src/Overloadables.c @@ -22,7 +22,6 @@ CCTK_FILEVERSION(CactusPUGH_PUGH_Overloadables_c) @date 2000/06/22 @desc Returns the driver's internal data for a given group - of CCTK_GF or CCTK_ARRAY variables @enddesc @calls CCTK_GroupTypeI CCTK_FirstVarIndexI @@ -47,7 +46,6 @@ CCTK_FILEVERSION(CactusPUGH_PUGH_Overloadables_c) @returndesc 0 for success <BR> -1 if given pointer to data structure is NULL <BR> - -2 if given group is not of type CCTK_GF or CCTK_ARRAY <BR> -3 if given GH pointer is invalid @endreturndesc @@*/ @@ -62,34 +60,27 @@ int PUGH_GroupDynamicData (const cGH *GH, int group, cGroupDynamicData *data) if (data) { gtype = CCTK_GroupTypeI (group); - if (gtype == CCTK_GF || gtype == CCTK_ARRAY) - { - /* Get the first variable in the group */ - var = CCTK_FirstVarIndexI (group); + /* Get the first variable in the group */ + var = CCTK_FirstVarIndexI (group); - pughGH = PUGH_pGH (GH); - if (pughGH) - { - extras = ((pGA ***) pughGH->variables)[var][0]->extras; + pughGH = PUGH_pGH (GH); + if (pughGH) + { + extras = ((pGA ***) pughGH->variables)[var][0]->extras; - data->dim = extras->dim; - data->lsh = extras->lnsize; - data->gsh = extras->nsize; - data->lbnd = extras->lb[pughGH->myproc]; - data->ubnd = extras->ub[pughGH->myproc]; - data->nghostzones = extras->nghostzones; - data->bbox = extras->bbox; + data->dim = extras->dim; + data->lsh = extras->lnsize; + data->gsh = extras->nsize; + data->lbnd = extras->lb[pughGH->myproc]; + data->ubnd = extras->ub[pughGH->myproc]; + data->nghostzones = extras->nghostzones; + data->bbox = extras->bbox; - retval = 0; - } - else - { - retval = -3; - } + retval = 0; } else { - retval = -2; + retval = -3; } } else |