Lines Matching defs:LDA
489 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA,
549 * Set LDA to 1 more than minimum value if room.
551 LDA = KL + KU + 1
553 LDA = M
555 IF( LDA.LT.NMAX )
556 $ LDA = LDA + 1
558 IF( LDA.GT.NMAX )
560 LAA = LDA*N
567 $ LDA, KL, KU, RESET, TRANSL )
633 LDAS = LDA
649 $ CTRANS, M, N, ALPHA, LDA, INCX,
654 $ ALPHA, AA, LDA, XX, INCX,
659 $ CTRANS, M, N, KL, KU, ALPHA, LDA,
664 $ KU, ALPHA, AA, LDA, XX,
684 ISAME( 6 ) = LDAS.EQ.LDA
701 ISAME( 8 ) = LDAS.EQ.LDA
778 WRITE( NOUT, FMT = 9994 )NC, SNAME, CTRANS, M, N, ALPHA, LDA,
782 $ ALPHA, LDA, INCX, BETA, INCY
849 $ INCYS, IX, IY, K, KS, LAA, LDA, LDAS, LX, LY,
902 * Set LDA to 1 more than minimum value if room.
904 LDA = K + 1
906 LDA = N
908 IF( LDA.LT.NMAX )
909 $ LDA = LDA + 1
911 IF( LDA.GT.NMAX )
916 LAA = LDA*N
932 $ LDA, K, K, RESET, TRANSL )
977 LDAS = LDA
993 $ CUPLO, N, ALPHA, LDA, INCX, BETA, INCY
997 $ LDA, XX, INCX, BETA, YY, INCY )
1001 $ CUPLO, N, K, ALPHA, LDA, INCX, BETA,
1006 $ AA, LDA, XX, INCX, BETA, YY,
1033 ISAME( 5 ) = LDAS.EQ.LDA
1048 ISAME( 6 ) = LDAS.EQ.LDA
1134 WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, ALPHA, LDA,
1137 WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, K, ALPHA, LDA,
1206 $ KS, LAA, LDA, LDAS, LX, N, NARGS, NC, NK, NS
1264 * Set LDA to 1 more than minimum value if room.
1266 LDA = K + 1
1268 LDA = N
1270 IF( LDA.LT.NMAX )
1271 $ LDA = LDA + 1
1273 IF( LDA.GT.NMAX )
1278 LAA = LDA*N
1312 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1341 LDAS = LDA
1353 $ CUPLO, CTRANS, CDIAG, N, LDA, INCX
1357 $ N, AA, LDA, XX, INCX )
1361 $ CUPLO, CTRANS, CDIAG, N, K, LDA, INCX
1365 $ N, K, AA, LDA, XX, INCX )
1379 $ CUPLO, CTRANS, CDIAG, N, LDA, INCX
1383 $ N, AA, LDA, XX, INCX )
1387 $ CUPLO, CTRANS, CDIAG, N, K, LDA, INCX
1391 $ N, K, AA, LDA, XX, INCX )
1419 ISAME( 6 ) = LDAS.EQ.LDA
1430 ISAME( 7 ) = LDAS.EQ.LDA
1523 $ LDA, INCX
1526 $ K, LDA, INCX
1595 $ IY, J, LAA, LDA, LDAS, LX, LY, M, MS, N, NARGS,
1631 * Set LDA to 1 more than minimum value if room.
1632 LDA = M
1633 IF( LDA.LT.NMAX )
1634 $ LDA = LDA + 1
1636 IF( LDA.GT.NMAX )
1638 LAA = LDA*N
1676 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1688 LDAS = LDA
1702 $ ALPHA, INCX, INCY, LDA
1706 $ INCY, AA, LDA )
1729 $ LDA )
1731 ISAME( 9 ) = LDAS.EQ.LDA
1767 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1805 WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1867 $ LDA, LDAS, LJ, LX, N, NARGS, NC, NS
1905 * Set LDA to 1 more than minimum value if room.
1906 LDA = N
1907 IF( LDA.LT.NMAX )
1908 $ LDA = LDA + 1
1910 IF( LDA.GT.NMAX )
1915 LAA = LDA*N
1949 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1961 LDAS = LDA
1972 $ ALPHA, INCX, LDA
1976 $ AA, LDA )
2005 $ AA, LDA )
2008 ISAME( 7 ) = LDAS.EQ.LDA
2053 JA = JA + LDA
2055 JA = JA + LDA + 1
2096 WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, ALPHA, INCX, LDA
2163 $ IY, J, JA, JJ, LAA, LDA, LDAS, LJ, LX, LY, N,
2202 * Set LDA to 1 more than minimum value if room.
2203 LDA = N
2204 IF( LDA.LT.NMAX )
2205 $ LDA = LDA + 1
2207 IF( LDA.GT.NMAX )
2212 LAA = LDA*N
2260 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2273 LDAS = LDA
2288 $ ALPHA, INCX, INCY, LDA
2292 $ YY, INCY, AA, LDA )
2324 $ AS, AA, LDA )
2327 ISAME( 9 ) = LDAS.EQ.LDA
2382 JA = JA + LDA
2384 JA = JA + LDA + 1
2428 $ INCY, LDA
2463 SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
2486 INTEGER KL, KU, LDA, M, N, NMAX
2540 AA( I + ( J - 1 )*LDA ) = A( I, J )
2542 DO 40 I = M + 1, LDA
2543 AA( I + ( J - 1 )*LDA ) = ROGUE
2549 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2552 AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )
2554 DO 80 I3 = I2, LDA
2555 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2576 AA( I + ( J - 1 )*LDA ) = ROGUE
2579 AA( I + ( J - 1 )*LDA ) = A( I, J )
2581 DO 120 I = IEND + 1, LDA
2582 AA( I + ( J - 1 )*LDA ) = ROGUE
2605 AA( I + ( J - 1 )*LDA ) = ROGUE
2608 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2610 DO 160 I = IEND + 1, LDA
2611 AA( I + ( J - 1 )*LDA ) = ROGUE
2786 LOGICAL FUNCTION LSERES( TYPE, UPLO, M, N, AA, AS, LDA )
2799 INTEGER LDA, M, N
2803 REAL AA( LDA, * ), AS( LDA, * )
2811 DO 10 I = M + 1, LDA
2829 DO 40 I = IEND + 1, LDA
