Lines Matching refs:RZERO
102 REAL RZERO variable
103 PARAMETER ( RZERO = 0.0 )
238 EPS = EPSILON(RZERO)
263 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
272 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
290 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
299 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
422 REAL RZERO local
423 PARAMETER ( RZERO = 0.0 )
467 ERRMAX = RZERO
707 REAL RZERO local
708 PARAMETER ( RZERO = 0.0 )
753 ERRMAX = RZERO
986 REAL RZERO local
987 PARAMETER ( RZERO = 0.0 )
1032 ERRMAX = RZERO
1296 REAL RONE, RZERO local
1297 PARAMETER ( RONE = 1.0, RZERO = 0.0 )
1342 ERRMAX = RZERO
1392 ALPHA = CMPLX( RALPHA, RZERO )
1399 BETA = CMPLX( RBETA, RZERO )
1404 $ RZERO ).AND.RBETA.EQ.RONE )
1628 REAL RONE, RZERO local
1629 PARAMETER ( RONE = 1.0, RZERO = 0.0 )
1674 ERRMAX = RZERO
1744 BETA = CMPLX( RBETA, RZERO )
2947 REAL RZERO local
2948 PARAMETER ( RZERO = 0.0 )
2998 $ A( J, J ) = CMPLX( REAL( A( J, J ) ), RZERO )
3070 REAL RZERO, RONE local
3071 PARAMETER ( RZERO = 0.0, RONE = 1.0 )
3107 G( I ) = RZERO
3203 IF( G( I ).NE.RZERO )