! ********************************************************************************************************************************
!  Created: 30-AUG-2007 11:29:48 by OpenVMS SDL IA64-2     
!  Source:  30-AUG-2007 11:29:48 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]NCS$ROUTINES.SDI;1 
! ********************************************************************************************************************************
 
!*** MODULE ncs$routines ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! ***************************************************************************
 ! 									    *
 !   COPYRIGHT (c) 1988 BY               				    *
 !   DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS.		    *
 !   ALL RIGHTS RESERVED.						    *
 !  									    *
 !   THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED   *
 !   ONLY IN  ACCORDANCE WITH  THE  TERMS  OF  SUCH  LICENSE  AND WITH THE   *
 !   INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR  ANY  OTHER   *
 !   COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY   *
 !   OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE IS  HEREBY   * 
 !   TRANSFERRED.			       				    *
 !  									    *
 !   THE INFORMATION IN THIS SOFTWARE IS  SUBJECT TO CHANGE WITHOUT NOTICE   *
 !   AND  SHOULD  NOT  BE  CONSTRUED AS  A COMMITMENT BY DIGITAL EQUIPMENT   *
 !   CORPORATION.							    *
 !  									    *
 !   DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE  OR  RELIABILITY OF ITS   *
 !   SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.		    *
 !  									    *
 ! 									    *
 ! ***************************************************************************
 !     NCS$COMPARE
 !     
 !     Compare Strings
 !     
 !     Compares two strings using specified collating sequence as comparison
 !     basis.
 !     
	INTEGER*4 ncs$compare
	EXTERNAL ncs$compare
 !     NCS$CONVERT
 !     
 !     Convert String
 !     
 !     Convert a string using the specified conversion function.
 !     
	INTEGER*4 ncs$convert
	EXTERNAL ncs$convert
 !     NCS$END_CF
 !     
 !     End Conversion Function
 !     
 !     Terminates the use of a conversion function by the calling program.
 !     
	INTEGER*4 ncs$end_cf
	EXTERNAL ncs$end_cf
 !     NCS$END_CS
 !     
 !     End Collating Sequence
 !     
 !     Terminates the use of a collating sequence by the calling program.
 !     
	INTEGER*4 ncs$end_cs
	EXTERNAL ncs$end_cs
 !     NCS$GET_CF
 !     
 !     Get Conversion Function
 !     
 !     Retrieves the definition of the named conversion function from the NCS
 !     library.
 !     
	INTEGER*4 ncs$get_cf
	EXTERNAL ncs$get_cf
 !     NCS$GET_CS
 !     
 !     Get Collating Sequence
 !     
 !     Retrieves the definition of the named collating sequence from the NCS
 !     library.
 !     
	INTEGER*4 ncs$get_cs
	EXTERNAL ncs$get_cs
 !     NCS$RESTORE_CF
 !     
 !     Restore Conversion Function
 !     
 !     Permits the calling program to restore the definition of a "saved"
 !     conversion function from a data base or an RMS file.
 !     
	INTEGER*4 ncs$restore_cf
	EXTERNAL ncs$restore_cf
 !     NCS$RESTORE_CS
 !     
 !     Restore Collating Sequence
 !     
 !     Permits the calling program to restore the definition of a "saved" collating
 !     sequence from a data base or an RMS file.
 !     
	INTEGER*4 ncs$restore_cs
	EXTERNAL ncs$restore_cs
 !     NCS$SAVE_CF
 !     
 !     Save Conversion Function
 !     
 !     Provides the calling program with information that permits the application
 !     to store the definition of a conversion function in a local data base or an
 !     RMS file rather than the NCS$LIBRARY.
 !     
	INTEGER*4 ncs$save_cf
	EXTERNAL ncs$save_cf
 !     NCS$SAVE_CS
 !     
 !     Save Collating Sequence
 !     
 !     Provides the calling program with information that permits the application
 !     to store the definition of a collating sequence in a local data base or an
 !     RMS file rather than the NCS$LIBRARY.
 !     
	INTEGER*4 ncs$save_cs
	EXTERNAL ncs$save_cs
!DEC$ END OPTIONS