**************************************************
  1)  DK1:[330,2]TRACE.FTN;26
  292   	CALL GETDIM(LIN(32),DIMS,DIMZ,tabl)
  293   460	CONTINUE
***************
  2)  DK1:[330,2]TRACE.VTN;1
  292   	CALL GETDIM(LIN(42),DIMS,DIMZ)
  293   460	CONTINUE
**************************************************
  1)  DK1:[330,2]TRACE.FTN;26
  398   720	FORMAT(30X,O6,15X,3A2)
  399   	NEXT=ROTDIR
***************
  2)  DK1:[330,2]TRACE.VTN;1
  398   720	FORMAT(26X,O6,15X,3A2)
  399   	NEXT=ROTDIR
**************************************************
  1)  DK1:[330,2]TRACE.FTN;26
  542   	SUBROUTINE GETDIM(DMARY,DIMS,DIMZ,tabl)
  543   C 
***************
  2)  DK1:[330,2]TRACE.VTN;1
  542   	SUBROUTINE GETDIM(DMARY,DIMS,DIMZ)
  543   C 
**************************************************
  1)  DK1:[330,2]TRACE.FTN;26
  546   	INTEGER DIMS(3),DIMZ(3),tabl(16)
  547   	BYTE DMARY(1),TERM,byte1(2)
  548   	data iclear/'7'O/
  549   	IP=1
  550   c	type 9000,(dmary(kk),kk=1,5)
  551   9000	format(5a1)
  552   c	type 1228,(tabl(kk),KK=1,16)
  553   1228     format(' ',16O8)
  554   	DO 100 I=1,3
***************
  2)  DK1:[330,2]TRACE.VTN;1
  546   	INTEGER DIMS(3),DIMZ(3)
  547   	BYTE DMARY(1),TERM
  548   	IP=1
  549   	DO 100 I=1,3
**************************************************
  1)  DK1:[330,2]TRACE.FTN;26
  558   	ippp=ip+10
  559   	DO 130 ID=1,3
***************
  2)  DK1:[330,2]TRACE.VTN;1
  553   	DO 130 ID=1,3
**************************************************
  1)  DK1:[330,2]TRACE.FTN;26
  562   	CALL GDIM(DMARY(ippp),IPPP,IVAL,IDEF,TERM)
  563   	IF(TERM.NE.1H:)GO TO 120
***************
  2)  DK1:[330,2]TRACE.VTN;1
  556   	CALL GDIM(DMARY(IP),IP,IVAL,IDEF,TERM)
  557   	IF(TERM.NE.1H:)GO TO 120
**************************************************
  1)  DK1:[330,2]TRACE.FTN;26
  570   	IF(TERM.EQ.1H))GO TO 1222
  571   130	CONTINUE
  572   1222	byte1(1)=tabl(5).and.iclear
  573   122	if(byte1(1).ne.5) goto 140
  574   c   calculate length of character string
  575   	itmp=1
  576   	do 131 i=1,3
  577   	if(dims(i).eq.0) goto 132
  578   	itmp=itmp*dims(i)
  579   131	continue
  580   132	continue
  581   	decode(5,133,dmary(1)) iezis
  582   133	format(i5)
  583   c	type *,iezis
  584   	iezis=(iezis*2)/itmp
  585   	tabl(6)=iezis
  586   c	type *,iezis
  587   140	CONTINUE
  588   c	type 1228,(tabl(kk),kk=1,16)
  589   	RETURN
***************
  2)  DK1:[330,2]TRACE.VTN;1
  564   	IF(TERM.EQ.1H))GO TO 140
  565   130	CONTINUE
  566   140	CONTINUE
  567   	RETURN
**************************************************
  1)  DK1:[330,2]TRACE.FTN;26
  651   	if(tyb(2).ne.'H')goto 111
  652   	tabl(5)=5
  653   	tabl(6)=1
  654   	goto 131
  655   111	continue
  656   110	FORMAT(3A2)
***************
  2)  DK1:[330,2]TRACE.VTN;1
  629   110	FORMAT(3A2)
**************************************************
  1)  DK1:[330,2]TRACE.FTN;26
  662   131	continue
  663   	RETURN
***************
  2)  DK1:[330,2]TRACE.VTN;1
  635   	RETURN

    9 differences found
TRACE.CMP=TRACE.FTN,TRACE.VTN