-- (C) Copyright International Business Machines Corporation 23 January 
-- 1990.  All Rights Reserved. 
--  
-- See the file USERAGREEMENT distributed with this software for full 
-- terms and conditions of use. 
-- File: timesaux.d
-- Author: Arthur P. Goldberg

Timesaux:  USING (Times)
  definitions

	-- For procedures that take 2 Time_Ranges and make a single time range,
	-- such as intersect_time_ranges, and
	-- union_time_ranges.
	Time_Range_In2_Out1_INTFACE: callmessage (
		Input_Time_Range_1 : Time_Range,
		Input_Time_Range_2 : Time_Range,
		Output_Time_Range_1 : Time_Range
	)
	constant ( Input_Time_Range_1, Input_Time_Range_2 )
	exit {full};

	Time_Range_In2_Out1_Procedure_Receiver : 
		inport of Time_Range_In2_Out1_INTFACE
		{full( Input_Time_Range_1 ), full( Input_Time_Range_2 )};
	Time_Range_In2_Out1_Procedure_Caller : 
		outport of Time_Range_In2_Out1_Procedure_Receiver;


end DEFINITIONS
