Lines Matching defs:ONE
71 COMPLEX*16 ZERO, ONE
73 $ ONE = ( 1.0D0, 0.0D0 ) )
281 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X, 1, ZERO, Y, 1, YT, G,
289 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
1188 COMPLEX*16 ZERO, HALF, ONE
1191 $ ONE = ( 1.0D0, 0.0D0 ) )
1472 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X,
1486 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, Z,
1571 COMPLEX*16 ZERO, HALF, ONE
1574 $ ONE = ( 1.0D0, 0.0D0 ) )
1776 $ ONE, A( 1, J ), 1, YT, G,
1849 COMPLEX*16 ZERO, HALF, ONE
1852 $ ONE = ( 1.0D0, 0.0D0 ) )
2056 $ 1, ONE, A( JJ, J ), 1, YT, G,
2143 COMPLEX*16 ZERO, HALF, ONE
2146 $ ONE = ( 1.0D0, 0.0D0 ) )
2380 CALL ZMVCH( 'N', LJ, 2, ONE, Z( JJ, 1 ),
2381 $ NMAX, W, 1, ONE, A( JJ, J ), 1,
2764 COMPLEX*16 ZERO, ONE
2766 $ ONE = ( 1.0D0, 0.0D0 ) )
2821 $ A( J, J ) = A( J, J ) + ONE
2823 $ A( J, J ) = ONE