Lines Matching refs:PROD
225 $ MAX1, MAX2, MINGAP, OLDP, PROD, RDELTA, RDMAX, local
413 PROD = ONE
416 IF( PROD .LE. EPS ) THEN
417 PROD =
420 PROD = PROD*ABS(WORK(N+I))
422 OLDP = PROD
423 ZNM2 = ZNM2 + PROD**2
424 TMP = MAX( TMP, ABS( DPLUS( I ) * PROD ))
435 PROD = ONE
438 IF( PROD .LE. EPS ) THEN
439 PROD = ((WORK(I+1)*LPLUS(I+1))/(WORK(I)*LPLUS(I)))*OLDP
441 PROD = PROD*ABS(LPLUS(I))
443 OLDP = PROD
444 ZNM2 = ZNM2 + PROD**2
445 TMP = MAX( TMP, ABS( WORK( I ) * PROD ))