Lines Matching refs:LDA
388 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M, local
446 LDA = MA
447 IF( LDA.LT.NMAX )
448 $ LDA = LDA + 1
450 IF( LDA.GT.NMAX )
452 LAA = LDA*NA
456 CALL DMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
509 LDAS = LDA
524 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA, LDB,
529 $ AA, LDA, BB, LDB, BETA, CC, LDC )
548 ISAME( 8 ) = LDAS.EQ.LDA
615 $ ALPHA, LDA, LDB, BETA, LDC
669 $ LDA, LDAS, LDB, LDBS, LDC, LDCS, M, MS, N, NA, local
736 LDA = NA
737 IF( LDA.LT.NMAX )
738 $ LDA = LDA + 1
740 IF( LDA.GT.NMAX )
742 LAA = LDA*NA
749 CALL DMAKE( 'SY', UPLO, ' ', NA, NA, A, NMAX, AA, LDA,
776 LDAS = LDA
791 $ UPLO, M, N, ALPHA, LDA, LDB, BETA, LDC
794 CALL DSYMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
813 ISAME( 7 ) = LDAS.EQ.LDA
884 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, M, N, ALPHA, LDA,
938 $ LDA, LDAS, LDB, LDBS, M, MS, N, NA, NARGS, NC, local
998 LDA = NA
999 IF( LDA.LT.NMAX )
1000 $ LDA = LDA + 1
1002 IF( LDA.GT.NMAX )
1004 LAA = LDA*NA
1021 $ NMAX, AA, LDA, RESET, ZERO )
1043 LDAS = LDA
1055 $ LDA, LDB
1059 $ N, ALPHA, AA, LDA, BB, LDB )
1064 $ LDA, LDB
1068 $ N, ALPHA, AA, LDA, BB, LDB )
1089 ISAME( 9 ) = LDAS.EQ.LDA
1191 $ N, ALPHA, LDA, LDB
1244 $ LAA, LCC, LDA, LDAS, LDC, LDCS, LJ, MA, N, NA, local
1299 LDA = MA
1300 IF( LDA.LT.NMAX )
1301 $ LDA = LDA + 1
1303 IF( LDA.GT.NMAX )
1305 LAA = LDA*NA
1309 CALL DMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
1339 LDAS = LDA
1350 $ TRANS, N, K, ALPHA, LDA, BETA, LDC
1353 CALL DSYRK( UPLO, TRANS, N, K, ALPHA, AA, LDA,
1372 ISAME( 7 ) = LDAS.EQ.LDA
1465 $ LDA, BETA, LDC
1519 $ K, KS, LAA, LBB, LCC, LDA, LDAS, LDB, LDBS, local
1574 LDA = MA
1575 IF( LDA.LT.NMAX )
1576 $ LDA = LDA + 1
1578 IF( LDA.GT.NMAX )
1580 LAA = LDA*NA
1586 $ LDA, RESET, ZERO )
1588 CALL DMAKE( 'GE', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1594 LDB = LDA
1631 LDAS = LDA
1646 $ TRANS, N, K, ALPHA, LDA, LDB, BETA, LDC
1649 CALL DSYR2K( UPLO, TRANS, N, K, ALPHA, AA, LDA,
1668 ISAME( 7 ) = LDAS.EQ.LDA
1778 $ LDA, LDB, BETA, LDC
2344 SUBROUTINE DMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, argument
2368 INTEGER LDA, M, N, NMAX local
2418 AA( I + ( J - 1 )*LDA ) = A( I, J )
2420 DO 40 I = M + 1, LDA
2421 AA( I + ( J - 1 )*LDA ) = ROGUE
2442 AA( I + ( J - 1 )*LDA ) = ROGUE
2445 AA( I + ( J - 1 )*LDA ) = A( I, J )
2447 DO 80 I = IEND + 1, LDA
2448 AA( I + ( J - 1 )*LDA ) = ROGUE
2457 SUBROUTINE DMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB, argument
2476 INTEGER KK, LDA, LDB, LDC, LDCC, M, N, NOUT local
2480 DOUBLE PRECISION A( LDA, * ), B( LDB, * ), C( LDC, * ),
2611 LOGICAL FUNCTION LDERES( TYPE, UPLO, M, N, AA, AS, LDA )
2626 INTEGER LDA, M, N local
2630 DOUBLE PRECISION AA( LDA, * ), AS( LDA, * )
2638 DO 10 I = M + 1, LDA
2656 DO 40 I = IEND + 1, LDA