RUNT VERSION FEB 74 8 17:12 0^/23/76 



SU8R00TINE POTOOT 

 2 COMMON RI12(25,25),RK5b(25.25)» POT( '-j, ■'5) ♦ 4QW( 25, 251 , FF ( 25» 6 ) , 

 1FI(23»6). RI(25,25), RJ(25.25). RK(??.*), PL(25,4)» 

 2RMU(3»3»10)» RLAM(3.3,10). FBtBjlO). 0=L P"* ( 3, 10) , HWB ( 25,6. TO 1 , 

 3 D£LWI25,6»10) , X0L(25,10) 

 2 COMMON /TWO/ N.NNW, NWAVtL, ISYM, T^KT». ^JC, PIF, GAMMA, M, TK , IP 



2 COMMON/THREE/ WAVEL(IO), WN(IO), 9I?L(1C),IL 

 2 COMMON /SEVEN/ AREA, B, D, ROS. GFF. i^TITLFO), TITU£(S) 



2 COMMON / EIGHT/LBLMU(3,3,3), U8LAM' 3, 3. ^ ) , L-iLFB ( 3, 3) . LPLHWfi ( 7,3 ) » 



1LBL(10,3), DEG(3,10) 

 2 1001 F0RMAT(//3X, 3A10, / (5X, 3A10, ltlFn.4)) 



2 1002 FORMAT (//3X, 3A10, / (5X, 3A10, 10^10. «► /5X, 3A10, lOFlO.'-'l) 

 2 1003 FDRMAT( 5X, 3A10, 10F10.4 / 5X, 3A10» lOFlO.'i /> 

 2 100<. FORMAT! //3X, 3A10, 2X, 10F10.4/ 3X, 3*10. 2X, 10^10. 4» 

 2 PRINT 2000, 8TITLE 



10 2000 FORMAT (IHl, 20X, *NGNDIMENSIONAL pOTFNTI«L COEFFICIENTS* /// 7^-* 

 1 * W ' SORT(G/B», W2 ' G/B* / 25X*B » ♦» 3A10 / 

 1 25X*G » ACCELERATION OF GRAVITY*/ 

 1 25X+P0E = MASS DENSITY OF FLMTP*/ 



225X *ETA • INCIDENT WAVE AMPLITUDE */?5X.*WAVEL - INCIDENT OR GENE 

 3RATE0 WAVE LENGTH*//) 

 10 DO 9 IL • 1,10 



12 9 DE6(1,IL) ' SORT((GEE*BOL(IL) ) /(Tp*i?)) 

 32 PRINT 1004.(LBL(1,K),K = 1,3), (BOLdL). IL » 1.10), 



1 (LBL(2,K), K « 1,3), (DEC.(l,IL), IL • 1,10) 



77 PRINT 1001, (L8L(3,K),K- 1,3), ( ( ( L9LMU( I, J,K ), K« 1,3), 



KRMUd, J.IL), IL = 1.13), J • 1.3), I » 1.3) 

 150 PRINT 1001 ,(LBL(4,K),K - 1.3), ( ( ( Li^LAM ( T, J. K ),K • 1,3), 



KRLAMd, J.IL), 1L» 1,10), J =■ 1.3). T ■ 1.3) 

 221 DO 1 I » 1,3 



223 DO 1 IL ' l.lO 



22<i 1 OEGd.lL) ' 57.298 * DELFBd.IL) 



241 PRINT 1002, (LBL(5,K), K • 1,3), ( t LPL=B d» K) ,K= 1,3), 



KFBd.ID.IL • 1,10). (LBL(5,K). K • 1, 3 ) , ( OFG (I . IL ) . IL-1, 10) 



2 . I « 1,3) 

 324 DO 2 I » 1,NNW 



326 DO 8 IL » 1,10 



327 DEGd.IL) ■ O.C 



334 IFCIL .GT. NWAVEL ) GO TQ 8 



337 DEGd,IL) «XOL (I , IL ) *8/B0L ( IL ) 



353 8 CONTINUE 



355 PRINT 1C02, (L8L(B,K), K =■ 1,3), (l'?L(9.K), K • 1,3), 



1 (XOL(I,IL), IL ■ 1.10), (L8L(1C,K), K"l,3 ), ( DEG d , IL ) , TL •! , 10 ) 



436 00 3 J » 1,3 



440 DO 3 IL » 1,10 



441 3 DEG(J,IL) ' 57.298 ♦ DELWd.J.IL) 



460 PRINT 1C03, ( (LBLHWB ( J ,K ) , K • 1,3), (HWBd.J,IL). IL - I.IO. 



1 (LBL(7,K), K = 1.3). (OEG(J,IL), IL • 1,13). J » 1.3) 

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

 542 DO 5 IL » 1.13 



544 5 DEGd.IL) • 57.298 ♦ DELWd»6,IL) 

 561 PRINT 1003, ( LSLHWS ( 7, K ) . K'1,3), (4W8d,5,IL), IL » I, IP). 



1 {L8L(6,K),K»1,3), (0EGd,IL)» IL » \t\'>) 



632 GO TO 2 



633 4 DO 7 J = 1,3 



Table D-2. Continued 



127 



