RUNT VERSION FEB Tt 6 17il? 0^/23/76 



SUBROJTINE MORTEN 

 C***SUEROUTINE MORTEN COMpjTcS FJRCES IN THE MOORING LINES 

 2 COMMON/FOUR/RAR(3tlO)»OELR(3.iU)» 4WR ( ?5. 1» l^ ) . DFLWO ( 2^, 3» 10 ) . 



2 HWT(2i<10).0cLWT(25,101,BKHY0(3»^)» pkhopJI.S), RKT9(3.3), 



3 XGf YG» RiASS, RiNtRT. DAMPO) 



2 COMMON /SF\/E"i/ AREA. a» D» ROE. GFF. RTITL = (3)» TITLE(8) 



2 C0MM0N/TEN/DELT(2,3).FJR(2,10)»PHi'?(2.n).FnRN[)(2,10).''Hi<^D(2,10) 



2 READ 10. ((DELT(I.J).J«1»3)»I»1.2) 



22 10 FORMAT (6F10.21 



C OELTClfl) .I«1.3 « CHANGE IN FQRCE IN SHQP'^WARD MOTRING LINE 



C PER UNIT DISPLACEMENT TN SWAY, HEAVE AND ROLL 



C DELT(2,I),I»1,3 » CHANGE IN FOPCE Tv| SEAWARD MOORING LINE 



C PER UNIT OISPLACFMFNT IN SWAY. HEAVF ANQ ROLL 



22 CAB • 1.0/(RDE*GEE*ARF4) 



26 CONS = 180.0/AC0S(-l.ti) 



32 DO 100 J = l,^ 



34 PRINT 20 



37 20 FORMAT ( ////20X*Maaa ING LINE MODEL RFS'JLTS*^) 



37 IF (J ,£Q. 1) PRINT 18 



45 IF (J .EO. 2) PRINT it 



53 18 FORMAT ( 30X*SH0RE WARD MOORING LINE*<) 



53 19 FORMAT (30X*SEAWARD MOORING LINE*/) 



53 PRINT 30» (OELT( J,K),K=1,3) 



70 30 FORMAT (♦ CHANGE IN FORCE PER UNIT HISPLArEMFNT IN SWAY, HE4VE* 

 1 ♦ AND ROLL* fitSPECTIVELY «♦, ?fio,iv//) 

 C***COMPUTE FORCES IN MOORING LINES AND pHAS; 



70 DO 50 I « 1.10 



72 AA • RAR(l,I)*DELT< J.l) 



103 AB « RAR(2.I)*0ELT( J,2) 



114 AC • RAR(3.I)*DELT( J,3)/B 



126 TS « AA*SIN«0ELR«1.I) ) ♦ AS*SIN( DELR f 2. T ) ) ♦ AC*SIN t DELR ( 3. I ) ) 



154 TC • AA*COS«DELRtl.I) I + A6*C0S( DELB f 2. T ) > + AC*COS ( DELR ( 3. T) ) 



203 FOR(J,I) • SQRT(TS*TS ♦ TC+TC) 



215 PHAS(J.I) » ATAN2(TC.TS) 



225 FORND(J,I) « CA8*F0R(J,I) 



236 PHASD(J»I) « C0NS*PHa5( J.I) 



246 50 CONTINUE 



C***PRINT RESULTS 



250 PRINT 80. (FOR{ J.I).I = l,10). (PHASri( J.T),T.1.10). 



1 (FORND( J.I). I»1.10) 



306 80 FORMAT ( 3X*M00R I,-JG LINE RE S P0NSE*/5X*F0RCE AMPL ITUDE / ETA*, lit, 



1 lC£in.3/5X*OHASe REL TO ETA AT V.I - D^G *. 10F10.4// 



2 5X30HFQRCE AMPL iTJ0E/R3E*G*AP F&*ET» , lOElO.S) 

 306 100 CONTINUE 



310 RETURN 



311 END 



Table D-2. Continued 



119 



