703 CONTINUE 

 IF(R3.EQ.R2.0R.R3.EQ.R1) 60 TO 613 



704 CONTINUE 



DO 580 LL=JJJ,K 



IF(LL.E9.K1.0R.LL.EQ.K2) SO TO 580 

 IF(R(LL).EQ.R1.0R.R(LU.EQ.R2) GO TO 580 

 IF(DIST(LU.6E.DMIN3) 60 TO 580 

 DMIN3=DIST(LL) 

 K341 

 580 CONTINUE 

 I3=IVAL(K3) 

 J3=JVAL(K3) 

 R3=R(K3) 

 DO 588 111=1, K 

 R4=R(III) 

 IF(R4.EQ.R3.0R.R4.E9.R2.0R.R4.E9.R1) 60 TO 588 



K4=III 

 I4=IVAL(III) 

 J4=JVAL(III) 

 DNIN4=DIST(III) 

 60 TO 589 



588 CONTINUE 

 IF(R4.EQ.R3.0R.R4.EQ.R2.0R.R4.EQ.R1) 60 TO 614 



589 CONTINUE 



DO 590 LLL=III,K 



IF(LLL.EQ.K1.0R.LLLEQ.K2) 60 TO 590 



IF(LLL.EQ.K3) 50 TO 590 



IF(DIST(LLL).GE.DMN4) 60 TO 590 



IF(R(LLL).EQ.R1.0R.R(LLL).EQ.R2.0R.R(LLL).EQ.R3) 60 TO 590 



DHIN4=DIST(LLL) 



K4=LLL 



590 CONTINUE 

 I4=IVAL!K4) 

 J4=JVAL(K4) 

 R4=R(K4) 

 D1=DHIN 

 D2=DMN2 

 D3=DMN3 

 D4=DJ1IN4 

 SUM=D1+D2+D3+D4 



SH2=SUm/Dl+SUm/D2+SUm/I)3+SUM/D4 

 SFl=SUM/(Dl*SUf12) 



SF2=SUM/ <D2*SUM2) 

 SF3=SUM/(D3*SUH2) 

 SF4=SUm/(D4»SUH2) 



D(I, J)=S r l*DD(Il, J1)+SF2*DD(I2,J2)+SF3*DD(I3,J3)+SF4*DD(I4,J4) 

 717 CONTINUE 

 1 CONTINUE 

 CALL PajT(l,«2.1.1,N2,'NEW DEPTHS <X,1)'.D,1.0,IQ2. JQ2) 

 DO 1112 1=1,112 

 WRITE(2,1113) (D(I,J),J=1,N2) 



1112 CONTINUE 



1113 FORMAT (10F8. 2) 

 RETURN 



INTERPQ 



168 



INTERPO 



169 



INTERPQ 



170 



INTERPO 



171 



INTERPO 



172 



INTERPQ 



173 



INTERPO 



174 



INTERPQ 



175 



INTERPO 



176 



INTERPO 



177 



INTERPO 



178 



INTERPQ 



179 



INTERPO 



180 



INTERPO 



181 



INTERPO 



182 



INTERPQ 



183 



INTERPO 



184 



INTERPQ 



185 



INTERPO 



186 



INTERPO 



187 



INTERPO 



188 



INTERPO 



189 



INTERPQ 



190 



INTERPO 



191 



INTERPQ 



192 



INTERPQ 



193 



INTERPO 



194 



INTERPO 



195 



INTERPO 



196 



INTERPO 



197 



INTERPO 



198 



INTERPO 



199 



INTERPQ 



200 



INTERPO 



201 



INTERPQ 



202 



INTERPQ 



203 



INTERPO 



204 



INTERPQ 



205 



INTERPO 



206 



INTERPQ 



207 



INTERPO 



208 



INTERPO 



209 



INTERPO 



210 



INTERPO 



211 



INTERPO 



212 



INTERPQ 



213 



INTERPQ 



214 



INTERPQ 



215 



INTERPQ 



216 



INTERPO 



217 



INTERPQ 



218 



INTERPO 



219 



INTERPO 



220 



INTERPO 



221 



no 



