Lines Matching refs:RZERO
121 DOUBLE PRECISION RZERO variable
122 PARAMETER ( RZERO = 0.0D0 )
290 EPS = EPSILON(RZERO)
312 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
320 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
455 DOUBLE PRECISION RZERO local
456 PARAMETER ( RZERO = 0.0D0 )
509 ERRMAX = RZERO
801 DOUBLE PRECISION RZERO local
802 PARAMETER ( RZERO = 0.0D0 )
857 ERRMAX = RZERO
1150 DOUBLE PRECISION RZERO local
1151 PARAMETER ( RZERO = 0.0D0 )
1204 ERRMAX = RZERO
1513 DOUBLE PRECISION RZERO local
1514 PARAMETER ( RZERO = 0.0D0 )
1557 ERRMAX = RZERO
1791 DOUBLE PRECISION RZERO local
1792 PARAMETER ( RZERO = 0.0D0 )
1843 ERRMAX = RZERO
1880 ALPHA = DCMPLX( RALPHA, RZERO )
1881 NULL = N.LE.0.OR.RALPHA.EQ.RZERO
2076 DOUBLE PRECISION RZERO local
2077 PARAMETER ( RZERO = 0.0D0 )
2129 ERRMAX = RZERO
2746 DOUBLE PRECISION RZERO local
2747 PARAMETER ( RZERO = 0.0D0 )
2796 $ A( J, J ) = DCMPLX( DBLE( A( J, J ) ), RZERO )
2931 DOUBLE PRECISION RZERO, RONE local
2932 PARAMETER ( RZERO = 0.0D0, RONE = 1.0D0 )
2984 G( IY ) = RZERO
3015 IF( G( I ).NE.RZERO )