Lines Matching refs:LDA
449 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M, local
507 LDA = MA
508 IF( LDA.LT.NMAX )
509 $ LDA = LDA + 1
511 IF( LDA.GT.NMAX )
513 LAA = LDA*NA
517 CALL DMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
570 LDAS = LDA
585 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA,
590 $ K, ALPHA, AA, LDA, BB, LDB,
610 ISAME( 8 ) = LDAS.EQ.LDA
679 $ M, N, K, ALPHA, LDA, LDB, BETA, LDC)
707 $ K, ALPHA, LDA, LDB, BETA, LDC) argument
708 INTEGER NOUT, NC, IORDER, M, N, K, LDA, LDB, LDC local
734 WRITE(NOUT, FMT = 9994)M, N, K, ALPHA, LDA, LDB, BETA, LDC
773 $ LDA, LDAS, LDB, LDBS, LDC, LDCS, M, MS, N, NA, local
840 LDA = NA
841 IF( LDA.LT.NMAX )
842 $ LDA = LDA + 1
844 IF( LDA.GT.NMAX )
846 LAA = LDA*NA
853 CALL DMAKE( 'SY', UPLO, ' ', NA, NA, A, NMAX, AA, LDA,
880 LDAS = LDA
895 $ SIDE, UPLO, M, N, ALPHA, LDA, LDB,
900 $ AA, LDA, BB, LDB, BETA, CC, LDC )
918 ISAME( 7 ) = LDAS.EQ.LDA
991 CALL DPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA,
1021 $ ALPHA, LDA, LDB, BETA, LDC) argument
1022 INTEGER NOUT, NC, IORDER, M, N, LDA, LDB, LDC local
1044 WRITE(NOUT, FMT = 9994)M, N, ALPHA, LDA, LDB, BETA, LDC
1082 $ LDA, LDAS, LDB, LDBS, M, MS, N, NA, NARGS, NC, local
1142 LDA = NA
1143 IF( LDA.LT.NMAX )
1144 $ LDA = LDA + 1
1146 IF( LDA.GT.NMAX )
1148 LAA = LDA*NA
1165 $ NMAX, AA, LDA, RESET, ZERO )
1187 LDAS = LDA
1199 $ LDA, LDB)
1203 $ DIAG, M, N, ALPHA, AA, LDA,
1209 $ LDA, LDB)
1213 $ DIAG, M, N, ALPHA, AA, LDA,
1235 ISAME( 9 ) = LDAS.EQ.LDA
1339 $ M, N, ALPHA, LDA, LDB)
1367 $ DIAG, M, N, ALPHA, LDA, LDB) argument
1368 INTEGER NOUT, NC, IORDER, M, N, LDA, LDB local
1402 WRITE(NOUT, FMT = 9994)CA, CD, M, N, ALPHA, LDA, LDB
1441 $ LAA, LCC, LDA, LDAS, LDC, LDCS, LJ, MA, N, NA, local
1496 LDA = MA
1497 IF( LDA.LT.NMAX )
1498 $ LDA = LDA + 1
1500 IF( LDA.GT.NMAX )
1502 LAA = LDA*NA
1506 CALL DMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
1536 LDAS = LDA
1547 $ TRANS, N, K, ALPHA, LDA, BETA, LDC)
1551 $ AA, LDA, BETA, CC, LDC )
1569 ISAME( 7 ) = LDAS.EQ.LDA
1664 $ LDA, BETA, LDC)
1693 $ N, K, ALPHA, LDA, BETA, LDC) argument
1694 INTEGER NOUT, NC, IORDER, N, K, LDA, LDC local
1718 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
1758 $ K, KS, LAA, LBB, LCC, LDA, LDAS, LDB, LDBS, local
1813 LDA = MA
1814 IF( LDA.LT.NMAX )
1815 $ LDA = LDA + 1
1817 IF( LDA.GT.NMAX )
1819 LAA = LDA*NA
1825 $ LDA, RESET, ZERO )
1827 CALL DMAKE( 'GE', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1833 LDB = LDA
1870 LDAS = LDA
1885 $ TRANS, N, K, ALPHA, LDA, LDB, BETA, LDC)
1889 $ ALPHA, AA, LDA, BB, LDB, BETA,
1908 ISAME( 7 ) = LDAS.EQ.LDA
2020 $ LDA, LDB, BETA, LDC)
2050 $ N, K, ALPHA, LDA, LDB, BETA, LDC) argument
2051 INTEGER NOUT, NC, IORDER, N, K, LDA, LDB, LDC local
2075 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC
2082 SUBROUTINE DMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, argument
2106 INTEGER LDA, M, N, NMAX local
2156 AA( I + ( J - 1 )*LDA ) = A( I, J )
2158 DO 40 I = M + 1, LDA
2159 AA( I + ( J - 1 )*LDA ) = ROGUE
2180 AA( I + ( J - 1 )*LDA ) = ROGUE
2183 AA( I + ( J - 1 )*LDA ) = A( I, J )
2185 DO 80 I = IEND + 1, LDA
2186 AA( I + ( J - 1 )*LDA ) = ROGUE
2195 SUBROUTINE DMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB, argument
2214 INTEGER KK, LDA, LDB, LDC, LDCC, M, N, NOUT local
2218 DOUBLE PRECISION A( LDA, * ), B( LDB, * ), C( LDC, * ),
2349 LOGICAL FUNCTION LDERES( TYPE, UPLO, M, N, AA, AS, LDA )
2364 INTEGER LDA, M, N local
2368 DOUBLE PRECISION AA( LDA, * ), AS( LDA, * )
2376 DO 10 I = M + 1, LDA
2394 DO 40 I = IEND + 1, LDA