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 SMAKE( '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)
710 $ K, ALPHA, LDA, LDB, BETA, LDC)
711 INTEGER NOUT, NC, IORDER, M, N, K, LDA, LDB, LDC
737 WRITE(NOUT, FMT = 9994)M, N, K, ALPHA, LDA, LDB, BETA, LDC
777 $ LDA, LDAS, LDB, LDBS, LDC, LDCS, M, MS, N, NA,
843 * Set LDA to 1 more than minimum value if room.
844 LDA = NA
845 IF( LDA.LT.NMAX )
846 $ LDA = LDA + 1
848 IF( LDA.GT.NMAX )
850 LAA = LDA*NA
857 CALL SMAKE( 'SY', UPLO, ' ', NA, NA, A, NMAX, AA, LDA,
884 LDAS = LDA
899 $ SIDE, UPLO, M, N, ALPHA, LDA, LDB,
904 $ AA, LDA, BB, LDB, BETA, CC, LDC )
922 ISAME( 7 ) = LDAS.EQ.LDA
995 CALL SPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA,
1025 $ ALPHA, LDA, LDB, BETA, LDC)
1026 INTEGER NOUT, NC, IORDER, M, N, LDA, LDB, LDC
1048 WRITE(NOUT, FMT = 9994)M, N, ALPHA, LDA, LDB, BETA, LDC
1086 $ LDA, LDAS, LDB, LDBS, M, MS, N, NA, NARGS, NC,
1145 * Set LDA to 1 more than minimum value if room.
1146 LDA = NA
1147 IF( LDA.LT.NMAX )
1148 $ LDA = LDA + 1
1150 IF( LDA.GT.NMAX )
1152 LAA = LDA*NA
1169 $ NMAX, AA, LDA, RESET, ZERO )
1191 LDAS = LDA
1203 $ LDA, LDB)
1207 $ DIAG, M, N, ALPHA, AA, LDA,
1213 $ LDA, LDB)
1217 $ DIAG, M, N, ALPHA, AA, LDA,
1239 ISAME( 9 ) = LDAS.EQ.LDA
1343 $ M, N, ALPHA, LDA, LDB)
1371 $ DIAG, M, N, ALPHA, LDA, LDB)
1372 INTEGER NOUT, NC, IORDER, M, N, LDA, LDB
1406 WRITE(NOUT, FMT = 9994)CA, CD, M, N, ALPHA, LDA, LDB
1446 $ LAA, LCC, LDA, LDAS, LDC, LDCS, LJ, MA, N, NA,
1500 * Set LDA to 1 more than minimum value if room.
1501 LDA = MA
1502 IF( LDA.LT.NMAX )
1503 $ LDA = LDA + 1
1505 IF( LDA.GT.NMAX )
1507 LAA = LDA*NA
1511 CALL SMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
1541 LDAS = LDA
1552 $ TRANS, N, K, ALPHA, LDA, BETA, LDC)
1556 $ AA, LDA, BETA, CC, LDC )
1574 ISAME( 7 ) = LDAS.EQ.LDA
1669 $ LDA, BETA, LDC)
1698 $ N, K, ALPHA, LDA, BETA, LDC)
1699 INTEGER NOUT, NC, IORDER, N, K, LDA, LDC
1723 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
1763 $ K, KS, LAA, LBB, LCC, LDA, LDAS, LDB, LDBS,
1817 * Set LDA to 1 more than minimum value if room.
1818 LDA = MA
1819 IF( LDA.LT.NMAX )
1820 $ LDA = LDA + 1
1822 IF( LDA.GT.NMAX )
1824 LAA = LDA*NA
1830 $ LDA, RESET, ZERO )
1832 CALL SMAKE( 'GE', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1838 LDB = LDA
1875 LDAS = LDA
1890 $ TRANS, N, K, ALPHA, LDA, LDB, BETA, LDC)
1894 $ AA, LDA, BB, LDB, BETA, CC, LDC )
1912 ISAME( 7 ) = LDAS.EQ.LDA
2024 $ LDA, LDB, BETA, LDC)
2054 $ N, K, ALPHA, LDA, LDB, BETA, LDC)
2055 INTEGER NOUT, NC, IORDER, N, K, LDA, LDB, LDC
2079 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC
2086 SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2110 INTEGER LDA, M, N, NMAX
2160 AA( I + ( J - 1 )*LDA ) = A( I, J )
2162 DO 40 I = M + 1, LDA
2163 AA( I + ( J - 1 )*LDA ) = ROGUE
2184 AA( I + ( J - 1 )*LDA ) = ROGUE
2187 AA( I + ( J - 1 )*LDA ) = A( I, J )
2189 DO 80 I = IEND + 1, LDA
2190 AA( I + ( J - 1 )*LDA ) = ROGUE
2199 SUBROUTINE SMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB,
2218 INTEGER KK, LDA, LDB, LDC, LDCC, M, N, NOUT
2222 REAL A( LDA, * ), B( LDB, * ), C( LDC, * ),
2353 LOGICAL FUNCTION LSERES( TYPE, UPLO, M, N, AA, AS, LDA )
2368 INTEGER LDA, M, N
2372 REAL AA( LDA, * ), AS( LDA, * )
2380 DO 10 I = M + 1, LDA
2398 DO 40 I = IEND + 1, LDA
