Lines Matching defs:ONE
53 COMPLEX*16 ZERO, ONE
55 $ ONE = ( 1.0D0, 0.0D0 ) )
235 CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
244 CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
262 CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
271 CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
1093 COMPLEX*16 ZERO, ONE
1094 PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), ONE = ( 1.0D0, 0.0D0 ) )
1323 $ ONE, A, NMAX, C, NMAX,
1329 $ ONE, C, NMAX, A, NMAX,
1867 COMPLEX*16 ZERO, ONE
1868 PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), ONE = ( 1.0D0, 0.0D0 ) )
2128 $ ONE, AB( JJAB ), 2*NMAX, W,
2149 CALL ZMMCH( 'N', 'N', LJ, 1, 2*K, ONE,
2323 COMPLEX*16 ZERO, ONE
2325 $ ONE = ( 1.0D0, 0.0D0 ) )
2381 $ A( J, J ) = A( J, J ) + ONE
2383 $ A( J, J ) = ONE