Lines Matching refs:ONE
54 COMPLEX ZERO, ONE
55 PARAMETER ( ZERO = ( 0.0, 0.0 ), ONE = ( 1.0, 0.0 ) )
220 CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
229 CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
247 CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
256 CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
945 COMPLEX ZERO, ONE
946 PARAMETER ( ZERO = ( 0.0, 0.0 ), ONE = ( 1.0, 0.0 ) )
1173 $ ONE, A, NMAX, C, NMAX,
1179 $ ONE, C, NMAX, A, NMAX,
1587 COMPLEX ZERO, ONE
1588 PARAMETER ( ZERO = ( 0.0, 0.0 ), ONE = ( 1.0, 0.0 ) )
1844 $ ONE, AB( JJAB ), 2*NMAX, W,
1865 CALL CMMCH( 'N', 'N', LJ, 1, 2*K, ONE,
2889 COMPLEX ZERO, ONE
2890 PARAMETER ( ZERO = ( 0.0, 0.0 ), ONE = ( 1.0, 0.0 ) )
2946 $ A( J, J ) = A( J, J ) + ONE
2948 $ A( J, J ) = ONE
3045 * Compute expected result, one column at a time, in CT using data