FORTRAN IV-PLUS V02-51D		02:43:06    22-AUG-78		PAGE 1   

MRGDIF.FTN   	/TR:BLOCKS/WR


        C

        C

        C

        C	MRGDIF -- OUTPUT A MERGED SET OF DIFFERENCES

        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  22-NOV-76

        C

        C

        C

        C

        C	THIS SUBROUTINE WRITES CMP OUTPUT IN THE FORM DESIRED TO THE

        C	OUTPUT FILE.

        C

        C

        C

        C

        C

        C  MODIFICATIONS:

        C

        C NO		DATE		PROGRAMMER		PURPOSE

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

        C

        C

        C

        C

FORTRAN IV-PLUS V02-51D		02:43:06    22-AUG-78		PAGE 2   

MRGDIF.FTN   	/TR:BLOCKS/WR


         

        C

        C

        C  VARIABLES:

        C

        C	CLUN--LOGICAL UNIT NUMBER FOR OPENING COMPARE FILE CHANNEL

        C	CNMLNG--LENGTH OF THE COMPARE FILE SPECIFICATION

        C	COMNAM--COMPARE FILE SPECIFICATION

        C	COMREC--I/O BUFFER FOR COMPARE FILE RECORDS

        C	CPRNT--COUNT OF THE NUMBER OF MATCHED COMPARE-FILE RECORDS PRINTED

        C	CRECNM--CURRENT COMPARE FILE RECORD NUMBER

        C	CSTAT--INDICATOR OF TYPE OF CLOSE FOR COMPARE FILE LUN

        C	CTYPE--TYPE OF OPEN FOR COMPARE FILE (0=INPUT, 1=OUTPUT)

        C	IERR1--ERROR INDICATOR FROM FORTRAN ROUTINES

        C	IERR2--ERROR INDICATOR FROM MACRO ROUTINES

        C	ILUN--LOGICAL UNIT NUMBER FOR OPENING INPUT FILE CHANNEL

        C	INMLNG--LENGTH OF THE INPUT FILE SPECIFICATION

        C	INOUT--INDICATOR FOR TYPE OF EDIT FOR FILE RECORDS AND INDICATOR

        C	       FOR HEADERS TO OUTPUT

        C	INPNAM--ASCII INPUT FILE SPECIFICATION

        C	IOUT--NUMBER OF RECORDS OUTPUT

        C	IPRNT--COUNT OF THE NUMBER OF MATCHED INPUT-FILE RECORDS PRINTED

        C	IRECNM--CURRENT INPUT FILE RECORD NUMBER

        C	IRECSZ--NUMBER OF CHARACTERS IN AN I/O BUFFER

        C	ISTAT--INDICATOR OF TYPE OF CLOSE FOR INPUT FILE CHANNEL

        C	ISUB--RECORD NUMBER OF THE INPUT RECORD BEING CURRECNTLY EXAMINED

        C	ISWTCH--VALUE OF SWITCHES SPECIFIED WITH INPUT FILE SPECIFICATION

        C	ITYPE--TYPE OF OPEN FOR INPUT FILE (0=INPUT, 1=OUTPUT)

        C	LENCOM--LENGTH OF COMPARE FILE RECORD

        C	LENINP--LENGTH OF INPUT FILE RECORD

        C	LSTMAT--LAST RECORD USED FROM BUFFER

        C	MAP--MAPPING TABLE OF COMPARE FILE RECORDS ONTO INPUT FILE

        C		RECORDS, AND INPUT FILE RECORDS ONTO COMPARE FILE RECORDS

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

        C		THE MAP TABLE

        C	MAPNAM--NAME OF MAP FILE

        C	MAPTOP--RECORD NUMBER OF THE FIRST RECORD THAT CAN BE MAPPED IN

        C		THE MAP TABLE

        C	MLUN--MAP FILE LUN

        C	MNMLNG--LENGTH OF MAP FILE NAME

        C	MPRINT--NUMBER OF MATCHED RECORDS TO PRINT AFTER A SET OF UNMATCHED

        C		RECORDS

        C	NOW--CURRENT RECORD NUMBER

        C	NSWVAL--ARRAY HOLDING VALUES TO TEST SWITCHES AGAINST

        C	NUMLIN--MAXIMUM NUMBER OF RECORDS PER FILE THAT CAN BE HELD IN

        C		THE MAP TABLE

        C	OLUN--LOGICAL UNIT NUMBER FOR OPENING OUTPUT FILE CHANNEL

        C	ONMLNG--LENGTH OF THE OUTPUT FILE SPECIFICATION

        C	OSTAT--STATUS OF TYPE OF CLOSE FOR OUTPUT FILE CHANNEL

        C	OSWTCH--VALUE OF SWITCHES SPECIFIED WITH OUTPUT FILE SPECIFICATION

        C	OUTMOD--MODE OF OUTPUT REQUESTED, I.E., ASCII, OCTAL, OR HEXADECIMAL

        C	OUTNAM--OUTPUT FILE SPECIFICATION

        C	RECORD--I/O BUFFER

        C

        C

FORTRAN IV-PLUS V02-51D		02:43:06    22-AUG-78		PAGE 3   

MRGDIF.FTN   	/TR:BLOCKS/WR


         

0001    	SUBROUTINE MRGDIF(ILUN,RECORD,LENINP,ISTAT,INPNAM,INMLNG,ITYPE,

        	1CLUN,CSTAT,COMREC,LENCOM,COMNAM,CNMLNG,CTYPE,OUTMOD)

        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    	DIMENSION NOW(2)

0004    	INTEGER OLUN,CLUN,CSTAT,CNMLNG,CTYPE,CPRNT

0005    	BYTE INPNAM(1),COMNAM(1),COMCHR(16),BUFR(7680,2),MAPNAM(12)

0006    	BYTE COMREC(1),RECORD(1),OUTMOD,BARCHR

         

0007    101	FORMAT(' ',<MIN0(LINSIZ,72)>('*'),/' ',<MIN0(LINSIZ,72)/2-14>

        	1('*'),' MERGED LIST OF DIFFERENCES ',<MIN0(LINSIZ,72)/2-14>

        	2('*'),/' ',<MIN0(LINSIZ,72)>('*')//)

0008    111	FORMAT(' FILE ',<INMLNG>A1)

0009    112	FORMAT(' FILE ',<CNMLNG>A1)

0010    113	FORMAT(' ',<29>('*'))

0011    114	FORMAT(' ',<54>('*')/' ',<54>('*'))

0012    121	FORMAT(' ',15X,'NONE')

0013    131	FORMAT('1')

        C

        C	OPEN MAP FILE.

        C

0014    	CALL OPNFIL(MAPNAM,MNMLNG,MLUN,RECORD,IRECSZ,MTYPE,IERR2)

0015    	IF (IERR2 .LE. 0) GOTO 924

        C

        C	OPEN COMPARE AND INPUT FILES.

        C

0016    400	CALL OPNFIL(INPNAM,INMLNG,ILUN,RECORD,IRECSZ,ITYPE,IERR2)

0017    	IF (IERR2 .LE. 0) GOTO 912

0018    	CALL OPNFIL(COMNAM,CNMLNG,CLUN,COMREC,IRECSZ,CTYPE,IERR2)

0019    	IF (IERR2 .LE. 0) GOTO 920

        C

        C	INITIALIZE RECORD NUMBER IN EACH FILE (NOW) AND THE NUMBER

        C	OF RECORDS PRINTED (CPRNT,IPRNT).

        C

0020    	NOW(1)=1

0021    	NOW(2)=1

0022    	CPRNT=0

0023    	IPRNT=0

0024    	IOUT=0

        C

        C	CONDITIONALLY OUTPUT HEADER.

        C

0025    	IF (INOUT .GT. 1) WRITE(OLUN,131,ERR=918)

0026    	WRITE(OLUN,101,ERR=918)

        C

        C	FILL BUFFERS WITH RECORDS.

        C

0027    	CALL FILBUF(ILUN,RECORD,LENINP,ISTAT,INPNAM,INMLNG,ITYPE)

FORTRAN IV-PLUS V02-51D		02:43:06    22-AUG-78		PAGE 4   

MRGDIF.FTN   	/TR:BLOCKS/WR


0028    	IF (IERR2 .EQ. 0) GOTO 350

0029    	IF (IERR1 .LT. 0) GOTO 1000

0030    350	IERR1=1

0031    	CALL FILBUF(CLUN,COMREC,LENCOM,CSTAT,COMNAM,CNMLNG,CTYPE)

0032    	IF (IERR2 .EQ. 0) GOTO 360

0033    	IF (IERR1 .LT. 0) GOTO 1000

        C

        C	MARK MAP FILE FOR NEXT READ FOR MAPPING VALUES FOR INPUT-FILE

        C	AND COMPARE-FILE.

        C

0034    360	IERR1=1

0035    	CALL MRKREC(MLUN,MAPMRK(1,1),IERR2)

0036    	IF (IERR2 .LE. 0) GOTO 927

0037    	CALL MRKREC(MLUN,MAPMRK(1,2),IERR2)

0038    	IF (IERR2 .LE. 0) GOTO 927

0039    	ISUB=1

        C

        C	READ A MAPPING TABLE'S WORTH OF INPUT-FILE MAP VALUES AND 

        C	THEN COMPARE-FILE MAP VALUES.

        C

0040    410	CALL READMP(ISUB)

0041    	IF (IERR2 .EQ. 0) GOTO 470

0042    	IF (IERR1 .LT. 0) GOTO 1000

0043    	ISUB=2

0044    	CALL READMP(ISUB)

0045    	IF (IERR2 .EQ. 0) GOTO 460

0046    	IF (IERR1 .LT. 0) GOTO 1000

        C

        C	TEST IF A DIFFERENCE OCCURRED.

        C

0047    415	IF ((MAP(NOW(1)-MAPTOP(1)+1,1) .EQ. 0) .OR.

        	1(MAP(NOW(2)-MAPTOP(2)+1,2) .EQ. 0)) GOTO 430

0048    	IF (MAP(NOW(1)-MAPTOP(1)+1,1) .GE. 0) GOTO 416

0049    	NOW(1)=NOW(1)+1

0050    	IF (MAP(NOW(2)-MAPTOP(2)+1,2) .GE. 0) GOTO 419

0051    	GOTO 418

0052    416	IF (MAP(NOW(2)-MAPTOP(2)+1,2) .GE. 0) GOTO 417

0053    	GOTO 418

        C

        C	NO DIFFERENCE.  INCREMENT RECORD NUMBERS.

        C

0054    417	NOW(1)=NOW(1)+1

0055    418	NOW(2)=NOW(2)+1

        C

        C	CHECK IF BOTH RECORDS ARE MAPPED.  IF NOT CONTAINED IN THIS TABLE,

        C	READ ANOTHER TABLE'S WORTH OF VALUES.

        C

0056    419	IF (NOW(1) .LE. MAPEND(1)) GOTO 420

0057    	ISUB=1

0058    	CALL READMP(ISUB)

0059    	IF (IERR2 .EQ. 0) GOTO 470

0060    	IF (IERR1 .LT. 0) GOTO 1000

0061    420	IF (NOW(2) .LE. MAPEND(2)) GOTO 415

0062    	ISUB=2

0063    	CALL READMP(ISUB)

0064    	IF (IERR2 .EQ. 0) GOTO 460

FORTRAN IV-PLUS V02-51D		02:43:06    22-AUG-78		PAGE 5   

MRGDIF.FTN   	/TR:BLOCKS/WR


0065    	IF (IERR1 .LT. 0) GOTO 1000

0066    	GOTO 415

        C

        C	A DIFFERENCE OCCURRED.  WRITE OUT HEADER.

        C

0067    430	WRITE(OLUN,111,ERR=918) (INPNAM(I),I=1,INMLNG)

0068    	ISUB=1

        C

        C	WRITE OUT RECORDS UNTIL MPRINT MATCHED/IGNORED RECORDS ARE

        C	OUTPUT.  IF MPRINT MATCHED/IGNORED RECORDS ARE NOT

        C	BETWEEN TWO MISMATCHES, THEN WRITE OUT HOWEVER MANY THERE ARE.

        C

0069    435	LSTMAT(1)=NOW(1)-1

0070    	CALL DIFOUT(ILUN,RECORD,LENINP,ISTAT,INPNAM,INMLNG,ITYPE,NOW(1)

        	1,OUTMOD)

0071    	IOUT=IOUT+1

0072    	IF (NOW(1) .EQ. 0) GOTO 470

0073    	IF (IERR1 .LT. 0) GOTO 1000

0074    437	IF (MAP(NOW(1)-MAPTOP(1)+1,1) .GT. 0) IPRNT=IPRNT+1

0075    	IF (IPRNT .GE. MPRINT) GOTO 440

0076    	IF (NOW(1) .LE. MAPEND(1)) GOTO 438

0077    	CALL READMP(ISUB)

0078    	IF (IERR2 .EQ. 0) GOTO 470

0079    	IF (IERR1 .LT. 0) GOTO 1000

0080    438	NOW(1)=NOW(1)+1

0081    	GOTO 435

        C

        C	NOW WRITE OUT CORRESPONDING COMPARE-FILE HEADER AND RECORDS.

        C

0082    440	NOW(1)=NOW(1)+1

0083    	WRITE(OLUN,113,ERR=918)

0084    	WRITE(OLUN,112,ERR=918)(COMNAM(I),I=1,CNMLNG)

0085    	ISUB=2

0086    445	LSTMAT(2)=NOW(2)-1

0087    	CALL DIFOUT(CLUN,RECORD,LENINP,CSTAT,COMNAM,CNMLNG,CTYPE,NOW(2)

        	1,OUTMOD)

0088    	IOUT=IOUT+1

0089    	IF (NOW(2) .EQ. 0) GOTO 460

0090    	IF (IERR1 .LT. 0) GOTO 1000

0091    447	IF (MAP(NOW(2)-MAPTOP(2)+1,2) .GT. 0) CPRNT=CPRNT+1

0092    	IF (CPRNT .GE. MPRINT) GOTO 450

0093    	NOW(2)=NOW(2)+1

0094    	IF (NOW(2) .LE. MAPEND(2)) GOTO 445

0095    	CALL READMP(ISUB)

0096    	IF (IERR2 .EQ. 0) GOTO 460

0097    	IF (IERR1 .LT. 0) GOTO 1000

0098    	GOTO 445

        C

        C	DONE WRITING COMPARE FILE MISMATCH RECORDS.

        C

0099    450	NOW(2)=NOW(2)+1

0100    	WRITE(OLUN,114,ERR=918)

0101    	IPRNT=0

0102    	CPRNT=0

0103    	GOTO 415

        C

FORTRAN IV-PLUS V02-51D		02:43:06    22-AUG-78		PAGE 6   

MRGDIF.FTN   	/TR:BLOCKS/WR


        C	NO MORE COMPARE FILE.  WRITE OUT REST OF MAPPED INPUT FILE.

        C

0104    460	IERR1=1

0105    	ISUB=1

0106    	IF (NOW(1) .LE. MAPEND(1)) GOTO 462

0107    	CALL READMP(ISUB)

0108    	IF (IERR2 .EQ. 0) GOTO 480

0109    	IF (IERR1 .LT. 0) GOTO 1000

0110    462	WRITE(OLUN,111,ERR=918)(INPNAM(I),I=1,INMLNG)

0111    463	LSTMAT(1)=NOW(1)-1

0112    	CALL DIFOUT(ILUN,RECORD,LENINP,ISTAT,INPNAM,INMLNG,ITYPE,NOW(1)

        	1,OUTMOD)

0113    	IOUT=IOUT+1

0114    	IF (NOW(1) .EQ. 0) GOTO 480

0115    	IF (IERR1 .LT. 0) GOTO 1000

0116    465	NOW(1)=NOW(1)+1

0117    	IF (NOW(1) .LE. MAPEND(1)) GOTO 463

0118    	CALL READMP(ISUB)

0119    	IF (IERR2 .EQ. 0) GOTO 480

0120    	IF (IERR1 .LT. 0) GOTO 1000

0121    	GOTO 463

        C

        C	NO MORE INPUT FILE.  WRITE OUT REST OF MAPPED COMPARE FILE.

        C

0122    470	IERR1=1

0123    	ISUB=2

0124    	IF (NOW(2) .LE. MAPEND(2)) GOTO 472

0125    	CALL READMP(ISUB)

0126    	IF (IERR2 .EQ. 0) GOTO 480

0127    	IF (IERR1 .LT. 0) GOTO 1000

0128    472	WRITE(OLUN,113,ERR=918)

0129    	WRITE(OLUN,112,ERR=918)(COMNAM(I),I=1,CNMLNG)

0130    473	LSTMAT(2)=NOW(2)-1

0131    	CALL DIFOUT(CLUN,COMREC,LENCOM,CSTAT,COMNAM,CNMLNG,CTYPE,NOW(2)

        	1,OUTMOD)

0132    	IOUT=IOUT+1

0133    	IF (NOW(2) .EQ. 0) GOTO 480

0134    	IF (IERR1 .LT. 0) GOTO 1000

0135    475	NOW(2)=NOW(2)+1

0136    	IF (NOW(2) .LE. MAPEND(2))  GOTO 473

0137    	CALL READMP(ISUB)

0138    	IF (IERR2 .EQ. 0) GOTO 480

0139    	IF (IERR1 .LT. 0) GOTO 1000

0140    	GOTO 473

0141    480	IF (IOUT .EQ. 0) WRITE(OLUN,121,ERR=918)

0142    	IERR1=1

0143    	CALL CLSFIL(ILUN,ISTAT,IERR2)

0144    	IF (IERR2 .LE. 0) GOTO 913

0145    490	CALL CLSFIL(CLUN,CSTAT,IERR2)

0146    	IF (IERR2 .LE. 0) GOTO 921

0147    	GOTO 1000

        C

        C	ERROR CODES

        C

        C	INPUT FILE:

        C		-12 = OPEN ERROR

FORTRAN IV-PLUS V02-51D		02:43:06    22-AUG-78		PAGE 7   

MRGDIF.FTN   	/TR:BLOCKS/WR


        C		-13 = CLOSE ERROR

        C

        C	OUTPUT FILE:

        C

        C		-18 = READ/WRITE ERROR

        C

        C	COMPARE FILE:

        C

        C		-20 = OPEN ERROR

        C		-21 = CLOSE ERROR

        C

        C	MAP FILE:

        C

        C		-24 = OPEN ERROR

        C		-25 = CLOSE ERROR

        C		-27 = MARK/POINT ERROR

        C

0148    912	IERR1=-12

0149    	GOTO 1000

0150    913	IERR1=-13

0151    	GOTO 1000

0152    918	IERR1=-18

0153    	GOTO 1000

0154    920	IERR1=-20

0155    	GOTO 1000

0156    921	IERR1=-21

0157    	GOTO 1000

0158    924	IERR1=-24

0159    	GOTO 1010

0160    925	IERR1=-25

0161    	GOTO 1010

0162    927	IERR1=-27

0163    1000	CALL CLSFIL(MLUN,MSTAT,IERR2)

0164    	IF (IERR2 .LE. 0) GOTO 925

0165    1010	RETURN

0166    	END

FORTRAN IV-PLUS V02-51D		02:43:06    22-AUG-78		PAGE 8   

MRGDIF.FTN   	/TR:BLOCKS/WR


PROGRAM SECTIONS



NUMBER	 NAME	    SIZE		ATTRIBUTES



  1	$CODE1	004322  1129		RW,I,CON,LCL

  2	$PDATA	000004     2		RW,D,CON,LCL

  3	$IDATA	000512   165		RW,D,CON,LCL

  4	$VARS	000016     7		RW,D,CON,LCL

  5	$TEMPS	000002     1		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   



 MRGDIF	      1-000000





VARIABLES



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



 BARCHR	L*1   6-037220	 CLUN	I*2   F-000020*	 CNMLNG	I*2   3-000306*	 CPRNT	I*2   4-000004	 CSTAT	I*2   F-000022*

 CTYPE	I*2   F-000034*	 I	I*2   4-000014	 IERR1	I*2   6-037172	 IERR2	I*2   6-037174	 IKIND	I*2   6-037176

 ILUN	I*2   F-000002*	 INMLNG	I*2   3-000304*	 INOUT	I*2   6-037140	 IOUT	I*2   4-000010	 IPRNT	I*2   4-000006

 IRECSZ	I*2   6-037116	 ISTAT	I*2   F-000010*	 ISUB	I*2   4-000012	 ISWTCH	I*2   6-037044	 ITYPE	I*2   F-000016*

 LENCOM	I*2   F-000026*	 LENINP	I*2   F-000006*	 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	 OUTMOD	L*1   F-000036*





ARRAYS



 NAME   TYPE  ADDRESS	    SIZE 	DIMENSIONS



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

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

 COMNAM	L*1   F-000030*	000001     0	(1)

 COMREC	L*1   F-000024*	000001     0	(1)

 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)

 INPNAM	L*1   F-000012*	000001     0	(1)

 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)

 NOW	I*2   4-000000	000004     2	(2)

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

 RECORD	L*1   F-000004*	000001     0	(1)

FORTRAN IV-PLUS V02-51D		02:43:06    22-AUG-78		PAGE 9   

MRGDIF.FTN   	/TR:BLOCKS/WR






LABELS



 LABEL   ADDRESS 	 LABEL   ADDRESS 	 LABEL   ADDRESS 	 LABEL   ADDRESS 	 LABEL   ADDRESS 	



 101'	 3-000000	 111'	 3-000114	 112'	 3-000132	 113'	 3-000150	 114'	 3-000164

 121'	 3-000214	 131'	 3-000230	 350	 1-000554	 360	 1-000676	 400	    **   

 410	    **   	 415	 1-001102	 416	 1-001206	 417	 1-001236	 418	 1-001250

 419	 1-001262	 420	 1-001346	 430	 1-001434	 435	 1-001552	 437	    **   

 438	 1-002022	 440	 1-002036	 445	 1-002206	 447	    **   	 450	 1-002454

 460	 1-002530	 462	 1-002622	 463	 1-002724	 465	    **   	 470	 1-003146

 472	 1-003234	 473	 1-003364	 475	    **   	 480	 1-003566	 490	    **   

 912	 1-003734	 913	 1-003752	 918	 1-003770	 920	 1-004006	 921	 1-004024

 924	 1-004042	 925	 1-004060	 927	 1-004076	 1000	 1-004112	 1010	 1-004142





FUNCTIONS AND SUBROUTINES REFERENCED



 CLSFIL	 DIFOUT	 FILBUF	 MRKREC	 OPNFIL	 READMP	 $MIN0





TOTAL SPACE ALLOCATED = 044302  9313



NO FPP INSTRUCTIONS GENERATED



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

