Table G-7. Listing of the computer program flADSEN. 

 J PROr.R*H M*08EN(lM»UT»0UTPUTiT*PE5»INPUT,T*Pr6s0UTPuTiTAPC3) 



coMMOM/M*osi/NM,NL.o(tn»N(n)tLunuin»TH(n) 



CO'iMO^/SEtL/NKt.iFS 



B UIMpNSION I8UF(1 )f TITLE(20)fNUM(io) 



HtAL L.MUiKT.KH,N,tEfMRiLL»KTO,KTT 

 OAT* ►JU"/l,3i3,U,5,bi7f8i'»»tO/ 

 PI«?.1(J15'J 

 C«Ll RtAOI 

 10 REAri(5»S90) NCO«P 



590 FORMAT(5l?,U)(,'rF10,9) 

 DO ?0n IJri,NCO"P 

 C READ INPUT INFORMATION 



KFAn(S,171) (TITIE(JJH)«J;m«1i20) 

 15 ITl FORMATt20*u) 



i*RlTt(6il72) (T!TLE(JJM)iJJM«1,20) 

 172 FORMAT(lHt,10X,?OAU) 



HEAnCSfS90) NT,MM»NL»HStHO»NUtTOPW,TANB.RA»RB 



FlHS'HO 

 20 IF(p4,Lt.n.) RAaO.692 



IFCB.LE.O.) RB9.50U 



^-RlTttbtS?!) KJT.NM,Nl.iHS.HO,NUfTOPW,TANB»RAtRB 

 971 F0Rm4T(/ ,iox, tCOMPUTATIONS OF WAVC TRiNSM^SSION THROUGH A POROUS 

 » BRFAKi«ATFRf,///»5X| fNUM OF WAVE CONDI T IONS f , J ?X f I 5 » / .5X » 

 29 • INUf^ or MAitRIALSs tt t7X|l5i/f5Xi 



• tNUM OF HQRIZONTIAU LAYERS" ( 1 6X 1 15» / 1 5x f tSTRlJcTURE HEIGHT (M) 

 ♦» IiAX.F10.3t/.5Xi l**»TtR DEPTH ( M)s ( , 1 1 x , F 1 . 3, / i5X , 



•(KlKjfeMATIC VISCOSITY (M2/StC)» tiFll,9. /iSX.tB"' TO? WIDTH (M)»l» 

 ♦IPX,F1Q.3./.SX, fTANB OF FRONT SLOPta 1 .9x » F3 , tt, / . 5X , IRUNUP COtFFlCI 



50 'tNTs ABltFb.Jif B»[»F6.J) 



00 q» I«ltll 

 00 98 J»liH 



98 LL(TtJ)*0, 



99 CONTINUE 



33 t^RlTEfei.SSS) 



263 FORmaT(Sx. f^ATiRIAL CHARACTERISTICS (M*kE ARMQR MATERIAL NUMBER I) 



• I. /I 



DO f, T=1,NM 

 REAn(S,7) Otn.NCl) 

 «0 7 FG»MAT()0X,7M0.5) 



><RlTEf6.l77) I.nCD.Nfn 

 177 FOUmAtcSx, t'*ATERl*LB (il3i t DIAMETER (M),l,F 6.3il P0H081TYB JiFb.l) 

 6 CONTINUE 



WSlT£t().2flU5 (NIJM(JM).JM»l ,NM) 

 US 28U F0RmAT(//,5X, (HORUONTIAL LAYER CHARACTERISTICSIt/fSXt 



♦K^'AKf LAYfR NfxT TO SEABED LAYER NUMBER Uri/t 



• S2XI [MATERIAL* [.7(Il,5x)i/,63X,6(I2t«X),/) 

 00 M Jsl,NL 



H£AnCSi7) TH{J),CLL(l»J5.I=tiNM) 

 50 ^.RlTt r6.l78) J,TH(J),(LLClf J).I«J,NM) 



17S F0KM4TC5X, [HORIZONTIAL LAYER»til3tt THICHNfcSS (M)»|, F6,JiI LENGTH 



•S CM)» [,7Ft,,l,/,b0X.TF6,l) 

 31 CONTINUE 

 NM»K|M* 1 



55 D(NM)30{1) 



N(Nm)sO,01 



NLsNt*r 



TH(NL)riortonooo. 



LU(nm,nL)=3.»0( 1 ) 

 60 ««lTf (6i9il2) 



9u? F0KM4Tt//» hX,(MCM) TtStC) H/(G«T»T) H/L 0/(C*T*T/) KTT 

 » KTU KT kR HT(M) [) 

 DO 19Q IKsi.NT 



hfAr)(S,«) T.H 

 65 8 FOKMAT(?f tO,55 



A=H»o,5 

 0RsnCt)*0,5 



184 



