Lines Matching refs:RZERO
73 REAL RZERO, RHALF, RONE variable
74 PARAMETER ( RZERO = 0.0, RHALF = 0.5, RONE = 1.0 )
257 IF( SDIFF( RONE + EPS, RONE ).EQ.RZERO )
284 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
292 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
478 REAL RZERO local
479 PARAMETER ( RZERO = 0.0 )
533 ERRMAX = RZERO
833 REAL RZERO local
834 PARAMETER ( RZERO = 0.0 )
890 ERRMAX = RZERO
1189 REAL RZERO local
1190 PARAMETER ( RZERO = 0.0 )
1245 ERRMAX = RZERO
1571 REAL RZERO local
1572 PARAMETER ( RZERO = 0.0 )
1616 ERRMAX = RZERO
1848 REAL RZERO local
1849 PARAMETER ( RZERO = 0.0 )
1902 ERRMAX = RZERO
1944 ALPHA = CMPLX( RALPHA, RZERO )
1945 NULL = N.LE.0.OR.RALPHA.EQ.RZERO
2141 REAL RZERO local
2142 PARAMETER ( RZERO = 0.0 )
2196 ERRMAX = RZERO
2465 REAL RZERO, RONE local
2466 PARAMETER ( RZERO = 0.0, RONE = 1.0 )
2518 G( IY ) = RZERO
2549 IF( G( I ).NE.RZERO )
2762 REAL RZERO local
2763 PARAMETER ( RZERO = 0.0 )
2812 $ A( J, J ) = CMPLX( REAL( A( J, J ) ), RZERO )