Marsich and Merega 



MA JF(Y-4.4}li05,M>6,^06 

 k05 JJ-1 ,^ 



60 TC M>7 

 k06 JJ-2.5*Y 

 1*07 KK^1.+10.*Z 



K1"KK 



\F(6-\)k0eMB,kO9 

 if08 1-5 



W)9 IF(11-JJ)i»10,M0,if11 ' 



itlO J>10 



Ztll IF(l6-KK)if12,if12,l»13 

 If 12 KK-15 

 hV3 N3L1-11*(I-1)-kJJ+INIZ-1 



KK«KK+16*NBL1 



DC ^17 MlVl.if 



k\k JCT/W16*(MU-1) 

 GC TC 416 



415 JCT/^l6*(MU+8) 



416 KAPPArKK+JCTA 

 TA3(MU)"KZ (KAPPA) 

 KAPPA^KK+JCTA +1 



417 TAn(MU44)"KZ (KAPPA) 



DC 418 JE*1,8 .---^ 



418 TAB(JE)-O.OOl*TAB(JE) 

 VMI-I 



VhU"JJ 



VMK-K1 



DX-X-(0.4-fO.l*VMI) 



DY-Y-0.4*VMJ .. .^ 



DZ-Z-0.1*(VMK-1.) 



F11-10.*(TAB(3)-TAB(1)) 



F2>i2.5*(TAB(2)-TAB(l)) 



F3>10.*(TAB(5)-TAB(1)) 



F1>25.*(TAB(1)-TAB(2)-TAB(3)+TAB(4)) 



F1>100.*(TAB(1)-TA3(^)-TAB(5)+TAB(7)) 



F2>25.*(TAB(1)-TAB(2)-TAS(5)+TAB(6)) 



Fl 2>250.*(-TAB ( 1 )+TAB ( 2)+TAB ( 3)-TAB (4 )+TAr (5 )-TA:. (6 )-TAB ( 7)+TAB (8 



D) 



F»TAB(1 )+F1 1*DX+F22*0Y+F33*DZ+F1 2*DX*DY+F1 3*DX*DZ+F23*DV*DZ+F1 23*0 

 1X*0Y*DZ 



GC TC (17,18), KR 

 C 



C SHEAR AND BENDING MCHENT I IITERPCLAT I CM SUCPRCGRAM 



C 



501 DC 502 IL-1,K 

 DFR-DIST(IL)-UV 

 IF(DFR)502,503.504 



502 CCNTINUE 



503 USC-CRD(IL) 



GC TC(44.92).IMPCL 

 50^ USODFR*tCRDt IL)-CRD ( I L-1 ) )/(D I ST( I L)-0 I ST( I L-1 ) ) 



USOCRD(IL)-USC 



GC 10(44,92), I MPCL 

 C 

 C iMPUT/dfTPUT FORMAT 



c 



20} F3RMAT(I3JXJ6I1») 



870 



