Lines Matching refs:RZERO
56 DOUBLE PRECISION RZERO, RHALF, RONE variable
57 PARAMETER ( RZERO = 0.0D0, RHALF = 0.5D0, RONE = 1.0D0 )
209 IF( DDIFF( RONE + EPS, RONE ).EQ.RZERO )
239 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
248 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
266 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
275 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
444 DOUBLE PRECISION RZERO local
445 PARAMETER ( RZERO = 0.0 )
489 ERRMAX = RZERO
774 DOUBLE PRECISION RZERO local
775 PARAMETER ( RZERO = 0.0D0 )
820 ERRMAX = RZERO
1095 DOUBLE PRECISION RZERO local
1096 PARAMETER ( RZERO = 0.0D0 )
1141 ERRMAX = RZERO
1459 DOUBLE PRECISION RONE, RZERO local
1460 PARAMETER ( RONE = 1.0D0, RZERO = 0.0D0 )
1505 ERRMAX = RZERO
1555 ALPHA = DCMPLX( RALPHA, RZERO )
1562 BETA = DCMPLX( RBETA, RZERO )
1567 $ RZERO ).AND.RBETA.EQ.RONE )
1869 DOUBLE PRECISION RONE, RZERO local
1870 PARAMETER ( RONE = 1.0D0, RZERO = 0.0D0 )
1915 ERRMAX = RZERO
1985 BETA = DCMPLX( RBETA, RZERO )
2328 DOUBLE PRECISION RZERO local
2329 PARAMETER ( RZERO = 0.0D0 )
2379 $ A( J, J ) = DCMPLX( DBLE( A( J, J ) ), RZERO )
2451 DOUBLE PRECISION RZERO, RONE local
2452 PARAMETER ( RZERO = 0.0D0, RONE = 1.0D0 )
2488 G( I ) = RZERO
2586 IF( G( I ).NE.RZERO )