Lines Matching defs:LDA
462 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M,
519 * Set LDA to 1 more than minimum value if room.
520 LDA = MA
521 IF( LDA.LT.NMAX )
522 $ LDA = LDA + 1
524 IF( LDA.GT.NMAX )
526 LAA = LDA*NA
530 CALL CMAKE( 'ge', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
583 LDAS = LDA
598 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA,
603 $ K, ALPHA, AA, LDA, BB, LDB,
623 ISAME( 8 ) = LDAS.EQ.LDA
692 $ M, N, K, ALPHA, LDA, LDB, BETA, LDC)
721 $ K, ALPHA, LDA, LDB, BETA, LDC)
722 INTEGER NOUT, NC, IORDER, M, N, K, LDA, LDB, LDC
748 WRITE(NOUT, FMT = 9994)M, N, K, ALPHA, LDA, LDB, BETA, LDC
792 $ LDA, LDAS, LDB, LDBS, LDC, LDCS, M, MS, N, NA,
858 * Set LDA to 1 more than minimum value if room.
859 LDA = NA
860 IF( LDA.LT.NMAX )
861 $ LDA = LDA + 1
863 IF( LDA.GT.NMAX )
865 LAA = LDA*NA
873 $ AA, LDA, RESET, ZERO )
899 LDAS = LDA
914 $ SIDE, UPLO, M, N, ALPHA, LDA, LDB,
920 $ ALPHA, AA, LDA, BB, LDB, BETA,
924 $ ALPHA, AA, LDA, BB, LDB, BETA,
944 ISAME( 7 ) = LDAS.EQ.LDA
1017 CALL CPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA,
1047 $ ALPHA, LDA, LDB, BETA, LDC)
1048 INTEGER NOUT, NC, IORDER, M, N, LDA, LDB, LDC
1070 WRITE(NOUT, FMT = 9994)M, N, ALPHA, LDA, LDB, BETA, LDC
1112 $ LDA, LDAS, LDB, LDBS, M, MS, N, NA, NARGS, NC,
1171 * Set LDA to 1 more than minimum value if room.
1172 LDA = NA
1173 IF( LDA.LT.NMAX )
1174 $ LDA = LDA + 1
1176 IF( LDA.GT.NMAX )
1178 LAA = LDA*NA
1195 $ NMAX, AA, LDA, RESET, ZERO )
1217 LDAS = LDA
1229 $ LDA, LDB)
1233 $ DIAG, M, N, ALPHA, AA, LDA,
1239 $ LDA, LDB)
1243 $ DIAG, M, N, ALPHA, AA, LDA,
1265 ISAME( 9 ) = LDAS.EQ.LDA
1369 $ M, N, ALPHA, LDA, LDB)
1398 $ DIAG, M, N, ALPHA, LDA, LDB)
1399 INTEGER NOUT, NC, IORDER, M, N, LDA, LDB
1433 WRITE(NOUT, FMT = 9994)CA, CD, M, N, ALPHA, LDA, LDB
1477 $ LAA, LCC, LDA, LDAS, LDC, LDCS, LJ, MA, N, NA,
1532 * Set LDA to 1 more than minimum value if room.
1533 LDA = MA
1534 IF( LDA.LT.NMAX )
1535 $ LDA = LDA + 1
1537 IF( LDA.GT.NMAX )
1539 LAA = LDA*NA
1543 CALL CMAKE( 'ge', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
1589 LDAS = LDA
1605 $ UPLO, TRANS, N, K, RALPHA, LDA, RBETA,
1610 $ RALPHA, AA, LDA, RBETA, CC,
1615 $ UPLO, TRANS, N, K, ALPHA, LDA, BETA, LDC)
1619 $ ALPHA, AA, LDA, BETA, CC, LDC )
1642 ISAME( 7 ) = LDAS.EQ.LDA
1747 $ LDA, rBETA, LDC)
1750 $ LDA, BETA, LDC)
1784 $ N, K, ALPHA, LDA, BETA, LDC)
1785 INTEGER NOUT, NC, IORDER, N, K, LDA, LDC
1809 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
1818 $ N, K, ALPHA, LDA, BETA, LDC)
1819 INTEGER NOUT, NC, IORDER, N, K, LDA, LDC
1843 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
1887 $ K, KS, LAA, LBB, LCC, LDA, LDAS, LDB, LDBS,
1942 * Set LDA to 1 more than minimum value if room.
1943 LDA = MA
1944 IF( LDA.LT.NMAX )
1945 $ LDA = LDA + 1
1947 IF( LDA.GT.NMAX )
1949 LAA = LDA*NA
1955 $ LDA, RESET, ZERO )
1957 CALL CMAKE( 'ge', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1963 LDB = LDA
2008 LDAS = LDA
2028 $ UPLO, TRANS, N, K, ALPHA, LDA, LDB,
2033 $ ALPHA, AA, LDA, BB, LDB, RBETA,
2038 $ UPLO, TRANS, N, K, ALPHA, LDA, LDB,
2043 $ ALPHA, AA, LDA, BB, LDB, BETA,
2063 ISAME( 7 ) = LDAS.EQ.LDA
2200 $ ALPHA, LDA, LDB, RBETA, LDC)
2203 $ ALPHA, LDA, LDB, BETA, LDC)
2237 $ N, K, ALPHA, LDA, LDB, BETA, LDC)
2238 INTEGER NOUT, NC, IORDER, N, K, LDA, LDB, LDC
2262 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC
2271 $ N, K, ALPHA, LDA, LDB, BETA, LDC)
2272 INTEGER NOUT, NC, IORDER, N, K, LDA, LDB, LDC
2297 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC
2304 SUBROUTINE CMAKE(TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2332 INTEGER LDA, M, N, NMAX
2389 AA( I + ( J - 1 )*LDA ) = A( I, J )
2391 DO 40 I = M + 1, LDA
2392 AA( I + ( J - 1 )*LDA ) = ROGUE
2413 AA( I + ( J - 1 )*LDA ) = ROGUE
2416 AA( I + ( J - 1 )*LDA ) = A( I, J )
2418 DO 80 I = IEND + 1, LDA
2419 AA( I + ( J - 1 )*LDA ) = ROGUE
2422 JJ = J + ( J - 1 )*LDA
2432 SUBROUTINE CMMCH(TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB,
2454 INTEGER KK, LDA, LDB, LDC, LDCC, M, N, NOUT
2458 COMPLEX A( LDA, * ), B( LDB, * ), C( LDC, * ),
2652 LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA )
2667 INTEGER LDA, M, N
2671 COMPLEX AA( LDA, * ), AS( LDA, * )
2679 DO 10 I = M + 1, LDA
2697 DO 40 I = IEND + 1, LDA