Lines Matching refs:RONE
57 DOUBLE PRECISION RZERO, RHALF, RONE variable
58 PARAMETER ( RZERO = 0.0D0, RHALF = 0.5D0, RONE = 1.0D0 )
193 EPS = RONE
195 IF( DDIFF( RONE + EPS, RONE ).EQ.RZERO )
1259 DOUBLE PRECISION RONE, RZERO local
1260 PARAMETER ( RONE = 1.0D0, RZERO = 0.0D0 )
1367 $ RZERO ).AND.RBETA.EQ.RONE )
1592 DOUBLE PRECISION RONE, RZERO local
1593 PARAMETER ( RONE = 1.0D0, RZERO = 0.0D0 )
1713 $ ZERO ).AND.RBETA.EQ.RONE )
3020 DOUBLE PRECISION RZERO, RONE local
3021 PARAMETER ( RZERO = 0.0D0, RONE = 1.0D0 )
3158 IF( ERR*SQRT( EPS ).GE.RONE )