%IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN
	RECORD BASIC$QUADWORD
		LONG FILL ( 2 )
	END RECORD
    %LET %BASIC$QUADWORD_DECLARED = 1
    %END %IF
    %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN
	RECORD BASIC$OCTAWORD
		LONG FILL ( 4 )
	END RECORD
    %LET %BASIC$OCTAWORD_DECLARED = 1
    %END %IF
    %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN
    	RECORD BASIC$F_FLOATING_COMPLEX
    		SINGLE REAL_PART
    		SINGLE IMAGINARY_PART
    	END RECORD
    %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1
    %END %IF
    %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN
    	RECORD BASIC$D_FLOATING_COMPLEX
    		DOUBLE REAL_PART
    		DOUBLE IMAGINARY_PART
    	END RECORD
    %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1
    %END %IF
    %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN
    	RECORD BASIC$G_FLOATING_COMPLEX
    		GFLOAT REAL_PART
    		GFLOAT IMAGINARY_PART
    	END RECORD
    %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1
    %END %IF
    %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN
    	RECORD BASIC$H_FLOATING_COMPLEX
    		HFLOAT REAL_PART
    		HFLOAT IMAGINARY_PART
    	END RECORD
    %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1
    %END %IF
    
    
    ! 
    !  This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:37:34.31
    ! 
    ! 
    ! 
    !  VERSION:	'V04-001'
    ! 
    ! ****************************************************************************
    ! *									    *
    ! *  COPYRIGHT (C) 1978, 1980, 1982, 1984, 1994 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.		    *
    ! * 									    *
    ! *									    *
    ! ****************************************************************************
    ! 
    !  RETURN STATUS CODES FOR CROSS REFERENCE PROGRAM
    ! 
    !  MODIFIED BY:
    ! 
    ! 	V04-001 TMS0294		TODD SCHOELLER   4-NOV-1994
    ! 		ADD ARGCOUNT FOR ARGUMENT COUNT CHECKING.
    ! 
    ! 	V02-002	BLS0156		BENN SCHREIBER	 1-MAR-1982
    ! 		REMOVE UNUSED MESSAGES
    ! 
    ! 	V02-001	BLS0123		BENN SCHREIBER	19-DEC-1981
    ! 		CHANGE TEXT OF FAOFAIL
    ! 
    ! 
    !  SUCCESS CODES		(SEVERITY LEVEL 1)
    ! 
      DECLARE LONG CONSTANT CREF$_FACILITY = 101
      DECLARE LONG CONSTANT CRF$_SUCCESS = 6651905
      DECLARE LONG CONSTANT CRF$_KEYPRVENTR = 6651913
      DECLARE LONG CONSTANT CRF$_KEY1STENTR = 6651921
      DECLARE LONG CONSTANT CRF$_REFPRVENTR = 6651929
      DECLARE LONG CONSTANT CRF$_UNUSERR = 6651937
    ! 
    !  SEVERE ERROR CODES		(SEVERITY LEVEL 2)
    ! 
      DECLARE LONG CONSTANT CRF$_UNUERR1 = 6651986
      DECLARE LONG CONSTANT CRF$_UNUERR2 = 6651994
      DECLARE LONG CONSTANT CRF$_UNUERR3 = 6652002
      DECLARE LONG CONSTANT CRF$_UNUERR4 = 6652010
      DECLARE LONG CONSTANT CRF$_UNUERR5 = 6652018
      DECLARE LONG CONSTANT CRF$_UNUERR6 = 6652026
      DECLARE LONG CONSTANT CRF$_UNUERR7 = 6652034
      DECLARE LONG CONSTANT CRF$_NO_OUTRTN = 6652042
      DECLARE LONG CONSTANT CRF$_LINELNG = 6652050
      DECLARE LONG CONSTANT CRF$_FAOFAIL = 6652058
      DECLARE LONG CONSTANT CRF$_UNUERR8 = 6652066
      DECLARE LONG CONSTANT CRF$_BADTYPE = 6652074
      DECLARE LONG CONSTANT CRF$_ARGCOUNT = 6652082