Lines Matching refs:RONE
56 DOUBLE PRECISION RZERO, RHALF, RONE variable
57 PARAMETER ( RZERO = 0.0D0, RHALF = 0.5D0, RONE = 1.0D0 )
207 EPS = RONE
209 IF( DDIFF( RONE + EPS, RONE ).EQ.RZERO )
1459 DOUBLE PRECISION RONE, RZERO local
1460 PARAMETER ( RONE = 1.0D0, RZERO = 0.0D0 )
1567 $ RZERO ).AND.RBETA.EQ.RONE )
1869 DOUBLE PRECISION RONE, RZERO local
1870 PARAMETER ( RONE = 1.0D0, RZERO = 0.0D0 )
1990 $ ZERO ).AND.RBETA.EQ.RONE )
2451 DOUBLE PRECISION RZERO, RONE local
2452 PARAMETER ( RZERO = 0.0D0, RONE = 1.0D0 )
2589 IF( ERR*SQRT( EPS ).GE.RONE )