CALL SfTtn(4MlNT) 

 4UXCiIl = V(I) 



r.n T(i •) 



OtLTiO, 



DO ?u Iil.NDlM 

 U DtUT = 0tlT*AUX(B.I)»4BSCAUX(UiI)»Yn)) 



IF(ntLLT-PHMTtun28.28.25 

 ?5 COhTIfJUF 



IF(IHLF.10)26.}lSt36 

 26 COf-TIwuF 



no ?7 Irl.wniM 

 7 4l]X(«tI)3AuX(5,I) 



ISlFPiISTEPtlSTFP-U 



X = X-H 



GO TU 1« 

 28 cn^TINUE 



CALL SETtncAMiNT) 

 DO 29 IrltwriiH 



Aijxf 1 1 ni^c I) 

 Auxt2i n = nEPY(n 



iiiXt Jin = Ai;X{6,I) 

 y tI1 = Aux(5i I) 

 » D£wy( I) = Aux(7ti) 



CALI SEA(MSlX-H) 



CALL TPwHT[.(MNLET,X"HiHSiQINFLO»*<4«I^'7»RNK|NT) 



If L»r.l = tx-H)/QEI.TB 



IF(TFLAGl,Nf ,I^L4G^.*^D,IT*BLE.E&.n C*LL T4BLE 



IFLAG2=IFLAG1 



IF(pu«Tt5))U0.10i«0 



■JO CONTINUE 



00 51 IsliNOIM 

 rdijAuxct .1) 

 I DEHy( n»AUX(2< n 

 IwEr.= lHLE 

 IF(IE'>'Pl3?.i2i3'» 

 32 CONTINUE 

 IHLfeIhi E-1 

 IS7fp=IS7Ep/2 



IE CthLFll.JitJJ 

 JJ CONTINUE 



I"Ur)iISTFP/2 



IF(TSTEP-lMnD-IM0O)a»J(ii<t 

 ^D CONTTI'OE 



IF(nELT.0.02*PRMT(a))35i35.u 

 S5 CONTINUE 



IMLF.IhlE-1 



ISTFPiISTEP/2 



GO TO U 

 It CONTI'^UE 



IHLFlll 



CALL StTEQCAMlM) 



(.0 TO JO 

 37 CONTINUE 



IHLFI12 

 GO TO St 

 3« CONTINUE 



IHLFrll 

 1<) cnrJTlNuF 



CALL SE4(MS.X) 



CALL TpwHTEfNlMLET.y.HSiQlNFLOiVfAMlNl.HNKiNT) 

 lELAC.lix/DFLTB 



IF( rELAGl.NF. lPL4r.2.4ND.ITABLE. to, l) CALL T4HLt 

 IEL4G2«IFLAG1 

 CONTINUE 

 RETURN 

 END 



INLEl 



281 



INLE1 



262 



INLEI 



2bJ 



INLE1 



2BU 



INLEI 



285 



INLE 



2B6 



INLt 



2B7 



INLE 



268 



INLE 



269 



INLE 



2«0 



INLE- 



2'»l 



INLfc 



292 



INLE 



293 



INLE 



29U 



iNLf 



295 



iNLr 



296 



INLE 



297 



iNLt 



296 



INLE 



299 



INLE 



r 300 



INLE 



JOl 



iNLE 



102 



INLt 



r 503 



iNLE 



30U 



INLE 



r 305 



INLt 



306 



INLE 



r 107 



INLt 



r 108 



INLE 



r 309 



INLt 



r 310 



INLt 



r 111 



INLE 



r 312 



INLt 



r 31} 



INLt 



r 3i« 



INLt 



r 315 



INLt 



r 116 



INLt 



r 117 



INLE 



r 316 



INLt 



r 319 



INLE 



r 320 



INLE 



r 321 



INLE 



r 322 



INLE 



r 323 



INLt 



r 32U 



INLt 



r 325 



INLE 



r 326 



INLE 



r 327 



INLE 



r i£» 



INLE 



r 329 



INLE 



r 110 



INLE 



r 111 



INLt 



r 132 



INLt 



r 333 



INLt 



31U 



INLE 



ii-i 



INLE 



116 



INLt 



117 



INLt 



138 



INLE 



319 



iNLtl 



luo 



INLt 



3«1 



INLE 



3U2 



INLEI 



3«3 



INLt 



litii 



INLE 



3U5 



INLE 



31.6 



iNLE 



3u7 



INLE 



1«8 



INLE 



3«9 



INLtl 



150 



INLtl 



151 



INLtl 



Jb2 



37 



