Lines Matching refs:LDA
434 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA,
493 * Set LDA to 1 more than minimum value if room.
495 LDA = KL + KU + 1
497 LDA = M
499 IF( LDA.LT.NMAX )
500 $ LDA = LDA + 1
502 IF( LDA.GT.NMAX )
504 LAA = LDA*N
511 $ LDA, KL, KU, RESET, TRANSL )
570 LDAS = LDA
586 $ TRANS, M, N, ALPHA, LDA, INCX, BETA,
591 $ LDA, XX, INCX, BETA, YY,
596 $ TRANS, M, N, KL, KU, ALPHA, LDA,
601 $ AA, LDA, XX, INCX, BETA,
621 ISAME( 6 ) = LDAS.EQ.LDA
638 ISAME( 8 ) = LDAS.EQ.LDA
713 WRITE( NOUT, FMT = 9994 )NC, SNAME, TRANS, M, N, ALPHA, LDA,
717 $ ALPHA, LDA, INCX, BETA, INCY
779 $ INCYS, IX, IY, K, KS, LAA, LDA, LDAS, LX, LY,
831 * Set LDA to 1 more than minimum value if room.
833 LDA = K + 1
835 LDA = N
837 IF( LDA.LT.NMAX )
838 $ LDA = LDA + 1
840 IF( LDA.GT.NMAX )
845 LAA = LDA*N
856 $ LDA, K, K, RESET, TRANSL )
901 LDAS = LDA
917 $ UPLO, N, ALPHA, LDA, INCX, BETA, INCY
920 CALL CHEMV( UPLO, N, ALPHA, AA, LDA, XX,
925 $ UPLO, N, K, ALPHA, LDA, INCX, BETA,
929 CALL CHBMV( UPLO, N, K, ALPHA, AA, LDA,
956 ISAME( 5 ) = LDAS.EQ.LDA
971 ISAME( 6 ) = LDAS.EQ.LDA
1055 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1058 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1124 $ KS, LAA, LDA, LDAS, LX, N, NARGS, NC, NK, NS
1181 * Set LDA to 1 more than minimum value if room.
1183 LDA = K + 1
1185 LDA = N
1187 IF( LDA.LT.NMAX )
1188 $ LDA = LDA + 1
1190 IF( LDA.GT.NMAX )
1195 LAA = LDA*N
1212 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1241 LDAS = LDA
1253 $ UPLO, TRANS, DIAG, N, LDA, INCX
1256 CALL CTRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1261 $ UPLO, TRANS, DIAG, N, K, LDA, INCX
1265 $ LDA, XX, INCX )
1279 $ UPLO, TRANS, DIAG, N, LDA, INCX
1282 CALL CTRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1287 $ UPLO, TRANS, DIAG, N, K, LDA, INCX
1291 $ LDA, XX, INCX )
1319 ISAME( 6 ) = LDAS.EQ.LDA
1330 ISAME( 7 ) = LDAS.EQ.LDA
1420 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, DIAG, N, LDA,
1424 $ LDA, INCX
1488 $ IY, J, LAA, LDA, LDAS, LX, LY, M, MS, N, NARGS,
1525 * Set LDA to 1 more than minimum value if room.
1526 LDA = M
1527 IF( LDA.LT.NMAX )
1528 $ LDA = LDA + 1
1530 IF( LDA.GT.NMAX )
1532 LAA = LDA*N
1570 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1582 LDAS = LDA
1596 $ ALPHA, INCX, INCY, LDA
1601 $ LDA )
1606 $ LDA )
1630 $ LDA )
1632 ISAME( 9 ) = LDAS.EQ.LDA
1670 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1706 WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1765 $ LDA, LDAS, LJ, LX, N, NARGS, NC, NS
1802 * Set LDA to 1 more than minimum value if room.
1803 LDA = N
1804 IF( LDA.LT.NMAX )
1805 $ LDA = LDA + 1
1807 IF( LDA.GT.NMAX )
1812 LAA = LDA*N
1842 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1854 LDAS = LDA
1865 $ RALPHA, INCX, LDA
1868 CALL CHER( UPLO, N, RALPHA, XX, INCX, AA, LDA )
1897 $ AA, LDA )
1900 ISAME( 7 ) = LDAS.EQ.LDA
1945 JA = JA + LDA
1947 JA = JA + LDA + 1
1986 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, RALPHA, INCX, LDA
2049 $ IY, J, JA, JJ, LAA, LDA, LDAS, LJ, LX, LY, N,
2087 * Set LDA to 1 more than minimum value if room.
2088 LDA = N
2089 IF( LDA.LT.NMAX )
2090 $ LDA = LDA + 1
2092 IF( LDA.GT.NMAX )
2097 LAA = LDA*N
2140 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2153 LDAS = LDA
2168 $ ALPHA, INCX, INCY, LDA
2172 $ AA, LDA )
2204 $ AS, AA, LDA )
2207 ISAME( 9 ) = LDAS.EQ.LDA
2262 JA = JA + LDA
2264 JA = JA + LDA + 1
2306 $ INCY, LDA
2678 SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
2705 INTEGER KL, KU, LDA, M, N, NMAX
2761 AA( I + ( J - 1 )*LDA ) = A( I, J )
2763 DO 40 I = M + 1, LDA
2764 AA( I + ( J - 1 )*LDA ) = ROGUE
2770 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2773 AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )
2775 DO 80 I3 = I2, LDA
2776 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2797 AA( I + ( J - 1 )*LDA ) = ROGUE
2800 AA( I + ( J - 1 )*LDA ) = A( I, J )
2802 DO 120 I = IEND + 1, LDA
2803 AA( I + ( J - 1 )*LDA ) = ROGUE
2806 JJ = J + ( J - 1 )*LDA
2830 AA( I + ( J - 1 )*LDA ) = ROGUE
2833 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2835 DO 160 I = IEND + 1, LDA
2836 AA( I + ( J - 1 )*LDA ) = ROGUE
2839 JJ = KK + ( J - 1 )*LDA
3032 LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA )
3045 INTEGER LDA, M, N
3049 COMPLEX AA( LDA, * ), AS( LDA, * )
3057 DO 10 I = M + 1, LDA
3075 DO 40 I = IEND + 1, LDA