Lines Matching defs:LDA
449 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M,
506 * Set LDA to 1 more than minimum value if room.
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)
708 INTEGER NOUT, NC, IORDER, M, N, K, LDA, LDB, LDC
734 WRITE(NOUT, FMT = 9994)M, N, K, ALPHA, LDA, LDB, BETA, LDC
773 $ LDA, LDAS, LDB, LDBS, LDC, LDCS, M, MS, N, NA,
839 * Set LDA to 1 more than minimum value if room.
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)
1022 INTEGER NOUT, NC, IORDER, M, N, LDA, LDB, LDC
1044 WRITE(NOUT, FMT = 9994)M, N, ALPHA, LDA, LDB, BETA, LDC
1082 $ LDA, LDAS, LDB, LDBS, M, MS, N, NA, NARGS, NC,
1141 * Set LDA to 1 more than minimum value if room.
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)
1368 INTEGER NOUT, NC, IORDER, M, N, LDA, LDB
1402 WRITE(NOUT, FMT = 9994)CA, CD, M, N, ALPHA, LDA, LDB
1441 $ LAA, LCC, LDA, LDAS, LDC, LDCS, LJ, MA, N, NA,
1495 * Set LDA to 1 more than minimum value if room.
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)
1694 INTEGER NOUT, NC, IORDER, N, K, LDA, LDC
1718 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
1758 $ K, KS, LAA, LBB, LCC, LDA, LDAS, LDB, LDBS,
1812 * Set LDA to 1 more than minimum value if room.
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)
2051 INTEGER NOUT, NC, IORDER, N, K, LDA, LDB, LDC
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,
2106 INTEGER LDA, M, N, NMAX
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,
2214 INTEGER KK, LDA, LDB, LDC, LDCC, M, N, NOUT
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
2368 DOUBLE PRECISION AA( LDA, * ), AS( LDA, * )
2376 DO 10 I = M + 1, LDA
2394 DO 40 I = IEND + 1, LDA