Lines Matching refs:PROD
222 $ MAX1, MAX2, MINGAP, OLDP, PROD, RDELTA, RDMAX,
410 PROD = ONE
413 IF( PROD .LE. EPS ) THEN
414 PROD =
417 PROD = PROD*ABS(WORK(N+I))
419 OLDP = PROD
420 ZNM2 = ZNM2 + PROD**2
421 TMP = MAX( TMP, ABS( DPLUS( I ) * PROD ))
432 PROD = ONE
435 IF( PROD .LE. EPS ) THEN
436 PROD = ((WORK(I+1)*LPLUS(I+1))/(WORK(I)*LPLUS(I)))*OLDP
438 PROD = PROD*ABS(LPLUS(I))
440 OLDP = PROD
441 ZNM2 = ZNM2 + PROD**2
442 TMP = MAX( TMP, ABS( WORK( I ) * PROD ))