1518 ICASt=3 

 GO TO 1521 



1519 ICASE3« 



1521 Jlsl-S 

 J2=I + '7 



C DELETE ONf HJGH *nd UNf lOk 4CC0f<DINC TO THE VALUE OF IC*Sfc 



GO T0(15?2,1523,152U,1525)IC*SE. 

 C STORAGt PLAN A 



1522 ExTri(J-2)3t)(TIh(1.2) 

 ExTIM(J.n=E)(TlM(I.n 

 E x T I M ( J ) = e X T I M ( 1 ) 



txii"(J+n = t)(Tif(i + i) 



ExTIM(Jt?)=tXTlMtI+b) 



EXTIMCJ*3J=EXTlMCI+7) 

 GO TO 1526 

 C STORAGE PLAM B 



1523 fcXTlMf J-2)sExTl-H02) 

 ExTl'<(J-n = ExTIM(l,i) 



E X T 1 M ( J ) = t X T I ^< 1 1 ♦ « ) 



EXT^fJ+l )rE)(TlMtI + 5J 



tXTIM(Jt2)sfcxTH(I + 6) 



EXTI'^( J+3) = ExTlMri + 7) 



GO TO 1526 

 C STORAGE PLAN C 

 152a ExriMCJ-2)=EXTlMCI+2) 



ExTjMt j.i)=E.xTlr^rl + 3) 



ExTi-f( J):EXTIM(i + u) 



EXT I^c J+i jrtXTI^'.t 1*5) 



EXTI"(J+2J=6xTlMtI*6) 



ExTjKi(j+3)sExTlM(I + 73 



GO TO 1526 

 C STORAGE PLAN 



1525 t xTlM(I+6)=ExTI^(I+2) 

 ExTIM(l*7JrExTlM(I+3) 

 EXTlH{J-2) = tXTlMC>2) 

 txTn(J-l ) = tXTlHr>l) 

 ExTIM{J) = tXTIH{n 



E X T I ^^ ( J + n r £ X T I « ( I ♦ n 



ExTlrt(j+2j-txTlKf I+2J 



ExTiM(j+3;=txTlH(l+3) 



Kl=I+o 



K2=I+lO 



1526 JlaJ-2 

 J2=J+5 



ntMSsIT£hs-a 

 ISKIPrUS 



GO TO 150« 



1520 CONTINUE 



C END MAIN PROCESSING LOOP 

 C»t»»»*»»*»»»»*»*»*»*»*»**»»*»»»*»*»»»»»** ***••»»»•*******»♦»»»♦♦♦♦*♦»♦*•** 



J = J-1 



IF f I-2,tCJ.ITE«7)L=I 

 1530 IF(L.GT,::tEhS)GO to 15«0 



J = J+1 



E X T 1 f^ ( J ) = t X T I H ( L ) 



L = L+1 



GO TO 15J0 

 15«0 CONTINUE 



ITEkS.J^ ^ ^^^ OruFTlUNS IN TMiS PASS REPROCESS ALL REMAINING 

 (. HJG-S AMP m.S TO MtKE 'FURTHER DELETIONS If NEEDED. 



IF( IITEMS.GT. ITEMS5G0 TO 1503 



RETURN 



END 



Figure C-2. List of subroutine SMOOTH (from Thompson, 1980). — Continued 



96 



