Lines Matching refs:RONE
55 REAL RZERO, RHALF, RONE variable
56 PARAMETER ( RZERO = 0.0, RHALF = 0.5, RONE = 1.0 )
206 EPS = RONE
208 IF( SDIFF( RONE + EPS, RONE ).EQ.RZERO )
1458 REAL RONE, RZERO local
1459 PARAMETER ( RONE = 1.0, RZERO = 0.0 )
1566 $ RZERO ).AND.RBETA.EQ.RONE )
1868 REAL RONE, RZERO local
1869 PARAMETER ( RONE = 1.0, RZERO = 0.0 )
1989 $ ZERO ).AND.RBETA.EQ.RONE )
2449 REAL RZERO, RONE local
2450 PARAMETER ( RZERO = 0.0, RONE = 1.0 )
2585 IF( ERR*SQRT( EPS ).GE.RONE )