Lines Matching refs:LDA
473 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA, local
534 LDA = KL + KU + 1
536 LDA = M
538 IF( LDA.LT.NMAX )
539 $ LDA = LDA + 1
541 IF( LDA.GT.NMAX )
543 LAA = LDA*N
550 $ LDA, KL, KU, RESET, TRANSL )
609 LDAS = LDA
625 $ TRANS, M, N, ALPHA, LDA, INCX, BETA,
630 $ LDA, XX, INCX, BETA, YY,
635 $ TRANS, M, N, KL, KU, ALPHA, LDA,
640 $ AA, LDA, XX, INCX, BETA,
660 ISAME( 6 ) = LDAS.EQ.LDA
677 ISAME( 8 ) = LDAS.EQ.LDA
752 WRITE( NOUT, FMT = 9994 )NC, SNAME, TRANS, M, N, ALPHA, LDA,
756 $ ALPHA, LDA, INCX, BETA, INCY
818 $ INCYS, IX, IY, K, KS, LAA, LDA, LDAS, LX, LY, local
872 LDA = K + 1
874 LDA = N
876 IF( LDA.LT.NMAX )
877 $ LDA = LDA + 1
879 IF( LDA.GT.NMAX )
884 LAA = LDA*N
895 $ LDA, K, K, RESET, TRANSL )
940 LDAS = LDA
956 $ UPLO, N, ALPHA, LDA, INCX, BETA, INCY
959 CALL CHEMV( UPLO, N, ALPHA, AA, LDA, XX,
964 $ UPLO, N, K, ALPHA, LDA, INCX, BETA,
968 CALL CHBMV( UPLO, N, K, ALPHA, AA, LDA,
995 ISAME( 5 ) = LDAS.EQ.LDA
1010 ISAME( 6 ) = LDAS.EQ.LDA
1094 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1097 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1163 $ KS, LAA, LDA, LDAS, LX, N, NARGS, NC, NK, NS local
1222 LDA = K + 1
1224 LDA = N
1226 IF( LDA.LT.NMAX )
1227 $ LDA = LDA + 1
1229 IF( LDA.GT.NMAX )
1234 LAA = LDA*N
1251 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1280 LDAS = LDA
1292 $ UPLO, TRANS, DIAG, N, LDA, INCX
1295 CALL CTRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1300 $ UPLO, TRANS, DIAG, N, K, LDA, INCX
1304 $ LDA, XX, INCX )
1318 $ UPLO, TRANS, DIAG, N, LDA, INCX
1321 CALL CTRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1326 $ UPLO, TRANS, DIAG, N, K, LDA, INCX
1330 $ LDA, XX, INCX )
1358 ISAME( 6 ) = LDAS.EQ.LDA
1369 ISAME( 7 ) = LDAS.EQ.LDA
1459 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, DIAG, N, LDA,
1463 $ LDA, INCX
1527 $ IY, J, LAA, LDA, LDAS, LX, LY, M, MS, N, NARGS, local
1565 LDA = M
1566 IF( LDA.LT.NMAX )
1567 $ LDA = LDA + 1
1569 IF( LDA.GT.NMAX )
1571 LAA = LDA*N
1609 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1621 LDAS = LDA
1635 $ ALPHA, INCX, INCY, LDA
1640 $ LDA )
1645 $ LDA )
1669 $ LDA )
1671 ISAME( 9 ) = LDAS.EQ.LDA
1709 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1745 WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1804 $ LDA, LDAS, LJ, LX, N, NARGS, NC, NS local
1842 LDA = N
1843 IF( LDA.LT.NMAX )
1844 $ LDA = LDA + 1
1846 IF( LDA.GT.NMAX )
1851 LAA = LDA*N
1881 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1893 LDAS = LDA
1904 $ RALPHA, INCX, LDA
1907 CALL CHER( UPLO, N, RALPHA, XX, INCX, AA, LDA )
1936 $ AA, LDA )
1939 ISAME( 7 ) = LDAS.EQ.LDA
1984 JA = JA + LDA
1986 JA = JA + LDA + 1
2025 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, RALPHA, INCX, LDA
2088 $ IY, J, JA, JJ, LAA, LDA, LDAS, LJ, LX, LY, N, local
2127 LDA = N
2128 IF( LDA.LT.NMAX )
2129 $ LDA = LDA + 1
2131 IF( LDA.GT.NMAX )
2136 LAA = LDA*N
2179 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2192 LDAS = LDA
2207 $ ALPHA, INCX, INCY, LDA
2211 $ AA, LDA )
2243 $ AS, AA, LDA )
2246 ISAME( 9 ) = LDAS.EQ.LDA
2301 JA = JA + LDA
2303 JA = JA + LDA + 1
2345 $ INCY, LDA
2717 SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, argument
2744 INTEGER KL, KU, LDA, M, N, NMAX local
2800 AA( I + ( J - 1 )*LDA ) = A( I, J )
2802 DO 40 I = M + 1, LDA
2803 AA( I + ( J - 1 )*LDA ) = ROGUE
2809 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2812 AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )
2814 DO 80 I3 = I2, LDA
2815 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2836 AA( I + ( J - 1 )*LDA ) = ROGUE
2839 AA( I + ( J - 1 )*LDA ) = A( I, J )
2841 DO 120 I = IEND + 1, LDA
2842 AA( I + ( J - 1 )*LDA ) = ROGUE
2845 JJ = J + ( J - 1 )*LDA
2869 AA( I + ( J - 1 )*LDA ) = ROGUE
2872 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2874 DO 160 I = IEND + 1, LDA
2875 AA( I + ( J - 1 )*LDA ) = ROGUE
2878 JJ = KK + ( J - 1 )*LDA
3071 LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA )
3084 INTEGER LDA, M, N local
3088 COMPLEX AA( LDA, * ), AS( LDA, * )
3096 DO 10 I = M + 1, LDA
3114 DO 40 I = IEND + 1, LDA