! *** 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:58.45 ! ! FILE: FOR_MSG.MSG ! ! ********************************************************************* ! ** * ! ** COPYRIGHT 2001 COMPAQ COMPUTER CORPORATION * ! ** * ! ** COMPAQ AND THE COMPAQ LOGO ARE TRADEMARKS OF COMPAQ INFORMATION * ! ** TECHNOLOGIES GROUP, L.P. * ! ** * ! ** CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM COMPAQ * ! ** REQUIRED FOR POSSESSION, USE OR COPYING. CONSISTENT WITH FAR * ! ** 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, COMPUTER * ! ** SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL ITEMS * ! ** ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD * ! ** COMMERCIAL LICENSE. * ! ** * ! ********************************************************************* ! ! 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 ! A LONG TIME AGO, IN A GALAXY FAR, FAR AWAY ... ! X-6 SBL1001 22-OCT-1991 STEVE LIONEL ! ADD FOR$_VECALIGNEXC ! X-7 EBF1002 08-OCT-1992 ED FLECCHIA ! ADDED DEC FORTRAN MESSAGES FOR OTHER PLATFORMS. ! X-8 ADD FOR$_ENDRECDUR, END OF RECORD DURING READ. CHANGE IDENT TO VM.N-O ! SYNTAX. BRR 10-NOV-1993. ! X-9 ADD MISSING ALPHA GENTRAP MESSAGES. TCM 02-JUN-94. ! X-10 ADD INVREALLOC. JDR 11-JUL-1994. ! X-11 ADD RESACQFAI. JDR 23-NOV-1994. ! X-12 ADD INVDEALLOC. TCM 13-MAR-1995. ! X-13 MAKE MESSAGE ENDRECDUR, END OF RECORD DURING READ FATAL INSTEAD ! ERROR, LIKE THE OTHER OPERATING SYSTEMS. THE STANDARD SAYS FATAL, AND ! THIS SHOULD FIX BUG DFB2234. TCM 24-MAR-1995 ! X-14 ADD POINTERS TO THE MESSAGE TEXT FOR INVDEALLOC. TCM 19-JUN-1995. ! X-15 FIX THE MESSAGE TEXT OF ERROR 69 (SIGINT) ! INTERRUPT WAS SPELLED WRONG, MISSING AN R. TCM 29-MAR-1996 ! X-16 ADD PRELIMINARY VISUAL FORTRAN SUPPORT. ! THUS, ADDING ALL OF THE MSF ERROR MESSAGES. ! NOTE: THESE MESSAGES MUST BE CONTIGUOUS, SO ! THAT THE MAPPING OF MSF ERRORS TO VISUAL ! FORTRAN CAN BE DONE WITH EASE. TCM 26-APR-1996 ! X-17 FIX THE MESSAGE TEXT OF MSF ERRORS 6970, 6971. ! IT SHOULD BE D FIELD NOT M FIELD, ETC. ALSO ! FIX F6750-52, REMOVE UNIX IN THE TEXT. TCM 07-NOV-1996 ! X-18 ADD INVDEALLOC2. WCH 15-JUL-1999. ! X-19 CHANGE PRODUCT NAME FROM DEC TO COMPAQ PMK 8-NOV-1999 ! X-20 REPLACE DEC WITH COMPAQ IN RESACQFAI MESSAGE. PMK 9-NOV-1999 ! X-21 ADD SHORTDATEARG, SHORTTIMEARG, ? SHORTZONEARG. PMK 31-JUL-2000 ! X-22 ADD COUNTING FLTING INEXACTS. WCH 10-AUG-2000. ! X-23 ADD NEW ERRORS FOR COMPILER GENERATED RUNTIME MESSAGES. WCH 16-AUG-2000. ! X-24 ADD A GENERIC DIVIDE BY ZERO MESSAGE FOR CASES WHEN WE CANNOT TELL IF ! IT WAS A TRUE FLOATING POINT DIV0 OR AN INTEGER DIV0. AS OF GEM BL46, ! GEM SOMETIMES DOES INTEGER DIV IN THE FP UNIT ON ALPHA. WCH 06-OCT-2000. ! X-25 ADD A NEW MESSAGE FOR ATTEMPTED ARRAY ALLOCATIONS THAT OVERFLOW MAX ! ARRAY SIZE (32/64 BITS). WCH 13-OCT-2000. ! -- ! + ! 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 DECLARE LONG CONSTANT FOR$_VERSION = 1605683 DECLARE LONG CONSTANT FOR$_BUG_CHECK = 1605700 DECLARE LONG CONSTANT FOR$_PERACCFIL = 1605708 DECLARE LONG CONSTANT FOR$_CANOVEEXI = 1605716 DECLARE LONG CONSTANT FOR$_UNINOTCON = 1605723 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 DECLARE LONG CONSTANT FOR$_FMTSYN = 1606099 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 DECLARE LONG CONSTANT FOR$_OUTCONERR = 1606138 DECLARE LONG CONSTANT FOR$_INPCONERR = 1606148 DECLARE LONG CONSTANT FOR$_FLTINV = 1606156 DECLARE LONG CONSTANT FOR$_OUTSTAOVE = 1606164 DECLARE LONG CONSTANT FOR$_INPSTAREQ = 1606172 DECLARE LONG CONSTANT FOR$_VFEVALERR = 1606180 DECLARE LONG CONSTANT FOR$_SIGINT = 1606186 DECLARE LONG CONSTANT FOR$_INTOVF = 1606196 DECLARE LONG CONSTANT FOR$_INTDIV = 1606204 DECLARE LONG CONSTANT FOR$_FLTOVF = 1606210 DECLARE LONG CONSTANT FOR$_FLTDIV = 1606218 DECLARE LONG CONSTANT FOR$_FLTUND = 1606226 DECLARE LONG CONSTANT FOR$_SIGFPE = 1606234 DECLARE LONG CONSTANT FOR$_SIGIOT = 1606242 DECLARE LONG CONSTANT FOR$_SUBRNG = 1606252 DECLARE LONG CONSTANT FOR$_SIGTERM = 1606258 DECLARE LONG CONSTANT FOR$_SIGQUIT = 1606266 DECLARE LONG CONSTANT FOR$_WRONUMARG = 1606276 DECLARE LONG CONSTANT FOR$_INVARGMAT = 1606284 DECLARE LONG CONSTANT FOR$_UNDEXP = 1606292 DECLARE LONG CONSTANT FOR$_LOGZERNEG = 1606300 DECLARE LONG CONSTANT FOR$_SQUROONEG = 1606308 DECLARE LONG CONSTANT FOR$_SIGLOSMAT = 1606332 DECLARE LONG CONSTANT FOR$_FLOOVEMAT = 1606340 DECLARE LONG CONSTANT FOR$_FLOUNDMAT = 1606346 DECLARE LONG CONSTANT FOR$_ADJARRDIM = 1606380 DECLARE LONG CONSTANT FOR$_INVMATKEY = 1606388 DECLARE LONG CONSTANT FOR$_FLOCONFAI = 1606394 DECLARE LONG CONSTANT FOR$_CANSTAFIL = 1606500 DECLARE LONG CONSTANT FOR$_OPEREQSEE = 1606596 DECLARE LONG CONSTANT FOR$_BRK_USERBP = 1606676 DECLARE LONG CONSTANT FOR$_BRK_KERNELBP = 1606684 DECLARE LONG CONSTANT FOR$_BRK_BD_TAKEN = 1606700 DECLARE LONG CONSTANT FOR$_BRK_BD_NOTTAKEN = 1606708 DECLARE LONG CONSTANT FOR$_BRK_SSTEPBP = 1606716 DECLARE LONG CONSTANT FOR$_BRK_OVERFLOW = 1606724 DECLARE LONG CONSTANT FOR$_BRK_DIVZERO = 1606732 DECLARE LONG CONSTANT FOR$_BRK_RANGE = 1606740 DECLARE LONG CONSTANT FOR$_BRK_RANGE2 = 1606748 ! ********** ! [X-9] THE FOLLOWING ERRORS REFER TO GENTRAP EXCEPTIONS OR SIGNALS ! AND ARE NOT RETURNED BY IOSTAT. DECLARE LONG CONSTANT FOR$_FLTINE = 1606756 DECLARE LONG CONSTANT FOR$_DECOVF = 1606764 DECLARE LONG CONSTANT FOR$_DECDIV = 1606772 DECLARE LONG CONSTANT FOR$_DECINV = 1606780 DECLARE LONG CONSTANT FOR$_ROPRAND = 1606788 DECLARE LONG CONSTANT FOR$_ASSERTERR = 1606796 DECLARE LONG CONSTANT FOR$_NULPTRERR = 1606804 DECLARE LONG CONSTANT FOR$_STKOVF = 1606812 DECLARE LONG CONSTANT FOR$_STRLENERR = 1606820 DECLARE LONG CONSTANT FOR$_SUBSTRERR = 1606828 DECLARE LONG CONSTANT FOR$_RANGEERR = 1606836 ! ********** ! [X-10] THE FOLLOWING MESSAGE IS FOR FORTRAN 90'S ALLOCATABLE ARRAYS DECLARE LONG CONSTANT FOR$_INVREALLOC = 1606844 ! ********** ! [X-11] DECLARE LONG CONSTANT FOR$_RESACQFAI = 1606852 ! ********** ! [X-12] THE FOLLOWING MESSAGE IS FOR FORTRAN 90'S ALLOCATABLE ARRAYS ! [X-14] THE COMPILER MAY NOW CAUSE THIS MESSAGE TO BE GENERATED FOR POINTERS. DECLARE LONG CONSTANT FOR$_INVDEALLOC = 1606860 ! ********** ! [X-18] THE COMPILER MAY NOW CAUSE THIS MESSAGE TO BE GENERATED FOR POINTERS. DECLARE LONG CONSTANT FOR$_INVDEALLOC2 = 1607020 ! ********** ! [X-21] NEW ERRORS GENERATED FOR ARGUMENT LENGTHS SHORTER THAN STANDARD SPECIFIES FOR ! INTRINSIC DATE_AND_TIME. ! [X-24] NEW ERROR FOR GENERIC DIVIDE BY ZERO. ! [X-25] NEW ERROR FOR ARRAY ALLOCATION SIZE OVERFLOW. DECLARE LONG CONSTANT FOR$_SHORTDATEARG = 1607036 DECLARE LONG CONSTANT FOR$_SHORTTIMEARG = 1607044 DECLARE LONG CONSTANT FOR$_SHORTZONEARG = 1607052 DECLARE LONG CONSTANT FOR$_DIV = 1607060 DECLARE LONG CONSTANT FOR$_ARRSIZEOVF = 1607068 ! ********** ! 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 DECLARE LONG CONSTANT FOR$_PROABOUSE = 1607762 DECLARE LONG CONSTANT FOR$_FLOCONFAIU = 1607770 ! ********** ! [X-13] THE FOLLOWING MESSAGE IS A FATAL MESSAGE ACCORDING TO THE F90 STANDARD DECLARE LONG CONSTANT FOR$_ENDRECDUR = 1607780 ! THESE NEXT 4 MESSAGES ARE USED IN THE EXIT HANDLER WHICH IS DECLARED BY FOR$HANDLER. DECLARE LONG CONSTANT FOR$_FLOINEEXC = 1608003 DECLARE LONG CONSTANT FOR$_FLOINVEXC = 1608011 DECLARE LONG CONSTANT FOR$_FLOOVFEXC = 1608019 DECLARE LONG CONSTANT FOR$_FLODIV0EXC = 1608027 DECLARE LONG CONSTANT FOR$_FLOUNDEXC = 1608035 DECLARE LONG CONSTANT FOR$_VECALIGNEXC = 1608043 ! END OF SPECIAL MESSAGES ! ********** ! ********** ! RESERVE A NUMBER FOR A MESSAGE TO REPORT COMPILED CODE GENERATED ! RUNTIME ERRORS. DECLARE LONG CONSTANT FOR$_MSGBUFOVF = 1608828 DECLARE LONG CONSTANT FOR$_DIAGNOSTIC = 1608836 ! ********** ! 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 ! ********** ! THE FOLLOWING MESSAGES ARE MESSAGES ISSUED FROM MICORSOFT FORTRAN AND NOW ! VISUAL FORTRAN. ! ! [X-16] THE FOLLOWING ERRORS REFER TO MSF ERROR MESSAGES. ! THESE MESSAGES MUST REMAIN IN CONTIGUOUS ORDER SO THAT AN ! OFFSET INTO A MAPPING ARRAY CAN BE COMPUTED FROM THE MESSAGE ! BASE NUMBER, WHICH IS 540 FOR MSF MESSAGES. THAT WAY VISUAL ! FORTRAN CAN RETURN IOSTAT NUMBERS SIMILAR TO MSF. ALSO ! WE PUT THESE MESSAGES THIS FAR DOWN TO KEEP IN SYNCH WITH ! THE VMS MESSAGE FILE. IT HAS CONTIGUOUS OPENINGS UP TO 768 ! IN THIS RANGE. THE NEXT CONTIGUOUS OPENING BEGINS FROM 1024. DECLARE LONG CONSTANT FOR$_F6096 = 1609956 DECLARE LONG CONSTANT FOR$_F6097 = 1609964 DECLARE LONG CONSTANT FOR$_F6098 = 1609972 DECLARE LONG CONSTANT FOR$_F6099 = 1609980 DECLARE LONG CONSTANT FOR$_F6100 = 1609988 DECLARE LONG CONSTANT FOR$_F6101 = 1609996 DECLARE LONG CONSTANT FOR$_F6102 = 1610004 DECLARE LONG CONSTANT FOR$_F6103 = 1610012 DECLARE LONG CONSTANT FOR$_F6104 = 1610020 DECLARE LONG CONSTANT FOR$_F6105 = 1610028 DECLARE LONG CONSTANT FOR$_F6106 = 1610036 DECLARE LONG CONSTANT FOR$_F6200 = 1610044 DECLARE LONG CONSTANT FOR$_F6201 = 1610052 DECLARE LONG CONSTANT FOR$_F6202 = 1610060 DECLARE LONG CONSTANT FOR$_F6203 = 1610068 DECLARE LONG CONSTANT FOR$_F6204 = 1610076 DECLARE LONG CONSTANT FOR$_F6205 = 1610084 DECLARE LONG CONSTANT FOR$_F6206 = 1610092 DECLARE LONG CONSTANT FOR$_F6207 = 1610100 DECLARE LONG CONSTANT FOR$_F6208 = 1610108 DECLARE LONG CONSTANT FOR$_F6209 = 1610116 DECLARE LONG CONSTANT FOR$_F6210 = 1610124 DECLARE LONG CONSTANT FOR$_F6211 = 1610132 DECLARE LONG CONSTANT FOR$_F6212 = 1610140 DECLARE LONG CONSTANT FOR$_F6213 = 1610148 DECLARE LONG CONSTANT FOR$_F6214 = 1610156 DECLARE LONG CONSTANT FOR$_F6300 = 1610164 DECLARE LONG CONSTANT FOR$_F6301 = 1610172 DECLARE LONG CONSTANT FOR$_F6302 = 1610180 DECLARE LONG CONSTANT FOR$_F6303 = 1610188 DECLARE LONG CONSTANT FOR$_F6304 = 1610196 DECLARE LONG CONSTANT FOR$_F6305 = 1610204 DECLARE LONG CONSTANT FOR$_F6306 = 1610212 DECLARE LONG CONSTANT FOR$_F6307 = 1610220 DECLARE LONG CONSTANT FOR$_F6308 = 1610228 DECLARE LONG CONSTANT FOR$_F6309 = 1610236 DECLARE LONG CONSTANT FOR$_F6310 = 1610244 DECLARE LONG CONSTANT FOR$_F6311 = 1610252 DECLARE LONG CONSTANT FOR$_F6312 = 1610260 DECLARE LONG CONSTANT FOR$_F6313 = 1610268 DECLARE LONG CONSTANT FOR$_F6314 = 1610276 DECLARE LONG CONSTANT FOR$_F6315 = 1610284 DECLARE LONG CONSTANT FOR$_F6316 = 1610292 DECLARE LONG CONSTANT FOR$_F6317 = 1610300 DECLARE LONG CONSTANT FOR$_F6318 = 1610308 DECLARE LONG CONSTANT FOR$_F6319 = 1610316 DECLARE LONG CONSTANT FOR$_F6400 = 1610324 DECLARE LONG CONSTANT FOR$_F6401 = 1610332 DECLARE LONG CONSTANT FOR$_F6402 = 1610340 DECLARE LONG CONSTANT FOR$_F6403 = 1610348 DECLARE LONG CONSTANT FOR$_F6404 = 1610356 DECLARE LONG CONSTANT FOR$_F6405 = 1610364 DECLARE LONG CONSTANT FOR$_F6406 = 1610372 DECLARE LONG CONSTANT FOR$_F6407 = 1610380 DECLARE LONG CONSTANT FOR$_F6408 = 1610388 DECLARE LONG CONSTANT FOR$_F6409 = 1610396 DECLARE LONG CONSTANT FOR$_F6410 = 1610404 DECLARE LONG CONSTANT FOR$_F6411 = 1610412 DECLARE LONG CONSTANT FOR$_F6412 = 1610420 DECLARE LONG CONSTANT FOR$_F6413 = 1610428 DECLARE LONG CONSTANT FOR$_F6414 = 1610436 DECLARE LONG CONSTANT FOR$_F6415 = 1610444 DECLARE LONG CONSTANT FOR$_F6416 = 1610452 DECLARE LONG CONSTANT FOR$_F6417 = 1610460 DECLARE LONG CONSTANT FOR$_F6418 = 1610468 DECLARE LONG CONSTANT FOR$_F6419 = 1610476 DECLARE LONG CONSTANT FOR$_F6420 = 1610484 DECLARE LONG CONSTANT FOR$_F6421 = 1610492 DECLARE LONG CONSTANT FOR$_F6422 = 1610500 DECLARE LONG CONSTANT FOR$_F6423 = 1610508 DECLARE LONG CONSTANT FOR$_F6424 = 1610516 DECLARE LONG CONSTANT FOR$_F6425 = 1610524 DECLARE LONG CONSTANT FOR$_F6500 = 1610532 DECLARE LONG CONSTANT FOR$_F6501 = 1610540 DECLARE LONG CONSTANT FOR$_F6502 = 1610548 DECLARE LONG CONSTANT FOR$_F6503 = 1610556 DECLARE LONG CONSTANT FOR$_F6504 = 1610564 DECLARE LONG CONSTANT FOR$_F6505 = 1610572 DECLARE LONG CONSTANT FOR$_F6506 = 1610580 DECLARE LONG CONSTANT FOR$_F6507 = 1610588 DECLARE LONG CONSTANT FOR$_F6508 = 1610596 DECLARE LONG CONSTANT FOR$_F6509 = 1610604 DECLARE LONG CONSTANT FOR$_F6510 = 1610612 DECLARE LONG CONSTANT FOR$_F6511 = 1610620 DECLARE LONG CONSTANT FOR$_F6512 = 1610628 DECLARE LONG CONSTANT FOR$_F6513 = 1610636 DECLARE LONG CONSTANT FOR$_F6514 = 1610644 DECLARE LONG CONSTANT FOR$_F6515 = 1610652 DECLARE LONG CONSTANT FOR$_F6516 = 1610660 DECLARE LONG CONSTANT FOR$_F6600 = 1610668 DECLARE LONG CONSTANT FOR$_F6601 = 1610676 DECLARE LONG CONSTANT FOR$_F6602 = 1610684 DECLARE LONG CONSTANT FOR$_F6700 = 1610692 DECLARE LONG CONSTANT FOR$_F6701 = 1610700 DECLARE LONG CONSTANT FOR$_F6970 = 1610708 DECLARE LONG CONSTANT FOR$_F6971 = 1610716 DECLARE LONG CONSTANT FOR$_F6972 = 1610724 DECLARE LONG CONSTANT FOR$_F6980 = 1610732 DECLARE LONG CONSTANT FOR$_F6981 = 1610740 DECLARE LONG CONSTANT FOR$_F6982 = 1610748 DECLARE LONG CONSTANT FOR$_F6983 = 1610756 DECLARE LONG CONSTANT FOR$_F6984 = 1610764 DECLARE LONG CONSTANT FOR$_F6985 = 1610772 DECLARE LONG CONSTANT FOR$_F6986 = 1610780 DECLARE LONG CONSTANT FOR$_F6987 = 1610788 DECLARE LONG CONSTANT FOR$_F6988 = 1610796 DECLARE LONG CONSTANT FOR$_F6989 = 1610804 DECLARE LONG CONSTANT FOR$_F6990 = 1610812 DECLARE LONG CONSTANT FOR$_F6991 = 1610820 DECLARE LONG CONSTANT FOR$_F6992 = 1610828 DECLARE LONG CONSTANT FOR$_F6993 = 1610836 DECLARE LONG CONSTANT FOR$_F6994 = 1610844 DECLARE LONG CONSTANT FOR$_F6995 = 1610852 DECLARE LONG CONSTANT FOR$_F6996 = 1610860 DECLARE LONG CONSTANT FOR$_F6997 = 1610868 DECLARE LONG CONSTANT FOR$_F6998 = 1610876 DECLARE LONG CONSTANT FOR$_F6999 = 1610884 DECLARE LONG CONSTANT FOR$_F6702 = 1610892 DECLARE LONG CONSTANT FOR$_F6703 = 1610900 DECLARE LONG CONSTANT FOR$_F6704 = 1610908 DECLARE LONG CONSTANT FOR$_F6705 = 1610916 DECLARE LONG CONSTANT FOR$_F6706 = 1610924 DECLARE LONG CONSTANT FOR$_F6707 = 1610932 DECLARE LONG CONSTANT FOR$_F6708 = 1610940 DECLARE LONG CONSTANT FOR$_F6709 = 1610948 DECLARE LONG CONSTANT FOR$_F6710 = 1610956 DECLARE LONG CONSTANT FOR$_F6711 = 1610964 DECLARE LONG CONSTANT FOR$_F6712 = 1610972 DECLARE LONG CONSTANT FOR$_F6713 = 1610980 DECLARE LONG CONSTANT FOR$_F6714 = 1610988 DECLARE LONG CONSTANT FOR$_F6715 = 1610996 DECLARE LONG CONSTANT FOR$_F6716 = 1611004 DECLARE LONG CONSTANT FOR$_F6717 = 1611012 DECLARE LONG CONSTANT FOR$_F6718 = 1611020 DECLARE LONG CONSTANT FOR$_F6719 = 1611028 DECLARE LONG CONSTANT FOR$_F6720 = 1611036 DECLARE LONG CONSTANT FOR$_F6721 = 1611044 DECLARE LONG CONSTANT FOR$_F6722 = 1611052 DECLARE LONG CONSTANT FOR$_F6723 = 1611060 DECLARE LONG CONSTANT FOR$_F6724 = 1611068 DECLARE LONG CONSTANT FOR$_F6725 = 1611076 DECLARE LONG CONSTANT FOR$_F6726 = 1611084 DECLARE LONG CONSTANT FOR$_F6727 = 1611092 DECLARE LONG CONSTANT FOR$_F6728 = 1611100 DECLARE LONG CONSTANT FOR$_F6729 = 1611108 DECLARE LONG CONSTANT FOR$_F6730 = 1611116 DECLARE LONG CONSTANT FOR$_F6731 = 1611124 DECLARE LONG CONSTANT FOR$_F6732 = 1611132 DECLARE LONG CONSTANT FOR$_F6733 = 1611140 DECLARE LONG CONSTANT FOR$_F6734 = 1611148 DECLARE LONG CONSTANT FOR$_F6735 = 1611156 DECLARE LONG CONSTANT FOR$_F6736 = 1611164 DECLARE LONG CONSTANT FOR$_F6737 = 1611172 DECLARE LONG CONSTANT FOR$_F6738 = 1611180 DECLARE LONG CONSTANT FOR$_F6739 = 1611188 DECLARE LONG CONSTANT FOR$_F6740 = 1611196 DECLARE LONG CONSTANT FOR$_F6741 = 1611204 DECLARE LONG CONSTANT FOR$_F6742 = 1611212 DECLARE LONG CONSTANT FOR$_F6743 = 1611220 DECLARE LONG CONSTANT FOR$_F6744 = 1611228 DECLARE LONG CONSTANT FOR$_F6745 = 1611236 DECLARE LONG CONSTANT FOR$_F6746 = 1611244 DECLARE LONG CONSTANT FOR$_F6747 = 1611252 DECLARE LONG CONSTANT FOR$_F6748 = 1611260 DECLARE LONG CONSTANT FOR$_F6749 = 1611268 DECLARE LONG CONSTANT FOR$_F6750 = 1611276 DECLARE LONG CONSTANT FOR$_F6751 = 1611284 DECLARE LONG CONSTANT FOR$_F6752 = 1611292 DECLARE LONG CONSTANT FOR$_F6753 = 1611300 DECLARE LONG CONSTANT FOR$_F6754 = 1611308 DECLARE LONG CONSTANT FOR$_F6755 = 1611316 DECLARE LONG CONSTANT FOR$_F6756 = 1611324 DECLARE LONG CONSTANT FOR$_F6757 = 1611332 DECLARE LONG CONSTANT FOR$_F6758 = 1611340 DECLARE LONG CONSTANT FOR$_F6759 = 1611348 DECLARE LONG CONSTANT FOR$_F6760 = 1611356 DECLARE LONG CONSTANT FOR$_F6761 = 1611364 DECLARE LONG CONSTANT FOR$_F6762 = 1611372 DECLARE LONG CONSTANT FOR$_F6763 = 1611380 DECLARE LONG CONSTANT FOR$_F6764 = 1611388 DECLARE LONG CONSTANT FOR$_F6765 = 1611396 DECLARE LONG CONSTANT FOR$_F6766 = 1611404 DECLARE LONG CONSTANT FOR$_F6767 = 1611412 DECLARE LONG CONSTANT FOR$_F6768 = 1611420 DECLARE LONG CONSTANT FOR$_F6769 = 1611428 DECLARE LONG CONSTANT FOR$_F6770 = 1611436 DECLARE LONG CONSTANT FOR$_F6771 = 1611444 DECLARE LONG CONSTANT FOR$_F6772 = 1611452 DECLARE LONG CONSTANT FOR$_F6773 = 1611460 DECLARE LONG CONSTANT FOR$_F6774 = 1611468 DECLARE LONG CONSTANT FOR$_F6775 = 1611476 DECLARE LONG CONSTANT FOR$_F6776 = 1611484 DECLARE LONG CONSTANT FOR$_F6777 = 1611492 DECLARE LONG CONSTANT FOR$_F6778 = 1611500 DECLARE LONG CONSTANT FOR$_F6779 = 1611508 DECLARE LONG CONSTANT FOR$_F6780 = 1611516 DECLARE LONG CONSTANT FOR$_F6781 = 1611524 DECLARE LONG CONSTANT FOR$_F6782 = 1611532 DECLARE LONG CONSTANT FOR$_F6783 = 1611540 DECLARE LONG CONSTANT FOR$_F6784 = 1611548 DECLARE LONG CONSTANT FOR$_F6785 = 1611556 DECLARE LONG CONSTANT FOR$_F6786 = 1611564 DECLARE LONG CONSTANT FOR$_F6787 = 1611572 DECLARE LONG CONSTANT FOR$_F6788 = 1611580 DECLARE LONG CONSTANT FOR$_F6789 = 1611588 DECLARE LONG CONSTANT FOR$_F6790 = 1611596 DECLARE LONG CONSTANT FOR$_F6791 = 1611604 DECLARE LONG CONSTANT FOR$_F6792 = 1611612 DECLARE LONG CONSTANT FOR$_F6793 = 1611620 DECLARE LONG CONSTANT FOR$_F6794 = 1611628 DECLARE LONG CONSTANT FOR$_F6795 = 1611636 DECLARE LONG CONSTANT FOR$_F6796 = 1611644 DECLARE LONG CONSTANT FOR$_F6797 = 1611652 DECLARE LONG CONSTANT FOR$_F6798 = 1611660 DECLARE LONG CONSTANT FOR$_F6799 = 1611668 DECLARE LONG CONSTANT FOR$_F6800 = 1611676 DECLARE LONG CONSTANT FOR$_F6801 = 1611684 DECLARE LONG CONSTANT FOR$_F6802 = 1611692 DECLARE LONG CONSTANT FOR$_F6803 = 1611700 DECLARE LONG CONSTANT FOR$_F6804 = 1611708 ! END OF SPECIAL MISCROSOFT ERROR MESSAGES ! ********** 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 ! **********