RUMT VEPSICN FEB 74 B 13104 d^ilQ^nb 



A71 ALSUh'-ALSUM + ALSECTd^J) 



477 IF<ALSUM .GT. DAF) GO TO 95 



502 <50 TZERD»TZFRO+WSeCT(I,J) 



515 ^5 CONTINUE 



C CPMPUTE THE NOf-INAL AND PERTUPBED DEPTHS 



515 DREF-D 



517 DELD'DREF/100. 



521 DPLUS»DREF+DELD 



522 DMINUS-DPFF-DELD 



C***LOOP THROUGH THE INITIAL ANGIES 



524 DO 100 K«l, MANGLE 



525 PRINT 97#I,K,NAN6LE>TIDE(ITIDE) 



541 t7 FORMAT(/X*CABLE NUMBER ♦II* INITIAL ANGLE NO. ♦12* OF *I2 



? ♦ TIDE • ♦F5.2/> 

 541 PHIONE-PHIONE^DELPHI 



C***LOOP THROUGH THE NOMINAL DEPTH AND PERTURBED DEPTHS 

 543 DO 100 J»l,3 



545 IPRINT-0 



C*****«*«Tr SKIP THE PRINTING OF EACH CATIN»PY - INSEPT A GO TO 1111 



546 IF(J .EO. 1) IPRlNT-1 

 551 1111 IF(J .EO. 1) D«DREF 

 555 IF(J .EO. 2) D-DPLUS 

 561 IF(J .EQ. 3) D'DMINUS 

 565 WY(I,J)«YCAB(I)-D 



575 OUTPUT.J,K,D#YCAB(I)»WY(I*J),PHIONE 



627 CALL LINF2!I,PHI0NE,TZER0,r,eSLCPF(T),X,Y,F0RCEX,F0RC£Y,lPRIKT) 



642 EX(I,J,K)-XCAB(I)-X*(-1)**I 



660 FX(I,J,K)-FDRCEX*(-(-l)**I) 



674 FY(I,J»K)-FORC£Y 



703 TENS<I,J,K)»TZERO 



C WY(I,J)«Y COORD OF THE ANCHOR TO NO. 1 CABLE — WATER SURFACE-ORIGIN 



C EX(I,J,K)-X COCRD OF ANCHOR RELATIVE TC CP OF BPtAKWATfR 



C TENS-TENSION AT ATTACHMENT 



C FX-FORCE AT ATTACHMENT IN X DIRECTION 



C FY-FORCF AT ATTACHMENT IN Y DIRECTION 

 712 100 CONTINUE 



C END OF CABLE LOOP 

 716 150 CONTINUE 

 720 PRINT 102 



724 102 F0RMAT(1H1,5X*IN THE FOLLOWING TABLES - X REL. TO CG, Y RFL. TO WA 



2TER SURFACE*//) 

 724 DO 160 I"l»2 



726 PRINT 103, TITLE 



733 103 FORMATC 5X,8A10 ) 

 733 PRINT 105,I,TIDE(ITIDE) 



744 105 F0RMAT(///5X*M00RING LINE NUMBER- *I1,* TIDE-*F6.3// 



2 1CX,*Y«14X,1HX,8X»*T0P TENSI0N*7X*FDPCFX*7X*FCRCEY*/ ) 

 744 DO 120 J-1,3 



746 DO 120 K-1,NANGLE 



747 PRINT 110.WY(I,J)»EXtI,J,K),TENS(I,J,K)»FX(I,J,K),FY(I,J»K) 

 1013 110 FnRHAT(5X,5(F11.3,4X)) 



1013 120 CONTINUE 

 1020 PRINT 125 



1023 125 FORMAT(lHl) 



1023 160 CONTINUE 

 1025 CALL EOULIB 



Table B-3. Continued 



95 



