prc_timeh.c

来自「gsac程序包」· C语言 代码 · 共 78 行

/*===========================================================================*/
/* SEED reader     |             process_timeh             |     time header */
/*===========================================================================*/
/*
	Name:		process_timeh
	Purpose:	process the time span control records into a globally-available
				table
	Usage:		void process_timeh ();
				process_timeh ();
	Input:		none
	Output:		none
	Externals:	input - defined in structures.h, allocated in globals.h
	Warnings:	unknown blockette type encountered
	Errors:		none
	Called by:	main program
	Calls to:	Routines to parse the various blockette types:
				parse_type70 - Time Span Id Blockette parser
				parse_type71 - Hypocenter Information Blockette parser
				parse_type72 - Event Phases Blockette parser
				parse_type73 - Time Span Data Start Index Blockette parser
	Algorithm:	determine which type of blockette is encountered; parse it into
				the appropriate table
	Notes:		some of the parsing routines and their respective print routines
				are untested as of the initial release date; there were no
				blockettes of those types available as of the cited date.
	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
				08/29/89  Dennis O'Neill  added fcn parse_tsindex
*/

#include "rdseed.h"

void process_timeh ()
{
	char *input_data_ptr;					/* pointer into input data */

	input_data_ptr = input.data;

/*                 +=======================================+                 */
/*=================|  Process abbreviation dictionary hdr  |=================*/
/*                 +=======================================+                 */

	blockette_length = 0;
	blockette_type = -1;

	while (blockette_type != 0)
	{
		input_data_ptr += blockette_length;
		read_blockette (&input_data_ptr, blockette, &blockette_type, 
			&blockette_length);

		if (blockette_type == 70) parse_type70 (blockette);
		else if (blockette_type == 71) 
			parse_type71 (blockette);

		else if (blockette_type == 72) 
				parse_type72 (blockette);
		else if (blockette_type == 73) parse_type73 (blockette);
		else if (blockette_type == 74) parse_type74 (blockette);
		else if (blockette_type != 0) 
		{
			fprintf (stderr, "WARNING (process_timeh):  ");
			fprintf (stderr, "unknown blockette type %d found in record %ld.\n",
				blockette_type, input.recordnumber);
			fprintf (stderr, "\tExecution continuing.\n");
		}
	}

/*                 +=======================================+                 */
/*=================|                cleanup                |=================*/
/*                 +=======================================+                 */

}