Lines Matching refs:TRANSL
433 COMPLEX*16 ALPHA, ALS, BETA, BLS, TRANSL local
511 TRANSL = ZERO
513 $ LDA, KL, KU, RESET, TRANSL )
533 TRANSL = HALF
535 $ ABS( INCX ), 0, NL - 1, RESET, TRANSL )
553 TRANSL = ZERO
556 $ RESET, TRANSL )
779 COMPLEX*16 ALPHA, ALS, BETA, BLS, TRANSL local
857 TRANSL = ZERO
859 $ LDA, K, K, RESET, TRANSL )
867 TRANSL = HALF
869 $ ABS( INCX ), 0, N - 1, RESET, TRANSL )
887 TRANSL = ZERO
890 $ TRANSL )
1125 COMPLEX*16 TRANSL local
1214 TRANSL = ZERO
1216 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1224 TRANSL = HALF
1227 $ TRANSL )
1490 COMPLEX*16 ALPHA, ALS, TRANSL local
1546 TRANSL = HALF
1548 $ 0, M - 1, RESET, TRANSL )
1560 TRANSL = ZERO
1562 $ ABS( INCY ), 0, N - 1, RESET, TRANSL )
1573 TRANSL = ZERO
1575 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1768 COMPLEX*16 ALPHA, TRANSL local
1831 TRANSL = HALF
1833 $ 0, N - 1, RESET, TRANSL )
1846 TRANSL = ZERO
1848 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
2053 COMPLEX*16 ALPHA, ALS, TRANSL local
2117 TRANSL = HALF
2119 $ 0, N - 1, RESET, TRANSL )
2131 TRANSL = ZERO
2133 $ ABS( INCY ), 0, N - 1, RESET, TRANSL )
2145 TRANSL = ZERO
2148 $ TRANSL )
2686 $ KU, RESET, TRANSL ) argument
2712 COMPLEX*16 TRANSL local
2743 A( I, J ) = ZBEG( RESET ) + TRANSL