Lines Matching refs:ONE
54 COMPLEX*16 ZERO, ONE
56 $ ONE = ( 1.0D0, 0.0D0 ) )
221 CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
230 CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
248 CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
257 CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
946 COMPLEX*16 ZERO, ONE
948 $ ONE = ( 1.0D0, 0.0D0 ) )
1175 $ ONE, A, NMAX, C, NMAX,
1181 $ ONE, C, NMAX, A, NMAX,
1589 COMPLEX*16 ZERO, ONE
1591 $ ONE = ( 1.0D0, 0.0D0 ) )
1847 $ ONE, AB( JJAB ), 2*NMAX, W,
1868 CALL ZMMCH( 'N', 'N', LJ, 1, 2*K, ONE,
2892 COMPLEX*16 ZERO, ONE
2894 $ ONE = ( 1.0D0, 0.0D0 ) )
2950 $ A( J, J ) = A( J, J ) + ONE
2952 $ A( J, J ) = ONE
3049 * Compute expected result, one column at a time, in CT using data
