RUNT VERSION FEB 7* B 13i04 0*/09/76 



SUBROUTINE L INEZ (K, PHIONEt TZEPO# DEPTH, BSLOPE, X,Y» FORCE X,FORCEY, IP » 

 15 C0MMPN/0NE/NSEG(2>»NSECT(2,5),WSECT(2,5). HATL(2, 5 ) ,DI AH<2. 5 ), 



2 ALSECT(2,5) 

 C**THE INPUT TO SUBROUTINE LINE 

 C PHIQNE-INITIAL ANGLE OF CABLE 



C TZERO-INITIAL GUESS OF TENSION AT TCP OF CABLF 

 C»«SUBROUTINE LINE COMPUTES 

 C TZFRO- TENSION AT CABLE TOP 

 C FOPCEX-FORCE IN X DIRECTION AT CABLE TOP 

 C FORCEY-FORCE IN Y DIRECTION AT CABLE TOP 

 C X-HORIZONTAL SEPERATION BETWEEN TOP AND BOTTOM DF CABLE 

 C Y-VERTICAL SEPERATION BETWEEN TOP AND BOTTOM OF CABLE 

 C***GO DOWN THE CABLE SECTION BY SECTION COMPUTE TENSION, ANGLE, 

 C EXTENDED LENGTH,X AND Y COORDINATES 



15 PI-3. 1^159 



16 NITEB-0 



17 MNITER-25 



21 NOTE-0 



22 T-TZERO 



23 152 NITER-NITER+1 



25 IFdP .EO. C) 60 TO 153 



27 IFINOTE .EO. 0) GO TO 153 



31 PRINT 155 



35 155 F0RMAT(//5X*I J X Y TENSION L5ECT* 



2 6X,*LEXT PHI-DEGREES FCRCEY FCRCEX*/) 



35 153 Y"0. 

 37 X-0. 



«3 PHI-PHIONE 



44 NSS-NSEG(K) 



47 158 DO 200 I-1,NSS 

 51 NS»NSECT(K,I J 



56 DO 200 J>1,NS 



57 PHID"PHI*180./PI 



61 IF(MATL(K,I) .EO. SHNYLON )G0 TO 165 



67 IF(MATL(K,I) .EO. 5HCHAIN )G0 TO 160 



75 160 CALL CHAIN(DIAM(K, I) #T, STRAIN) 

 105 GO TO 170 



111 165 CALL NYLON<DIAM(K, I), T, STRAIN) 



121 170 ALEXT«ALSECT(K,I)«(1. ♦STRAIN) 

 134 X-X-fALEXT*COS(PHI) 



145 Y-Y-»ALEXT*SIN(PHI) 



152 TCOS-T*COS(PHI) 



156 TSIN-T*SIN(PHI) 



162 IFdP .EQ. 0) GO TO 185 



170 IF(NCTE .EQ. 0) GO TO 185 



172 PRINT ieO,I,J,X,Y,T,ALSECT(K,I),ALEXT,PHTn,TSIN,TCOS 



231 180 F0RMAT(y,2I5»8F10.3) 



231 185 IF(1 .EO. NSS .AND. J .EO. NS) GO TO 200 

 247 SLOPE-<TSIN+WSECT{K,I))/TCOS 



257 IFtSLOPE .6E. BSLOPE) SLOPE»BSLOPF 

 262 PHI-ATAN(SLCPE) 

 266 T"TCOS/COS(PHI) 



271 200 CONTINUE 



302 FORCEX<>TZERO*COS<PHIONE) 



311 FORCEY»TZERC*SIN(PHIONE) 



Table B-3. Continued 



97 



