Lines Matching refs:LDC
449 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M, local
483 LDC = M
484 IF( LDC.LT.NMAX )
485 $ LDC = LDC + 1
487 IF( LDC.GT.NMAX )
489 LCC = LDC*N
554 $ CC, LDC, RESET, ZERO )
579 LDCS = LDC
586 $ LDB, BETA, LDC)
591 $ BETA, CC, LDC )
618 $ CC, LDC )
620 ISAME( 13 ) = LDCS.EQ.LDC
642 $ C, NMAX, CT, G, CC, LDC, EPS,
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
807 LDC = M
808 IF( LDC.LT.NMAX )
809 $ LDC = LDC + 1
811 IF( LDC.GT.NMAX )
813 LCC = LDC*N
865 $ LDC, RESET, ZERO )
889 LDCS = LDC
896 $ BETA, LDC)
900 $ AA, LDA, BB, LDB, BETA, CC, LDC )
926 $ CC, LDC )
928 ISAME( 12 ) = LDCS.EQ.LDC
951 $ CT, G, CC, LDC, EPS, ERR,
956 $ CT, G, CC, LDC, EPS, ERR,
992 $ LDB, BETA, LDC)
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
1441 $ LAA, LCC, LDA, LDAS, LDC, LDCS, LJ, MA, N, NA, local
1473 LDC = N
1474 IF( LDC.LT.NMAX )
1475 $ LDC = LDC + 1
1477 IF( LDC.GT.NMAX )
1479 LCC = LDC*N
1522 $ LDC, RESET, ZERO )
1541 LDCS = LDC
1547 $ TRANS, N, K, ALPHA, LDA, BETA, LDC)
1551 $ AA, LDA, BETA, CC, LDC )
1575 $ CC, LDC )
1577 ISAME( 10 ) = LDCS.EQ.LDC
1611 $ CC( JC ), LDC, EPS, ERR,
1618 $ CC( JC ), LDC, EPS, ERR,
1622 JC = JC + LDC
1624 JC = JC + LDC + 1
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
1759 $ LDC, LDCS, LJ, MA, N, NA, NARGS, NC, NS local
1790 LDC = N
1791 IF( LDC.LT.NMAX )
1792 $ LDC = LDC + 1
1794 IF( LDC.GT.NMAX )
1796 LCC = LDC*N
1856 $ LDC, RESET, ZERO )
1879 LDCS = LDC
1885 $ TRANS, N, K, ALPHA, LDA, LDB, BETA, LDC)
1890 $ CC, LDC )
1916 $ CC, LDC )
1918 ISAME( 12 ) = LDCS.EQ.LDC
1959 $ CC( JC ), LDC, EPS, ERR,
1971 $ NMAX, CT, G, CC( JC ), LDC,
1976 JC = JC + LDC
1978 JC = JC + LDC + 1
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
2196 $ BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL, argument
2214 INTEGER KK, LDA, LDB, LDC, LDCC, M, N, NOUT local
2218 DOUBLE PRECISION A( LDA, * ), B( LDB, * ), C( LDC, * ),