Lines Matching refs:RZERO
55 REAL RZERO, RHALF, RONE variable
56 PARAMETER ( RZERO = 0.0, RHALF = 0.5, RONE = 1.0 )
208 IF( SDIFF( RONE + EPS, RONE ).EQ.RZERO )
238 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
247 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
265 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
274 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
443 REAL RZERO local
444 PARAMETER ( RZERO = 0.0 )
488 ERRMAX = RZERO
773 REAL RZERO local
774 PARAMETER ( RZERO = 0.0 )
819 ERRMAX = RZERO
1094 REAL RZERO local
1095 PARAMETER ( RZERO = 0.0 )
1140 ERRMAX = RZERO
1458 REAL RONE, RZERO local
1459 PARAMETER ( RONE = 1.0, RZERO = 0.0 )
1504 ERRMAX = RZERO
1554 ALPHA = CMPLX( RALPHA, RZERO )
1561 BETA = CMPLX( RBETA, RZERO )
1566 $ RZERO ).AND.RBETA.EQ.RONE )
1868 REAL RONE, RZERO local
1869 PARAMETER ( RONE = 1.0, RZERO = 0.0 )
1914 ERRMAX = RZERO
1984 BETA = CMPLX( RBETA, RZERO )
2326 REAL RZERO local
2327 PARAMETER ( RZERO = 0.0 )
2377 $ A( J, J ) = CMPLX( REAL( A( J, J ) ), RZERO )
2449 REAL RZERO, RONE local
2450 PARAMETER ( RZERO = 0.0, RONE = 1.0 )
2486 G( I ) = RZERO
2582 IF( G( I ).NE.RZERO )