--********************************************************************************************************************
-- Created: 30-Mar-2010 17:02:08 by OpenVMS SDL EV3-3      
-- Source:  22-FEB-2002 11:06:51 $1$DGA7274:[STARLET_ADA.LIS]UTCBLKDEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package UTCBLKDEF is
 
--  module $UTCBLKDEF
 
--+
--
-- $UTCBLKDEF defines the STARLET structure for UTC based times.
--
---
 
    type UTCBLK_TYPE is
	record
	    TIME_BLOCK	: UNSIGNED_QUADWORD_ARRAY (1 .. 2);		--  Double quad for entire time
	end record;
 
	    for UTCBLK_TYPE use 
		record
		    TIME_BLOCK	at 0 range 0 .. 127;
		end record;
	    for UTCBLK_TYPE'SIZE use 128;
 
    UTCBLK_TYPE_INIT : constant UTCBLK_TYPE := 
	    (TIME_BLOCK	=> (others => (0, 0)));
 
end UTCBLKDEF;