RUNT VERSION FEB 74 B 17:12 04/23/76 



SUBROUTINE OY-^ft'lC 

 2 COMMON RI12(25.25),RKJ6(25,25), PnT{25t'5). HOW< 25> 25 ) . FF ( 2«!,6» , 



1FI(25.6). 81(25.25), RJ(25.25), RKf?!,*). 9L(25,4). 



2RMU(3.3.10). RLAMO, 3,10), F8(3,10), OE L FP ( 3, 10 ) » HW8 ( 2 5, 6 . 10 ) , 



3 DELW(25,6,10) , XOL(25,10) 

 2 COMMDN/ON£/X(25),Y(25),XS(25),YB.(2''),4NS(??),0EL(25), VV(25) 



1.FE1N(25), FIIN{25), RNaRM(25,3)» J'TC^) 

 2 COMMON /Two/ N,NNW. NWAVEL, ISYM, T<;KT», MC . PIE , GAM1 A, M, TK , TP 



2 COMMON/THREE/ rfAVELCiO), WN(IO), 80Lt."".TL 



2 COrtMON/FOUR/RAR(3,10),OELR<3,10), HW? {^S, 3, 10) , OELWR ( 25, 3, 10 ), 



2 HWT(25,10),D£LiJT(23,10),RKHYD(3,?), RK"inR(3,3), RKTi^O.B), 



3 XG, YG, RM4SS, RiNtRT, 0AMP(3) 



2 COMMON /SEVEN/ AREA. B, 0, ROE, GCF, HTTTLE(3), TITLE(R) 



2 COMMaN/TcN/OELT(2,3).FOR(2,10),PH*^(?,l')),PnRND(2,lC),PHA<n(2,10) 



2 DIMENSION A(6,6), C(6), ERASE(6) 



Z IF ( tSKIP .N£. 2) GO TO 100 



C+****ReAD POTENTIAL COEFS IF ISKIP = 2 

 5 READ 1009, (WNdD.IL • 1,10), C^nLdl), TL • 1,10) 



27 1009 F0«MAT(10F8.3) 

 27 DO 110 I ' 1,3 



31 READ 1009, (FB(I,IL), IL ' 1,10), ( T FLFBI T , T L ) , IL = 1.10) 



56 DO 110 J • 1.3 



60 110 READ 1009, ( R1U( I, J, IL ) , IL« i.,10). (RL AM(I, j , IL ), IL = 1,10) 

 115 DO 120 I = 1 , NNW 



117 READ 1009, (XOLd, ID, IL « 1,1C) 



133 DO 120 J • 1.6 



135 120 READ lv/39, (HWO ( I, J. IL ) , IL ' l,t'>) . ( OPLW( I , J, IL ) . IL • 1,11) 



173 100 CONTINUE 



C*****OUTPUT POTENTIAL COEFS 



173 CALL POTOUT 



174 IFCISKIP .tO. I) GO TO 14C 



C**«**REAO DIMENSIONAL JYORDSTATIC SPRING CnNSTANTS 

 177 READ loos, ( (RKHYO( I. J) , J'1,3),I=1.3) 



C*****STaRT looping THROUGH DIFFERENT DYNAMIC CONCTGUR A TIONS 

 217 DO 14U Kl = i,5u 



221 I'EAD ICIO, AREA, B, XG, YG, RMASS. 'TNER T. i^lP ( 1 ) , D AMP 1 2 ) , PAMP { ? ) , 



1 NPUNCH 

 253 i.01o FORMAT (6F10.3. %F5.2, 15) 

 253 IF (EOF, 5) 121. 122 



256 121 STOP 

 260 122 CONTINUE 

 260 00 5 K2 ■ 1,3 



262 5 IF<0AMP(K?) .EQ. -CO) DA«P(K2) ' 0.'> 



C XG.YG = COORDINATES OF THE CEMTFR tf GpAVITY OF THE BODY 



C NOTE. MOMENTS AND MOMCviT? OF TNERTIA ARE COMPUTED 



C ABOUT THE CENTER OF GRAVITY 



C DAMP ADDS CORRECIION FOR VISCOUI no NINLTNEAR DAMPING 



C**+**REAO DIMENSIONAL MOORING SPRING C^NSTAMTS 

 272 READ 1008 . ( ( RKMQR ( I . J ) . J-1, 3 ) , I«l, 3 t 



312 1003 FORMAT (9F6.3) 



C*****N0N0IMENTI3NALIZt SPRING CONSTANTS ,M&<:S, MHMNNT OF I^4ERTI» 



C****»AN0 CG COORDINATES 

 312 Q • AREA* ROE* GfcE/B 



316 00 130 I ' 1,3 



317' DO 130 J =■ 1,3 



Table D-2. Continued 



116 



