Lines Matching defs:LDA
499 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA,
559 * Set LDA to 1 more than minimum value if room.
561 LDA = KL + KU + 1
563 LDA = M
565 IF( LDA.LT.NMAX )
566 $ LDA = LDA + 1
568 IF( LDA.GT.NMAX )
570 LAA = LDA*N
577 $ LDA, KL, KU, RESET, TRANSL )
643 LDAS = LDA
659 $ CTRANS, M, N, ALPHA, LDA, INCX, BETA,
664 $ ALPHA, AA, LDA, XX, INCX,
669 $ CTRANS, M, N, KL, KU, ALPHA, LDA,
674 $ KU, ALPHA, AA, LDA, XX,
695 ISAME( 6 ) = LDAS.EQ.LDA
712 ISAME( 8 ) = LDAS.EQ.LDA
788 WRITE( NOUT, FMT = 9994 )NC, SNAME, CTRANS, M, N, ALPHA, LDA,
792 $ ALPHA, LDA, INCX, BETA, INCY
855 $ INCYS, IX, IY, K, KS, LAA, LDA, LDAS, LX, LY,
908 * Set LDA to 1 more than minimum value if room.
910 LDA = K + 1
912 LDA = N
914 IF( LDA.LT.NMAX )
915 $ LDA = LDA + 1
917 IF( LDA.GT.NMAX )
922 LAA = LDA*N
938 $ LDA, K, K, RESET, TRANSL )
983 LDAS = LDA
999 $ CUPLO, N, ALPHA, LDA, INCX, BETA, INCY
1003 $ LDA, XX, INCX, BETA, YY,
1008 $ CUPLO, N, K, ALPHA, LDA, INCX, BETA,
1013 $ AA, LDA, XX, INCX, BETA,
1040 ISAME( 5 ) = LDAS.EQ.LDA
1055 ISAME( 6 ) = LDAS.EQ.LDA
1139 WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, ALPHA, LDA, INCX,
1142 WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, K, ALPHA, LDA,
1210 $ KS, LAA, LDA, LDAS, LX, N, NARGS, NC, NK, NS
1268 * Set LDA to 1 more than minimum value if room.
1270 LDA = K + 1
1272 LDA = N
1274 IF( LDA.LT.NMAX )
1275 $ LDA = LDA + 1
1277 IF( LDA.GT.NMAX )
1282 LAA = LDA*N
1316 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1345 LDAS = LDA
1357 $ CUPLO, CTRANS, CDIAG, N, LDA, INCX
1361 $ N, AA, LDA, XX, INCX )
1365 $ CUPLO, CTRANS, CDIAG, N, K, LDA, INCX
1369 $ N, K, AA, LDA, XX, INCX )
1383 $ CUPLO, CTRANS, CDIAG, N, LDA, INCX
1387 $ N, AA, LDA, XX, INCX )
1391 $ CUPLO, CTRANS, CDIAG, N, K, LDA, INCX
1395 $ N, K, AA, LDA, XX, INCX )
1423 ISAME( 6 ) = LDAS.EQ.LDA
1434 ISAME( 7 ) = LDAS.EQ.LDA
1525 $ LDA, INCX
1528 $ LDA, INCX
1595 $ IY, J, LAA, LDA, LDAS, LX, LY, M, MS, N, NARGS,
1632 * Set LDA to 1 more than minimum value if room.
1633 LDA = M
1634 IF( LDA.LT.NMAX )
1635 $ LDA = LDA + 1
1637 IF( LDA.GT.NMAX )
1639 LAA = LDA*N
1677 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1689 LDAS = LDA
1703 $ ALPHA, INCX, INCY, LDA
1708 $ YY, INCY, AA, LDA )
1713 $ YY, INCY, AA, LDA )
1737 $ LDA )
1739 ISAME( 9 ) = LDAS.EQ.LDA
1777 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1813 WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1873 $ LDA, LDAS, LJ, LX, N, NARGS, NC, NS
1911 * Set LDA to 1 more than minimum value if room.
1912 LDA = N
1913 IF( LDA.LT.NMAX )
1914 $ LDA = LDA + 1
1916 IF( LDA.GT.NMAX )
1921 LAA = LDA*N
1956 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1968 LDAS = LDA
1979 $ RALPHA, INCX, LDA
1983 $ INCX, AA, LDA )
2013 $ AA, LDA )
2016 ISAME( 7 ) = LDAS.EQ.LDA
2061 JA = JA + LDA
2063 JA = JA + LDA + 1
2102 WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, RALPHA, INCX, LDA
2167 $ IY, J, JA, JJ, LAA, LDA, LDAS, LJ, LX, LY, N,
2206 * Set LDA to 1 more than minimum value if room.
2207 LDA = N
2208 IF( LDA.LT.NMAX )
2209 $ LDA = LDA + 1
2211 IF( LDA.GT.NMAX )
2216 LAA = LDA*N
2264 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2277 LDAS = LDA
2292 $ ALPHA, INCX, INCY, LDA
2296 $ YY, INCY, AA, LDA )
2328 $ AS, AA, LDA )
2331 ISAME( 9 ) = LDAS.EQ.LDA
2386 JA = JA + LDA
2388 JA = JA + LDA + 1
2430 $ INCY, LDA
2619 LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA )
2632 INTEGER LDA, M, N
2636 COMPLEX*16 AA( LDA, * ), AS( LDA, * )
2644 DO 10 I = M + 1, LDA
2662 DO 40 I = IEND + 1, LDA
2747 SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
2775 INTEGER KL, KU, LDA, M, N, NMAX
2831 AA( I + ( J - 1 )*LDA ) = A( I, J )
2833 DO 40 I = M + 1, LDA
2834 AA( I + ( J - 1 )*LDA ) = ROGUE
2840 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2843 AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )
2845 DO 80 I3 = I2, LDA
2846 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2867 AA( I + ( J - 1 )*LDA ) = ROGUE
2870 AA( I + ( J - 1 )*LDA ) = A( I, J )
2872 DO 120 I = IEND + 1, LDA
2873 AA( I + ( J - 1 )*LDA ) = ROGUE
2876 JJ = J + ( J - 1 )*LDA
2900 AA( I + ( J - 1 )*LDA ) = ROGUE
2903 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2905 DO 160 I = IEND + 1, LDA
2906 AA( I + ( J - 1 )*LDA ) = ROGUE
2909 JJ = KK + ( J - 1 )*LDA
