src/Overloadables.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

#include "cctk.h"
#include "pugh.h"

int PUGH_GroupDynamicData(cGH *cctkGH, int group,cGroupDynamicData *data)
{
  int var;
  pGH *mypGH;
  pGExtras *extras;

  mypGH = PUGH_pGH(cctkGH);

  /* Get the first variable in the group */
  var = CCTK_FirstVarIndexI(group);

  extras = ((pGA ***)(mypGH->variables))[var][0]->extras; 

  data->dim         = extras->dim; 
  data->lsh         = extras->lnsize;
  data->gsh         = extras->nsize;
  data->lbnd        = extras->lb[mypGH->myproc];
  data->ubnd        = extras->ub[mypGH->myproc];
  data->nghostzones = extras->nghostzones;
  data->bbox        = extras->bbox;

  return 0;

}