print_72.c

解吸SEED格式的源代码

/*==============================================================================*/
/* SEED reader     |               print_type72               |     time header */
/*==============================================================================*/
/*
	Name:		print_type72
	Purpose:	print the event phases table to the standard output
	Usage:		void print_type72 ();
				print_type72 ();
	Input:		none - uses information in globally-available structure
	Output:		none
	Externals:	type72_head - 1st entry in table; defined in structures.h, 
					allocated in globals.h
	Warnings:	none
	Errors:		none
	Called by:	print_timeh
	Calls to:	none
	Algorithm:	print the contents of the structure to the standard output.
	Notes:		The structure is a linked list; type72_head is the first member
				of the list
	Problems:	none known
	References:	Halbert et al, 1988; see main routine
	Language:	C, hopefully ANSI standard
	Author:		Dennis O'Neill
	Revisions:	07/15/88  Dennis O'Neill  Initial preliminary release 0.9
				11/21/88  Dennis O'Neill  Production release 1.0
				04/26/93  Allen Nance     added fields 11,12 for v2.3
                02/17/93  CL    nullpointer protect fprintfs
				10/13/95  TJM   prefix strings added to make consistent with RESP files
*/

#include "rdseed.h"
#include "resp_defs.h"

void print_type72 (type72_head)
struct type72 *type72_head;
{
	struct type72 *type72;							/* looping vbl */
	char *blkt_id="B072";						/* blockette id string */

	if (type72_head != NULL)
	{
		fprintf(outputfile,"%sEvent phases:\n",com_strt);

		for (type72 = type72_head; type72 != NULL; type72 = type72->next)
		{
			fprintf(outputfile,"%s%s%2.2d     \tStation id:                   %s\n", 
					blkt_id,fld_pref,3,type72->station ? type72->station : "(null)");

			fprintf(outputfile,"%s%s%2.2d     \tLocation id:                  %s\n",  
					blkt_id,fld_pref,4,type72->location ? type72->location : "(null)");
			fprintf(outputfile,"%s%s%2.2d     \tChannel id:                   %s\n",
					blkt_id,fld_pref,5,type72->channel ? type72->channel: "(null)");
			fprintf(outputfile,"%s%s%2.2d     \tPhase arrival time:           %s\n", 
					blkt_id,fld_pref,6,type72->arrival_time ? type72->arrival_time : "(null)");

			fprintf(outputfile,"%s%s%2.2d     \tSignal amplitude:             %E\n",
					blkt_id,fld_pref,7,type72->amplitude);
			fprintf(outputfile,"%s%s%2.2d     \tSignal period (1/frequency):  %E\n",
					blkt_id,fld_pref,8,type72->period);
			fprintf(outputfile,"%s%s%2.2d     \tSignal to noise ratio:        %E\n",
					blkt_id,fld_pref,9,type72->sig2noise);
			fprintf(outputfile,"%s%s%2.2d     \tPhase name:                   %s\n", 
					blkt_id,fld_pref,10,type72->phasename ? type72->phasename : "(null)");
			if (type10.version >= 2.3)
			{
				fprintf(outputfile,"%s%s%2.2d     \tSource lookup:  %4d          ", 
						blkt_id,fld_pref,11,type72->source_code);
				find_type32(outputfile,type72->source_code);
				fprintf(outputfile,"%s%s%2.2d     \tNetwork Code:                 %s\n", 
						blkt_id,fld_pref,12,
						type72->network_code ? type72->network_code : "(null)");
			}

			fprintf(outputfile,"%s\n",com_strt);
		}
	}
}