Marsich and Merega 



r ********* * ******************************** * *********************** 



C SHIP MOTIONS, SHEAR AND BENDING MOMENT 



C IN REGULAR WAVES AND IN CONFUSED SEA 



J. » />A************** *** ** * * ************ * ***************** ** ********** 



c 



ltANt2,k)),ulL(2,19) 

 C 



REWIND 2 

 C 



C READ HYDRODYNAMIC COEFFICIENTS TABLES 

 C 



I NDX=0 



DO 2 IL"1,2112,16 



l!i=IL+15 



READ INPUT TAPE 5, 201 , I IID, (KZ { J ), J= IL, I f!) 



INDX«=INDX+1 



IF(IN0X-lfID)1,2,1 



1 PRIiJT 202 

 PAUSE 



2 CONTINUE 

 C 



C READ HULL CHARACTER I ST ICS,SH I P SPEEDS At;D V/AVE LENGTHS 



C 



3 READ INPUT TAPE 5. 203.KOOC,UVE,AVE,DFTAD,DFTAV, OAMP,RO,K 

 DFTA^t=0.5*(DFTAD+DFTAV) 



DO 5 J=1.K 



READ INPflT TAPE 5, 20l|. (CA( I J ) , 1=1 . 3) .KSK 

 DFT{J)=DFTAD+(DFTAV-DFTAD)*CA(1,J)/UVE 

 IF(J-KSK)It,5,4 

 k PRII.T 205 

 PAUSE 



5 CONTINUE 



READ INPUT TAPE 5, 206,NVEL, (VE ( 1} ,1=1 ,NVEL) 



READ INPUT TAPE 5, 206,NOND, (0N( I ), 1-1 ,N0ND) 

 G 



C BUOYANCY INTEGRATION 



C 



DO 81 J"1,K 



A(J)«=CA(1-J) 



81 B(J)-0.00§81*R0*CA(3,J) 

 KDEF=K 



INDEF"10 

 GO TO 301 



82 DO 83 J»1,K 

 PRIS(J)=C(J) 



83 B(J)»C(J) 

 INDEF-11 

 GO TO 301 



elf DO 85 J»1,K 

 85 SECS(J)-C{J) 



c 



C READ WEIGHT DISTRIBUTION AND INDEXES 

 C 



6 READ INPUT TAPE 5,207, (CG(6,J),J=1 ,K) 



864 



