BUNT VERSICN FFB 74 B 13«0'» 04/09/76 



SUBROUTINF LTEPPS ( I. J»N, X, Y, XX, YY.DVnx ) 

 13 DIMEHSIDK Xt 2» 3»20) , Y( 2, 3, 20) 



13 Nf-O-N-l 



15 DO 10 K.l,NHr> 



16 L"K+1 



20 IF(XX .EO. X(I,J,L)) GO TO 30 



27 IF(ABS<XX) .LT. ABS( X( I, J, L ) ) ) GO TO ?P 



55 10 CONTINUE 



60 20 DYDX-(Y(I,J,L)-Y(I,J,K))/(X(I,J,L)-X(I,J,K)) 

 111 YY«Y(I,J,K)*(XX-X<I, J,K) J+CYOX 



131 RETURN 



132 30 IF(L .EO. N) GO TO 20 

 134 ft-L + l 



136 DYDX»(Y<I, J»M)-Y(I,J,K))/(X(I, J,H)-X(I»JfK) ) 



167 YY«Y(I,J,L) 



176 RETURN 



176 END 



Table B-3. Continued 



103 



