src/AHFinder_2dio.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#include "cctk.h"

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

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