BMOORUD iiiiiiiiiiiiiniii nil iiiuiiiiiii niiniiniiniiiiuniiiiiinii nil 



RUNT VERSICN FEB 7A B 13t04 04/09/76 



PROGPAM PRKHOOP (IN PUT. OUTPUT, PUNCH, TAPE 5«INPl!T»TAPE6-CUTPUT) 



C 



C PROGRAM BRKMOOR COMPUTES THE FORCES AND SPRING CONSTANTS THAT A PAIR 



C OF MOORING CABLES IMPART ON A FLOATING BREAKWATER SECTION 



C 



C* ♦♦**♦♦♦♦♦♦*♦*»♦♦♦♦♦♦♦*»♦♦♦♦♦*♦♦♦♦•♦♦»♦*♦*♦♦*♦♦**♦♦♦♦♦*♦♦*♦ ♦♦♦♦*♦♦♦♦♦*♦ 



C INPUT 



C FIRST CAPO— TITLE - 80 ALPHANUMERIC CHARACTERS 



C BREAKWATER GEOMETRY — 



C NUMBER OF TEST CONDITIONS 



C TEST CONDITIONS— ONE CARD FOR EACH SET 



C TIDE CARD— rUMBER OF TIDE CONDITIONS A^JP THE CONDITIONS 



C FOR FIRST CABLE — NUMBER OF SEGMENTS ANCHOR OfTH AND BOTTOM SLOPE 



C FOR EACH OF ABOVE CABLE SEGMENTS —CARD WITH SEGMENT PROPERTIES 



C REPEAT — NUMBER OF SEGMENTS AND THEIR FRnPERTIES FOR SECOND CABLE 



(;♦+♦♦♦♦♦♦♦*♦♦■(.♦♦♦»*♦♦♦♦♦♦♦»♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦*♦♦*•♦♦♦♦♦*♦♦*♦♦♦♦**♦♦**♦♦»♦♦ 



C 

 3 COMMON/ONE/NSEG(2),NSECT(2,5),WSECT(2, 5), MATL< 2, 5 ) , DIAM ( 2, 5 >, 



2 ALSECT(2,5) 

 3 C0MM0N/TV0/WY(2,3),EX(2,3,20),FX(2,?,?0).FY(2,3,20),TENS(2,3,20), 



2 FEXT(9),SEPt9),TENSl(9),TENS2<9),NANGLE,NC0ND,TITlE(8> 

 3 C0MMrN/FrUR/YCG,XCAB(2),YCAB(2),TTnE(f ),ITIDF 



3 DIMENSION WPF(2,5),ALSEG(2,5), PFPTH( 2 ) , BSLOPE ( 2 ) , ALNOM( 2) 



3 PI-3. 1415926535 



C***READ A TITLE CARD — 80 CHARACTERS MAX 

 5 READ 3»TITLE 



12 3 F0RMAT(8A10) 

 12 PRINT 16, TITLE 



20 16 F0RMAT(1H1,5X,8A10///) 



C***REAO AND ECHO THE BREAKWATER GEOMETRY 

 20 2 READ 5,YCG,XCAB(1),YCAB(1),XCAB(2)»YCAB(2) 



C YCG-Y COORDINATE OF CG RELATIVE TO WATER SURFACE 

 42 5 F0RMAT(5F10.0) 

 42 0UTPUT,YCG,XCAB(1),YCAB(H,XCAB(2),YCA«((2) 



C XCAB(I)«X COORD OF CABLE I ATTACHMENT RELATIVE TO CG 

 C YCAB(I)"Y COORD OF CABLE I ATTACHMENT RELATIVE TO WATER SURFACE 

 C NOTE — CABLE NUMBER 1 IS THE CABLE WITH ITS ANCHOR IN THE ♦X DIRECTION 

 C*»*INPUT THE NUMBER OF DESIRED CONDITION CARDS MAX NUMBER-9 

 72 READ ICNCOND 



100 10 F0RMATtI2) 



C***REAO AND ECHO DESIRED CONDITIONS 

 100 DO 17 IC0ND»1,NC0ND 



102 READ 15,FEXT(ICOND),SEP(ICCND),TEN?l(rCOND),TENS2(ICOND) 



121 15 F0RMAT(4F10.0) 



121 17 OUTPUT, FEXT(IC0N0),SEP(ICrND),TENSl(ICPND),TENS2(IC0ND) 

 C FEXT-EXTERNALLY APPLIED FORCE (HORIZONTAL DIRECTION) LB. 

 C SEP -ANCHOR SEPERATION IN THE X DIRECTION FT. 

 C TENSl-TENSION IN CABLE 1 LB. 

 C TENS2-TENSI0N IN CABLE 2 LB. 



C INPUT SEP, OR TENSl OR TENS2 CR BOTH TFNSl AND TENS2 

 C«**REAO AND ECHO TIDE CONDITIONS 

 C NTIDE-NUMBER OF TIDE CONDITIONS MAX-5 



C TIDE-TIDE POSITION RELATIVE TC NOMINAL DFPTH MEASUREMENTS FT. 

 151 READ 20, NTI0E,(TIDE(I),I-1,NTI0E) 



166 20 F0RMAT(I1,9X,5F10.0) 



Table B-3. Listing of program BRKMOOR. 



93 



