/********************************************************************************************************************************/ /* Created: 9-Mar-2021 22:28:03 by OpenVMS SDL EV3-3 */ /* Source: 09-MAR-2021 22:28:01 $1$DGA8085:[STARLET_H.SRC]MTHMSG.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE $MTHDEF ***/ #ifndef __MTHDEF_LOADED #define __MTHDEF_LOADED 1 #pragma __nostandard /* This file uses non-ANSI-Standard features */ #pragma __member_alignment __save #pragma __nomember_alignment #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __save /* Save the previously-defined required ptr size */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif #ifdef __cplusplus extern "C" { #define __unknown_params ... #define __optional_params ... #else #define __unknown_params #define __optional_params ... #endif #ifndef __struct #if !defined(__VAXC) #define __struct struct #else #define __struct variant_struct #endif #endif #ifndef __union #if !defined(__VAXC) #define __union union #else #define __union variant_union #endif #endif /* */ /* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:59.24 */ /* */ /* 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 */ #define MTH$_FACILITY 22 #define MTH$_WRONUMARG 1475204 #define MTH$_INVARGMAT 1475212 #define MTH$_UNDEXP 1475220 #define MTH$_LOGZERNEG 1475228 #define MTH$_SQUROONEG 1475236 /* ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE */ /* ; SET LH TO 22 (DECIMAL) MTH$ PREFIX */ #define MTH$_SIGLOSMAT 1475260 #define MTH$_FLOOVEMAT 1475268 #define MTH$_FLOUNDMAT 1475276 #define MTH$_NOTIMP 1475284 /* MTH$NOT_IMPLEMENTED */ #define MTH$_VEC_INVARGMAT 1475292 #define MTH$_VEC_UNDEXP 1475300 #define MTH$_VEC_LOGZERNEG 1475308 #define MTH$_VEC_SQUROONEG 1475316 #define MTH$_VEC_FLOOVEMAT 1475324 #define MTH$_VEC_FLOUNDMAT 1475332 #define MTH$_SINCOSSIG 1475260 #pragma __member_alignment __restore #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __restore /* Restore the previously-defined required ptr size */ #endif #ifdef __cplusplus } #endif #pragma __standard #endif /* __MTHDEF_LOADED */