%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:24.11 ! ! ! **************************************************************************** ! * * ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1986, 1993 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. * ! * * ! * * ! **************************************************************************** ! ! ! 1-014 - ADD ERRORS 17-19 FOR NAMELIST. SBL 10-NOV-1980 ! 1-015 - CORRECT TYPO IN TOOMANVAL. SBL 15-DEC-1980 ! 1-016 - RESTORE CLOSING BRACKET ON OPEDEFREQ, MYSTERIOUSLY DROPPED IN 1-015. ! SBL 6-JAN-1981 ! 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM FORMSG.MDL ! VERSION 1-016. SBL 22-APR-1981 ! 2-002 - ADD UNFIO_FMT, FMTIO_UNF, DIRIO_KEY, SEQIO_DIR, KEYIO_DIR, ! IO_NONFOR, INVTXTREC, FLOUNDEXC. JAW 23-AUG-1981 ! 2-003 - CHANGE INVTXTREC TO INVTEXREC. JAW 24-AUG-1981 ! 2-004 - ADD INVTEX WHICH DOES NOT REQUIRE A RECORD NUMBER. THIS IS FOR INDEXED ! AND INTERNAL FILES THAT DO NOT HAVE A VALID RECORD NUMBER. DGP 21-DEC-1981 ! 2-005 - ADD .TITLE. SBL 28-AUG-1982 ! 2-006 - ADD OPEREQDIS AND OPEREQSEQ. SBL 2-JUN-1983 ! 2-007 - ADD ULTRIX SPECIFIC ERRORS AND WARNINGS. ! 2-008 - ADD INVMATKEY. DJM 14-SEP-1987. ! 2-009 - ADD FORRTL2 MESSAGES. CHH 22-SEP-1987 ! X-4 STEVE LIONEL 16-OCT-1989 ! ADD SUBPRCDEL,UNAWAKSUB ! X-5 SBL1001 22-OCT-1991 STEVE LIONEL ! ADD FOR$_VECALIGNEXC ! X-6 SBL6100 STEVEN B. LIONEL 15-MAR-1993 ! ADD FLOCONFAI ! -- ! + ! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: ! ! FOR$_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: ! ! $FORDEF ! ! WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE. ! THE STS$V_MSG_ID IS THE FORTRAN ERROR NUMBER (1:94). ! THESE SYMBOLS ARE DECLARED EXTERNAL BY THE RUN-TIME LIBRARY, ! THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. ! - ! ; MAKE ALL ERRORS BE SEVERE (EXCEPT AS NOTED) ! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE ! ; SET LH TO 24 (DECIMAL). DECLARE LONG CONSTANT FOR$_FACILITY = 24 DECLARE LONG CONSTANT FOR$_NOTFORSPE = 1605644 ! ; NEVER SIGNALED. USED ONLY AS A FORTRAN ERROR ! ; NUMBER FOR ERRSNS TO MEAN SOME OTHER FACILITY ! ; THAN FOR$ OR MTH$ DETECTED THE ERROR. DECLARE LONG CONSTANT FOR$_NOTIMP = 1605652 DECLARE LONG CONSTANT FOR$_IGNORED = 1605656 DECLARE LONG CONSTANT FOR$_IGNNOTDEL = 1605664 ! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE ! ; SET LH TO 24 (DECIMAL). DECLARE LONG CONSTANT FOR$_SYNERRNAM = 1605772 DECLARE LONG CONSTANT FOR$_TOOMANVAL = 1605780 DECLARE LONG CONSTANT FOR$_INVREFVAR = 1605788 DECLARE LONG CONSTANT FOR$_REWERR = 1605796 DECLARE LONG CONSTANT FOR$_DUPFILSPE = 1605804 DECLARE LONG CONSTANT FOR$_INPRECTOO = 1605812 DECLARE LONG CONSTANT FOR$_BACERR = 1605820 DECLARE LONG CONSTANT FOR$_ENDDURREA = 1605828 DECLARE LONG CONSTANT FOR$_RECNUMOUT = 1605836 DECLARE LONG CONSTANT FOR$_OPEDEFREQ = 1605844 DECLARE LONG CONSTANT FOR$_TOOMANREC = 1605852 DECLARE LONG CONSTANT FOR$_CLOERR = 1605860 DECLARE LONG CONSTANT FOR$_FILNOTFOU = 1605868 DECLARE LONG CONSTANT FOR$_OPEFAI = 1605876 DECLARE LONG CONSTANT FOR$_MIXFILACC = 1605884 DECLARE LONG CONSTANT FOR$_INVLOGUNI = 1605892 DECLARE LONG CONSTANT FOR$_ENDFILERR = 1605900 DECLARE LONG CONSTANT FOR$_UNIALROPE = 1605908 DECLARE LONG CONSTANT FOR$_SEGRECFOR = 1605916 DECLARE LONG CONSTANT FOR$_ATTACCNON = 1605924 DECLARE LONG CONSTANT FOR$_INCRECLEN = 1605932 DECLARE LONG CONSTANT FOR$_ERRDURWRI = 1605940 DECLARE LONG CONSTANT FOR$_ERRDURREA = 1605948 DECLARE LONG CONSTANT FOR$_RECIO_OPE = 1605956 DECLARE LONG CONSTANT FOR$_INSVIRMEM = 1605964 DECLARE LONG CONSTANT FOR$_NO_SUCDEV = 1605972 DECLARE LONG CONSTANT FOR$_FILNAMSPE = 1605980 DECLARE LONG CONSTANT FOR$_INCRECTYP = 1605988 DECLARE LONG CONSTANT FOR$_KEYVALERR = 1605996 DECLARE LONG CONSTANT FOR$_INCOPECLO = 1606004 DECLARE LONG CONSTANT FOR$_WRIREAFIL = 1606012 DECLARE LONG CONSTANT FOR$_INVARGFOR = 1606020 DECLARE LONG CONSTANT FOR$_INVKEYSPE = 1606028 DECLARE LONG CONSTANT FOR$_INCKEYCHG = 1606036 DECLARE LONG CONSTANT FOR$_INCFILORG = 1606044 DECLARE LONG CONSTANT FOR$_SPERECLOC = 1606052 DECLARE LONG CONSTANT FOR$_NO_CURREC = 1606060 DECLARE LONG CONSTANT FOR$_REWRITERR = 1606068 DECLARE LONG CONSTANT FOR$_DELERR = 1606076 DECLARE LONG CONSTANT FOR$_UNLERR = 1606084 DECLARE LONG CONSTANT FOR$_FINERR = 1606092 DECLARE LONG CONSTANT FOR$_MORONEREC = 1605852 DECLARE LONG CONSTANT FOR$_ATTREANON = 1605924 ! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE DECLARE LONG CONSTANT FOR$_LISIO_SYN = 1606108 DECLARE LONG CONSTANT FOR$_INFFORLOO = 1606116 DECLARE LONG CONSTANT FOR$_FORVARMIS = 1606124 DECLARE LONG CONSTANT FOR$_SYNERRFOR = 1606132 ! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE ERROR (NOT SEVERE) DECLARE LONG CONSTANT FOR$_OUTCONERR = 1606138 ! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE DECLARE LONG CONSTANT FOR$_INPCONERR = 1606148 ! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE DECLARE LONG CONSTANT FOR$_OUTSTAOVE = 1606164 DECLARE LONG CONSTANT FOR$_INPSTAREQ = 1606172 DECLARE LONG CONSTANT FOR$_VFEVALERR = 1606180 ! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE DECLARE LONG CONSTANT FOR$_ADJARRDIM = 1606380 DECLARE LONG CONSTANT FOR$_INVMATKEY = 1606388 DECLARE LONG CONSTANT FOR$_FLOCONFAI = 1606394 ! ********** ! THE FOLLOWING MESSAGES ARE SECONDARY MESSAGES, OR ARE USED ONLY IN ! EXIT HANDLERS, AND THEREFORE DO NOT NEED TO BE (AND SHOULD NOT BE) ! CONTIGUOUS WITH THE MESSAGES ABOVE. ! THE NEXT SIX MESSAGES ARE SECONDARY MESSAGES FOR USE WITH MIXFILACC IN ! FOR$$IO_BEG AND FOR$$CB. DECLARE LONG CONSTANT FOR$_UNFIO_FMT = 1607684 DECLARE LONG CONSTANT FOR$_FMTIO_UNF = 1607692 DECLARE LONG CONSTANT FOR$_DIRIO_KEY = 1607700 DECLARE LONG CONSTANT FOR$_SEQIO_DIR = 1607708 DECLARE LONG CONSTANT FOR$_KEYIO_DIR = 1607716 DECLARE LONG CONSTANT FOR$_IO_NONFOR = 1607724 ! THE NEXT TWO MESSAGES ARE SECONDARY MESSAGES FOR USE WITH INPCONERR IN ! FOR$$UDF_WF AND FOR$$UDF_WL. DECLARE LONG CONSTANT FOR$_INVTEXREC = 1607732 DECLARE LONG CONSTANT FOR$_INVTEX = 1607740 ! ADDITIONAL SECONDARY MESSAGES DECLARE LONG CONSTANT FOR$_OPEREQDIS = 1607748 DECLARE LONG CONSTANT FOR$_OPEREQSEQ = 1607756 ! THE NEXT MESSAGES ARE PRIMARY MESSAGES USED IN THE EXIT HANDLER WHICH ! IS DECLARED BY FOR$HANDLER OR FOR$VECALIGN_HANDLER. DECLARE LONG CONSTANT FOR$_FLOUNDEXC = 1608035 DECLARE LONG CONSTANT FOR$_VECALIGNEXC = 1608043 ! END OF SPECIAL MESSAGES ! ********** ! ********** ! THE FOLLOWING MESSAGES ARE MESSAGES ISSUED FROM FORRTL2, THE ! VAX FORTRAN V5.0 PARALLEL PROCESSING RTL SUPPORT. ! DECLARE LONG CONSTANT FOR$_FATINTERR = 1609732 DECLARE LONG CONSTANT FOR$_SUBPRCDIED = 1609740 DECLARE LONG CONSTANT FOR$_NOTIMPRET = 1609748 DECLARE LONG CONSTANT FOR$_FAIOWNERID = 1609756 DECLARE LONG CONSTANT FOR$_FAIPRCID = 1609764 DECLARE LONG CONSTANT FOR$_FAIPRCNAME = 1609772 DECLARE LONG CONSTANT FOR$_FAIACTCPU = 1609780 DECLARE LONG CONSTANT FOR$_FAIIDPRC = 1609788 DECLARE LONG CONSTANT FOR$_FAIIMAGNAME = 1609796 DECLARE LONG CONSTANT FOR$_FAIDCLEXIT = 1609804 DECLARE LONG CONSTANT FOR$_FAISUBPRC = 1609812 DECLARE LONG CONSTANT FOR$_INVNUMPRC = 1609820 DECLARE LONG CONSTANT FOR$_MEMSHRERR = 1609828 DECLARE LONG CONSTANT FOR$_LOCALSHRERR = 1609836 DECLARE LONG CONSTANT FOR$_LOCALACCESS = 1609844 DECLARE LONG CONSTANT FOR$_INVLCLADR = 1609852 DECLARE LONG CONSTANT FOR$_COMSHRERR = 1609860 DECLARE LONG CONSTANT FOR$_INVCOMADR = 1609868 DECLARE LONG CONSTANT FOR$_PARINITERR = 1609876 DECLARE LONG CONSTANT FOR$_STACKSHRERR = 1609884 DECLARE LONG CONSTANT FOR$_FAISHRSTACK = 1609892 DECLARE LONG CONSTANT FOR$_INVUNWIND = 1609900 DECLARE LONG CONSTANT FOR$_STKBUFOVR = 1609908 DECLARE LONG CONSTANT FOR$_SUBPRCDEL = 1609916 DECLARE LONG CONSTANT FOR$_ASSERTFAIL = 1609924 DECLARE LONG CONSTANT FOR$_INVLOGNAM = 1611778 DECLARE LONG CONSTANT FOR$_TOOMANPRC = 1611786 DECLARE LONG CONSTANT FOR$_INVDSTRSIZE = 1611794 DECLARE LONG CONSTANT FOR$_DEFVALUSED = 1615875 DECLARE LONG CONSTANT FOR$_UNIPROCESS = 1615883 DECLARE LONG CONSTANT FOR$_NOPARINIT = 1615891 DECLARE LONG CONSTANT FOR$_NOTRUNINPP = 1615899 DECLARE LONG CONSTANT FOR$_NESTPPLOOP = 1615907 DECLARE LONG CONSTANT FOR$_UNAWAKSUB = 1615915 ! END OF FORRTL2 MESSAGES ! **********