src/AHFinder_2dio.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#include "cctk.h"

static const char *rcsid = "$Header$";

CCTK_FILEVERSION(CactusEinstein_AHFinder_AHFinder_2dio_c)

void CCTK_FCALL CCTK_FNAME(ahfinder_2dio_,
                            AHFINDER_2DIO,
                            ahfinder_2dio)
     (Double *x,int *new_do_2dio)
{
  pGF *GF;

  GF = locateGFbyDataPtr(x);
  GF->do_2dio = *new_do_2dio;
}