casa6

//-*- C++ -*-

#define NEED_UNDERSCORES

#if defined(NEED_UNDERSCORES)

#define gpbwproj gpbwproj_

#define dpbwproj dpbwproj_

#define dpbwgrad dpbwgrad_

#endif

  extern "C" { 

    void gpbwproj(const Double *uvw,

          const Double *dphase,

          const Complex *values,

          Int *nvispol,

          Int *nvischan,

          Int *dopsf,

          const Int *flag,

          const Int *rflag,

          const Float *weight,

          Int *nrow,

          Int *rownum,

          const Double *scale,

          const Double *offset,

          const Complex *grid,

          Int *nx,

          Int *ny,

          Int *npol,

          Int *nchan,

          const Double *freq,

          const Double *c,

          const Int *support,

          const Int *convsize,

          Int *sampling,

          Int *wconvsize,

          Complex *convfunc,

          const Int *chanmap,

          const Int *polmap,

          const Int *polused,

          const Double *sumwt,

          const Int *ant1,

          const Int *ant2,

          const Int *nant,

          Int *scanno,

          Double *sigma,

          Float *raoff,

          Float *decoff,

          Double *area,

          Int *doGrad,

          Int *doPointingCorrection,

          Int *nPA,

          Int *paIndex,

          Int *CFMap,

          Int *ConjCFMap,

          Double *currentCFPA, Double *actualPA,Double *cfRefFreq_p);

    void dpbwproj(const Double *uvw,

          const Double *dphase,

          Complex *values,

          Int *nvispol,

          Int *nvischan,

          const Int *flag,

          const Int *rflag,

          Int *nrow,

          Int *rownum,

          const Double *scale,