RUNT VERSION FfcB 7<. B 17:12 J'./23/76 



C XSKIP ■ 1 on .NOT SOLVE £cUATn*»': T= -OTTO^J 



C = 2 Oil NaT SULVt 'CTENTI4L o^GRLPI <(<FAD IN COPP*:) 



C ' ANfTHTNG ELSE SOLVE "no CnPFPTCTENTS iND OYNlMJCi 



C DUMBER Gf= ^'JOr SEGMENTS WHIC^ "EP'S'^ENT FRtE SUftFACf RETWfEl 



C CATA.IAASAN HULS. SEGMPNT MJ^qpRS SPECIFTED «Y JC(5 



25«) NKW • NW ♦ 2 



2oO NC = N - LC 



262 NWl = 25 - N - 2 



2b'* IF (NW .LT. 0) NW = 



267 IF (NW .GT. NWl) NW • l'4Wl 



271 PRINT 60. N. N*. NWIVCL. ISY1, ISKTo, l : , .1 C 



3lP 60 FORMAT (1JX*NUM8ER OF SFG^'ENT5 «♦. T«t// 



1 1UX*NUM8ER OF Fi?tE-SURFACE STATIONS =*. I «i / / 



2 1CX*NUW8£R OF WAVELENGTHS •*. 14// 



3 10X*lSrM =*,i't// lOX + ISMP =*. T*// 

 t, lOX + NC • ♦IS. ^JC »♦ 515 /) 



315 RtAO 7C. AREA. «. 0. ROt, GEE. (BTITL=fr», T = 1,3) 



3^2 73 FORMAT (5FliJ.3» 3A10) 



C ARfA • CROSSdCTinNAL AREA OF tmmcP'^F'^ RTDY 



C 3 = CHARACTfRISTIC LFN3TH AS So^CIPIFD BY PTITLE 



C » OtSTANCt BENEATH SURFACE T" n^nG^N TF USPRS COOROTNATE 



C SYSTtM (♦). ALL .IJTIJNS REFciJEO TH THAT POINT AMO BOOY 



C SHAPE SPECIFIED IN THAT SYSTF1 



C ROE • FLUIO DENSITY 



C GFF. = ACCtLtRATiCN OF GRAVITY 



3^2 PRINT bO. AREA, 3. (BTITLEd), I « T.3). n, RTE, GEt 



367 BO FORMATdOX *AR£A = *. F10.3 //, lOX *B « ♦c-^.j ,5x, 3A1C 



2 //iOX *C ' * FIO.3 // lOX ♦FLUID O'^'JSTTY «* F10.5// 



3 luX«ACC!:Lt<ATION OF GRAVITY «*, FV>.3/) 

 367 IFdSKIP .£2. 3) GO TG 303 



372 RfcAO ICO. (BOLd). I ' 1. NWAVtL) 



^.06 100 FORMAT dOF8.5) 



C BOL • 6FAM/WAVFLENGTH RATIO FOR CTMPiJTATtnNS 

 406 no toe I = 1, NWAVtL 



4J.J 600 WAVcLd) • B/BOLd) 



C WAVtL(I> ' OIMc.MSiriNAL WAVEL^'^GTH TP TNCIOENT WAVES 



417 PRINT 110. (BQLd). I = 1. NhAVEl) 



433 110 FORMAT ( lOX + Pc AM/WA VEL fcNGTH RATION 1^ TSC TOF^JTwAVFS*/ /( 25X10=11 .«i 

 1) ) 



C+*^**1N1TIALIZE OUTPUT VARIABLES 



433 DO 113 IL • 1.10 



435 WNdL) • 0.0 



437 BOLdL) = O.-j 



442 DC 114 I = 1,3 



444 FBd.IL) ' 0.0 



45J OELFBd.IL) • «.U 



455 00 11* J = 1,3 



456 RhUd, J. IL) • 0.0 

 465 RLAMCI, J, ID = 0.0 

 474 114 CONTINUE 



500 DO 112 I ' 1. 25 



501 XOLd.ILf ' 0.0 

 505 DD 112 J = 1,6 

 507 HWBd.J.U) = 0.0 

 516 DELWd.J.IL) 'O.O 



525 112 CONTINUE ^ 



Table D-2. Continued 



112 



