Lines Matching refs:DEL2
140 REAL DEL1, DEL2, DMAX, DMIN, DRAT1, DRAT2, DSAVE,
173 DEL2 = (F(1,3) - F(1,2))/H2
181 D(1,1) = W1*DEL1 + W2*DEL2
184 ELSE IF ( PCHST(DEL1,DEL2) .LT. ZERO) THEN
198 DEL1 = DEL2
199 DEL2 = (F(1,I+1) - F(1,I))/H2
205 IF ( PCHST(DEL1,DEL2) ) 42, 41, 45
210 IF (DEL2 .EQ. ZERO) GO TO 50
211 IF ( PCHST(DSAVE,DEL2) .LT. ZERO) IERR = IERR + 1
212 DSAVE = DEL2
217 DSAVE = DEL2
226 DMAX = AMAX1( ABS(DEL1), ABS(DEL2) )
227 DMIN = AMIN1( ABS(DEL1), ABS(DEL2) )
229 DRAT2 = DEL2/DMAX
239 D(1,N) = W1*DEL1 + W2*DEL2
240 IF ( PCHST(D(1,N),DEL2) .LE. ZERO) THEN
242 ELSE IF ( PCHST(DEL1,DEL2) .LT. ZERO) THEN
244 DMAX = THREE*DEL2