Lines Matching defs:LDA
388 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M,
445 * Set LDA to 1 more than minimum value if room.
446 LDA = MA
447 IF( LDA.LT.NMAX )
448 $ LDA = LDA + 1
450 IF( LDA.GT.NMAX )
452 LAA = LDA*NA
456 CALL SMAKE( '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,
735 * Set LDA to 1 more than minimum value if room.
736 LDA = NA
737 IF( LDA.LT.NMAX )
738 $ LDA = LDA + 1
740 IF( LDA.GT.NMAX )
742 LAA = LDA*NA
749 CALL SMAKE( 'SY', UPLO, ' ', NA, NA, A, NMAX, AA, LDA,
776 LDAS = LDA
791 $ UPLO, M, N, ALPHA, LDA, LDB, BETA, LDC
794 CALL SSYMM( 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,
997 * Set LDA to 1 more than minimum value if room.
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,
1298 * Set LDA to 1 more than minimum value if room.
1299 LDA = MA
1300 IF( LDA.LT.NMAX )
1301 $ LDA = LDA + 1
1303 IF( LDA.GT.NMAX )
1305 LAA = LDA*NA
1309 CALL SMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
1339 LDAS = LDA
1350 $ TRANS, N, K, ALPHA, LDA, BETA, LDC
1353 CALL SSYRK( 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,
1573 * Set LDA to 1 more than minimum value if room.
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 SMAKE( 'GE', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1594 LDB = LDA
1631 LDAS = LDA
1646 $ TRANS, N, K, ALPHA, LDA, LDB, BETA, LDC
1649 CALL SSYR2K( UPLO, TRANS, N, K, ALPHA, AA, LDA,
1668 ISAME( 7 ) = LDAS.EQ.LDA
1778 $ LDA, LDB, BETA, LDC
2344 SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2368 INTEGER LDA, M, N, NMAX
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 SMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB,
2476 INTEGER KK, LDA, LDB, LDC, LDCC, M, N, NOUT
2480 REAL A( LDA, * ), B( LDB, * ), C( LDC, * ),
2611 LOGICAL FUNCTION LSERES( TYPE, UPLO, M, N, AA, AS, LDA )
2626 INTEGER LDA, M, N
2630 REAL AA( LDA, * ), AS( LDA, * )
2638 DO 10 I = M + 1, LDA
2656 DO 40 I = IEND + 1, LDA