DO 602 11=1. HD2 

 DO 602 JJ=1,ND2 

 K=K+1 



DIST(K)=SQRT<(X0WRTN(II.JJ)-XD)«*2+(Y0tlRTN( 

 1II,JJ)-YD)**2) 

 CS=XOMRTN(II.JJ)-XD 

 SN=YOWRTN<II.JJ)-YD 

 IF(CS.BE.0.0.AND.SN.6E.0.0>R(K)=1.0 

 IF(CS.LT.O.0.AND.SN.6E.0.O)R(K)=2.0 

 IF(CS.LT.O.0.AND.SN.LT.O.O)R(K)=3.0 

 IF(CS.SE.O.O.AND.SN.LT.0.0)R(K)=4.0 

 IF(CS.EQ.O.O.Mffl.SN.EQ.O.O) SO TO 603 

 IVAL(K)=II 

 JVAL(K)=JJ 



IF(K.BT.l) GO TO 610 

 DMN=DIST<1) 

 11=11 

 J1=JJ 

 Kl=l 

 610 IF(DIST(K).GE.DMIN) 80 TO 602 

 DHIN=DIST(K) 

 K1=K 



602 CONTINUE 

 I1=IVAL(K1) 

 J1=JVAL(K1) 

 R1=R(K1) 

 I1FM=I1-15 

 SO TO 552 



603 I1=IVAL(K) 

 J1=JVAL(K) 

 I1FM=I1-15 



609 D(I,J)=DD(I1,J1) 

 GO TO 717 



613 SUM=DMN+DHIN2 

 SUH2=Slim/DHIN+SUm/DHIN2 

 SF1=SUM/(DMIN*SUH2) 

 SF2=SUM/(DMN2«SUH2) 

 D(I,J)=SF1*DD(I1.JI)+SF2*DD(I2,J2) 

 SO TO 717 



614 SUH1=DMN+DMN2+DMN3 

 SUH2=SUm/DMN+SUM/DMN2+SUM/DmN3 

 SFl=SUm/(DWN»SUM2) 

 SF2=SUM/(DMN2*SUW2) 

 SF3=SUM/(W1IN3*SUH2) 



D(I,J)=SF1«DD(I1.J1)+SF2»DD(I2.J2)+SF3*DD(I3,J3) 

 60 TO 717 



550 11114=11-4 

 IlP4=Il+4 

 JlH4=Jl-4 

 JlP4=Jl+4 



DO 551 II=I1H4,I1P4 

 IF(II.LE.O.OR.II.GT.II) SO TO 551 

 DO 553 JJ=J1H4,J1P4 

 IF(JJ.LE.0.0R.JJ.6T.N) SO TO 553 



INTERPQ 



60 



INTERPO 



61 



INTERPQ 



62 



INTERPO 



63 



INTERPO 



64 



INTERPO 



65 



INTERPO 



66 



INTERPO 



67 



INTERPO 



68 



INTERPO 



69 



INTERPO 



70 



INTERPO 



71 



INTERPO 



72 



INTERPO 



73 



INTERPO 



74 



INTERPO 



75 



INTERPO 



76 



INTERPO 



77 



INTERPO 



78 



INTERPO 



79 



INTERPO 



80 



INTERPO 



81 



INTERPQ 



82 



INTERPO 



83 



INTERPO 



84 



INTERPO 



85 



INTERPO 



86 



INTERPO 



87 



INTERPO 



88 



INTERPQ 



89 



INTERPO 



90 



INTERPQ 



91 



INTERPQ 



92 



INTERPO 



93 



INTERPO 



94 



INTERPO 



95 



INTERPO 



96 



INTERPO 



97 



INTERPO 



98 



INTERPO 



99 



INTERPO 



100 



INTERPO 



101 



INTERPO 



102 



INTERPQ 



103 



INTERPQ 



104 



INTERPO 



105 



INTERPO 



106 



INTERPO 



107 



INTERPO 



108 



INTERPO 



109 



INTERPO 



110 



INTERPO 



HI 



INTERPQ 



112 



INTERPO 



113 



18 



