Lines Matching defs:ONE
72 COMPLEX*16 ZERO, ONE
74 $ ONE = ( 1.0D0, 0.0D0 ) )
270 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X, 1, ZERO, Y, 1, YT, G,
278 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
1107 COMPLEX*16 ZERO, HALF, ONE
1110 $ ONE = ( 1.0D0, 0.0D0 ) )
1372 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X,
1386 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, Z,
1470 COMPLEX*16 ZERO, HALF, ONE
1473 $ ONE = ( 1.0D0, 0.0D0 ) )
1674 $ ONE, A( 1, J ), 1, YT, G,
1748 COMPLEX*16 ZERO, HALF, ONE
1751 $ ONE = ( 1.0D0, 0.0D0 ) )
1946 $ 1, ONE, A( JJ, J ), 1, YT, G,
2033 COMPLEX*16 ZERO, HALF, ONE
2036 $ ONE = ( 1.0D0, 0.0D0 ) )
2263 CALL ZMVCH( 'N', LJ, 2, ONE, Z( JJ, 1 ),
2264 $ NMAX, W, 1, ONE, A( JJ, J ), 1,
2702 COMPLEX*16 ZERO, ONE
2704 $ ONE = ( 1.0D0, 0.0D0 ) )
2759 $ A( J, J ) = A( J, J ) + ONE
2761 $ A( J, J ) = ONE