FOR$ENODEF      - FORTRAN error number definitions               21-AUG-1978 18:54:54   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (2)      90  HISTORY		; Detailed Current Edit History

   (3)      97  DECLARATIONS

   (4)     124  FOR$ENODEF - Define FORTRAN error numbers as GL

FOR$ENODEF      - FORTRAN error number definitions               21-AUG-1978 18:54:54   VAX-11 MACRO X0.3-11               Page   1

0-2                                                                                                                              (1)



                                     0000     1 	.TITLE	FOR$ENODEF - FORTRAN error number definitions 

                                     0000     2 	.IDENT	/0-2/			; File: FORENODEF.MAR

                                     0000     3 

                                     0000     4 ;

                                     0000     5 ; Copyright (C) 1977

                                     0000     6 ; Digital Equipment Corporation, Maynard, Massachusetts 01754

                                     0000     7 ;

                                     0000     8 ; This software is furnished under a license for use only on a single

                                     0000     9 ; computer  system  and  may be copied only with the inclusion of the

                                     0000    10 ; above copyright notice. This software, or any other copies thereof,

                                     0000    11 ; may not be provided or otherwise made available to any other person

                                     0000    12 ; except for use on such system and to one who agree to these license 

                                     0000    13 ; terms.  Title to  and  ownership of the software shall at all times 

                                     0000    14 ; remain in DEC.

                                     0000    15 ;

                                     0000    16 ; The information in the software is subject to change without notice

                                     0000    17 ; and should  not  be construed  as a commitment by Digital Equipment 

                                     0000    18 ; Corporation.

                                     0000    19 ;

                                     0000    20 ; DEC assumes  no  responsibility  for the use or  reliability of its

                                     0000    21 ; software on equipment which is not supplied by DEC.

                                     0000    22 ;

                                     0000    23 ;

                                     0000    24 ; FACILITY: FORTRAN SUPPORT LIBRARY

                                     0000    25 ;++

                                     0000    26 ; ABSTRACT:

                                     0000    27 ;

                                     0000    28 ;	Define FORTRAN error numbers as GLOBALs of the form FOR$K_abcmnoxyz

                                     0000    29 ;

                                     0000    30 ;--

                                     0000    31 ;

                                     0000    32 ; VERSION: 0

                                     0000    33 ;

                                     0000    34 ; HISTORY:

                                     0000    35 ;

                                     0000    36 ; AUTHOR:

                                     0000    37 ;	Thomas N. Hastings, 6-Aug-77: Version 0

                                     0000    38 ;

                                     0000    39 ; MODIFIED BY:

                                     0000    40 ;

                                     0000    41 ;

                                     0000    42 ;

FOR$ENODEF      - FORTRAN error number definitions               21-AUG-1978 18:54:54   VAX-11 MACRO X0.3-11               Page   2

0-2             HISTORY  ; Detailed Current Edit History                                                                         (2)



                                     0000    44 	.SBTTL	HISTORY		; Detailed Current Edit History

                                     0000    45 

                                     0000    46 

                                     0000    47 ; Edit History for Version 0

                                     0000    48 ;

                                     0000    49 

FOR$ENODEF      - FORTRAN error number definitions               21-AUG-1978 18:54:54   VAX-11 MACRO X0.3-11               Page   3

0-2             DECLARATIONS                                                                                                     (3)



                                     0000    51 	.SBTTL	DECLARATIONS

                                     0000    52 

                                     0000    53 ;

                                     0000    54 ; INCLUDE FILES:

                                     0000    55 ;

                                     0000    56 	$FORERR GLOBAL			; Define symbols and make GLOBAL

                                     0000    57 ;

                                     0000    58 ; EXTERNAL SYMBOLS:

                                     0000    59 ;

                                     0000    60 

                                     0000    61 ;

                                     0000    62 ; MACROS:

                                     0000    63 ;

                                     0000    64 

                                     0000    65 ;

                                     0000    66 ; PSECT DECLARATIONS:

                                     0000    67 ;

                                 00000000    68 	.PSECT	FOR$CODE PIC,SHR,LONG,EXE,NOWRT

                                     0000    69 ;

                                     0000    70 ; EQUATED SYMBOLS:

                                     0000    71 ;

                                     0000    72 

                                     0000    73 ;

                                     0000    74 ; OWN STORAGE:

                                     0000    75 ;

                                     0000    76 

FOR$ENODEF      - FORTRAN error number definitions               21-AUG-1978 18:54:54   VAX-11 MACRO X0.3-11               Page   4

0-2             FOR$ENODEF - Define FORTRAN error numbers as GL                                                                  (4)



                                     0000    78 	.SBTTL	FOR$ENODEF - Define FORTRAN error numbers as GLOBALs

                                     0000    79 

                                     0000    80 ;++

                                     0000    81 ; FUNCTIONAL DESCRIPTION:

                                     0000    82 ;

                                     0000    83 ;	Define FORTRAN error numbers as GLOBALs.

                                     0000    84 ;	These have the form FOR$K_abcmnoxyz.

                                     0000    85 ;	They are small integers.  They appear in field STS$V_CODE

                                     0000    86 ;	of the VAX-11 32-bit condition value.

                                     0000    87 ;	They are the FORTRAN error numbers used in ERRSNS.

                                     0000    88 ;	The FORTRAN facility number is also defined.

                                     0000    89 ;

                                     0000    90 ; CALLING SEQUENCE:

                                     0000    91 ;

                                     0000    92 ;

                                     0000    93 ;	NONE

                                     0000    94 

                                     0000    95 ;

                                     0000    96 ; INPUT PARAMETERS:

                                     0000    97 ;	NONE

                                     0000    98 ;

                                     0000    99 ; IMPLICIT INPUTS:

                                     0000   100 ;	NONE

                                     0000   101 ;

                                     0000   102 ; OUTPUT PARAMETERS:

                                     0000   103 ;	NONE

                                     0000   104 ;

                                     0000   105 ; IMPLICIT OUTPUTS:

                                     0000   106 ;	NONE

                                     0000   107 ;

                                     0000   108 ; COMPLETION CODES:

                                     0000   109 ;	NONE

                                     0000   110 ;

                                     0000   111 ; SIDE EFFECTS:

                                     0000   112 ;	NONE

                                     0000   113 ;

                                     0000   114 ;--

                                     0000   115 

                                     0000   116 

                                     0000   117 

                                     0000   118 	.END				; End of module FOR$ENODEF

FOR$ENODEF      - FORTRAN error number definitions               21-AUG-1978 18:54:54   VAX-11 MACRO X0.3-11               Page   5

SYMBOL TABLE                                                                                                                     (4)



FOR$K_ADJARRDIM= 0000005D  G         MTH__LOGZERNEG = 00000053            

FOR$K_ARRREFOUT= 0000004D  G         MTH__SINSIGLOS = 00000057            

FOR$K_ATTREANON= 00000024  G         MTH__SQUROONEG = 00000054            

FOR$K_BACERR   = 00000017  G         MTH__UNDEXP    = 00000052            

FOR$K_CLOERR   = 0000001C  G         MTH__WRONUMARG = 00000050            

FOR$K_DECSTROVE= 0000004C  G         

FOR$K_DUPFILSPE= 00000015  G         

FOR$K_ENDDURREA= 00000018  G         

FOR$K_ENDFILERR= 00000021  G         

FOR$K_ERRDURREA= 00000027  G         

FOR$K_ERRDURWRI= 00000026  G         

FOR$K_ERR_PREFX= 00000018            

FOR$K_FAC_NO   = 00000018  G         

FOR$K_FILNAMSPE= 0000002B  G         

FOR$K_FILNOTFOU= 0000001D  G         

FOR$K_FLOOVE   = 00000048  G         

FOR$K_FLOUND   = 0000004A  G         

FOR$K_FLOZERDIV= 00000049  G         

FOR$K_FORVARMIS= 0000003D  G         

FOR$K_INCOPECLO= 0000002E  G         

FOR$K_INCRECLEN= 00000025  G         

FOR$K_INFFORLOO= 0000003C  G         

FOR$K_INPCONERR= 00000040  G         

FOR$K_INPRECTOO= 00000016  G         

FOR$K_INPSTAREQ= 00000043  G         

FOR$K_INSVIRMEM= 00000029  G         

FOR$K_INTOVF   = 00000046  G         

FOR$K_INTZERDIV= 00000047  G         

FOR$K_INVARGFOR= 00000030  G         

FOR$K_INVLOGUNI= 00000020  G         

FOR$K_KEYVALERR= 0000002D  G         

FOR$K_LISIO_SYN= 0000003B  G         

FOR$K_MAXLUNERR= 00000045  G         

FOR$K_MAX_ERR  = 0000005D  G         

FOR$K_MINLUNERR= 00000014  G         

FOR$K_MIXFILACC= 0000001F  G         

FOR$K_MORONEREC= 0000001B  G         

FOR$K_NOTFORSPE= 00000001  G         

FOR$K_NO_SUCDEV= 0000002A  G         

FOR$K_OPEDEFREQ= 0000001A  G         

FOR$K_OPEFAI   = 0000001E  G         

FOR$K_OUTCONERR= 0000003F  G         

FOR$K_OUTSTAOVE= 00000042  G         

FOR$K_RECIO_OPE= 00000028  G         

FOR$K_RECNUMOUT= 00000019  G         

FOR$K_RECSPEERR= 0000002C  G         

FOR$K_REWERR   = 00000014  G         

FOR$K_SEGRECFOR= 00000023  G         

FOR$K_SYNERRFOR= 0000003E  G         

FOR$K_UNIALROPE= 00000022  G         

FOR$K_VFEVALERR= 00000044  G         

FOR$K_WRIREAFIL= 0000002F  G         

GBL...         = 00000001            

MTH$K_ERR_PREFX= 00000016            

MTH__FLOOVEMAT = 00000058            

MTH__FLOUNDMAT = 00000059            

MTH__INVARG    = 00000051            

FOR$ENODEF      - FORTRAN error number definitions               21-AUG-1978 18:54:54   VAX-11 MACRO X0.3-11               Page   6

PROGRAM SECTION SYNOPSIS                                                                                                         (4)







PROGRAM SECTION SYNOPSIS



.  ABS  .        00000000      00     NOPIC   USR   CON   ABS   LCL NOSHR NOEXE NORD  NOWRT BYTE  

. BLANK .        00000000      01     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  

$ABS$            00000000      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

FOR$CODE         00000000      03       PIC   USR   CON   REL   LCL   SHR   EXE   RD  NOWRT LONG  





THERE WERE NO ERRORS OR WARNINGS.

24746. BYTES LEFT IN FREE MEMORY POOL.

1428. BYTES OF RECLAIMED MEMORY.

OBJ$:FORENODEF,LIS$:FORENODEF/-SP=LIB$:S/ML,SRC$:P,FORENODEF

2 MLB DIR RDS - 82 GETS TO DEFINE 5 MACROS. 4 INTER. FILE WRITES. 

