FORTRAN IV-PLUS V02-51D		02:21:00    22-AUG-78		PAGE 1   

ERRORS.FTN   	/TR:BLOCKS/WR


        C

        C

        C	ERRORS  --  ERROR MESSAGES FOR MACRO-11 CALLED BY FORTRAN PROGRAMS

        C

        C

        C	COPYRIGHT (C) 1976

        C	DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

        C

        C	THIS SOFTWARE IS FURNISHED UNDER  A LICENSE FOR USE ONLY  ON  A

        C	SINGLE COMPUTER SYSTEM AND MAY BE  COPIED ONLY WITH  THE INCLU-

        C	SION OF  THE  ABOVE  COPYRIGHT NOTICE.  THIS SOFTWARE,  OR  ANY

        C	OTHER COPIES THEREOF, MAY NOT BE  PROVIDED  OR  OTHERWISE  MADE

        C	AVAILABLE TO ANY OTHER PERSON EXCEPT  FOR  USE  ON  SUCH SYSTEM

        C	AND TO  ONE WHO AGREES  TO  THESE LICENSE  TERMS.  TITLE TO AND

        C	OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.

        C

        C	THE INFORMATION IN THIS SOFTWARE  IS  SUBJECT TO CHANGE WITHOUT

        C	NOTICE AND SHOULD NOT BE CONSTRUED  AS  A COMMITMENT BY DIGITAL

        C	EQUIPMENT CORPORATION.

        C

        C	DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS

        C	SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

        C

        C

        C	K.D. MORSE  07-NOV-76

        C

        C

        C

        C

        C

        C	THIS SUBROUTINE WRITES OUT THE ERROR MESSAGE PROVIDED BY THE

        C	CALLER.  THESE MESSAGES CORRESPOND TO ERRORS INCURRED DURING

        C	THE USE OF THE FOLLOWING MACRO ROUTINES (CALLED FROM FORTRAN):

        C	BLDSWT,GETCML,GETVER,GETREC,PUTREC,SCANO,SCANI,SYNTX,MRKREC,PNTREC,

        C	OPNFIL AND CLSFIL.

        C

        C

        C

        C  MODIFICATIONS:

        C

        C NO.		DATE		AUTHOR		PURPOSE

        C --		----		------		-------

        C

        C 001		01-JAN-77	K.D. MORSE	ATTACH TERMINAL.

        C

FORTRAN IV-PLUS V02-51D		02:21:00    22-AUG-78		PAGE 2   

ERRORS.FTN   	/TR:BLOCKS/WR


         

        C

        C

        C  VARIABLES:

        C

        C

        C	BRCODE--ERROR CODE FOR SPECIFIC ERROR, USED AS A BRANCH VALUE

        C	BYTE1--ONE BYTE OF OUTPUT DATA

        C	BYTE2--ONE BYTE OF OUTPUT DATA

        C	DATLNG--LENGTH OF ASCII OUTPUT DATA

        C	ERRTYP--ERROR CODE FOR TYPE OF ERROR, USED AS A BRANCH VALUE

        C	INTG1--ONE INTEGER OF OUTPUT DATA

        C	OUTDAT--ASCII OUTPUT DATA

        C	PROMPT--ASCII PROMPT STRING FOR UTILITY

        C

        C

        C

        C

0001    	SUBROUTINE ERRORS(ERRTYP,BRCODE,PROMPT,OUTDAT,DATLNG,BYTE1,

        	1INTG1,BYTE2)

        C

        C

        C

0002    	INTEGER BRCODE,DATLNG,ERRTYP

0003    	BYTE PROMPT(3),OUTDAT(1),BYTE1(1),BYTE2(1)

0004    	DATA ITTY/5/,IODET/O2000/

        C

        C

        C

        C

        C	FORMAT STATEMENTS

        C

        C

        C

0005    11	FORMAT(' ',3A1,' -- INVALID ERROR TYPE OF ',I5)

        C

        C

        C	ERROR MESSAGES

        C

        C

        C

        C	COMMAND LINE ERRORS

        C

0006    9511	FORMAT(' ',3A1,' -- COMMAND LINE I/O ERROR')

0007    9521	FORMAT(' ',3A1,' -- UNABLE TO OPEN COMMAND FILE')

0008    9531	FORMAT(' ',3A1,' -- ILLEGAL INDIRECT FILE SYNTAX')

0009    9541	FORMAT(' ',3A1,' -- INDIRECT FILES TOO DEEPLY NESTED')

0010    9551	FORMAT(' ',3A1,' -- INCORRECT SYNTAX IN:  ',<DATLNG>A1)

        C

        C	FILE SPECIFICATION ERRORS

        C

0011    9601	FORMAT(' ',3A1,' -- ',<DATLNG>A1,' FILE CONTAINS ILLEGAL '

        	1,'SWITCH')

0012    9611	FORMAT(' ',3A1,' -- NO ',<DATLNG>A1,' FILENAME OR DEFAULT'

        	1,' NAME SPECIFIED')

0013    9621	FORMAT(' ',3A1,' -- NO ',<DATLNG>A1,' FILE TYPE '

FORTRAN IV-PLUS V02-51D		02:21:00    22-AUG-78		PAGE 3   

ERRORS.FTN   	/TR:BLOCKS/WR


        	1,'OR DEFAULT TYPE SPECIFIED')

0014    9631	FORMAT(' ',3A1,' -- ASTERISK NOT ACCEPTABLE AS PART OF '

        	1/T16,<DATLNG>A1,' FILE SPECIFICATION')

        C

        C	BUILD SWITCH TABLE ERRORS

        C

0015    9641	FORMAT(' ',3A1,' -- ',I5,' SWITCHES SPECIFIED (MAXIMUM'

        	1,' OF 10 ALLOWED)')

0016    9643	FORMAT(' ',3A1,' -- ILLEGAL SWITCH TYPE OF ',A1)

0017    9647	FORMAT(' ',3A1,' -- ILLEGAL SWITCH LENGTH OF ',I3)

        C

        C	OPEN ERRORS

        C

0018    9661	FORMAT(' ',3A1,' -- NO ',<DATLNG>A1,' FILENAME OR DEFAULT'

        	1,' NAME SPECIFIED ON OPNFIL CALL')

0019    9671	FORMAT(' ',3A1,' -- UNABLE TO OPEN FILE ',<INTG1>A1,

        	1/T15,'MAXIMUM NUMBER OF FILES ALREADY OPEN')

0020    9681	FORMAT(' ',3A1,' -- ',<DATLNG>A1,' FILE CONTAINS ILLEGAL '

        	1,'SWITCH ON OPNFIL CALL')

0021    9691	FORMAT(' ',3A1,' -- UNABLE TO OPEN FILE ',<INTG1>A1,

        	1/T16,'DUE TO ILLEGAL OPEN CODE')

0022    9701	FORMAT(' ',3A1,' -- STANDARD SYSTEM OPEN ERROR CODE'

        	1,' OF ',I4,/T16'ON FILE ',<INTG1>A1)

0023    9711	FORMAT(' ',3A1,' -- INCORRECT SYNTAX IN:  ',<INTG1>A1)

0024    9721	FORMAT(' ',3A1,' -- UNABLE TO OPEN FILE ',<INTG1>A1)

        C

        C	CLOSE ERRORS

        C

0025    9731	FORMAT(' ',3A1,' -- UNABLE TO CLOSE FILE ',<DATLNG>A1,

        	1' AS IT WAS NOT OPEN')

0026    9741	FORMAT(' ',3A1,' -- UNABLE TO CLOSE AND DELETE FILE ',

        	1<DATLNG>A1)

0027    9751	FORMAT(' ',3A1,' -- UNABLE TO CLOSE AND SAVE FILE ',

        	1<DATLNG>A1)

0028    9761	FORMAT(' ',3A1,' -- UNABLE TO SPOOL FILE ',

        	1<DATLNG>A1/T15'STANDARD SYSTEM ERROR CODE/DIR. STATUS WORD =',I5)

0029    9771	FORMAT(' ',3A1,' -- UNABLE TO DELETE SPOOLED FILE ',

        	1<DATLNG>A1/T15'STANDARD SYSTEM ERROR CODE/DIR. STATUS WORD =',I5)

0030    9781	FORMAT(' ',3A1,' -- ILLEGAL STATUS OF ',I5,' FOR CLOSE')

0031    9782	FORMAT(' ',3A1,' -- UNABLE TO RELEASE TERMINAL CHANNEL')

0032    9783	FORMAT(' ',3A1,' -- UNABLE TO CLOSE FILE ',<DATLNG>A1)

        C

        C	READ/WRITE ERRORS

        C

0033    9791	FORMAT(' ',3A1,' -- UNABLE TO READ FILE ',<DATLNG>A1)

0034    9801	FORMAT(T16,'AS IT WAS NOT OPEN')

0035    9811	FORMAT(T16,'RECORD SIZE OF ',I4,' TOO LARGE FOR BUFFER')

0036    9821	FORMAT(' ',3A1,' -- UNABLE TO WRITE TO FILE ',<DATLNG>A1)

0037    9831	FORMAT(T16,'AS IT WAS NOT OPEN')

0038    9841	FORMAT(T16,'I/O STATUS BLOCK ERROR CODE = ',I5)

0039    9851	FORMAT(' ',3A1,' -- EOF ON FILE ',<DATLNG>A1)

        C

        C	MARK/POINT ERROR FORMATS

        C

0040    9861	FORMAT(' ',3A1,' -- UNABLE TO MARK FILE ',<DATLNG>A1)

0041    9871	FORMAT(' ',3A1,' -- UNABLE TO POINT TO FILE ',<DATLNG>A1)

FORTRAN IV-PLUS V02-51D		02:21:00    22-AUG-78		PAGE 4   

ERRORS.FTN   	/TR:BLOCKS/WR


0042    9891	FORMAT(T16,' AS FILE NOT CORRECTLY MARKED')

0043    9892	FORMAT(' ',3A1,' -- UNABLE TO MARK/POINT TO FILE ',<DATLNG>A1,

        	1/' ',T16,'AS EOF')

        C

        C	VERSION ERROR

        C

0044    9901	FORMAT(' ',3A1,' -- NO PREVIOUS VERSION OF FILE ',<DATLNG>

        	1A1,' EXISTS')

        C

        C	PROGRAM ERROR MESSAGE

        C

0045    9991	FORMAT(' ',3X,' -- INTERNAL SOFTWARE CONSISTENCY CHECK')

FORTRAN IV-PLUS V02-51D		02:21:00    22-AUG-78		PAGE 5   

ERRORS.FTN   	/TR:BLOCKS/WR


         

        C

        C	BRANCH ON TYPE OF ERROR:

        C		1--GETCML

        C		2--SYNTX

        C		3--SCANO/SCANI

        C		4--BLDSWT

        C		5--OPNFIL

        C		6--CLSFIL

        C		7--GETREC/PUTREC

        C		8--MRKREC/PNTREC

        C		9--GETVER

        C

0046    	CALL WTQIO(IODET,ITTY)			! ++001 DETACH TERMINAL

0047    	GOTO (100,200,300,400,500,600,700,800,900),-ERRTYP

0048    	WRITE(6,11)PROMPT,ERRTYP

0049    	GOTO 1000

        C

        C

        C

        C	MACRO ROUTINE ERRORS

        C

        C

        C

        C	GETCML ERRORS

        C

        C		 0--END OF FILE, NO MESSAGE

        C		-1--GCML I/O ERROR

        C		-2--UNABLE TO OPEN COMMAND FILE

        C		-3--ILLEGAL INDIRECT FILE SYNTAX

        C		-4--INDIRECT FILES TOO DEEPLY NESTED

        C

        C		PARAMETERS=PROMPT

        C

0050    100	GOTO (9510,9520,9530,9540),-BRCODE

0051    	GOTO 1000

0052    9510	WRITE(6,9511)PROMPT

0053    	GOTO 1000

0054    9520	WRITE(6,9521)PROMPT

0055    	GOTO 1000

0056    9530	WRITE(6,9531)PROMPT

0057    	GOTO 1000

0058    9540	WRITE(6,9541)PROMPT

0059    	GOTO 1000

        C

        C

        C	SYNTX ERRORS

        C

        C

        C

        C		 PARAMETERS=PROMPT, LENGTH OF INVALID PART, INVALID PART

0060    200	IF (BRCODE.NE.0) WRITE(6,9551)PROMPT,(OUTDAT(I),I=1,DATLNG)

0061    	GOTO 1000

        C

        C

        C	SCANO/SCANI ERRORS

FORTRAN IV-PLUS V02-51D		02:21:00    22-AUG-78		PAGE 6   

ERRORS.FTN   	/TR:BLOCKS/WR


        C

        C

        C

        C		-1--ILLEGAL SWITCH ON FILE SPECIFICATION

        C		-2--NO FILENAME OR DEFAULT NAME SPECIFIED

        C		-3--NO FILE TYPE OR DEFAULT TYPE SPECIFIED

        C		-4--ASTERISK ILLEGAL AS PART OF FILE SPECIFICATION

        C

        C		PARAMETERS=PROMPT, TYPE OF FILE, LENGTH OF TYPE OF FILE

        C				(TYPE OF FILE=INPUT, OUTPUT, COMPARE, CORRECTION, ETC.)

        C

0062    300	GOTO (9600,9610,9620,9630),-BRCODE

0063    9600	WRITE(6,9601)PROMPT,(OUTDAT(I),I=1,DATLNG)

0064    	GOTO 1000

0065    9610	WRITE(6,9611)PROMPT,(OUTDAT(I),I=1,DATLNG)

0066    	GOTO 1000

0067    9620	WRITE(6,9621)PROMPT,(OUTDAT(I),I=1,DATLNG)

0068    	GOTO 1000

0069    9630	WRITE(6,9631)PROMPT,(OUTDAT(I),I=1,DATLNG)

0070    	GOTO 1000

        C

        C

        C	SWITCH TABLE ERRORS

        C

        C

        C

        C		 0--ILLEGAL NUMBER OF SWITCHES SPECIFIED

        C			PARAMETERS=PROMPT, NUMBER OF SWITCHES SPECIFIED

        C		-1--ILLEGAL SWITCH TYPE

        C			PARAMETERS=PROMPT, ILLEGAL TYPE SPECIFIED

        C		-2--ILLEGAL SWITCH LENGTH SPECIFIED

        C			PARAMETERS=PROMPT, ILLEGAL LENGTH SPECIFIED

        C

0071    400	GOTO (9642,9644),-BRCODE

0072    	WRITE(6,9641)PROMPT,OUTDAT

0073    	GOTO 450

0074    9642	WRITE(6,9643)PROMPT,OUTDAT

0075    	GOTO 450

0076    9644	WRITE(6,9647)PROMPT,OUTDAT

0077    450	WRITE(6,9991)PROMPT

0078    	GOTO 1000

        C

        C

        C	OPEN FILE ERRORS

        C

        C

        C

        C		-1--NO FILENAME OR DEFAULT NAME SPECIFIED

        C			PARAMETERS=PROMPT, TYPE OF FILE, LENGTH OF TYPE OF FILE

        C		-2--UNABLE TO OPEN FILE AS FOUR FILES ALREADY OPEN

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, FILE SPECIFICATION LENGTH

        C		-3--FILE SPECIFICATION CONTAINS SWITCH

        C			PARAMETERS=PROMPT, TYPE OF FILE, LENGTH OF TYPE OF FILE

        C		-4--INVALID OPEN CODE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, LENGTH OF FILE SPECIFICATION

        C		-5--STANDARD SYSTEM ERROR CODE ON OPEN

FORTRAN IV-PLUS V02-51D		02:21:00    22-AUG-78		PAGE 7   

ERRORS.FTN   	/TR:BLOCKS/WR


        C			PARAMETERS=PROMPT, FILE SPECIFICATION, LENGTH OF FILE SPECIFICATION, ERROR CODE

        C		-6--INVALID FILE SPECIFICATION SYNTAX

        C			PARAMETERS=PROMPT,PART IN ERROR, LENGTH OF PART IN ERROR

        C		-7--UNABLE TO OPEN FILE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, LENGTH OF FILE SPECIFICATION

        C

0079    500	GOTO (9660,9670,9680,9690,9700,9710,9720),-BRCODE

0080    9660	WRITE(6,9661)PROMPT,(OUTDAT(J),J=1,DATLNG)

0081    	GOTO 1000

0082    9670	WRITE(6,9671)PROMPT,(BYTE1(J),J=1,INTG1)

0083    	GOTO 1000

0084    9680	WRITE(6,9681)PROMPT,(OUTDAT(J),J=1,DATLNG)

0085    	GOTO 1000

0086    9690	WRITE(6,9691)PROMPT,(BYTE1(J),J=1,INTG1)

0087    	GOTO 1000

0088    9700	WRITE(6,9701)PROMPT,BYTE2,(BYTE1(J),J=1,INTG1)

0089    	GOTO 1000

0090    9710	WRITE(6,9711)PROMPT,(BYTE1(I),I=1,INTG1)

0091    	GOTO 1000

0092    9720	WRITE(6,9721)PROMPT,(BYTE1(J),J=1,INTG1)

0093    	GOTO 1000

        C

        C

        C	CLOSE ERRORS

        C

        C

        C

        C		-1--UNABLE TO CLOSE FILE AS NOT OPEN

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, LENGTH OF FILE SPECIFICATION

        C		-2--UNABLE TO CLOSE AND DELETE FILE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, LENGTH OF FILE SPECIFICATION

        C		-3--UNABLE TO CLOSE AND SAVE FILE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, LENGTH OF FILE SPECIFICATION

        C		-4--UNABLE TO SPOOL FILE DUE TO STANDARD SYSTEM ERROR CODE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, LENGTH OF FILE SPECIFICATION, ERROR CODE

        C		-5--UNABLE TO DELETE SPOOLED FILE DUE TO STANDARD SYSTEM ERROR CODE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, LENGTH OF FILE SPECIFICATION, ERROR CODE

        C		-6--ILLEGAL CLOSE CODE

        C			PARAMETERS=PROMPT, CLOSE CODE

        C		-7--UNABLE TO RELEASE TERMINAL CHANNEL

        C			PARAMETERS=PROMPT

        C		-8--UNABLE TO CLOSE FILE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, LENGTH OF FILE SPECIFICATION

        C

0094    600	GOTO (9730,9740,9750,9760,9770,9780,9790,9795),-BRCODE

0095    9730	WRITE(6,9731)PROMPT,(OUTDAT(J),J=1,DATLNG)

0096    	GOTO 1000

0097    9740	WRITE(6,9741)PROMPT,(OUTDAT(J),J=1,DATLNG)

0098    	GOTO 1000

0099    9750	WRITE(6,9751)PROMPT,(OUTDAT(J),J=1,DATLNG)

0100    	GOTO 1000

0101    9760	WRITE(6,9761)PROMPT,(OUTDAT(J),J=1,DATLNG)

0102    	GOTO 1000

0103    9770	WRITE(6,9771)PROMPT,(OUTDAT(J),J=1,DATLNG)

0104    	GOTO 1000

0105    9780	WRITE(6,9781)PROMPT,INTG1

FORTRAN IV-PLUS V02-51D		02:21:00    22-AUG-78		PAGE 8   

ERRORS.FTN   	/TR:BLOCKS/WR


0106    	GOTO 1000

0107    9790	WRITE(6,9782)PROMPT

0108    	GOTO 1000

0109    9795	WRITE(6,9783)PROMPT,(OUTDAT(J),J=1,DATLNG)

0110    	GOTO 1000

        C

        C

        C

        C	READ/WRITE ERRORS

        C

        C		 0--EOF ON FILE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, FILE SPECIFICATION LENGTH

        C		-1--UNABLE TO READ FILE AS NOT OPEN

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, FILE SPECIFICATION LENGTH

        C		-2--UNABLE TO READ FILE AS RECORD TOO LARGE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, FILE SPECIFICATION LENGTH, RECORD SIZE

        C		-3--UNABLE TO READ FILE DUE TO STANDARD SYSTEM ERROR CODE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, FILE SPECIFICATION LENGTH, ERROR CODE

        C		-4--UNABLE TO WRITE TO FILE AS NOT OPEN

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, FILE SPECIFICATION LENGTH

        C		-5--UNABLE TO WRITE TO FILE DUE TO STANDARD SYSTEM ERROR CODE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, FILE SPECIFICATION LENGTH, ERROR CODE

        C		-6--UNABLE TO WRITE TO FILE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, FILE SPECIFICATION LENGTH

        C		-7--UNABLE TO READ FILE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, FILE SPECIFICATION LENGTH

        C

0111    700	GOTO (9800,9810,9820,9830,9840,9845,9850),-BRCODE

0112    	WRITE(6,9851)PROMPT,(OUTDAT(J),J=1,DATLNG)

0113    	GOTO 1000

0114    9800	WRITE(6,9791)PROMPT,(OUTDAT(J),J=1,DATLNG)

0115    	WRITE(6,9801)

0116    	GOTO 1000

0117    9810	WRITE(6,9791)PROMPT,(OUTDAT(J),J=1,DATLNG)

0118    	WRITE(6,9811)INTG1

0119    	GOTO 1000

0120    9820	WRITE(6,9791)PROMPT,(OUTDAT(J),J=1,DATLNG)

0121    	WRITE(6,9841)BYTE1

0122    	GOTO 1000

0123    9830	WRITE(6,9821)PROMPT,(OUTDAT(J),J=1,DATLNG)

0124    	WRITE(6,9831)

0125    	GOTO 1000

0126    9840	WRITE(6,9821)PROMPT,(OUTDAT(I),I=1,DATLNG)

0127    	WRITE(6,9841)BYTE1

0128    	GOTO 1000

0129    9845	WRITE(6,9821)PROMPT,(OUTDAT(I),I=1,DATLNG)

0130    	GOTO 1000

0131    9850	WRITE(6,9791)PROMPT,(OUTDAT(I),I=1,DATLNG)

0132    	GOTO 1000

        C

        C	MARK/POINT ERRORS

        C

        C

        C		 0--UNABLE TO MARK/POINT AS EOF

        C		-1--UNABLE TO MARK FILE AS NOT OPEN

        C		-2--UNABLE TO MARK FILE

FORTRAN IV-PLUS V02-51D		02:21:00    22-AUG-78		PAGE 9   

ERRORS.FTN   	/TR:BLOCKS/WR


        C		-3--UNABLE TO POINT TO FILE AS INVALID MARK DATA

        C		-4--UNABLE TO POINT TO FILE AS NOT OPEN

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, LENGTH OF FILE SPECIFICATION

        C

0133    800	GOTO (9860,9870,9880,9890),-BRCODE

0134    9860	WRITE(6,9861)PROMPT,(OUTDAT(I),I=1,DATLNG)

0135    	WRITE(6,9801)

0136    	GOTO 850

0137    9870	WRITE(6,9861)PROMPT,(OUTDAT(I),I=1,DATLNG)

0138    	GOTO 850

0139    9880	WRITE(6,9871)PROMPT,(OUTDAT(I),I=1,DATLNG)

0140    	WRITE(6,9891)

0141    	GOTO 850

0142    9890	WRITE(6,9871)PROMPT,(OUTDAT(I),I=1,DATLNG)

0143    	WRITE(6,9801)

0144    850	WRITE(6,9991)PROMPT

0145    	GOTO 1000

        C

        C	VERSION ERRORS

        C

        C

        C

        C		-1--NO PREVIOUS VERSION OF FILE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, LENGTH OF FILE SPECIFICATION

        C

0146    900	WRITE(6,9901)PROMPT,(OUTDAT(I),I=1,DATLNG)

0147    	GOTO 1000

0148    1000	RETURN

0149    	END

FORTRAN IV-PLUS V02-51D		02:21:00    22-AUG-78		PAGE 10  

ERRORS.FTN   	/TR:BLOCKS/WR


PROGRAM SECTIONS



NUMBER	 NAME	    SIZE		ATTRIBUTES



  1	$CODE1	006146  1587		RW,I,CON,LCL

  2	$PDATA	000152    53		RW,D,CON,LCL

  3	$IDATA	003774  1022		RW,D,CON,LCL

  4	$VARS	000010     4		RW,D,CON,LCL

  5	$TEMPS	000002     1		RW,D,CON,LCL





ENTRY POINTS



 NAME   TYPE  ADDRESS    NAME   TYPE  ADDRESS    NAME   TYPE  ADDRESS    NAME   TYPE  ADDRESS    NAME   TYPE  ADDRESS   



 ERRORS	      1-000000





VARIABLES



 NAME   TYPE  ADDRESS    NAME   TYPE  ADDRESS    NAME   TYPE  ADDRESS    NAME   TYPE  ADDRESS    NAME   TYPE  ADDRESS   



 BRCODE	I*2   F-000004*	 DATLNG	I*2   3-003762*	 ERRTYP	I*2   F-000002*	 I	I*2   4-000004	 INTG1	I*2   3-003764*

 IODET	I*2   4-000002	 ITTY	I*2   4-000000	 J	I*2   4-000006





ARRAYS



 NAME   TYPE  ADDRESS	    SIZE 	DIMENSIONS



 BYTE1	L*1   F-000014*	000001     0	(1)

 BYTE2	L*1   F-000020*	000001     0	(1)

 OUTDAT	L*1   F-000010*	000001     0	(1)

 PROMPT	L*1   F-000006*	000003     1	(3)





LABELS



 LABEL   ADDRESS 	 LABEL   ADDRESS 	 LABEL   ADDRESS 	 LABEL   ADDRESS 	 LABEL   ADDRESS 	



 11'	 3-000000	 100	 1-000226	 200	 1-000470	 300	 1-000614	 400	 1-001272

 450	 1-001500	 500	 1-001542	 600	 1-002552	 700	 1-003560	 800	 1-005030

 850	 1-005554	 900	 1-005614	 1000	 1-005716	 9510	 1-000260	 9511'	 3-000044

 9520	 1-000322	 9521'	 3-000106	 9530	 1-000364	 9531'	 3-000156	 9540	 1-000426

 9541'	 3-000226	 9551'	 3-000302	 9600	 1-000642	 9601'	 3-000352	 9610	 1-000750

 9611'	 3-000436	 9620	 1-001056	 9621'	 3-000532	 9630	 1-001164	 9631'	 3-000626

 9641'	 3-000744	 9642	 1-001362	 9643'	 3-001042	 9644	 1-001432	 9647'	 3-001110

 9660	 1-001570	 9661'	 3-001160	 9670	 1-001676	 9671'	 3-001272	 9680	 1-002004

 9681'	 3-001412	 9690	 1-002112	 9691'	 3-001514	 9700	 1-002220	 9701'	 3-001620

 9710	 1-002336	 9711'	 3-001726	 9720	 1-002444	 9721'	 3-001776	 9730	 1-002600

 9731'	 3-002044	 9740	 1-002706	 9741'	 3-002140	 9750	 1-003014	 9751'	 3-002222

 9760	 1-003122	 9761'	 3-002302	 9770	 1-003230	 9771'	 3-002434	 9780	 1-003336

 9781'	 3-002600	 9782'	 3-002654	 9783'	 3-002732	 9790	 1-003410	 9791'	 3-003000

 9795	 1-003452	 9800	 1-003706	 9801'	 3-003046	 9810	 1-004034	 9811'	 3-003076

 9820	 1-004172	 9821'	 3-003154	 9830	 1-004330	 9831'	 3-003226	 9840	 1-004456

 9841'	 3-003256	 9845	 1-004614	 9850	 1-004722	 9851'	 3-003324	 9860	 1-005056

FORTRAN IV-PLUS V02-51D		02:21:00    22-AUG-78		PAGE 11  

ERRORS.FTN   	/TR:BLOCKS/WR


 9861'	 3-003362	 9870	 1-005202	 9871'	 3-003430	 9880	 1-005306	 9890	 1-005432

 9891'	 3-003502	 9892'	    **   	 9901'	 3-003544	 9991'	 3-003634





FUNCTIONS AND SUBROUTINES REFERENCED



 WTQIO





TOTAL SPACE ALLOCATED = 012326  2667



NO FPP INSTRUCTIONS GENERATED



OBJ$:ERRORS,LIS$:ERRORS/-SP=SRC$:ERRORS.FTN

