c 



Strip Theory- 

 DC If 9 l-l.NCMD 

 SPC(1,I)-§K(I,KSEZ)**2 *37.^5*EXPF(ESPMn 



ks spc(2|i)-bm(i!ksez)**2 *37.'*5*EXPF(ESP(I)) 



SPC(1,I)-§K(I,KSEZ)**2 *37. 

 SPC(2,I)-BM(I,KSEZ)**2 *37. 

 DC 52 J-r,2 

 DC 50 l-1,HCND 



50 B(I)-.SPC(3,I) 



INDEF«9 :!.^ .'r-': 



GC TC 301 



51 SPETT(J-KSEZ)«3.0ifif*SQPxTF(DEF) ■....■ y 



52 cc"Ti;;u£ . > • 

 c 



C VniTE RESULTS (MCTI Cf!S,SMEAr. AND DElIDItiG MCMEUT) 



c 



VrJTE CUTPUT TAPE 6, 211* 



WPJTE CUTPUT TAPE 6, 21 S.KCDC.KCOP V 



WRITE CUTPUT TAPE 6, 21 6. (CN(1 ) l-f fICMD) 



V/RITE CUTPUT TAPE 6, 21 7. (Of1E( I), 1-1 JICND ) 



WRITE CUTPUT TAPE 6. 21 8. (VCM(1 , I ), 1=1 .HCND) 



WRITE CUTPUT TAPE 6. 219. (VCM(2. I), 1-1, I!C1;D) 



V/RITE CUTPUT TAPE 6, 220, (VC^^( 3, I ), 1 = 1 JICi'D ) 



WRITE CUTPUT TAPE 6,221 , (VCM(if, I ), 1 = 1 ,riCi:D ) 



V/RITE CUTPUT TAPE 6,222 

 DC 53 1-1.19 



53 V/RITE CUTOUT TAPE 6, 223, I , (SPETT (JC, I ),J>1 , 2), (S1I(J, I) ,Dr( J, I ) , J- 



ii.ijciid) 

 5^ cSmtinue ' 



REWIND 2 

 IF(NSTR1)3^3,6 



C : -^i :r- . ■- ^.,V• 



C ItlTEGPJ^TICN SUBPRCGRA,': 



C 



301 0=A(2)-A(1) 

 C(1)=0. 



DC 306 INT»2,KDEF 



Q— 1. 

 IF(KDEF-IMT)3O'f,3Otf,302 



302 Q-A(INT+1)-A(1NT) 

 iF(P-0.05)30J:f,30Ji*,303 



303 IF(Q-0.05)3Otf,3O«t.3O5 



30lf C(mT)-C(INT-1)+0-.5*P*(B(INT)+B(IHT-l)) ■- ■; 



»F (0)307, 307, 306 -> : 



305 R^P/Q 



G-0.1666667*P/(1.+R) 



S-R*R 



INT)-C(INT-1)+G*(B(INT-1)*(3.+2.*R)+B(INT)*{3.+'».*R+S)-S*B(INT+1 



C( 

 D) 



306 CCMTINUE 



307 DEF-C(INT) 



GC TC (9,H, 13,23,26,28.38,^0,51. 82,84,87,89). INDEF 



C HYDRCDYNAMIC COEFFICIENTS TABLES I NTERPCLAT I CN SUBPROGRAM 



401 KK^I 



IF(X-0.5)li02.M)3,M)3 

 M)2 1-1 



GO TC MA 

 M)3 l-10.*X-*. 



869 



