#include "cs.h"
typedef struct {

  OPDS h;

  MYFLT *aout;
  MYFLT *kamp;

  MYFLT *kpch;

  MYFLT *kcx, *kcy;
  MYFLT *krx, *kry;

  MYFLT *i_tabx, *i_taby;
/* Internals */

  MYFLT *xarr, *yarr;

  AUXCH aux_x, aux_y;
  
  MYFLT sizx, sizy;
  MYFLT theta;

} WAVETER;

typedef struct {

  OPDS h;

  MYFLT *isrc;
  MYFLT *idst;
  MYFLT *ipos;
  MYFLT *imode;

  /* imode:
     0 : dest = src
     1 : dest = dest + src/imode
  */

} SCANHAMMER;

typedef struct {

  OPDS h;

  MYFLT *aout;
  MYFLT *kamp;
  MYFLT *kpch;
  MYFLT *i_point;
  MYFLT *i_mass;
  MYFLT *i_stiff;
  MYFLT *i_damp;
  MYFLT *i_vel;

/* End of arguments */

  AUXCH newloca;
  AUXCH newvela;
  MYFLT *newloc, *newvel;
  MYFLT size;

  MYFLT pos;

} SCANTABLE;
