Lines Matching refs:RZERO
74 DOUBLE PRECISION RZERO, RHALF, RONE variable
75 PARAMETER ( RZERO = 0.0D0, RHALF = 0.5D0, RONE = 1.0D0 )
257 IF( DDIFF( RONE + EPS, RONE ).EQ.RZERO )
284 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
292 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
479 DOUBLE PRECISION RZERO local
480 PARAMETER ( RZERO = 0.0D0 )
534 ERRMAX = RZERO
835 DOUBLE PRECISION RZERO local
836 PARAMETER ( RZERO = 0.0D0 )
892 ERRMAX = RZERO
1192 DOUBLE PRECISION RZERO local
1193 PARAMETER ( RZERO = 0.0D0 )
1248 ERRMAX = RZERO
1575 DOUBLE PRECISION RZERO local
1576 PARAMETER ( RZERO = 0.0D0 )
1620 ERRMAX = RZERO
1853 DOUBLE PRECISION RZERO local
1854 PARAMETER ( RZERO = 0.0D0 )
1907 ERRMAX = RZERO
1949 ALPHA = DCMPLX( RALPHA, RZERO )
1950 NULL = N.LE.0.OR.RALPHA.EQ.RZERO
2147 DOUBLE PRECISION RZERO local
2148 PARAMETER ( RZERO = 0.0D0 )
2202 ERRMAX = RZERO
2471 DOUBLE PRECISION RZERO, RONE local
2472 PARAMETER ( RZERO = 0.0D0, RONE = 1.0D0 )
2524 G( IY ) = RZERO
2555 IF( G( I ).NE.RZERO )
2769 DOUBLE PRECISION RZERO local
2770 PARAMETER ( RZERO = 0.0D0 )
2819 $ A( J, J ) = DCMPLX( DBLE( A( J, J ) ), RZERO )