Lines Matching refs:RONE
56 REAL RZERO, RHALF, RONE variable
57 PARAMETER ( RZERO = 0.0, RHALF = 0.5, RONE = 1.0 )
192 EPS = RONE
194 IF( SDIFF( RONE + EPS, RONE ).EQ.RZERO )
1257 REAL RONE, RZERO local
1258 PARAMETER ( RONE = 1.0, RZERO = 0.0 )
1365 $ RZERO ).AND.RBETA.EQ.RONE )
1589 REAL RONE, RZERO local
1590 PARAMETER ( RONE = 1.0, RZERO = 0.0 )
1710 $ ZERO ).AND.RBETA.EQ.RONE )
3016 REAL RZERO, RONE local
3017 PARAMETER ( RZERO = 0.0, RONE = 1.0 )
3152 IF( ERR*SQRT( EPS ).GE.RONE )