! ********************************************************************************************************************************
!  Created: 30-AUG-2007 11:29:36 by OpenVMS SDL IA64-2     
!  Source:  30-AUG-2007 11:29:35 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]DCX$ROUTINES.SDI;1 
! ********************************************************************************************************************************
 
!*** MODULE DCX$ROUTINES IDENT X-1 ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! ---------------------------------------------------------------
 ! 
 !  Data Compression/Expansion (DCX) Routines
 ! 
 ! 
 !  DCX$ANALYZE_DATA - Analyze a data record
 ! 
 !  status = DCX$ANALYZE_DATA (context, record)
 ! 
 !   context - Context value returned by DCX$ANALYZE_INIT
 !   record  - Record to be analyzed
	INTEGER*4 DCX$ANALYZE_DATA
	EXTERNAL DCX$ANALYZE_DATA
 ! 
 !  DCX$ANALYZE_DONE - Complete analysis
 ! 
 !  status = DCX$ANALYZE_DONE (context)
 ! 
 !   context - Context value returned by DCX$ANALYZE_INIT
	INTEGER*4 DCX$ANALYZE_DONE
	EXTERNAL DCX$ANALYZE_DONE
 ! 
 !  DCX$ANALYZE_INIT - Initialize context for analysis
 ! 
 !  status = DCX$ANALYZE_INIT (context [,item_code, item_value])
 ! 
 !   context   - Receives context value for data stream
 !   item_code - Specifies information to be used during analysis
 !   item_value - Value of information item
 !   [Note - successive pairs of item_code and item_value can be passed
 !    in the argument list]
 ! 
	INTEGER*4 DCX$ANALYZE_INIT
	EXTERNAL DCX$ANALYZE_INIT
 ! 
 !  DCX$COMPRESS_DATA - Compress a data record
 ! 
 !  status = DCX$COMPRESS_DATA (context, in_rec, out_rec, out_length)
 ! 
 !   context    - Value returned by DCX$COMPRESS_INIT
 !   in_rec     - Data record to be compressed
 !   out_rec    - Receives compressed record
 !   out_length - Receives length of compressed record
 ! 
	INTEGER*4 DCX$COMPRESS_DATA
	EXTERNAL DCX$COMPRESS_DATA
 ! 
 !  DCX$COMPRESS_DONE - Delete context for compression
 ! 
 !  status = DCX$COMPRESS_DONE (context)
 ! 
 !   context - Value returned by DCX$COMPRESS_INIT
 ! 
	INTEGER*4 DCX$COMPRESS_DONE
	EXTERNAL DCX$COMPRESS_DONE
 ! 
 !  DCX$COMPRESS_INIT - Initialize context for compression
 ! 
 !  status = DCX$COMPRESS_INIT (context, map)
 ! 
 !   context - Context value for this data stream
 !   map     - Map value returned by DCX$MAKE_MAP
 ! 
	INTEGER*4 DCX$COMPRESS_INIT
	EXTERNAL DCX$COMPRESS_INIT
 ! 
 !  DCX$EXPAND_DATA - Expand a compressed data record
 ! 
 !  status = DCX$EXPAND_DATA (context, in_rec, out_rec [,out_length])
 ! 
 !   context    - Value returned by DCX$EXPAND_INIT
 !   in_rec     - Data record to be expanded
 !   out_rec    - Receives expanded data record
 !   out_length - Receives length of expanded record
 ! 
	INTEGER*4 DCX$EXPAND_DATA
	EXTERNAL DCX$EXPAND_DATA
 ! 
 !  DCX$EXPAND_DONE - Delete context for expansion
 ! 
 !  status = DCX$EXPAND_DONE (context)
 ! 
 !   context - Value returned by DCX$EXPAND_INIT
 ! 
	INTEGER*4 DCX$EXPAND_DONE
	EXTERNAL DCX$EXPAND_DONE
 ! 
 !  DCX$EXPAND_INIT - Initialize context for expansion
 ! 
 !  status = DCX$EXPAND_INIT (context, map)
 ! 
 !   context - Receives context value identifying data stream
 !   map     - Map value returned by DCX$MAKE_MAP
 ! 
	INTEGER*4 DCX$EXPAND_INIT
	EXTERNAL DCX$EXPAND_INIT
 ! 
 !  DCX$MAKE_MAP - Compute compression/expansion map
 ! 
 !  status = DCX$MAKE_MAP (context, map_addr [, map_size])
 ! 
 !   context - Value returned by DCX$ANALYZE_INIT
 !   map_addr - Receives address of allocated map data
 !   map_size - Receives size of allocated map data
 ! 
	INTEGER*4 DCX$MAKE_MAP
	EXTERNAL DCX$MAKE_MAP
!DEC$ END OPTIONS