comva.h

seismic software,very useful

/* Copyright (c)        , 1992.*/
/* All rights reserved.                       */

/* comva.h - include file for comva package */

#ifndef COMVA_H
#define COMVA_H


/* INCLUDES */
#include "ghdr.h"
#include "gridhd.h"
#include "grid.h"
#include "xplot.h"
#include "par.h"

/* defines */
#define getghdr(x)    fgetghdr(stdin, (x))
#define putghdr(x)    fputghdr(stdout, (x))


/* FUNCTION PROTOTYPES */

#ifdef __cplusplus /* if C++, specify external linkage to C functions */
extern "C" {
#endif

/* ifile/hfile read */
void ifileread(FILE *ifilefp, int *nhs, float *xpicks, float *zpicks,
        float *veltop, float *velbot, int *difs,
        float *dens, float *qval, float *pois,
        float *velavgs, float *dvdzs, char *hnames,
        int *hnums, int *npicks, int maxhs, int maxpks,
	float *xmin, float *xmax, float *zmin, float *zmax,
        int *cdpxmin, int *cdpxmax, float *vmin, float *vmax,
        char *vtype, char *dunits, char *zattrib, float *dcdp,
        int *ihfile);
/* read in VELO cards */ 
void veloread(FILE *infp, int *cdps, float *zpicks, float *vpicks, int *ncdps,
      	int *nps, int maxp, int maxcdp);
/* read in VELF cards */
void velfread(FILE *infp, int *cdps, float *tpicks, float *vpicks, int *ncdps,
      int *nps, int maxp, int maxcdp);
/* read in DVDZ cards */ 
void dvdzread(FILE *infp, int *cdps, float *ztps, float *zbts, float *dvdzs, 
	int *ncdps, int *nps, int maxp, int maxcdp);
/* read in DIPS cards */ 
void dipsread(FILE *infp, int *cdps, float *zps, float *dipl, float *dipr, 
	int *ncdps, int *nps, int maxp, int maxcdp);
/* dips grid */
void dipsgrid(char *dfile, float *dipl, float *dipr,
        float z0, float dz, int nz, int fcdp, int dcdp, int ncdp);
void dipsgrid_cpp(char *dfile, float *dipl, float *dipr,
        double z0, double dz, int nz, int fcdp, int dcdp, int ncdp);
/* velocity conversion and interpolation */
void vconint(float *depth, float *vel, int npairs, float *z, float *vtable,
	int nz, int invtyp, int otvtyp, float *dvdz);
/* velocity gradient interpolation */
void dvdzint(float *ztop, float *zbot, float *dvdz, int npairs, float *z,
	float *dvdztable, int nz);
/* compute midpoint coordinate from source and receiver coordinates */ 
float xmcor(long sx, long gx, short scalco);
/* estimate v(z) = v0 + a (z-z0) */
void estvi_(float *z, float *va, int *n, int *ibfit, float *v0, float *a); 
/* velocity conversion */
void vconvert(float *tin, float *vin, int nin, int ivtype, int ittype,
	float *tout, float *vout, int nout, int ovtype, int ottype);
/* depth-velocity picks within a layer */
void zandva(float ztop, float zbot, float *zp, float *vp, int np,
        float *zz, float *vaa, int *nn);


#ifdef __cplusplus /* if C++, end external linkage specification */
}
#endif

#endif /* COMVA_H */