RUNT VERSION FEB T> B 13i04 04/09/76 



320 OUTPUTfNITER.Yf X#TZERO 



C»**THE SECOND GUESS OF INITIAL TENSION IS CCHPUTEO 



350 IFfNITER .GT. 1) GO TO 220 



353 TZOLD-TZERO 



35* TZERO-TZfRO*ABS(DEPTH/Y) 



365 YOLD-Y 



367 T-TZEPO 



370 GO TO 152 



C***THE SUBSEQUENT INITIAL TENSIONS ARE COMPUTED USING SECANT ITERATIC 



370 220 PELER«ABS<1.*Y/0EPTH) 



402 IF(NOTE .EO, 1) GO TO 300 



405 IF(NITER .GE. MNITER .OR. RELER .LF. .0001 ) NCTE-1 



424 DEROLD-DEPTH+YOLD 



426 DERR»DEPTH+Y 



430 T-TZOLD-DER0LD*(TZfR0-TZOLr)/{DERR-0FR0LD) 



437 IF(T .LE. 0.) T»TZER0/2. 



443 YOLD-Y 



445 TZOLD-TZERO 



446 TZERO-T 



447 60 TO 152 

 447 300 RFTUPN 

 450 END 



jNT VEPSICN FFB 74 B 13i04 04/C<J/76 



SUBROUTINE CHAIN(D.T.STRAIK) 



6 PI-3. 14159 



7 E-30.E6 



11 AREA-D*D*PI/2. ^ ^^, 



C C-ELONGATIDN FACTOR — C-6 FOR OVAL CHAIN 



14 C-6, 



15 STRAIN-C*T/(APEA*E) 



21 RETURN 



22 END 



UNT VERSION FEB 74 B 13104 04/00/76 





SUBROUTINE NYLON(D»T»STRAIN) 



6 



)f-T/(D*0) 



10 



A-. 02052 



12 



B-.2237 



13 



STRAIN-A*)f**B 



20 



RETURN 



21 



END 



Table B-3. Continued 



98 



