C RnUliNf TO StUf THf eUu4TI0MS FflH THt HH,HT HAnR SIDt 0^ THE EQUATIONS 

 C MOTION SnU TO pFTfHMINf THt W4NK Of' THE TtKMS IN THt tOUiTION OF MOTIO 

 RF4L L.Lf'GTH.LTM.LX.w.NXiLF 



tO"MoiJ/K,uH5/Nl.r,,MIMFT«ICH(3),IsE(3).ORtL(7.7)iBt7i7),DC7,7). 

 1 4(7.7).fJ(7'7).w(7i7)fV(7«71iBC7t7)iHS,H8.H(7,7),IC.IS.«MlNi(J), 

 l«-<lNI(J).LIN,Qx(i),nIMFL0.4R4y,LfNGTH(J) 

 C0MMON/KJUMl/rtSl»OFRV(b)iX>'lTiIwT.ZFTA.HH 



COf'"O'>-/NU'i2/BX(^,7,7).0X(3t7<7)tHx(i,7,7)>wX(3.7,7).LX(3,7,7)»NX(3 

 Ii7t7) 





Cn^^tiM /'JU"3/*0iTi4By,BtTA 





CO^'MOM/»'UMU/WNK t3ia) 





DlfF.fJSIOk »WIM(J) 





(. = 32.2 





DO 220 kJl=i.3 





no 119 1 = 1 ,'1 



119 



K'^KfM.T)»0. 



220 



CO.MTINUF 





CALl SF.4(hs,X) 





hHEHS 



: FIND THF BAY *Rt» 





HUSYtMINLFT+l ) 





AHAy»»By»( 1 .♦8E"TA»HB) 





'JT»n. 



SET 



U° FIJUATIONS FOB tiC" INLt 





DO inn NIal.NlNLtT 





A>'lNrNnsq<)999<?qi»99P, 





(jn = y(MI) 





C|TSf3T*(J'3 





IC=ICH(M) 





ISiTSFCM) 





LF = n. 





DO q^ III , JS 





DO qu Jil . IC 





N(I.J)SNX(NI,I,J) 





I n.J)=l_X(M.I,J) 





LFBl.E«Lf I.J)/(FLO»T(IC)) 



9« 



BtI,J)=«X(Ml,I,J) 



95 



CONTIt-UF 





CALL LtVEL 





A3=0. 





AMin , 





AF = n. 





on g7 Iritis 



DL'O. 



00 qi, J3 1 . IC 



DL = nL»LfI.J)/(fLOATnC)*Lt) 



D(I.J)=nX(Nl. I,J)*Hf I,J) 



IF(nCliJ) .Ll.O.) Dcl.JJoO.Onl 



A(I.J)»H(IiJ)»on<J)*H{I.J)»AaS(H(IiJ))/(ZtTA«FLO*T(IC)) 



IF(A( I. J) .lT.O.) A(I,J)»0,001 



IFd.ECl.l) A3«AS»A(T,J) 



INLtT 



3bJ 



INLtT 



ibu 



INLtT 



355 



INLtT 



156 



INLtT 



357 



INLtT 



358 



INLtT 



359 



INLtT 



360 



INLtT 



361 



INLtT 



362 



INLtT 



363 



INLtT 



36U 



INLtT 



365 



INLtT 



366 



INLtT 



367 



INLtT 



36a 



INLtT 



369 



INLET 



370 



INLET 



371 



INLtT 



372 



INLET 



373 



INLtT 



370 



INLtT 



375 



INLtT 



376 



INLtT 



177 



INLtT 



37R 



INLfc T 



379 



INLtT 



360 



INLtT 



381 



INLtT 



382 



INLtT 



383 



INLET 



38« 



INLtT 



385 



INLtT 



386 



INLtT 



387 



INLET 



188 



INLtT 



389 



INLET 



190 



INLET 



191 



INLtT 



39a 



INLET 



393 



INLtT 



39U 



INLtT 



395 



INLtT 



396 



INLtT 



397 



INLET 



19fl 



INLET 



399 



INLtT 



aoo 



INLtT 



401 



INLET 



(102 



INLtT 



101 



INLET 



uou 



INLtT 



«05 



38 



