00001 00002 /* 00003 * THIS FILE IS UNDER RCS - DO NOT MODIFY UNLESS YOU HAVE 00004 * CHECKED IT OUT USING THE COMMAND CHECKOUT. 00005 * 00006 * $Id: tlay_8h-source.html 2161 2006-05-19 16:55:03Z paulf $ 00007 * 00008 * Revision history: 00009 * $Log$ 00009 * Revision 1.1 2006/05/19 16:55:02 paulf 00009 * first inclusion 00009 * 00010 * Revision 1.1 2000/02/14 20:05:54 lucky 00011 * Initial revision 00012 * 00013 * 00014 */ 00015 00016 /* 00017 * tlay.h : Data descriptions used for regional travel time phases 00018 * 0 = P, 1 = S, 2 = Pn, 3 = Sn, 4 = Pg, 5 = Sg 00019 * 00020 *$ 95Oct19 LDD Added prototypes for functions in tlay.c 00021 */ 00022 #ifndef TLAY_H 00023 #define TLAY_H 00024 00025 static char *Phs[] = {"P", "S", "Pn", "Sn", "Pg", "Sg"}; 00026 typedef struct { 00027 int phase; 00028 double t; 00029 double dtdr; 00030 double dtdz; 00031 } TPHASE; 00032 00033 00034 /* Prototypes for functions in tlay.c that might used in other source files 00035 **************************************************************************/ 00036 int t_com( void ); /* Process all recognized commands */ 00037 00038 /* Calculate regional phase travel times: P, Pg, S, and Sg*/ 00039 int t_region( double, double, TPHASE * ); 00040 00041 /* Calculate travel time for a given phase */ 00042 double t_phase( int, double, double, double *, double * ); 00043 00044 /* Calculate travel times */ 00045 double t_lay( double, double, double *, double * ); 00046 00047 00048 /* Prototypes for functions used internally by tlay.c functions 00049 **************************************************************/ 00050 int t_set( void ); /* Set up travel time calculations */ 00051 float t_dis( float ); /* Calc direct ray distance from takeoff angle*/ 00052 float t_fun( float ); /* Calc direct travel time from takeoff angle */ 00053 int t_model ( double, double ); /* Add layer to velocity model */ 00054 double t_direct( double, double, double *, double * ); /* direct P travel time */ 00055 double t_pmp ( double, double, double *, double * ); /* P mantle reflection t */ 00056 00057 #endif