! *** PREDECLARED TYPES
     
      %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$HFLOAT_AXP_DECLARED ) = 0 %THEN
         RECORD BASIC$HFLOAT_AXP
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$HFLOAT_AXP_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_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN
         RECORD BASIC$H_FLOATING_COMPLEX_AXP
            BASIC$HFLOAT_AXP REAL_PART
            BASIC$HFLOAT_AXP IMAGINARY_PART
         END RECORD
         %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1
      %END %IF
    
    
    ! 
    !  This SDL File Generated by VAX-11 Message V04-00 on  9-MAR-2021 22:27:59.14
    ! 
    ! 
    ! 
    !  VERSION:	'V04-004'
    ! 
    ! 
    !     © COPYRIGHT 1978-2004 HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P.
    ! 
    !     RESTRICTED RIGHTS LEGEND
    ! 
    !     USE, DUPLICATION OR DISCLOSURE BY THE U.S. GOVERNMENT IS SUBJECT TO
    !     RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH (C)(1)(II) OF THE RIGHTS
    !     IN TECHNICAL DATA AND COMPUTER SOFTWARE CLAUSE IN DFARS 252.227-7013.
    ! 
    !     HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P
    !     3000 HANOVER STREET
    !     PALO ALTO, CA 94304
    !     U.S.A.
    ! 
    !     RIGHTS FOR NON-DOD U.S. GOVERNMENT DEPARTMENTS AND AGENCIES ARE AS
    !     SET FORTH IN FAR 52.227-19(C)(1,2).
    !     UNDER VENDOR'S STANDARD COMMERCIAL LICENSE.
    ! 
    ! 
    !  RETURN STATUS CODES FOR CROSS REFERENCE PROGRAM
    ! 
    !  MODIFIED BY:
    ! 
    ! 	V04-004 TMS0569		TODD SCHOELLER  27-DEC-2004
    ! 		ADD NOFOOTNOTES.
    ! 
    ! 	V04-003 TMS0567		TODD SCHOELLER   6-OCT-2004
    ! 		ADD MULDEFFMT FOR MULTI-DEFINER SUPPORT
    ! 
    ! 	V04-002 TMS0532		TODD SCHOELLER  16-OCT-2003
    ! 		ADD CROPPING FOR CROPPING/FOOTNOTING SUPPORT.
    ! 
    ! 	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
      DECLARE LONG CONSTANT CRF$_CROP = 6651945
    ! 
    !  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
      DECLARE LONG CONSTANT CRF$_MULDEFFMT = 6652090
      DECLARE LONG CONSTANT CRF$_NOFOOTNOTES = 6652098