is_new_tspan.c

seed格式数据解压程序,地震分析人员必备

/*===========================================================================*/
/* DMC interim out |           is_newtspan.c             |  Main           */
/*===========================================================================*/
/*
	Name:		is_new_tspan
	Purpose:	to determine if the current request is beyond the current tspan
	Usage:		yesno = is_new_tspan( next_tspan, request )
	Input:		struct input_time next_tspan
				struct DMC_request request
	Output:		TRUE if a new tspan should be started
				or FALSE
	Externals:	
	Warnings:	
	Errors:		
	Fatals:
	Called by:	
	Calls to:	
	Algorithm:	
	Notes:		if the request time is within .0001 of next_tspan, this
				routine returns TRUE. See cmp_longtime for reasons. For example,
				if all higher order chunks are the same, it returns:
				.0003 .0001 false
				.0002 .0001 true	<- this might be unexpected.
				.0001 .0001 true
				.0000 .0001 true
				Usually, a precision of better than a millisecond is not
				likely to occur in the field, anyway.
	Problems:	
	References:	
	Language:	
	Author:		03/13/89 mark wiederspahn
	Revisions:	mm/dd/yy  pgmr name  change
				04/26/90 kevin mackenzie set reqtime == max (start, reqstart)
										so tspans may be less than 1 day
*/

#include "output.h"

is_new_tspan( next_tspan, request )
struct	input_time	next_tspan;
struct  DMC_request request;
{
	struct input_time dattime;	/* time of the current data start */
	struct input_time reqtime;	/* time of the current request */
	int result;					/* eventual true/false result */

	if( Debug >= D_MIN ) fprintf( D_OUT,"[is_new_tspan] start\n" );

	dattime = asc_to_input_time( request.entry.start );
	reqtime = asc_to_input_time( request.reqstart );
	if( cmp_longtime( reqtime, dattime ) < 0 ) reqtime = dattime;
	result = (cmp_longtime( reqtime, next_tspan ) >= 0) ? TRUE : FALSE;

	if( Debug >= D_MED && result ) fprintf( D_OUT,"[is_new_tspan] YES!\n" );

	if( Debug >= D_MIN ) fprintf( D_OUT,"[is_new_tspan] end\n" );
	return( result );
}