1518 ICASta3 

 GO TO 1521 



1519 ICaSeso 

 1S31 Jl«1.2 



C DELETE ONf hjgh *ND Une L0». »CC0KDI»JC TO THE VaLUE OF ICASfe 



GO T0(I5?2,1523,152«,152S)ICASE. 

 C STOhAGfc PLAN A 



1522 ExTl"l(J-2)atXTIh(I«2) 

 EXTlH(J-|)s£xTlM(l«n 



EXTIM( jj-txTIMd) 

 ExTI«(j4.l)zExTlHCUl) 

 ExTIM(j*?)stXTlH(I*6) 

 EXTIM(J+3)-ExTlM{It7) 

 GU TO 1526 

 C STORAGE PLAN B 



1523 fcXTlMtJ-2)sExTlM{I«2) 

 ExTl^<cJ-l)a£XTIM(l,l) 

 txTl>'(J) = txTIM(I»a) 

 E:XTIH(j + i)stXTlH{I*5) 

 EXTIM(J+2)sfcxTlM(I+6) 

 ExTl'^CJ+JJatXTIMfl*;) 

 60 TO 1526 



C STORAGE PLAN C 



152a EXTIMCJ-2)=EXTIM(I*2) 



ExTiM(j-u=£xTIh(l»3) 



EXTiH(j)s£xTIM(i*a) 



EXTiM(j+i)stXTlM(I*5) 



EXTI"(J+2J=EXTlMf 1*6) 



ExTiM(j+3jaExTlM(I+7) 



GO TO 1526 

 C STORAGE PLAN 



1525 tXTlH(l+6)sExTIM(I+2) 

 ExTIM(l+7J=ExTlM(I+3) 

 EXTI'^(J-2)rExTlM02) 

 ExTlH(J-j)-txTlH(>l) 

 ExTIH(J) = £xTlr<tI) 

 ExTIM(J+n = fcxTI«(I*lJ 

 EXTI'^(J♦^)^tXTI^«CI♦^) 

 EXTlM(J+3jstXTlM(l+3) 

 Kl = Ha 



K2=l*l0 



1526 JlaJ-2 

 J2SJ+3 



ITEMSsITEMS-e 

 ISKIPsI+8 

 j=J*a 



GO TO J50a 

 1520 CONTINUE 

 C END ►'AlN PROCESSING LOOP 



J = J«1 



Iff I-e.tU.ITE>*7)L5l 

 1530 IF(L.GT,tITEMS)GO TO 15<*0 



JsJtt 



ExTl^^cajstXTIMtl.) 



L = L+1 



GO TO 15J0 

 15«0 CONTINUE 



ITEf'SaJ 

 C IF ThEt<F •'fe AN» OTLFTIO^S IK' THIS PASS REPROCESS ALL REMAINING 

 C hIGhS Ano Ln*S TO M«KE FURTHER DELETIONS IF NEtOtDt 



IF(I1TEHS,GT,ITE'^5)C0 TO 1505 



RETURN 



END 



Figure D-2, List of subroutine SMOOTH .--Continued 



148 



