Lines Matching defs:ONE
71 DOUBLE PRECISION ZERO, HALF, ONE
72 PARAMETER ( ZERO = 0.0D0, HALF = 0.5D0, ONE = 1.0D0 )
238 EPS = ONE
240 IF( DDIFF( ONE + EPS, ONE ).EQ.ZERO )
264 CALL DMVCH( TRANS, N, N, ONE, A, NMAX, X, 1, ZERO, Y, 1, YT, G,
272 CALL DMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
1088 DOUBLE PRECISION ZERO, HALF, ONE
1089 PARAMETER ( ZERO = 0.0D0, HALF = 0.5D0, ONE = 1.0D0 )
1348 CALL DMVCH( TRANS, N, N, ONE, A, NMAX, X,
1362 CALL DMVCH( TRANS, N, N, ONE, A, NMAX, Z,
1446 DOUBLE PRECISION ZERO, HALF, ONE
1447 PARAMETER ( ZERO = 0.0D0, HALF = 0.5D0, ONE = 1.0D0 )
1634 $ ONE, A( 1, J ), 1, YT, G,
1707 DOUBLE PRECISION ZERO, HALF, ONE
1708 PARAMETER ( ZERO = 0.0D0, HALF = 0.5D0, ONE = 1.0D0 )
1898 $ 1, ONE, A( JJ, J ), 1, YT, G,
1985 DOUBLE PRECISION ZERO, HALF, ONE
1986 PARAMETER ( ZERO = 0.0D0, HALF = 0.5D0, ONE = 1.0D0 )
2210 $ NMAX, W, 1, ONE, A( JJ, J ), 1,
2629 DOUBLE PRECISION ZERO, ONE
2630 PARAMETER ( ZERO = 0.0D0, ONE = 1.0D0 )
2679 $ A( J, J ) = A( J, J ) + ONE
2681 $ A( J, J ) = ONE
2800 DOUBLE PRECISION ZERO, ONE
2801 PARAMETER ( ZERO = 0.0D0, ONE = 1.0D0 )
2874 IF( ERR*SQRT( EPS ).GE.ONE )