Lines Matching refs:LDA
463 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M, local
521 LDA = MA
522 IF( LDA.LT.NMAX )
523 $ LDA = LDA + 1
525 IF( LDA.GT.NMAX )
527 LAA = LDA*NA
531 CALL ZMAKE( 'ge', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
584 LDAS = LDA
599 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA,
604 $ K, ALPHA, AA, LDA, BB, LDB,
624 ISAME( 8 ) = LDAS.EQ.LDA
693 $ M, N, K, ALPHA, LDA, LDB, BETA, LDC)
722 $ K, ALPHA, LDA, LDB, BETA, LDC) argument
723 INTEGER NOUT, NC, IORDER, M, N, K, LDA, LDB, LDC local
749 WRITE(NOUT, FMT = 9994)M, N, K, ALPHA, LDA, LDB, BETA, LDC
793 $ LDA, LDAS, LDB, LDBS, LDC, LDCS, M, MS, N, NA, local
860 LDA = NA
861 IF( LDA.LT.NMAX )
862 $ LDA = LDA + 1
864 IF( LDA.GT.NMAX )
866 LAA = LDA*NA
874 $ AA, LDA, RESET, ZERO )
900 LDAS = LDA
915 $ SIDE, UPLO, M, N, ALPHA, LDA, LDB,
921 $ ALPHA, AA, LDA, BB, LDB, BETA,
925 $ ALPHA, AA, LDA, BB, LDB, BETA,
945 ISAME( 7 ) = LDAS.EQ.LDA
1018 CALL ZPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA,
1048 $ ALPHA, LDA, LDB, BETA, LDC) argument
1049 INTEGER NOUT, NC, IORDER, M, N, LDA, LDB, LDC local
1071 WRITE(NOUT, FMT = 9994)M, N, ALPHA, LDA, LDB, BETA, LDC
1113 $ LDA, LDAS, LDB, LDBS, M, MS, N, NA, NARGS, NC, local
1173 LDA = NA
1174 IF( LDA.LT.NMAX )
1175 $ LDA = LDA + 1
1177 IF( LDA.GT.NMAX )
1179 LAA = LDA*NA
1196 $ NMAX, AA, LDA, RESET, ZERO )
1218 LDAS = LDA
1230 $ LDA, LDB)
1234 $ DIAG, M, N, ALPHA, AA, LDA,
1240 $ LDA, LDB)
1244 $ DIAG, M, N, ALPHA, AA, LDA,
1266 ISAME( 9 ) = LDAS.EQ.LDA
1370 $ M, N, ALPHA, LDA, LDB)
1399 $ DIAG, M, N, ALPHA, LDA, LDB) argument
1400 INTEGER NOUT, NC, IORDER, M, N, LDA, LDB local
1434 WRITE(NOUT, FMT = 9994)CA, CD, M, N, ALPHA, LDA, LDB
1478 $ LAA, LCC, LDA, LDAS, LDC, LDCS, LJ, MA, N, NA, local
1534 LDA = MA
1535 IF( LDA.LT.NMAX )
1536 $ LDA = LDA + 1
1538 IF( LDA.GT.NMAX )
1540 LAA = LDA*NA
1544 CALL ZMAKE( 'ge', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
1590 LDAS = LDA
1606 $ UPLO, TRANS, N, K, RALPHA, LDA, RBETA,
1611 $ RALPHA, AA, LDA, RBETA, CC,
1616 $ UPLO, TRANS, N, K, ALPHA, LDA, BETA, LDC)
1620 $ ALPHA, AA, LDA, BETA, CC, LDC )
1643 ISAME( 7 ) = LDAS.EQ.LDA
1748 $ LDA, rBETA, LDC)
1751 $ LDA, BETA, LDC)
1785 $ N, K, ALPHA, LDA, BETA, LDC) argument
1786 INTEGER NOUT, NC, IORDER, N, K, LDA, LDC local
1810 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
1819 $ N, K, ALPHA, LDA, BETA, LDC) argument
1820 INTEGER NOUT, NC, IORDER, N, K, LDA, LDC local
1844 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
1888 $ K, KS, LAA, LBB, LCC, LDA, LDAS, LDB, LDBS, local
1944 LDA = MA
1945 IF( LDA.LT.NMAX )
1946 $ LDA = LDA + 1
1948 IF( LDA.GT.NMAX )
1950 LAA = LDA*NA
1956 $ LDA, RESET, ZERO )
1958 CALL ZMAKE( 'ge', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1964 LDB = LDA
2009 LDAS = LDA
2029 $ UPLO, TRANS, N, K, ALPHA, LDA, LDB,
2034 $ ALPHA, AA, LDA, BB, LDB, RBETA,
2039 $ UPLO, TRANS, N, K, ALPHA, LDA, LDB,
2044 $ ALPHA, AA, LDA, BB, LDB, BETA,
2064 ISAME( 7 ) = LDAS.EQ.LDA
2201 $ ALPHA, LDA, LDB, RBETA, LDC)
2204 $ ALPHA, LDA, LDB, BETA, LDC)
2238 $ N, K, ALPHA, LDA, LDB, BETA, LDC) argument
2239 INTEGER NOUT, NC, IORDER, N, K, LDA, LDB, LDC local
2263 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC
2272 $ N, K, ALPHA, LDA, LDB, BETA, LDC) argument
2273 INTEGER NOUT, NC, IORDER, N, K, LDA, LDB, LDC local
2298 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC
2305 SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, argument
2334 INTEGER LDA, M, N, NMAX local
2391 AA( I + ( J - 1 )*LDA ) = A( I, J )
2393 DO 40 I = M + 1, LDA
2394 AA( I + ( J - 1 )*LDA ) = ROGUE
2415 AA( I + ( J - 1 )*LDA ) = ROGUE
2418 AA( I + ( J - 1 )*LDA ) = A( I, J )
2420 DO 80 I = IEND + 1, LDA
2421 AA( I + ( J - 1 )*LDA ) = ROGUE
2424 JJ = J + ( J - 1 )*LDA
2434 SUBROUTINE ZMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB, argument
2456 INTEGER KK, LDA, LDB, LDC, LDCC, M, N, NOUT local
2460 COMPLEX*16 A( LDA, * ), B( LDB, * ), C( LDC, * ),
2656 LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA )
2671 INTEGER LDA, M, N local
2675 COMPLEX*16 AA( LDA, * ), AS( LDA, * )
2683 DO 10 I = M + 1, LDA
2701 DO 40 I = IEND + 1, LDA