Lines Matching refs:DEL2
143 REAL DEL1, DEL2, DMAX, DMIN, DRAT1, DRAT2, DSAVE, local
177 DEL2 = (F(1,3) - F(1,2))/H2
185 D(1,1) = W1*DEL1 + W2*DEL2
188 ELSE IF ( PCHST(DEL1,DEL2) .LT. ZERO) THEN
202 DEL1 = DEL2
203 DEL2 = (F(1,I+1) - F(1,I))/H2
209 IF ( PCHST(DEL1,DEL2) ) 42, 41, 45
214 IF (DEL2 .EQ. ZERO) GO TO 50
215 IF ( PCHST(DSAVE,DEL2) .LT. ZERO) IERR = IERR + 1
216 DSAVE = DEL2
221 DSAVE = DEL2
230 DMAX = MAX( ABS(DEL1), ABS(DEL2) )
231 DMIN = MIN( ABS(DEL1), ABS(DEL2) )
233 DRAT2 = DEL2/DMAX
243 D(1,N) = W1*DEL1 + W2*DEL2
244 IF ( PCHST(D(1,N),DEL2) .LE. ZERO) THEN
246 ELSE IF ( PCHST(DEL1,DEL2) .LT. ZERO) THEN
248 DMAX = THREE*DEL2