Subcor.h

#ifndef __SUBCOR_h
#define __SUBCOR_h

#include <ldb/vsp_trace.h>

/* ¼ÐÚàÞá ÔÛï ÞßàÕÔÕÛÕÝØï æÕÝâàÐÛìÝÞÙ âàÐááë */
#define MIDDLE(x)   ((int)( ((x) & 0x01) ? (x)/2+1 : (x)/2) )
#define MID_OFS(x)  (MIDDLE(x) - 1)

/***************************** Returned code ********************************/
#define pkOK      0
#define pkONE     1 /*½ØçÕÓÞ ÝÕ áãÜÜØàÞÒÐÛÞáì â.Ú.ÒáÕÓÞ ÞÔÝÐ "åÞà" âàÐááÐ*/
#define pkFAIL   -1
#define pkINVAL  -2
#define pkNO_MEM -3

/* âØß ÔØáÚàÕâÐ */
typedef float ONE_SAMPLE ;

/* âØß ÔÛï åàÐÝÕÝØï Ø ßÕàÕÔÐçØ ÒåÞÔÝëå ßÐàÐÜÕâàÞÒ */
typedef struct _InputParam {
        int   MTR;   /* ±Ð×Ð ÞÑàÐÑÞâÚØ (çØáÛÞ âàÐáá) */
    float NZ ;   /* ÁÜÕéÕÝØÕ ÛÕÒÞÙ ÓàÐÝØæë ÞÚÝÐ ÐÝÐÛØ×Ð ÒÛÕÒÞ               Þâ ÒàÕÜÕÝØ ßÕàÒÞÓÞ ÒáâãßÛÕÝØï, ms */
    float LDP;   /*  ´ÛØÝÐ ÞÚÝÐ ÐÝÐÛØ×Ð Ò âàÐááÕ, ÞâáçÕâë*/
        float CFP;   /*  ¿àÕÔÕÛìÝÞ ÔÞßãáâØÜëÙ áÔÒØÓ, ÞâáçÕâë */
        float porFM; /* Threshold similarity for elimination at correlation */
        int   ALG;   /* ÐÛÓÞàØâÜ áãÜÜØà.: 0-Polycor,1-lin,2-median */
    int   LE ;   /* íÛÕÜÕÝâÐpÝÐï ÑÐ×Ð pÐáçÕâÐ ÒÕáÞÒ, ms  */
    int   KLE;   /* çØáÛÞ íÛÕÜÕÝâÐpÝëå ÑÐ× LE Ò áÚÞÛì×ïéÕÜ
            ØÝâÕpÒÐÛÕ /çÕâÝÞÕ çØáÛÞ/ */
    float PE ;   /* ÚÞíä-â ãçÕâÐ ÒÕáÞÒ ßÞ ßÞÔÞÑØî Ø íÝÕpÓØØ
             Ò áÞÒÞÚãßÝÞÙ ÒÕáÞÒÞÙ äãÝÚæØØ */
        int TrQuant;   /* çØáÛÞ ÞÑàÐÑÐâëÒÐÕÜëå âàÐáá */
        float HcabBeg; /* ½Ðç. ÓÛãÑØÝÐ ØÝâ-ÛÐ ÞÑàÐÑÞâÚØ*/
        float HcabEnd; /* ºÞÝÕç. ÓÛãÑØÝÐ ØÝâ-ÛÐ ÞÑàÐÑÞâÚØ*/
        float LeftW;  /* ÁÜÕé. ÝÐç. ÞÚÝÐ ÒëçØâ. ÒÛÕÒÞ Þâ ÐßàØÞà. ÓÞÔÞÓ. (Üá)*/
        float LenW; /* Length of Subtraction Window */
        int   QTR;  /* Quantity trace in sliding base */
        float TSE;  /* Threshold similarity for elimination at selection */
          /*-- Parameters of energy filter at stacking by POLYCOR method --*/
        float SCW;  /* percent of elimination trace by energy (0<=PE<1) */
        float WLE;  /* shift of average median estimation of energy */
        float WLB;  /* left part of filter bandwidth */
        float WRE;  /* left slope of filter */
        float WRB;  /* right part of filter bandwidth */

        float NFP;       /* length of CCF */
        float Dmed;      /* part of eliminated amplitude at median stacking */
        float WeightWin; /* size of weight function in ms */
        float AKG;
        float URD;
} InputParam;

/* âØß ÔÛï åàÐÝÕÝØï Ø ßÕàÕÔÐçØ âàÐáá ÝÐÚÞßÛÕÝØï Ø ØÝäÞàÜÐæØØ Þ ÝØå */
typedef unsigned char bfType;          /* âØß ÔÛï ÑØâÞÒëå äÛÐÓÞÒ */

typedef struct _Trace4Stack{
        TrHeader             *hdr;     /* ãÚÐ×ÐâÕÛì ÝÐ ×ÐÓÞÛÞÒÞÚØ */
        unsigned int       hdrSize;    /* àÐ×ÜÕà ×ÐÓÞÛÞÒÚÐ Ò áÛÞÒÐå */
    ONE_SAMPLE       *ptr;         /* ãÚÐ×ÐâÕÛì ÝÐ ÞÑàÐÑÐâ. âàÐááë */
        float            *pstr;        /* ãÚ-Ûì ÝÐ ÝÐÑÞà âà., ÒëÒÕÔ. ÝÐ ÒÕàâ.*/
        float            *pptr;        /* ãÚ-Ûì ÝÐ ÝÐÑÞà PRT âàÐáá */
        float            *potr;        /* ãÚ-Ûì ÝÐ ØáåÞÔ. âàÐááë(ÔÛï ÚÞÜÑ.â.)*/
        unsigned int     cntSamples;   /* ÚÞÛØçÕáâÒÞ ÞâáçÕâÞÒ Ò âàÐááÕ */
        float *hodog;                  /* ÒàÕÜï ÓÞÔÞÓàÐäÐ ÒÞÛÝë .*/
        float *interShift;             /* ßÞÛÝëÕ ÞâÝÞáØâ.áÔÒØÓØ ÞâÝ æÕÝâà.*/
    float *shifts;                 /* ãâÞçÝÕÝØÕ áÔÒØÓÞÒ ÜÕÖÔã áÞáÕÔ.âà. */
    float *aprShift;           /* ÐßàØÞàÝëÕ áÔÒØÓØ ÜÕÖÔã áÞáÕÔ. âà.*/
    float *qual;               /* âÐÑÛØæÐ ÚÞíä. ÚÐçÕáâÒÐ */
        float *ampl;                   /* âÐÑÛ. ÞæÕÝÞÚ ÞâÝÞáØâ. ÐÜßÛ.*/
        float *energy;                 /* âÐÑÛ. ÞæÕÝÞÚ íÝÕàÓØÙ */
        int    cnt;                    /* ÚÞÛØçÕáâÒÞ âàÐáá */
    int    subcorCnt;              /* ÚÞÛØçÕáâÒÞ ßàÞèÕÔèØå subcor'ÞÒ*/
        ONE_SAMPLE       *outTrace;    /* ÒëåÞÔÝÐï ÜÞÔÕÛìÝÐï âàÐááÐ */
        ONE_SAMPLE       *outSubTrace; /* ÒëåÞÔÝÐï âàÐááÐ ÞáâÐâÚÞÒ */
    bfType flags;              /* ÑØâÞÒëÕ äÛÐÓØ áâÐÔØØ ßàÞæÕááÐ ÞÑà.*/
        float *Hcab;                   /* list of previous cable depthes */
        int *divFac;                   /* list of divisible factor */
} Trace4Stack;

typedef struct _SizeFFT{
  int ideg;
  int cntTr2;
  int cntSp;
} SizeFFT;

typedef struct {
  int fMedFil;
  double *spFilOp;
  SizeFFT lenFFT;
} MedFilter;


#endif /* __SUBCOR_h */

                Þâ ÒàÕÜÕÝØ ßÕàÒÞÓÞ ÒáâãßÛÕÝØï, ms */
    float LDP;   /*  ´ÛØÝÐ ÞÚÝÐ ÐÝÐÛØ×Ð Ò âàÐááÕ, ÞâáçÕâë/
        float CFP;   /*  ¿àÕÔÕÛìÝÞ ÔÞßãáâØÜëÙ áÔÒØÓ, ÞâáçÕâë */
        float porFM; /* Threshold similarity for elimination at correlation */
        int   ALG;   /* ÐÛÓÞàØâÜ áãÜÜØà.: 0-Polycor,1-lin,2-median */
    int   LE ;   /* íÛÕÜÕÝâÐpÝÐï ÑÐ×Ð pÐáçÕâÐ ÒÕáÞÒ, ms  */
    int   KLE;   /* çØáÛÞ íÛÕÜÕÝâÐpÝëå ÑÐ× LE Ò áÚÞÛì×ïéÕÜ
            ØÝâÕpÒÐÛÕ /çÕâÝÞÕ çØáÛÞ/ */
    float PE ;   /* ÚÞíä-â ãçÕâÐ ÒÕáÞÒ ßÞ ßÞÔÞÑØî Ø íÝÕpÓØØ
             Ò áÞÒÞÚãßÝÞÙ ÒÕáÞÒÞÙ äãÝÚæØØ */
        int TrQuant;   /* çØáÛÞ ÞÑàÐÑÐâëÒÐÕÜëå âàÐáá */
        float HcabBeg; /* ½Ðç. ÓÛãÑØÝÐ ØÝâ-ÛÐ ÞÑàÐÑÞâÚØ*/
        float HcabEnd; /* ºÞÝÕç. ÓÛãÑØÝÐ ØÝâ-ÛÐ ÞÑàÐÑÞâÚØ*/
        float LeftW;  /* ÁÜÕé. ÝÐç. ÞÚÝÐ ÒëçØâ. ÒÛÕÒÞ Þâ ÐßàØÞà. ÓÞÔÞÓ. (Üá)*/
        float LenW; /* Length of Subtraction Window */
        int   QTR;  /* Quantity trace in sliding base */
        float TSE;  /* Threshold similarity for elimination at selection */
          /*-- Parameters of energy filter at stacking by POLYCOR method --*/
        float SCW;  /* percent of elimination trace by energy (0<=PE<1) */
        float WLE;  /* shift of average median estimation of energy */
        float WLB;  /* left part of filter bandwidth */
        float WRE;  /* left slope of filter */
        float WRB;  /* right part of filter bandwidth */

        float NFP;       /* length of CCF */
        float Dmed;      /* part of eliminated amplitude at median stacking */
        float WeightWin; /* size of weight function in ms */
        float AKG;
        float URD;
} InputParam;

/* âØß ÔÛï åàÐÝÕÝØï Ø ßÕàÕÔÐçØ âàÐáá ÝÐÚÞßÛÕÝØï Ø ØÝäÞàÜÐæØØ Þ ÝØå */
typedef unsigned char bfType;          /* âØß ÔÛï ÑØâÞÒëå äÛÐÓÞÒ */

typedef struct _Trace4Stack{
        TrHeader             *hdr;     /* ãÚÐ×ÐâÕÛì ÝÐ ×ÐÓÞÛÞÒÞÚØ */
        unsigned int       hdrSize;    /* àÐ×ÜÕà ×ÐÓÞÛÞÒÚÐ Ò áÛÞÒÐå */
    ONE_SAMPLE       *ptr;         /* ãÚÐ×ÐâÕÛì ÝÐ ÞÑàÐÑÐâ. âàÐááë */
        float            *pstr;        /* ãÚ-Ûì ÝÐ ÝÐÑÞà âà., ÒëÒÕÔ. ÝÐ ÒÕàâ.*/
        float            *pptr;        /* ãÚ-Ûì ÝÐ ÝÐÑÞà PRT âàÐáá */
        float            *potr;        /* ãÚ-Ûì ÝÐ ØáåÞÔ. âàÐááë(ÔÛï ÚÞÜÑ.â.)*/
        unsigned int     cntSamples;   /* ÚÞÛØçÕáâÒÞ ÞâáçÕâÞÒ Ò âàÐááÕ */
        float *hodog;                  /* ÒàÕÜï ÓÞÔÞÓàÐäÐ ÒÞÛÝë .*/
        float *interShift;             /* ßÞÛÝëÕ ÞâÝÞáØâ.áÔÒØÓØ ÞâÝ æÕÝâà.*/
    float *shifts;                 /* ãâÞçÝÕÝØÕ áÔÒØÓÞÒ ÜÕÖÔã áÞáÕÔ.âà. */
    float *aprShift;           /* ÐßàØÞàÝëÕ áÔÒØÓØ ÜÕÖÔã áÞáÕÔ. âà.*/
    float *qual;               /* âÐÑÛØæÐ ÚÞíä. ÚÐçÕáâÒÐ */
        float *ampl;                   /* âÐÑÛ. ÞæÕÝÞÚ ÞâÝÞáØâ. ÐÜßÛ.*/
        float *energy;                 /* âÐÑÛ. ÞæÕÝÞÚ íÝÕàÓØÙ */
        int    cnt;                    /* ÚÞÛØçÕáâÒÞ âàÐáá */
    int    subcorCnt;              /* ÚÞÛØçÕáâÒÞ ßàÞèÕÔèØå subcor'ÞÒ*/
        ONE_SAMPLE       *outTrace;    /* ÒëåÞÔÝÐï ÜÞÔÕÛìÝÐï âàÐááÐ */
        ONE_SAMPLE       *outSubTrace; /* ÒëåÞÔÝÐï âàÐááÐ ÞáâÐâÚÞÒ */
    bfType flags;              /* ÑØâÞÒëÕ äÛÐÓØ áâÐÔØØ ßàÞæÕááÐ ÞÑà.*/
        float *Hcab;                   /* list of previous cable depthes */
        int *divFac;                   /* list of divisible factor */
} Trace4Stack;

typedef struct _SizeFFT{
  int ideg;
  int cntTr2;
  int cntSp;
} SizeFFT;

typedef struct {
  int fMedFil;
  double *spFilOp;
  SizeFFT lenFFT;
} MedFilter;


#endif /* __SUBCOR_h */
*/
        float CFP;   /*  ¿àÕÔÕÛìÝÞ ÔÞßãáâØÜëÙ áÔÒØÓ, ÞâáçÕâë */
        float porFM; /* Threshold similarity for elimination at correlation */
        int   ALG;   /* ÐÛÓÞàØâÜ áãÜÜØà.: 0-Polycor,1-lin,2-median */
    int   LE ;   /* íÛÕÜÕÝâÐpÝÐï ÑÐ×Ð pÐáçÕâÐ ÒÕáÞÒ, ms  */
    int   KLE;   /* çØáÛÞ íÛÕÜÕÝâÐpÝëå ÑÐ× LE Ò áÚÞÛì×ïéÕÜ
            ØÝâÕpÒÐÛÕ /çÕâÝÞÕ çØáÛÞ/ */
    float PE ;   /* ÚÞíä-â ãçÕâÐ ÒÕáÞÒ ßÞ ßÞÔÞÑØî Ø íÝÕpÓØØ             Ò áÞÒÞÚãßÝÞÙ ÒÕáÞÒÞÙ äãÝÚæØØ */
        int TrQuant;   /* çØáÛÞ ÞÑàÐÑÐâëÒÐÕÜëå âàÐáá */
        float HcabBeg; /* ½Ðç. ÓÛãÑØÝÐ ØÝâ-ÛÐ ÞÑàÐÑÞâÚØ*/
        float HcabEnd; /* ºÞÝÕç. ÓÛãÑØÝÐ ØÝâ-ÛÐ ÞÑàÐÑÞâÚØ*/
        float LeftW;  /* ÁÜÕé. ÝÐç. ÞÚÝÐ ÒëçØâ. ÒÛÕÒÞ Þâ ÐßàØÞà. ÓÞÔÞÓ. (Üá)*/
        float LenW; /* Length of Subtraction Window */
        int   QTR;  /* Quantity trace in sliding base */
        float TSE;  /* Threshold similarity for elimination at selection */
          /*-- Parameters of energy filter at stacking by POLYCOR method --*/
        float SCW;  /* percent of elimination trace by energy (0<=PE<1) */
        float WLE;  /* shift of average median estimation of energy */
        float WLB;  /* left part of filter bandwidth */
        float WRE;  /* left slope of filter */
        float WRB;  /* right part of filter bandwidth */

        float NFP;       /* length of CCF */
        float Dmed;      /* part of eliminated amplitude at median stacking */
        float WeightWin; /* size of weight function in ms */
        float AKG;
        float URD;
} InputParam;

/* âØß ÔÛï åàÐÝÕÝØï Ø ßÕàÕÔÐçØ âàÐáá ÝÐÚÞßÛÕÝØï Ø ØÝäÞàÜÐæØØ Þ ÝØå */
typedef unsigned char bfType;          /* âØß ÔÛï ÑØâÞÒëå äÛÐÓÞÒ */

typedef struct _Trace4Stack{
        TrHeader             *hdr;     /* ãÚÐ×ÐâÕÛì ÝÐ ×ÐÓÞÛÞÒÞÚØ */
        unsigned int       hdrSize;    /* àÐ×ÜÕà ×ÐÓÞÛÞÒÚÐ Ò áÛÞÒÐå */
    ONE_SAMPLE       *ptr;         /* ãÚÐ×ÐâÕÛì ÝÐ ÞÑàÐÑÐâ. âàÐááë */
        float            *pstr;        /* ãÚ-Ûì ÝÐ ÝÐÑÞà âà., ÒëÒÕÔ. ÝÐ ÒÕàâ.*/
        float            *pptr;        /* ãÚ-Ûì ÝÐ ÝÐÑÞà PRT âàÐáá */
        float            *potr;        /* ãÚ-Ûì ÝÐ ØáåÞÔ. âàÐááë(ÔÛï ÚÞÜÑ.â.)*/
        unsigned int     cntSamples;   /* ÚÞÛØçÕáâÒÞ ÞâáçÕâÞÒ Ò âàÐááÕ */
        float *hodog;                  /* ÒàÕÜï ÓÞÔÞÓàÐäÐ ÒÞÛÝë .*/
        float *interShift;             /* ßÞÛÝëÕ ÞâÝÞáØâ.áÔÒØÓØ ÞâÝ æÕÝâà.*/
    float *shifts;                 /* ãâÞçÝÕÝØÕ áÔÒØÓÞÒ ÜÕÖÔã áÞáÕÔ.âà. */
    float *aprShift;           /* ÐßàØÞàÝëÕ áÔÒØÓØ ÜÕÖÔã áÞáÕÔ. âà.*/
    float *qual;               /* âÐÑÛØæÐ ÚÞíä. ÚÐçÕáâÒÐ */
        float *ampl;                   /* âÐÑÛ. ÞæÕÝÞÚ ÞâÝÞáØâ. ÐÜßÛ.*/
        float *energy;                 /* âÐÑÛ. ÞæÕÝÞÚ íÝÕàÓØÙ */
        int    cnt;                    /* ÚÞÛØçÕáâÒÞ âàÐáá */
    int    subcorCnt;              /* ÚÞÛØçÕáâÒÞ ßàÞèÕÔèØå subcor'ÞÒ*/
        ONE_SAMPLE       *outTrace;    /* ÒëåÞÔÝÐï ÜÞÔÕÛìÝÐï âàÐááÐ */
        ONE_SAMPLE       *outSubTrace; /* ÒëåÞÔÝÐï âàÐááÐ ÞáâÐâÚÞÒ */
    bfType flags;              /* ÑØâÞÒëÕ äÛÐÓØ áâÐÔØØ ßàÞæÕááÐ ÞÑà.*/
        float *Hcab;                   /* list of previous cable depthes */
        int *divFac;                   /* list of divisible factor */
} Trace4Stack;

typedef struct _SizeFFT{
  int ideg;
  int cntTr2;
  int cntSp;
} SizeFFT;

typedef struct {
  int fMedFil;
  double *spFilOp;
  SizeFFT lenFFT;
} MedFilter;


#endif /* __SUBCOR_h */

                Ò áÞÒÞÚãßÝÞÙ ÒÕáÞÒÞÙ äãÝÚæØØ */
        int TrQuant;   /* çØáÛÞ ÞÑàÐÑÐâëÒÐÕÜëå âàÐáá */
        float HcabBeg; /* ½Ðç. ÓÛãÑØÝÐ ØÝâ-ÛÐ ÞÑàÐÑÞâÚØ*/
        float HcabEnd; /* ºÞÝÕç. ÓÛãÑØÝÐ ØÝâ-ÛÐ ÞÑàÐÑÞâÚØ*/
        float LeftW;  /* ÁÜÕé. ÝÐç. ÞÚÝÐ ÒëçØâ. ÒÛÕÒÞ Þâ ÐßàØÞà. ÓÞÔÞÓ. (Üá)*/
        float LenW; /* Length of Subtraction Window */
        int   QTR;  /* Quantity trace in sliding base */
        float TSE;  /* Threshold similarity for elimination at selection */
          /*-- Parameters of energy filter at stacking by POLYCOR method --*/
        float SCW;  /* percent of elimination trace by energy (0<=PE<1) */
        float WLE;  /* shift of average median estimation of energy */
        float WLB;  /* left part of filter bandwidth */
        float WRE;  /* left slope of filter */
        float WRB;  /* right part of filter bandwidth */

        float NFP;       /* length of CCF */
        float Dmed;      /* part of eliminated amplitude at median stacking */
        float WeightWin; /* size of weight function in ms */
        float AKG;
        float URD;
} InputParam;

/* âØß ÔÛï åàÐÝÕÝØï Ø ßÕàÕÔÐçØ âàÐáá ÝÐÚÞßÛÕÝØï Ø ØÝäÞàÜÐæØØ Þ ÝØå /
typedef unsigned char bfType;          /* âØß ÔÛï ÑØâÞÒëå äÛÐÓÞÒ */

typedef struct _Trace4Stack{
        TrHeader             *hdr;     /* ãÚÐ×ÐâÕÛì ÝÐ ×ÐÓÞÛÞÒÞÚØ */
        unsigned int       hdrSize;    /* àÐ×ÜÕà ×ÐÓÞÛÞÒÚÐ Ò áÛÞÒÐå */
    ONE_SAMPLE       *ptr;         /* ãÚÐ×ÐâÕÛì ÝÐ ÞÑàÐÑÐâ. âàÐááë */
        float            *pstr;        /* ãÚ-Ûì ÝÐ ÝÐÑÞà âà., ÒëÒÕÔ. ÝÐ ÒÕàâ.*/
        float            *pptr;        /* ãÚ-Ûì ÝÐ ÝÐÑÞà PRT âàÐáá */
        float            *potr;        /* ãÚ-Ûì ÝÐ ØáåÞÔ. âàÐááë(ÔÛï ÚÞÜÑ.â.)*/
        unsigned int     cntSamples;   /* ÚÞÛØçÕáâÒÞ ÞâáçÕâÞÒ Ò âàÐááÕ */
        float *hodog;                  /* ÒàÕÜï ÓÞÔÞÓàÐäÐ ÒÞÛÝë .*/
        float *interShift;             /* ßÞÛÝëÕ ÞâÝÞáØâ.áÔÒØÓØ ÞâÝ æÕÝâà.*/
    float *shifts;                 /* ãâÞçÝÕÝØÕ áÔÒØÓÞÒ ÜÕÖÔã áÞáÕÔ.âà. */
    float *aprShift;           /* ÐßàØÞàÝëÕ áÔÒØÓØ ÜÕÖÔã áÞáÕÔ. âà.*/
    float *qual;               /* âÐÑÛØæÐ ÚÞíä. ÚÐçÕáâÒÐ */
        float *ampl;                   /* âÐÑÛ. ÞæÕÝÞÚ ÞâÝÞáØâ. ÐÜßÛ.*/
        float *energy;                 /* âÐÑÛ. ÞæÕÝÞÚ íÝÕàÓØÙ */
        int    cnt;                    /* ÚÞÛØçÕáâÒÞ âàÐáá */
    int    subcorCnt;              /* ÚÞÛØçÕáâÒÞ ßàÞèÕÔèØå subcor'ÞÒ*/
        ONE_SAMPLE       *outTrace;    /* ÒëåÞÔÝÐï ÜÞÔÕÛìÝÐï âàÐááÐ */
        ONE_SAMPLE       *outSubTrace; /* ÒëåÞÔÝÐï âàÐááÐ ÞáâÐâÚÞÒ */
    bfType flags;              /* ÑØâÞÒëÕ äÛÐÓØ áâÐÔØØ ßàÞæÕááÐ ÞÑà.*/
        float *Hcab;                   /* list of previous cable depthes */
        int *divFac;                   /* list of divisible factor */
} Trace4Stack;

typedef struct _SizeFFT{
  int ideg;
  int cntTr2;
  int cntSp;
} SizeFFT;

typedef struct {
  int fMedFil;
  double *spFilOp;
  SizeFFT lenFFT;
} MedFilter;


#endif /* __SUBCOR_h */
*/
typedef unsigned char bfType;          /* âØß ÔÛï ÑØâÞÒëå äÛÐÓÞÒ */

typedef struct _Trace4Stack{
        TrHeader             *hdr;     /* ãÚÐ×ÐâÕÛì ÝÐ ×ÐÓÞÛÞÒÞÚØ */
        unsigned int       hdrSize;    /* àÐ×ÜÕà ×ÐÓÞÛÞÒÚÐ Ò áÛÞÒÐå /
    ONE_SAMPLE       *ptr;         /* ãÚÐ×ÐâÕÛì ÝÐ ÞÑàÐÑÐâ. âàÐááë */
        float            *pstr;        /* ãÚ-Ûì ÝÐ ÝÐÑÞà âà., ÒëÒÕÔ. ÝÐ ÒÕàâ.*/
        float            *pptr;        /* ãÚ-Ûì ÝÐ ÝÐÑÞà PRT âàÐáá */
        float            *potr;        /* ãÚ-Ûì ÝÐ ØáåÞÔ. âàÐááë(ÔÛï ÚÞÜÑ.â.)*/
        unsigned int     cntSamples;   /* ÚÞÛØçÕáâÒÞ ÞâáçÕâÞÒ Ò âàÐááÕ */
        float *hodog;                  /* ÒàÕÜï ÓÞÔÞÓàÐäÐ ÒÞÛÝë .*/
        float *interShift;             /* ßÞÛÝëÕ ÞâÝÞáØâ.áÔÒØÓØ ÞâÝ æÕÝâà.*/
    float *shifts;                 /* ãâÞçÝÕÝØÕ áÔÒØÓÞÒ ÜÕÖÔã áÞáÕÔ.âà. */
    float *aprShift;           /* ÐßàØÞàÝëÕ áÔÒØÓØ ÜÕÖÔã áÞáÕÔ. âà.*/
    float *qual;               /* âÐÑÛØæÐ ÚÞíä. ÚÐçÕáâÒÐ */
        float *ampl;                   /* âÐÑÛ. ÞæÕÝÞÚ ÞâÝÞáØâ. ÐÜßÛ.*/
        float *energy;                 /* âÐÑÛ. ÞæÕÝÞÚ íÝÕàÓØÙ */
        int    cnt;                    /* ÚÞÛØçÕáâÒÞ âàÐáá */
    int    subcorCnt;              /* ÚÞÛØçÕáâÒÞ ßàÞèÕÔèØå subcor'ÞÒ*/
        ONE_SAMPLE       *outTrace;    /* ÒëåÞÔÝÐï ÜÞÔÕÛìÝÐï âàÐááÐ */
        ONE_SAMPLE       *outSubTrace; /* ÒëåÞÔÝÐï âàÐááÐ ÞáâÐâÚÞÒ */
    bfType flags;              /* ÑØâÞÒëÕ äÛÐÓØ áâÐÔØØ ßàÞæÕááÐ ÞÑà.*/
        float *Hcab;                   /* list of previous cable depthes */
        int *divFac;                   /* list of divisible factor */
} Trace4Stack;

typedef struct _SizeFFT{
  int ideg;
  int cntTr2;
  int cntSp;
} SizeFFT;

typedef struct {
  int fMedFil;
  double *spFilOp;
  SizeFFT lenFFT;
} MedFilter;


#endif /* __SUBCOR_h */
*/
    ONE_SAMPLE       *ptr;         /* ãÚÐ×ÐâÕÛì ÝÐ ÞÑàÐÑÐâ. âàÐááë */
        float            *pstr;        /* ãÚ-Ûì ÝÐ ÝÐÑÞà âà., ÒëÒÕÔ. ÝÐ ÒÕàâ.*/
        float            *pptr;        /* ãÚ-Ûì ÝÐ ÝÐÑÞà PRT âàÐáá */
        float            *potr;        /* ãÚ-Ûì ÝÐ ØáåÞÔ. âàÐááë(ÔÛï ÚÞÜÑ.â.)*/
        unsigned int     cntSamples;   /* ÚÞÛØçÕáâÒÞ ÞâáçÕâÞÒ Ò âàÐááÕ */
        float *hodog;                  /* ÒàÕÜï ÓÞÔÞÓàÐäÐ ÒÞÛÝë .*/
        float *interShift;             /* ßÞÛÝëÕ ÞâÝÞáØâ.áÔÒØÓØ ÞâÝ æÕÝâà.*/
    float *shifts;                 /* ãâÞçÝÕÝØÕ áÔÒØÓÞÒ ÜÕÖÔã áÞáÕÔ.âà. */
    float *aprShift;           /* ÐßàØÞàÝëÕ áÔÒØÓØ ÜÕÖÔã áÞáÕÔ. âà.*/
    float *qual;               /* âÐÑÛØæÐ ÚÞíä. ÚÐçÕáâÒÐ */
        float *ampl;                   /* âÐÑÛ. ÞæÕÝÞÚ ÞâÝÞáØâ. ÐÜßÛ.*/
        float *energy;                 /* âÐÑÛ. ÞæÕÝÞÚ íÝÕàÓØÙ */
        int    cnt;                    /* ÚÞÛØçÕáâÒÞ âàÐáá */
    int    subcorCnt;              /* ÚÞÛØçÕáâÒÞ ßàÞèÕÔèØå subcor'ÞÒ*/
        ONE_SAMPLE       *outTrace;    /* ÒëåÞÔÝÐï ÜÞÔÕÛìÝÐï âàÐááÐ */
        ONE_SAMPLE       *outSubTrace; /* ÒëåÞÔÝÐï âàÐááÐ ÞáâÐâÚÞÒ */
    bfType flags;              /* ÑØâÞÒëÕ äÛÐÓØ áâÐÔØØ ßàÞæÕááÐ ÞÑà./
        float *Hcab;                   /* list of previous cable depthes */
        int *divFac;                   /* list of divisible factor */
} Trace4Stack;

typedef struct _SizeFFT{
  int ideg;
  int cntTr2;
  int cntSp;
} SizeFFT;

typedef struct {
  int fMedFil;
  double *spFilOp;
  SizeFFT lenFFT;
} MedFilter;


#endif /* __SUBCOR_h */
*/
        float *Hcab;                   /* list of previous cable depthes */
        int *divFac;                   /* list of divisible factor */
} Trace4Stack;

typedef struct _SizeFFT{
  int ideg;
  int cntTr2;
  int cntSp;
} SizeFFT;

typedef struct {
  int fMedFil;
  double *spFilOp;
  SizeFFT lenFFT;
} MedFilter;


#endif /* __SUBCOR_h */