Marsich and Merega 



C SHEAR AND BENDING MOMENT IN REGULAR WAVES 



C 



35 GG(?)-fT**2 *(CG(6.I)4CG(I|,I))-CG(2,I) 

 DC 36 >1,2 



PI-3-2*J ' 



K1-3-J 

 DC 36 1-1. K 



PJ-FI*fZzfl K1)+CG(1 I)*ZZ(2.K1))+PI*V*ZZ(2,J) 

 TsTj l)-GG(t)i(S(1.3jicG(l,t)*ZZ(2.J)KPI*CG(5J)*PJ-^ 

 1 l)*?Z(2.K1)+CG(J+6, I ) 



36 6g(J+8. l5-=CG(J+8, I )-PI*V*CG(l». I )*PJ 

 DC 1*1 Ul,2 



Kl-L+8 



DC 37 1-1. K 



37 B|ltTS(L;ii 



KDEF-K 



ll^'DEF»7 

 GC TC 301 



38 DC 39 l«=1,K 

 Cj,j.Cj,j^C(K,,0 



39 TS(L+2,I)-=C(I)*C(I) 

 niDEF«B 



GC TC 301 

 kO DC ifl l«1,K 

 Ifl TS(L+If.i)-C(l)*C(l) 



DC k2 J»T,2 



K1=2*J+1 



DC kl i»1,K 

 k2 TS(J,I)-(§QRTF(TS(K1,I)+TS(K1+1,I)))/1000. 



C 



C SHEAR AMD BENDItlG MCf'.EKT ItlTERPCLAT I CI! 



C 



IMPCL«1 



DC ^5 J»1,2 



DC If 3 1-1 ,K 

 if 3 CRD(I)-TS(J.I) 



DC k5 1-1,19 



F-l 



UV-0,05*F*UVE 



GC TC 501 

 kk SS(J,I)-USC 

 kS CONTINUE 



DO k6 1-1,19 



SH(I0,I)-§S(1,I) 



46 BM(ic;i)-ss(2;i) 



C SHEAR AND BENDING MOMENT IN CONFUSED SEA 

 C 



k7 OME(IO)-FO 

 DO kB l-J.NOND 



he ESP(i?I^QRTF((A(l)-0.377)**2 /(0.065*(A( I )-0.117))) 

 KDEF-NONO 

 00 52 KSE2^1,19 



868 



