prd_service_f.hpp

/* prd_service_f.hpp */
/* $Id: prd_service_f.hpp 21022 2011-07-11 11:45:03Z urij $ */
#ifndef __prd_service_f_hpp
#define __prd_service_f_hpp


extern "C" {
  
  extern void Fortran(acfavg)(float *trace, int *icount,
                  float *tacf, float *tacfsym, int *isize,
                  int *inum, int *ishift,
                  int *inorm, int *ierr);
  
  extern void Fortran(acf)(float *trace, int *icount, float *tacf,
               int *isize, int *ishift, int *inorm, int *ierr);
  
  extern int Fortran(sz2)(int *in);
  
  extern void Fortran(degreeof2)(int *in, int *io, int *ierr);
  
  extern void Fortran(fourt)(float *data, int *nn, int *ndim, int *isign, int *iform,float *work);
  
  extern void Fortran(convolution)(float *tout, float *tin1, float *tin2, int *icount, float *workBuf, int *ierr);
  
  extern void Fortran(convolutiond)(float *tout, float *tin1, double *tin2, int *icount, float *workBuf, int *ierr);
  
};



#endif /* prd_service_f.hpp */