Lines Matching defs:LDA
436 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA,
495 * Set LDA to 1 more than minimum value if room.
497 LDA = KL + KU + 1
499 LDA = M
501 IF( LDA.LT.NMAX )
502 $ LDA = LDA + 1
504 IF( LDA.GT.NMAX )
506 LAA = LDA*N
513 $ LDA, KL, KU, RESET, TRANSL )
572 LDAS = LDA
588 $ TRANS, M, N, ALPHA, LDA, INCX, BETA,
593 $ LDA, XX, INCX, BETA, YY,
598 $ TRANS, M, N, KL, KU, ALPHA, LDA,
603 $ AA, LDA, XX, INCX, BETA,
623 ISAME( 6 ) = LDAS.EQ.LDA
640 ISAME( 8 ) = LDAS.EQ.LDA
715 WRITE( NOUT, FMT = 9994 )NC, SNAME, TRANS, M, N, ALPHA, LDA,
719 $ ALPHA, LDA, INCX, BETA, INCY
782 $ INCYS, IX, IY, K, KS, LAA, LDA, LDAS, LX, LY,
834 * Set LDA to 1 more than minimum value if room.
836 LDA = K + 1
838 LDA = N
840 IF( LDA.LT.NMAX )
841 $ LDA = LDA + 1
843 IF( LDA.GT.NMAX )
848 LAA = LDA*N
859 $ LDA, K, K, RESET, TRANSL )
904 LDAS = LDA
920 $ UPLO, N, ALPHA, LDA, INCX, BETA, INCY
923 CALL ZHEMV( UPLO, N, ALPHA, AA, LDA, XX,
928 $ UPLO, N, K, ALPHA, LDA, INCX, BETA,
932 CALL ZHBMV( UPLO, N, K, ALPHA, AA, LDA,
959 ISAME( 5 ) = LDAS.EQ.LDA
974 ISAME( 6 ) = LDAS.EQ.LDA
1058 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1061 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1128 $ KS, LAA, LDA, LDAS, LX, N, NARGS, NC, NK, NS
1185 * Set LDA to 1 more than minimum value if room.
1187 LDA = K + 1
1189 LDA = N
1191 IF( LDA.LT.NMAX )
1192 $ LDA = LDA + 1
1194 IF( LDA.GT.NMAX )
1199 LAA = LDA*N
1216 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1245 LDAS = LDA
1257 $ UPLO, TRANS, DIAG, N, LDA, INCX
1260 CALL ZTRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1265 $ UPLO, TRANS, DIAG, N, K, LDA, INCX
1269 $ LDA, XX, INCX )
1283 $ UPLO, TRANS, DIAG, N, LDA, INCX
1286 CALL ZTRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1291 $ UPLO, TRANS, DIAG, N, K, LDA, INCX
1295 $ LDA, XX, INCX )
1323 ISAME( 6 ) = LDAS.EQ.LDA
1334 ISAME( 7 ) = LDAS.EQ.LDA
1424 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, DIAG, N, LDA,
1428 $ LDA, INCX
1493 $ IY, J, LAA, LDA, LDAS, LX, LY, M, MS, N, NARGS,
1530 * Set LDA to 1 more than minimum value if room.
1531 LDA = M
1532 IF( LDA.LT.NMAX )
1533 $ LDA = LDA + 1
1535 IF( LDA.GT.NMAX )
1537 LAA = LDA*N
1575 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1587 LDAS = LDA
1601 $ ALPHA, INCX, INCY, LDA
1606 $ LDA )
1611 $ LDA )
1635 $ LDA )
1637 ISAME( 9 ) = LDAS.EQ.LDA
1675 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1711 WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1771 $ LDA, LDAS, LJ, LX, N, NARGS, NC, NS
1808 * Set LDA to 1 more than minimum value if room.
1809 LDA = N
1810 IF( LDA.LT.NMAX )
1811 $ LDA = LDA + 1
1813 IF( LDA.GT.NMAX )
1818 LAA = LDA*N
1848 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1860 LDAS = LDA
1871 $ RALPHA, INCX, LDA
1874 CALL ZHER( UPLO, N, RALPHA, XX, INCX, AA, LDA )
1903 $ AA, LDA )
1906 ISAME( 7 ) = LDAS.EQ.LDA
1951 JA = JA + LDA
1953 JA = JA + LDA + 1
1992 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, RALPHA, INCX, LDA
2056 $ IY, J, JA, JJ, LAA, LDA, LDAS, LJ, LX, LY, N,
2094 * Set LDA to 1 more than minimum value if room.
2095 LDA = N
2096 IF( LDA.LT.NMAX )
2097 $ LDA = LDA + 1
2099 IF( LDA.GT.NMAX )
2104 LAA = LDA*N
2147 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2160 LDAS = LDA
2175 $ ALPHA, INCX, INCY, LDA
2179 $ AA, LDA )
2211 $ AS, AA, LDA )
2214 ISAME( 9 ) = LDAS.EQ.LDA
2269 JA = JA + LDA
2271 JA = JA + LDA + 1
2313 $ INCY, LDA
2685 SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
2713 INTEGER KL, KU, LDA, M, N, NMAX
2769 AA( I + ( J - 1 )*LDA ) = A( I, J )
2771 DO 40 I = M + 1, LDA
2772 AA( I + ( J - 1 )*LDA ) = ROGUE
2778 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2781 AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )
2783 DO 80 I3 = I2, LDA
2784 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2805 AA( I + ( J - 1 )*LDA ) = ROGUE
2808 AA( I + ( J - 1 )*LDA ) = A( I, J )
2810 DO 120 I = IEND + 1, LDA
2811 AA( I + ( J - 1 )*LDA ) = ROGUE
2814 JJ = J + ( J - 1 )*LDA
2838 AA( I + ( J - 1 )*LDA ) = ROGUE
2841 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2843 DO 160 I = IEND + 1, LDA
2844 AA( I + ( J - 1 )*LDA ) = ROGUE
2847 JJ = KK + ( J - 1 )*LDA
3040 LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA )
3053 INTEGER LDA, M, N
3057 COMPLEX*16 AA( LDA, * ), AS( LDA, * )
3065 DO 10 I = M + 1, LDA
3083 DO 40 I = IEND + 1, LDA