! *** 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 30-MAR-2010 17:29:36.18
    ! 
    !   DEC/CMS REPLACEMENT HISTORY, ELEMENT MTHMSG.MSG
    !    2H1  27-MAY-1986 11:12:01 GAMACHE "Create new SMP thread from V5.0_BL2 modules"
    !    2E1   3-APR-1986 20:55:46 HOLSTEIN "Create new Exec Reorg thread from V4.4 modules"
    !    2F1  18-MAR-1986 20:31:28 HOLSTEIN "Create new SMP thread from V4.4 modules"
    !    2D1  17-DEC-1985 09:08:44 FIORELLI "Create new exec reorg thread from BL7 modules"
    !   *2     3-SEP-1985 15:59:52 MAILMAN "extend transfer vector; add mth$_notimp"
    !    1A1  20-JUL-1985 14:44:33 SYSTEMBUILD "Initial SMP entry"
    !   *1    18-JUN-1985 03:36:07 SYSTEMBUILD "Initial entry of V4.0 source"
    !   DEC/CMS REPLACEMENT HISTORY, ELEMENT MTHMSG.MSG
    !  FILE: MTHMSG.MSG  EDIT: JCW2004
    ! 
    ! ****************************************************************************
    ! *									    *
    ! *  COPYRIGHT (C) 1978, 1980, 1982, 1984 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.		    *
    ! * 									    *
    ! *									    *
    ! ****************************************************************************
    ! 
    ! 
    !  2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT.  ADAPTED FROM MTHMSG.MDL
    ! 	  VERSION 1-004.  SBL 22-APR-1981
    !  2-002 - ADD .TITLE.  SBL 28-AUG-1982
    !  2-003 - ADD MTH$_NOTIMP.  SMM 03-SEP-1985
    !  2-004 - ADDED VECTOR MATH MESSAGES.  JCW 24-FEB-88.
    ! +
    !  SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES:
    ! 
    ! 	MTH$_ABCMNOXYZ
    ! 
    !  IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",
    !  AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR
    !  MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS.
    ! 
    !  THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR
    !  IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION.
    ! 
    !  MACRO-32 PROGRAMMING:
    ! 
    !  THE MACROS CALL:
    ! 
    ! 	$MTHDEF
    ! 
    !  WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.
    !  THE STS$V_MSG_ID IS THE FORTRAN ERROR NUMBER (1:94).
    !  THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS EXTERNAL;
    !  THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER.
    ! -
    ! 			; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE
    ! 			; SET LH TO 22 (DECIMAL) MTH$ PREFIX
      DECLARE LONG CONSTANT MTH$_FACILITY = 22
      DECLARE LONG CONSTANT MTH$_WRONUMARG = 1475204
      DECLARE LONG CONSTANT MTH$_INVARGMAT = 1475212
      DECLARE LONG CONSTANT MTH$_UNDEXP = 1475220
      DECLARE LONG CONSTANT MTH$_LOGZERNEG = 1475228
      DECLARE LONG CONSTANT MTH$_SQUROONEG = 1475236
    ! 			; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE
    ! 			; SET LH TO 22 (DECIMAL) MTH$ PREFIX
      DECLARE LONG CONSTANT MTH$_SIGLOSMAT = 1475260
      DECLARE LONG CONSTANT MTH$_FLOOVEMAT = 1475268
      DECLARE LONG CONSTANT MTH$_FLOUNDMAT = 1475276
      DECLARE LONG CONSTANT MTH$_NOTIMP = 1475284
    !  MTH$NOT_IMPLEMENTED
      DECLARE LONG CONSTANT MTH$_VEC_INVARGMAT = 1475292
      DECLARE LONG CONSTANT MTH$_VEC_UNDEXP = 1475300
      DECLARE LONG CONSTANT MTH$_VEC_LOGZERNEG = 1475308
      DECLARE LONG CONSTANT MTH$_VEC_SQUROONEG = 1475316
      DECLARE LONG CONSTANT MTH$_VEC_FLOOVEMAT = 1475324
      DECLARE LONG CONSTANT MTH$_VEC_FLOUNDMAT = 1475332
      DECLARE LONG CONSTANT MTH$_SINCOSSIG = 1475260