Lines Matching refs:LDA
475 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA, local
536 LDA = KL + KU + 1
538 LDA = M
540 IF( LDA.LT.NMAX )
541 $ LDA = LDA + 1
543 IF( LDA.GT.NMAX )
545 LAA = LDA*N
552 $ LDA, KL, KU, RESET, TRANSL )
611 LDAS = LDA
627 $ TRANS, M, N, ALPHA, LDA, INCX, BETA,
632 $ LDA, XX, INCX, BETA, YY,
637 $ TRANS, M, N, KL, KU, ALPHA, LDA,
642 $ AA, LDA, XX, INCX, BETA,
662 ISAME( 6 ) = LDAS.EQ.LDA
679 ISAME( 8 ) = LDAS.EQ.LDA
754 WRITE( NOUT, FMT = 9994 )NC, SNAME, TRANS, M, N, ALPHA, LDA,
758 $ ALPHA, LDA, INCX, BETA, INCY
821 $ INCYS, IX, IY, K, KS, LAA, LDA, LDAS, LX, LY, local
875 LDA = K + 1
877 LDA = N
879 IF( LDA.LT.NMAX )
880 $ LDA = LDA + 1
882 IF( LDA.GT.NMAX )
887 LAA = LDA*N
898 $ LDA, K, K, RESET, TRANSL )
943 LDAS = LDA
959 $ UPLO, N, ALPHA, LDA, INCX, BETA, INCY
962 CALL ZHEMV( UPLO, N, ALPHA, AA, LDA, XX,
967 $ UPLO, N, K, ALPHA, LDA, INCX, BETA,
971 CALL ZHBMV( UPLO, N, K, ALPHA, AA, LDA,
998 ISAME( 5 ) = LDAS.EQ.LDA
1013 ISAME( 6 ) = LDAS.EQ.LDA
1097 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1100 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1167 $ KS, LAA, LDA, LDAS, LX, N, NARGS, NC, NK, NS local
1226 LDA = K + 1
1228 LDA = N
1230 IF( LDA.LT.NMAX )
1231 $ LDA = LDA + 1
1233 IF( LDA.GT.NMAX )
1238 LAA = LDA*N
1255 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1284 LDAS = LDA
1296 $ UPLO, TRANS, DIAG, N, LDA, INCX
1299 CALL ZTRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1304 $ UPLO, TRANS, DIAG, N, K, LDA, INCX
1308 $ LDA, XX, INCX )
1322 $ UPLO, TRANS, DIAG, N, LDA, INCX
1325 CALL ZTRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1330 $ UPLO, TRANS, DIAG, N, K, LDA, INCX
1334 $ LDA, XX, INCX )
1362 ISAME( 6 ) = LDAS.EQ.LDA
1373 ISAME( 7 ) = LDAS.EQ.LDA
1463 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, DIAG, N, LDA,
1467 $ LDA, INCX
1532 $ IY, J, LAA, LDA, LDAS, LX, LY, M, MS, N, NARGS, local
1570 LDA = M
1571 IF( LDA.LT.NMAX )
1572 $ LDA = LDA + 1
1574 IF( LDA.GT.NMAX )
1576 LAA = LDA*N
1614 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1626 LDAS = LDA
1640 $ ALPHA, INCX, INCY, LDA
1645 $ LDA )
1650 $ LDA )
1674 $ LDA )
1676 ISAME( 9 ) = LDAS.EQ.LDA
1714 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1750 WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1810 $ LDA, LDAS, LJ, LX, N, NARGS, NC, NS local
1848 LDA = N
1849 IF( LDA.LT.NMAX )
1850 $ LDA = LDA + 1
1852 IF( LDA.GT.NMAX )
1857 LAA = LDA*N
1887 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1899 LDAS = LDA
1910 $ RALPHA, INCX, LDA
1913 CALL ZHER( UPLO, N, RALPHA, XX, INCX, AA, LDA )
1942 $ AA, LDA )
1945 ISAME( 7 ) = LDAS.EQ.LDA
1990 JA = JA + LDA
1992 JA = JA + LDA + 1
2031 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, RALPHA, INCX, LDA
2095 $ IY, J, JA, JJ, LAA, LDA, LDAS, LJ, LX, LY, N, local
2134 LDA = N
2135 IF( LDA.LT.NMAX )
2136 $ LDA = LDA + 1
2138 IF( LDA.GT.NMAX )
2143 LAA = LDA*N
2186 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2199 LDAS = LDA
2214 $ ALPHA, INCX, INCY, LDA
2218 $ AA, LDA )
2250 $ AS, AA, LDA )
2253 ISAME( 9 ) = LDAS.EQ.LDA
2308 JA = JA + LDA
2310 JA = JA + LDA + 1
2352 $ INCY, LDA
2724 SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, argument
2752 INTEGER KL, KU, LDA, M, N, NMAX local
2808 AA( I + ( J - 1 )*LDA ) = A( I, J )
2810 DO 40 I = M + 1, LDA
2811 AA( I + ( J - 1 )*LDA ) = ROGUE
2817 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2820 AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )
2822 DO 80 I3 = I2, LDA
2823 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2844 AA( I + ( J - 1 )*LDA ) = ROGUE
2847 AA( I + ( J - 1 )*LDA ) = A( I, J )
2849 DO 120 I = IEND + 1, LDA
2850 AA( I + ( J - 1 )*LDA ) = ROGUE
2853 JJ = J + ( J - 1 )*LDA
2877 AA( I + ( J - 1 )*LDA ) = ROGUE
2880 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2882 DO 160 I = IEND + 1, LDA
2883 AA( I + ( J - 1 )*LDA ) = ROGUE
2886 JJ = KK + ( J - 1 )*LDA
3079 LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA )
3092 INTEGER LDA, M, N local
3096 COMPLEX*16 AA( LDA, * ), AS( LDA, * )
3104 DO 10 I = M + 1, LDA
3122 DO 40 I = IEND + 1, LDA