!*** MODULE $MTHDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  This SDL File Generated by VAX-11 Message V04-00 on 28-AUG-2007 13:35:03.33
 ! 
 !   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
	PARAMETER MTH$_FACILITY = '00000016'X
	PARAMETER MTH$_WRONUMARG = '00168284'X
	PARAMETER MTH$_INVARGMAT = '0016828C'X
	PARAMETER MTH$_UNDEXP = '00168294'X
	PARAMETER MTH$_LOGZERNEG = '0016829C'X
	PARAMETER MTH$_SQUROONEG = '001682A4'X
 ! 			; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE
 ! 			; SET LH TO 22 (DECIMAL) MTH$ PREFIX
	PARAMETER MTH$_SIGLOSMAT = '001682BC'X
	PARAMETER MTH$_FLOOVEMAT = '001682C4'X
	PARAMETER MTH$_FLOUNDMAT = '001682CC'X
	PARAMETER MTH$_NOTIMP = '001682D4'X
 !  MTH$NOT_IMPLEMENTED
	PARAMETER MTH$_VEC_INVARGMAT = '001682DC'X
	PARAMETER MTH$_VEC_UNDEXP = '001682E4'X
	PARAMETER MTH$_VEC_LOGZERNEG = '001682EC'X
	PARAMETER MTH$_VEC_SQUROONEG = '001682F4'X
	PARAMETER MTH$_VEC_FLOOVEMAT = '001682FC'X
	PARAMETER MTH$_VEC_FLOUNDMAT = '00168304'X
	PARAMETER MTH$_SINCOSSIG = '001682BC'X
!DEC$ END OPTIONS