Table G-7. Listing of the computer program MADSEN. --Continued 



IFt 4. LT, 0,00001) GO TO 100 



IFCtANB.LE.O,) r.O TO 37 

 70 C4Li REFLCAiHS,nCn.HO,TANB,T,RIl,RU,L) 



AI=RII»4 

 22 HHTr^,*RU*A 



IFL'ifCisO 

 C ASSUME nHfsDHT AND ITERATE ON THE EOUI|.TV*NT Bl" 

 75 ICOiiMsO 



DHtaOMT - 

 10 ICOilNTsICOUNT*! 



CAll. fyBifOHt iDHT.Uf iHOiHSf TAMBiNR,nR»TnPW) 



CALi INTtR(MR«Ttl.E»'^0»AlfNUiORtTltRI.lilH*C) 

 eO If 'Tf UAfJ.EQ.n riR = DR*0,95 



IFCtHaG.EG.O GO TO 22 



DhEsC 1 .♦RI)«RII*A 



IF(TCnUMT,LT,U) liO TO 10 



KB=Rl»RII 

 6S KTT=TI»RI! 



37 IFCTANe.LF.O.) CALL IMERCN(n»T,TOPw»HO»*tNU»D(n»KTTiKR«l,tirL*C) 



IFCTKAG.f Q.l) OK = OR»0,5 



IF (iFLAC.EQ.n GO TO 37 

 ■ SUH^sT4WB/sr3RT(H/( l,56»T»T)) 

 90 WHsoA*8iiRF/( 1 .♦r8»Su«F) 



HsHtRH 



KB=F/R 



CsO^SI -G,11*T0Pi«/HS 

 KTU=C*( 1 ,-FH) 

 95 iF( (TOPrt/HSl ,r.T;0,e«.ANO,F.LT,0,) KTO'C* ( t .•FR)«( 1 ,«2,*C) »FR 



IF(kT(i.GT.i ,) KTUci, 

 IF(FK,GT,1 ,0) KTU=0, 

 hGT?sA»?,/(9,8o»T*T) 



100 UGT?sMn/(<>,80*T*T) 



f LAr,= 5H 



KTesfjRT{KTT**?*Kr0**2) 

 IF(kT.GT,1 .0) KT=l,ft 

 HTsu»KT 

 105 '"HlTt t6t9fil) H,TiHGT2tHL»DGT2fKTT.KT0»KTiKR»HT 



98, FOHmAT( 5X,F6,SiFlO,eiF10i(j,FlO,5|FiOt«i3F«>,3»F6,2,r7i5) 

 ion CONTlNUF 

 19<) CONTINUE 



"RlTt f6.20l) 

 no 201 FOKmAT(//i?X, tKTl • "AVE TRANSMISSION THROUGH THE STRUCTURE t« / » 



♦^XirKTO • WAVE TRANSMISSION BY OVERTOPPING COEF FIC J ENT t t / • 

 » 2X,IKT " TOTAL t^AVE TRANSMISSION COEFFICIENT t»/»2X« 

 • fKR > WAVE REFLECTION COfcFUCIENTn 

 ♦/•2y.(MT • TRANSMITTED WAVE HElGHTt) 

 H5 20n CONTINUE 



STOP 

 END 

 1 SUBROUTINE REFUf AiHS.O,H0iTANB,T,RIi,HU,L) 



COMMON/MAns/FST(«»iin,RllT(9,lU,RT(i7iintTxC9ilO),RX(9ilO) 

 OIMpNSION FSStl 1) "^USCl l)»K3(ll) 

 REAL I ,LSL,t S 



5 c cF = Model corblctton factor to account for model slope effects 



CF= 1 ,?8-0,S78*TANB 

 IFC^ANH.LT.n.a) CFsl,02 

 IFCtANH.GT. 0,681 CF30,B<» 

 C FIND i^AvE Lf-^iGTH I 



10 HOLnsno/( 1 ,«;6«T*T) 



CALL LEN(jT(HOLO.HOL) 

 L=Hn/H0L 

 LS = wU/TAfjp 



IffwS.LT.HO) LSaHS/TANe 

 15 LSL=LS/L 



IF (LSL ,LT.0,8) GO TO 105 



TMlN»SgRT(b.28i»{LS/0,8)/(9,8*TANH(h,283»HO/(L3/0t8)))) 

 wR-lTEfbtlOl) TMJN 

 101 FO«i-AT(///, u, (WARnING»TmE minimum wave PERIOD TO BE ANALYZED BY T 



185 



