RUNT VERSION FEB 74 9 UHZ 04/23/76 



SUBROUTINE OYNOUT 



2 COMMON RI12(25»25),»K56(25,25)* P0T(25,?5)f 4aw( 25» 25 ) , FE ( Z-ifft) , 



1FI(25»6)> RI(25.?5)* RJ(25»25)» RK(?'5,<V), eL(25.4)» 

 2RMU(3»3>10)» RLAM(3»3.10). FB(3»10). OFLFBO.IO). HWS( 25»6t 7 0) » 

 3 DELW{25,6,1C) , X0L(?5»10) 



2 COMMON /Two/ N.NNWj NW4VEL. ISYM, ISKTP. NC. PIE. GAMMA, M, TK, TP 



2 COMMON/THREE/ WAVELCIO), WNdO), BnL(10)»TL 



2 C0MMDN/F0UR/RAfi(3pl3)»0eLR(3,lli), HWR ( ?''» 3, ] ?») , OELWR ( 25,3» 10 ) ♦ 



2 HWT(25,10).DELWT<25»10)»RKHYD(3»3). R<MOR(3,3), RKTB!3t3), 



3 XG, YG, RMASS» RINEi^T, DA«P(3) 



2 COMMON /SEVEN/ AREA, B, 0, ROEj. GEE. BTITLEO), TITLE(P) 



2 COMMON /NINE/ l8LRAR(3,3). LeLHWR(5,3), LHLRt5,3) 



2 COMMON / EIGHT/LBLMU(3,3,3». LBLA*'( 3, ^. 3 ) . LBLF8 ( 3. 3 ) . LBLHWB( 7, 3 ) . 



1LBL(10.«3)» DbG(3,10) 

 2 lOOi F0RMAT(//3X» 3A10» / ( iX, 3A10, lOFlO.A)) 



2 1002 FORMAT (//3X, 3A10, / (5X, SAID, 10F10.4 /5X, 3A10, 10F10.4/)) 

 2 1003 FDRMATC SX, 3A10, I^FIO.* / 5X, 3A10. tOFlO.* /) 

 2 IOC FORMATC //3X, 3Aly, 2X, 10F10.'»/ ?X. 3&10, 2V» 10F10.4) 

 2 PRINT 2000, AREA, B, XG, YG, RMASS, R I^ = RT, DAMP ( 1) » DAMP ( 2 ) , DAMP ( 3 ) 



33 20J0 FORMATdHl, 20X*DYrJ4MIC MODEL RESULTS*//* ARE A»*F10, 3. 5X*B»*ciO. 3, 

 I 5X *X6»*F10.3.5X*YG«*F10.3,5X*MA<;<;«*F10.3»5X*INERTIA«*F10.3// 

 3* ADDITIONAL DAMPING ADDED- IN SWAV-*Pfe,?* LAMOAll TN HF4VF- 

 3*F6.2* LAM0A22 IN R0LL-*F6.2* LAHD4-?1* //) 

 33 PRINT 2001, < (RKHYOd, J), J»1,3),I-T,3)» ( ( RKMTR ( I, J ) , J -1, 3 ) , I -1, 3 ) 



67 2001 FDRMATt* SPRING CONSTANTS KTl Kl? K13 K21 

 1 K^^ K23 K31 K32 K33+/ 



2* HYDR0STATIC*7X,'JF10.3 / ♦ MOOR INr,*l IX, pciO. 3/// ) 

 67 DO 9 IL » 1,10 



71 9 DEG(1,1L) « SORT( {GE£ + 30L( ID ) /(TP*B)) 

 111 PRINT 1J04, (L8L(1,K),K = 1,3), (BOLdL), TL = 1,10), 



1 (L8L(2,K), K » 1,3), (DEGd.IL), TL • ',10) 

 156 DO 1 I = 1,3 



160 DO 1 IL • 1,10 



161 1 DeGd,IL) • 57.298 ♦ Dt'LRddL) 



176 PRINT 1002,(LRLR(1,K). K » 1.3 ) » ( ( LBL RAR (T , K) , K * 1,3), 



1 (RAKd.IDdL = 1,1J), (L8L(6»K),K « 1.3), ( DEG{ I, I L ) , IL »1 . 10) , I 



2 » 1,3) 



261 DO 2 I = l.NNW 



263 DO 8 IL • 1,10 



264 8 DEGd.IL) =XOLd, IL ) *B/BOL (IL ) 



301 PRINT lol2. (LBL(3,K), K • 1,3), tL''L(9,X), < . 1,3), 



1 (XOL(I,U), IL » 1,11.), (LBL(10,K), K-l.l ), (DFGd, IL ), IL'T ,10) 

 362 DO 3 J « 1,3 



364 DO 3 IL • 1,10 



365 3 DEGU,IL) • 57.298 ♦DEL WR ( I , J, II ) 



^•04 PRINT 1J03, t (LdLHWR( J,K), K * 1,3), (MWRd,J,IL), IL ■ 3.10), 



1 (LBL(6,K), K • 1,3), tDEG(J,IL). IL • T.IO). J • 1,3) 



460 IF (XOLd.l) .LT. 0.) GO TO 4 



466 DO 5 IL • 1.10 



470 DEG(2,IL) • 57.298 ♦ DeLWT{I,IL) 



501 5 OtG(l,lL) =■ 57.298 ♦ r)ELWd,6,IL) 



516 PRINT 1003, ( L3LHWR ( 7,K ) . K»l,3), ( HWB( T , 6, a ) , IL • 1,1C), 



1 (LBL(6,K),K«1,3), (DEGd.IL), IL ' 1 . 1 T ) 



567 PRINT 1003, ( LBLH JR ( 4, K ) , K»l, 3 ) , (MWTd,IL),TL ■ 1,1?). 



1 (L8L(6,K), K = 1,3), (DEG(2.IL), TL ' 1,1") 



Table D-2. Continued 



133 



