Lines Matching refs:RZERO
57 DOUBLE PRECISION RZERO, RHALF, RONE variable
58 PARAMETER ( RZERO = 0.0D0, RHALF = 0.5D0, RONE = 1.0D0 )
195 IF( DDIFF( RONE + EPS, RONE ).EQ.RZERO )
225 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
234 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
252 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
261 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
384 DOUBLE PRECISION RZERO local
385 PARAMETER ( RZERO = 0.0D0 )
429 ERRMAX = RZERO
669 DOUBLE PRECISION RZERO local
670 PARAMETER ( RZERO = 0.0D0 )
715 ERRMAX = RZERO
949 DOUBLE PRECISION RZERO local
950 PARAMETER ( RZERO = 0.0D0 )
995 ERRMAX = RZERO
1259 DOUBLE PRECISION RONE, RZERO local
1260 PARAMETER ( RONE = 1.0D0, RZERO = 0.0D0 )
1305 ERRMAX = RZERO
1355 ALPHA = DCMPLX( RALPHA, RZERO )
1362 BETA = DCMPLX( RBETA, RZERO )
1367 $ RZERO ).AND.RBETA.EQ.RONE )
1592 DOUBLE PRECISION RONE, RZERO local
1593 PARAMETER ( RONE = 1.0D0, RZERO = 0.0D0 )
1638 ERRMAX = RZERO
1708 BETA = DCMPLX( RBETA, RZERO )
2897 DOUBLE PRECISION RZERO local
2898 PARAMETER ( RZERO = 0.0D0 )
2948 $ A( J, J ) = DCMPLX( DBLE( A( J, J ) ), RZERO )
3020 DOUBLE PRECISION RZERO, RONE local
3021 PARAMETER ( RZERO = 0.0D0, RONE = 1.0D0 )
3057 G( I ) = RZERO
3155 IF( G( I ).NE.RZERO )