Lines Matching refs:PROD
225 $ MAX1, MAX2, MINGAP, OLDP, PROD, RDELTA, RDMAX,
406 PROD = ONE
409 IF( PROD .LE. EPS ) THEN
410 PROD =
413 PROD = PROD*ABS(WORK(N+I))
415 OLDP = PROD
416 ZNM2 = ZNM2 + PROD**2
417 TMP = MAX( TMP, ABS( DPLUS( I ) * PROD ))
428 PROD = ONE
431 IF( PROD .LE. EPS ) THEN
432 PROD = ((WORK(I+1)*LPLUS(I+1))/(WORK(I)*LPLUS(I)))*OLDP
434 PROD = PROD*ABS(LPLUS(I))
436 OLDP = PROD
437 ZNM2 = ZNM2 + PROD**2
438 TMP = MAX( TMP, ABS( WORK( I ) * PROD ))