FORTRAN IV-PLUS V02-51D		02:41:59    22-AUG-78		PAGE 1   

INIT.FTN     	/TR:BLOCKS/WR


        C

        C

        C

        C	INIT -- INITIALIZE TABLES AND POINTERS

        C

        C

        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  28-JAN-77

        C

        C

        C

        C

        C	THIS SUBROUTINE INITIALIZES THE TABLES AND POINTERS.

        C

        C

        C

        C

        C

        C  MODIFICATIONS:

        C

        C NO		DATE		PROGRAMMER		PURPOSE

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

        C

        C

        C

        C

FORTRAN IV-PLUS V02-51D		02:41:59    22-AUG-78		PAGE 2   

INIT.FTN     	/TR:BLOCKS/WR


         

        C

        C

        C  VARIABLES:

        C

        C

        C	IFREE--FIRST UNUSED BYTE IN ARRAY BUFR

        C	IFIRST--RECORD NUMBER OF FIRST RECORD IN ARRAY BUFR

        C	LAST--RECORD NUMBER OF LAST RECORD IN ARRAY BUFR

        C	LSTMAT--RECORD NUMBER OF LAST RECORD MATCHED

        C	MAP--ARRAY HOLDING MAPPING VALUES

        C	MAPEND--RECORD NUMBER OF LAST RECORD THAT CAN BE MAPPED INTO

        C	        THIS TABLE OF VALUES

        C	MAPTOP--RECORD NUMBER OF FIRST RECORD THAT CAN BE MAPPED INTO

        C		THIS TABLE OF VALUES

        C	NUMLIN--NUMBER OF RECORDS THAT CAN BE MAPPED INTO THE MAP TABLE

        C		AT ONE TIME

        C

        C

        C

        C

FORTRAN IV-PLUS V02-51D		02:41:59    22-AUG-78		PAGE 3   

INIT.FTN     	/TR:BLOCKS/WR


         

0001    	SUBROUTINE INIT

        C

        C

0002    	COMMON MAP(100,2),NUMLIN,MAPTOP(2),LSTMAP(2),MLUN,

        	1IHOLD(30,2),NINCOR,IFREE(2),IFIRST(2),LAST(2),MAXBUF,

        	2BUFR,ISWTCH,COMCHR,NSWVAL(10),LSTMAT(2),IRECSZ,

        	3MRKPNT(4,2),INOUT,MAPEND(2),LINSIZ,MAPNAM,MNMLNG,MTYPE,MSTAT

        	4,IERR1,IERR2,IKIND,OLUN,MAPMRK(3,2),MPRINT,BARCHR

        C

        C

0003    	INTEGER OLUN

0004    	BYTE COMCHR(16),BUFR(7680,2),MAPNAM(12),BARCHR

         

0005    	DO 50 I=1,2

0006    	MAPEND(I)=0

0007    	MAPTOP(I)=1

0008    	LSTMAP(I)=0

0009    	LSTMAT(I)=0

0010    	IFREE(I)=1

0011    	IFIRST(I)=1

0012    	LAST(I)=0

0013    	DO 50 J=1,NUMLIN

0014    50	MAP(J,I)=0

0015    	RETURN

0016    	END

FORTRAN IV-PLUS V02-51D		02:41:59    22-AUG-78		PAGE 4   

INIT.FTN     	/TR:BLOCKS/WR


PROGRAM SECTIONS



NUMBER	 NAME	    SIZE		ATTRIBUTES



  1	$CODE1	000166    59		RW,I,CON,LCL

  4	$VARS	000004     2		RW,D,CON,LCL

  6	.$$$$.	037222  8009		RW,D,OVR,GBL





ENTRY POINTS



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



 INIT	      1-000000





VARIABLES



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



 BARCHR	L*1   6-037220	 I	I*2   4-000000	 IERR1	I*2   6-037172	 IERR2	I*2   6-037174	 IKIND	I*2   6-037176

 INOUT	I*2   6-037140	 IRECSZ	I*2   6-037116	 ISWTCH	I*2   6-037044	 J	I*2   4-000002	 LINSIZ	I*2   6-037146

 MAXBUF	I*2   6-001042	 MLUN	I*2   6-000632	 MNMLNG	I*2   6-037164	 MPRINT	I*2   6-037216	 MSTAT	I*2   6-037170

 MTYPE	I*2   6-037166	 NINCOR	I*2   6-001024	 NUMLIN	I*2   6-000620	 OLUN	I*2   6-037200





ARRAYS



 NAME   TYPE  ADDRESS	    SIZE 	DIMENSIONS



 BUFR	L*1   6-001044	036000  7680	(7680,2)

 COMCHR	L*1   6-037046	000020     8	(16)

 IFIRST	I*2   6-001032	000004     2	(2)

 IFREE	I*2   6-001026	000004     2	(2)

 IHOLD	I*2   6-000634	000170    60	(30,2)

 LAST	I*2   6-001036	000004     2	(2)

 LSTMAP	I*2   6-000626	000004     2	(2)

 LSTMAT	I*2   6-037112	000004     2	(2)

 MAP	I*2   6-000000	000620   200	(100,2)

 MAPEND	I*2   6-037142	000004     2	(2)

 MAPMRK	I*2   6-037202	000014     6	(3,2)

 MAPNAM	L*1   6-037150	000014     6	(12)

 MAPTOP	I*2   6-000622	000004     2	(2)

 MRKPNT	I*2   6-037120	000020     8	(4,2)

 NSWVAL	I*2   6-037066	000024    10	(10)





LABELS



 LABEL   ADDRESS 	 LABEL   ADDRESS 	 LABEL   ADDRESS 	 LABEL   ADDRESS 	 LABEL   ADDRESS 	



 50	    **   





TOTAL SPACE ALLOCATED = 037414  8070



FORTRAN IV-PLUS V02-51D		02:41:59    22-AUG-78		PAGE 5   

INIT.FTN     	/TR:BLOCKS/WR


NO FPP INSTRUCTIONS GENERATED



OBJ$:INIT,LIS$:INIT/-SP=SRC$:INIT

