source: trunk/include/tlay.h @ 5054

Revision 15, 1.7 KB checked in by lucky, 18 years ago (diff)

Initial revision

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
Line 
1
2/*
3 *   THIS FILE IS UNDER RCS - DO NOT MODIFY UNLESS YOU HAVE
4 *   CHECKED IT OUT USING THE COMMAND CHECKOUT.
5 *
6 *    $Id$
7 *
8 *    Revision history:
9 *     $Log$
10 *     Revision 1.1  2000/02/14 20:05:54  lucky
11 *     Initial revision
12 *
13 *
14 */
15
16/*
17 * tlay.h : Data descriptions used for regional travel time phases
18 *      0 = P, 1 = S, 2 = Pn, 3 = Sn, 4 = Pg, 5 = Sg
19 *
20 *$ 95Oct19 LDD Added prototypes for functions in tlay.c
21 */
22#ifndef TLAY_H
23#define TLAY_H
24
25static char *Phs[] = {"P", "S", "Pn", "Sn", "Pg", "Sg"};
26typedef struct {
27        int     phase;
28        double  t;
29        double  dtdr;
30        double  dtdz;
31} TPHASE;
32
33
34/* Prototypes for functions in tlay.c that might used in other source files
35 **************************************************************************/
36int    t_com( void );     /* Process all recognized commands */
37
38/* Calculate regional phase travel times: P, Pg, S, and Sg*/
39int    t_region( double, double, TPHASE * );
40
41/* Calculate travel time for a given phase */
42double t_phase( int, double, double, double *, double * );
43
44/* Calculate travel times */
45double t_lay( double, double, double *, double * );
46
47
48/* Prototypes for functions used internally by tlay.c functions
49 **************************************************************/
50int    t_set( void );             /* Set up travel time calculations            */
51float  t_dis( float );            /* Calc direct ray distance from takeoff angle*/
52float  t_fun( float );            /* Calc direct travel time from takeoff angle */
53int    t_model ( double, double );               /* Add layer to velocity model */
54double t_direct( double, double, double *, double * ); /* direct P travel time  */
55double t_pmp   ( double, double, double *, double * ); /* P mantle reflection t */
56
57#endif
Note: See TracBrowser for help on using the repository browser.