PUNT VERSION FEB 7A B 13t04 04/09/76 



405 ASEP-X(1)-X(2) 



413 SEPD1F<II)-SEP(IC)-ASEP 



421 0UTPUT,II,IA,X(1),X(2),F(1),F(2),?EP(IC>»»SEP,SEPDIF(I1) 



466 IF(ABS(SEPDIF(II)) .GT. EP5 ) GO TO 24 



476 GO TO 40 



477 24 IF(SFPDIF(II) .GE. 0.) GO TO 26 

 503 IA-1 



505 GO TO 30 



505 26 lA-NANGLE 



507 30 CONTINUE 



C***USE SECANT INTERPOLATION FOR THE SUBSEOUENT FORCE TRIALS 



511 MN"20 



513 DO 34 K-1,MN 



514 FO(3I-FO(1)-SFPDIF(1)*(FO(2)-FO(1))/(SFPDIF(2»-SEPDIF(1)) 

 540 IF(F0(3) ,LE. 0.) FO ( 3 ) «F0 (2 ) /2. 



552 F(1)«F0(3) 



557 F(2)— F(1)-FEXT(IC) 



567 DO 32 1-1,2 



570 32 CALL LTERPS (I# 1,NANGLF» FXf EX, F( I) , X ( I ) .DUMMY) 



605 ASEP«X(1)-X(2) 



613 SEPDIF{3)"SEP(IC)-ASEP 



621 0UTPUT,K,X(1),X(2),F(1),F(2),ASEP,SEPDIF<3) 



657 IF(ABS(SEPDIF(3)) ,LE. EPS) GO TO 3P 



667 IF(K .EO. HN) GO TO 36 



672 F0tl)-F0(2) 



677 F0(2)«F0(3) 



704 SEPDIF(1)»SEPDIF(2) 



711 SEPDIF(2)-SEPDIF(3) 



716 34 CONTINUE 



720 36 PRINT 37 



724 37 FQRMAT(/5X*MAX NUMBER OF ITERATIONS PEACHFD*/) 



724 38 DO 39 I«l,2 



726 IF(ABS(F(I)) ,6T. A8S( FX ( I,1,NANGLF) ) ) PRINT 42 



750 39 IF{AeS(F(I)) .LT. ABS ( FX( I, 1, 1 ) ) ) PRINT 43 



775 42 F0RMAT(//5X*ANCH0R SEPERATION TOO GREAT FOR EVALUATION WITHOUT EXT 

 2RAP01ATING— USE RESULTS WITH CAUTION*//) 



775 43 F0RMAT(//5X*ANCH0R SEPERATION TOO LITTLE FOR EVALUATION WITHOUT EX 

 2TRAP0LATI0N — USE RESULTS WITH CAUTION*//) 



775 40 CALL SPPING(IC) 



777 100 CONTINUE 



1002 RETURN 



1002 END 



Table B-3. Continued 



100 



