!*** MODULE $FORDEF ***
CDEC$ OPTIONS /NOALIGN
! 
!  This SDL File Generated by VAX-11 Message V04-00 on 13-NOV-1998 22:47:55.34
! 
! 
! *									    *
! *  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).
	PARAMETER FOR$_FACILITY = '00000018'X
	PARAMETER FOR$_NOTFORSPE = '0018800C'X
! 		; NEVER SIGNALED. USED ONLY AS A FORTRAN ERROR
! 		; NUMBER FOR ERRSNS TO MEAN SOME OTHER FACILITY
! 		; THAN FOR$ OR MTH$ DETECTED THE ERROR.
	PARAMETER FOR$_NOTIMP = '00188014'X
	PARAMETER FOR$_IGNORED = '00188018'X
	PARAMETER FOR$_IGNNOTDEL = '00188020'X
! 			; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE
! 			; SET LH TO 24 (DECIMAL).
	PARAMETER FOR$_SYNERRNAM = '0018808C'X
	PARAMETER FOR$_TOOMANVAL = '00188094'X
	PARAMETER FOR$_INVREFVAR = '0018809C'X
	PARAMETER FOR$_REWERR = '001880A4'X
	PARAMETER FOR$_DUPFILSPE = '001880AC'X
	PARAMETER FOR$_INPRECTOO = '001880B4'X
	PARAMETER FOR$_BACERR = '001880BC'X
	PARAMETER FOR$_ENDDURREA = '001880C4'X
	PARAMETER FOR$_RECNUMOUT = '001880CC'X
	PARAMETER FOR$_OPEDEFREQ = '001880D4'X
	PARAMETER FOR$_TOOMANREC = '001880DC'X
	PARAMETER FOR$_CLOERR = '001880E4'X
	PARAMETER FOR$_FILNOTFOU = '001880EC'X
	PARAMETER FOR$_OPEFAI = '001880F4'X
	PARAMETER FOR$_MIXFILACC = '001880FC'X
	PARAMETER FOR$_INVLOGUNI = '00188104'X
	PARAMETER FOR$_ENDFILERR = '0018810C'X
	PARAMETER FOR$_UNIALROPE = '00188114'X
	PARAMETER FOR$_SEGRECFOR = '0018811C'X
	PARAMETER FOR$_ATTACCNON = '00188124'X
	PARAMETER FOR$_INCRECLEN = '0018812C'X
	PARAMETER FOR$_ERRDURWRI = '00188134'X
	PARAMETER FOR$_ERRDURREA = '0018813C'X
	PARAMETER FOR$_RECIO_OPE = '00188144'X
	PARAMETER FOR$_INSVIRMEM = '0018814C'X
	PARAMETER FOR$_NO_SUCDEV = '00188154'X
	PARAMETER FOR$_FILNAMSPE = '0018815C'X
	PARAMETER FOR$_INCRECTYP = '00188164'X
	PARAMETER FOR$_KEYVALERR = '0018816C'X
	PARAMETER FOR$_INCOPECLO = '00188174'X
	PARAMETER FOR$_WRIREAFIL = '0018817C'X
	PARAMETER FOR$_INVARGFOR = '00188184'X
	PARAMETER FOR$_INVKEYSPE = '0018818C'X
	PARAMETER FOR$_INCKEYCHG = '00188194'X
	PARAMETER FOR$_INCFILORG = '0018819C'X
	PARAMETER FOR$_SPERECLOC = '001881A4'X
	PARAMETER FOR$_NO_CURREC = '001881AC'X
	PARAMETER FOR$_REWRITERR = '001881B4'X
	PARAMETER FOR$_DELERR = '001881BC'X
	PARAMETER FOR$_UNLERR = '001881C4'X
	PARAMETER FOR$_FINERR = '001881CC'X
	PARAMETER FOR$_MORONEREC = '001880DC'X
	PARAMETER FOR$_ATTREANON = '00188124'X
! 			; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE
	PARAMETER FOR$_LISIO_SYN = '001881DC'X
	PARAMETER FOR$_INFFORLOO = '001881E4'X
	PARAMETER FOR$_FORVARMIS = '001881EC'X
	PARAMETER FOR$_SYNERRFOR = '001881F4'X
! 			; SET SUB-SYSTEM SPECIFIC BIT AND MAKE ERROR (NOT SEVERE)
	PARAMETER FOR$_OUTCONERR = '001881FA'X
! 			; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE
	PARAMETER FOR$_INPCONERR = '00188204'X
! 			; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE
	PARAMETER FOR$_OUTSTAOVE = '00188214'X
	PARAMETER FOR$_INPSTAREQ = '0018821C'X
	PARAMETER FOR$_VFEVALERR = '00188224'X
! 			; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE
	PARAMETER FOR$_ADJARRDIM = '001882EC'X
	PARAMETER FOR$_INVMATKEY = '001882F4'X
	PARAMETER FOR$_FLOCONFAI = '001882FA'X
!  **********
!  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.
	PARAMETER FOR$_UNFIO_FMT = '00188804'X
	PARAMETER FOR$_FMTIO_UNF = '0018880C'X
	PARAMETER FOR$_DIRIO_KEY = '00188814'X
	PARAMETER FOR$_SEQIO_DIR = '0018881C'X
	PARAMETER FOR$_KEYIO_DIR = '00188824'X
	PARAMETER FOR$_IO_NONFOR = '0018882C'X
!  THE NEXT TWO MESSAGES ARE SECONDARY MESSAGES FOR USE WITH INPCONERR IN
!  FOR$$UDF_WF AND FOR$$UDF_WL.
	PARAMETER FOR$_INVTEXREC = '00188834'X
	PARAMETER FOR$_INVTEX = '0018883C'X
!  ADDITIONAL SECONDARY MESSAGES
	PARAMETER FOR$_OPEREQDIS = '00188844'X
	PARAMETER FOR$_OPEREQSEQ = '0018884C'X
!  THE NEXT MESSAGES ARE PRIMARY MESSAGES USED IN THE EXIT HANDLER WHICH
!  IS DECLARED BY FOR$HANDLER OR FOR$VECALIGN_HANDLER.
	PARAMETER FOR$_FLOUNDEXC = '00188963'X
	PARAMETER FOR$_VECALIGNEXC = '0018896B'X
!  END OF SPECIAL MESSAGES
!  **********
!  **********
!  THE FOLLOWING MESSAGES ARE MESSAGES ISSUED FROM FORRTL2, THE 
!  VAX FORTRAN V5.0 PARALLEL PROCESSING RTL SUPPORT. 
! 
	PARAMETER FOR$_FATINTERR = '00189004'X
	PARAMETER FOR$_SUBPRCDIED = '0018900C'X
	PARAMETER FOR$_NOTIMPRET = '00189014'X
	PARAMETER FOR$_FAIOWNERID = '0018901C'X
	PARAMETER FOR$_FAIPRCID = '00189024'X
	PARAMETER FOR$_FAIPRCNAME = '0018902C'X
	PARAMETER FOR$_FAIACTCPU = '00189034'X
	PARAMETER FOR$_FAIIDPRC = '0018903C'X
	PARAMETER FOR$_FAIIMAGNAME = '00189044'X
	PARAMETER FOR$_FAIDCLEXIT = '0018904C'X
	PARAMETER FOR$_FAISUBPRC = '00189054'X
	PARAMETER FOR$_INVNUMPRC = '0018905C'X
	PARAMETER FOR$_MEMSHRERR = '00189064'X
	PARAMETER FOR$_LOCALSHRERR = '0018906C'X
	PARAMETER FOR$_LOCALACCESS = '00189074'X
	PARAMETER FOR$_INVLCLADR = '0018907C'X
	PARAMETER FOR$_COMSHRERR = '00189084'X
	PARAMETER FOR$_INVCOMADR = '0018908C'X
	PARAMETER FOR$_PARINITERR = '00189094'X
	PARAMETER FOR$_STACKSHRERR = '0018909C'X
	PARAMETER FOR$_FAISHRSTACK = '001890A4'X
	PARAMETER FOR$_INVUNWIND = '001890AC'X
	PARAMETER FOR$_STKBUFOVR = '001890B4'X
	PARAMETER FOR$_SUBPRCDEL = '001890BC'X
	PARAMETER FOR$_ASSERTFAIL = '001890C4'X
	PARAMETER FOR$_INVLOGNAM = '00189802'X
	PARAMETER FOR$_TOOMANPRC = '0018980A'X
	PARAMETER FOR$_INVDSTRSIZE = '00189812'X
	PARAMETER FOR$_DEFVALUSED = '0018A803'X
	PARAMETER FOR$_UNIPROCESS = '0018A80B'X
	PARAMETER FOR$_NOPARINIT = '0018A813'X
	PARAMETER FOR$_NOTRUNINPP = '0018A81B'X
	PARAMETER FOR$_NESTPPLOOP = '0018A823'X
	PARAMETER FOR$_UNAWAKSUB = '0018A82B'X	!  END OF FORRTL2 MESSAGES
!  **********
CDEC$ END OPTIONS