Lines Matching refs:RZERO
74 REAL RZERO, RHALF, RONE variable
75 PARAMETER ( RZERO = 0.0, RHALF = 0.5, RONE = 1.0 )
245 IF( SDIFF( RONE + EPS, RONE ).EQ.RZERO )
272 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
280 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
414 REAL RZERO local
415 PARAMETER ( RZERO = 0.0 )
468 ERRMAX = RZERO
759 REAL RZERO local
760 PARAMETER ( RZERO = 0.0 )
815 ERRMAX = RZERO
1107 REAL RZERO local
1108 PARAMETER ( RZERO = 0.0 )
1161 ERRMAX = RZERO
1469 REAL RZERO local
1470 PARAMETER ( RZERO = 0.0 )
1513 ERRMAX = RZERO
1746 REAL RZERO local
1747 PARAMETER ( RZERO = 0.0 )
1798 ERRMAX = RZERO
1835 ALPHA = CMPLX( RALPHA, RZERO )
1836 NULL = N.LE.0.OR.RALPHA.EQ.RZERO
2030 REAL RZERO local
2031 PARAMETER ( RZERO = 0.0 )
2083 ERRMAX = RZERO
2699 REAL RZERO local
2700 PARAMETER ( RZERO = 0.0 )
2749 $ A( J, J ) = CMPLX( REAL( A( J, J ) ), RZERO )
2884 REAL RZERO, RONE local
2885 PARAMETER ( RZERO = 0.0, RONE = 1.0 )
2937 G( IY ) = RZERO
2968 IF( G( I ).NE.RZERO )