PUNT VERSICN FEB 7^ B 13»0« 04/0<>/76 



166 OUTPUT. riTIDE. TIDE 



C LOOP THROUGH THE TWO CABLES 

 201 00 65 I»l»2 



C»**INPUT THE CABLE PROPERTIES AND BOTTOM* DEPTH AND SLOPE 

 203 READ 22,NSE6tn»0EPTH(I),BSL0PE(I) 



217 22 F0R«AT(I2»8Xf2F10.0) 



C NSEG- NUMBER OF CABLE SEGMENTS OR MATERIALS 



C DEPTH- DEPTH OF THE WATER AT THE ANCHOR FT. 



C SSLOPE- SLOPE OF THE BOTTOM (FT RISE/FT) 

 217 PRINT 25 



223 25 F0RMAT(///5X,«I NUMBER SECTIONS SEGMENT LENGTH WT PER FOOT* 



2 ^X* MATERIAL DIAMETER*/) 

 223 NS-NSEG(I) 



226 DO 30 J"1»NS 



C***FDR EACH CABLE SEGMENT INPUT 



C NSECT(I)- Nl'MBER OF SECTIONS INTO WHICH CABLE SEGMENT I IS DIVIDED 



C ALSEG(I)»LENGTH OF CABLE <;EGMENT I FT. 



C WPF(I)« WEIGHT PER FOOT IN WATER OF CABIF SEGMENT I LB/FT 



C MATL'MATERIAL OF CABLE SEGMENT EITHER NYLON CR CHAIN 



C MUST BE LEFT JUSTIFIED IN DATA FI'=LD 



C DIAM-DIAMETER OF ROPE OP CHAIN LINK INCHES 

 230 READ <.0#KSECT(I^J) , ALSEG(I» J ) » WFF ( I, J ), MATl ( I, J ) . DI AM( I, J ) 



264 AO FCRMAT(I5,5X,2F10.0.A10»F]0.0) 



264 30 PRINT 50, J#NSECT(I,J)»4LSFG(I. J),WPF{T, J), maTL( I, J ) , D lAM ( I, J) 

 326 fO FORMAT(X,I5,eX,I5»8X,F10,2,'tX»F10.2»''X,A10, 5X#F6.3) 



C***FIND THE NOMINAL LENGTH OF THE CABLE* LENGTH AND WEIGHT OF SECTIONS 

 326 ALNOM(I)«0. 



331 00 60 J-1,NS 



332 ALNOM(I)«ALNOM(I)*ALSFG(I, J) 



343 ALSECT(I,J)-ALSEG(I, J)/NSECT{I»J) 



357 to WSECT(I.J)«WPF(I,J)*ALSECT(I.J) 

 375 £5 CONTINUE 

 377 BSL0P£(2)— BSLCPE(2) 



C***LOOP THROUGH THE TIDE POSITIONS 

 403 DO 400 ITIDE-1,NTIDE 



C***LOOP THROUGH THE CABLES 



405 DO IfO 1-1,2 



406 PRINT 70 



411 70 F0RMAT{1M1,5X*N0TE— IN THE FOLLOWING TABLES X AND Y APE MEASURED 

 2RELATIVE TO THE CABLE ATTACHMENT*//) 



C D"Y DIRECTION SEPFRATION BETWEEN ANCHOR ANn ATTACHME^JT 

 411 D-0EPTH(1)+TIDE(ITIDE)+YCAR(I) 



C«#«C0MPUTE INITIAL ANGLES TO BE USED 



C NANGLE-NUMBER OF ANGLES USED MAX-2n 

 421 NANGLE-15 



423 PHIMIN«ASIN(0/ALNOM(I) ) 



431 DELPHI»tPI/2.-PHIMIN)/FL0AT(NAN6LE+l) 



443 PHIONE — PI/2. 



C«**COMPUTE A FIRST GUESS FOR THE INITIAL TFNSION FOR STEEPEST ANGLE 



444 ALSUM-0. 



445 TZERO-0. 



446 DAF-D*(ALNOM(I)-D)*BSLOPE(I) 

 456 NS-NSEGd) 



461 DP 90 J-1,NS 



463 NSS-NSECT(I, J) 



470 00 90 K.1,NSS 



Table B-3. Continued 



94 



