PUNT VEPSITN FEB Ti B 13iO* 0^/09/76 



SUBROUTINE EOULIB 

 2 COMMCN/TWO/WY(2,3),EX(2»3»20»»FX(2»3,2C)tFY<?»3»20),TEN$(2,3,20), 



2 FEXT(9),SEPt9),TENSl(9),TENS2(9)»N*NGLE»NCClND»TITLE(8) 

 2 C0Mt«0N/THREE/X(21,F(2) 



2 DIf«ENSION SEP0IF(3)»FO(3) 



C****EQULIB FINOS THE BREAKWATER EQUILIBRIUM PO">ITTQN 

 C***LOOP THROUGT THE TEST CONDITIONS 

 2 DO IPO IC«1»NC0ND 



4 TFCSEPdC) .NE. 0.) GO TO 20 



7 IF(TENS1(IC) .NE.OGO TO 10 



13 IF(TENS2{IC) .NE.OGO TO 12 



17 PRINT 155 



23 155 FORMAT(//X*NO INITIAL CONDITIONS SPECIFIED*) 

 23 60 TO ICO 



C»**FOR THE CASES WHERE INITIAL TENSION TS GIVEN THE FOLLOWING IS USED 

 2* 10 T-TENSKIC) 

 27 I«l 



31 J«2 



32 GO TO lA 



33 32 T-TENS2(IC) 

 36 1-2 



40 J«l 



41 14 OUTPUT, I, NANGLE,T 



57 IF(T .GE. TENS(I,1»1)) GO TO 18 



70 PRINT Ifc 



74 GO TO 100 



75 18 IF(T .GE. TENS ( 1. 1,NANGLE) ) PRINT 17 



111 16 F0RhAT(//5X*GIVEN TENSION CLOSE TO OP LESS THAN WEIGHT OF VERTICAL 

 2 MOORING LINE*/5X*Na FURTHER EVALUATION ATTEMPTED ♦//) 



111 17 F0RMAT(//5X*GIVEN TENSION TOO GREAT FOR EVALUATION WITHOUT* 

 2 ♦EXTRAP0LATI0N*/5X*USE RESULTS WITH CAUTION*//) 



111 CALL LTERPS ( I»1#NANGLE# TENS»EX» T. X( I ) ,DUMMY) 



123 OUTPUT. X(I),T 



137 CALL LTERPS ( 1» 1»NANGLE, TENS, FX,T, F ( I) , DUMMY) 



151 OUTPUT, F(l) 



162 IF(I .EO. 1 .AND. TENS2(IC) .NE. 0) GO TO 12 



177 IFCTENSKIC) .NE. .AND. TENS2(IC) .NE. 0) GO TO 40 



214 F(J)— F<I)-FEXT(IC) 



224 OUTPUT, F(J) 



234 CALL LTEPPS ( J, 1,NAN6LE, FX, EX,F ( J) , X ( J ) ,DUMMY ) 



250 OUTPUT, X(J) 



C NOTE— F(I)«X DIRECTION FORCE ON CABLE I , Xdj-X COQ^D OF ANCHOR 



261 GO TO 4C 



C***FOR THE CASE WHERE ANCHOR SEPERATION IS GIVEN 

 C MAKE A FIRST AND SECOND GUESS AT FORCE 



262 20 TA"(NANGLE*l)/2 

 270 EPS»SEP{IC)*.0O01 



274 DO 30 II»1,2 



275 X(1)«EX(1,1,IA) 

 305 F(1)«FX(1,1,IA» 



315 0UTPUT,F(1),II,FEXT(IC),SEP(IC),1A 



344 F0(II)-F(1) 



351 F(2)«-F(])-FEXT(IC) 



361 OUTPUT, F(2) 



371 CALL LTERPS (2, 1,NANGLE, FX, EX, F ( 2) , X(2 ) , DUMMY ) 



Table B-3. Continued 



99 



