Lines Matching defs:LDA
441 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M,
498 * Set LDA to 1 more than minimum value if room.
499 LDA = MA
500 IF( LDA.LT.NMAX )
501 $ LDA = LDA + 1
503 IF( LDA.GT.NMAX )
505 LAA = LDA*NA
509 CALL CMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
562 LDAS = LDA
577 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA, LDB,
582 $ AA, LDA, BB, LDB, BETA, CC, LDC )
601 ISAME( 8 ) = LDAS.EQ.LDA
668 $ ALPHA, LDA, LDB, BETA, LDC
726 $ LDA, LDAS, LDB, LDBS, LDC, LDCS, M, MS, N, NA,
792 * Set LDA to 1 more than minimum value if room.
793 LDA = NA
794 IF( LDA.LT.NMAX )
795 $ LDA = LDA + 1
797 IF( LDA.GT.NMAX )
799 LAA = LDA*NA
807 $ AA, LDA, RESET, ZERO )
833 LDAS = LDA
848 $ UPLO, M, N, ALPHA, LDA, LDB, BETA, LDC
852 CALL CHEMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
855 CALL CSYMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
875 ISAME( 7 ) = LDAS.EQ.LDA
946 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, M, N, ALPHA, LDA,
1004 $ LDA, LDAS, LDB, LDBS, M, MS, N, NA, NARGS, NC,
1063 * Set LDA to 1 more than minimum value if room.
1064 LDA = NA
1065 IF( LDA.LT.NMAX )
1066 $ LDA = LDA + 1
1068 IF( LDA.GT.NMAX )
1070 LAA = LDA*NA
1087 $ NMAX, AA, LDA, RESET, ZERO )
1109 LDAS = LDA
1121 $ LDA, LDB
1125 $ N, ALPHA, AA, LDA, BB, LDB )
1130 $ LDA, LDB
1134 $ N, ALPHA, AA, LDA, BB, LDB )
1155 ISAME( 9 ) = LDAS.EQ.LDA
1257 $ N, ALPHA, LDA, LDB
1315 $ LAA, LCC, LDA, LDAS, LDC, LDCS, LJ, MA, N, NA,
1370 * Set LDA to 1 more than minimum value if room.
1371 LDA = MA
1372 IF( LDA.LT.NMAX )
1373 $ LDA = LDA + 1
1375 IF( LDA.GT.NMAX )
1377 LAA = LDA*NA
1381 CALL CMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
1427 LDAS = LDA
1443 $ TRANS, N, K, RALPHA, LDA, RBETA, LDC
1447 $ LDA, RBETA, CC, LDC )
1451 $ TRANS, N, K, ALPHA, LDA, BETA, LDC
1455 $ LDA, BETA, CC, LDC )
1478 ISAME( 7 ) = LDAS.EQ.LDA
1581 $ LDA, RBETA, LDC
1584 $ LDA, BETA, LDC
1647 $ K, KS, LAA, LBB, LCC, LDA, LDAS, LDB, LDBS,
1702 * Set LDA to 1 more than minimum value if room.
1703 LDA = MA
1704 IF( LDA.LT.NMAX )
1705 $ LDA = LDA + 1
1707 IF( LDA.GT.NMAX )
1709 LAA = LDA*NA
1715 $ LDA, RESET, ZERO )
1717 CALL CMAKE( 'GE', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1723 LDB = LDA
1768 LDAS = LDA
1788 $ TRANS, N, K, ALPHA, LDA, LDB, RBETA, LDC
1792 $ LDA, BB, LDB, RBETA, CC, LDC )
1796 $ TRANS, N, K, ALPHA, LDA, LDB, BETA, LDC
1800 $ LDA, BB, LDB, BETA, CC, LDC )
1819 ISAME( 7 ) = LDAS.EQ.LDA
1954 $ LDA, LDB, RBETA, LDC
1957 $ LDA, LDB, BETA, LDC
2925 SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2953 INTEGER LDA, M, N, NMAX
3010 AA( I + ( J - 1 )*LDA ) = A( I, J )
3012 DO 40 I = M + 1, LDA
3013 AA( I + ( J - 1 )*LDA ) = ROGUE
3034 AA( I + ( J - 1 )*LDA ) = ROGUE
3037 AA( I + ( J - 1 )*LDA ) = A( I, J )
3039 DO 80 I = IEND + 1, LDA
3040 AA( I + ( J - 1 )*LDA ) = ROGUE
3043 JJ = J + ( J - 1 )*LDA
3053 SUBROUTINE CMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB,
3075 INTEGER KK, LDA, LDB, LDC, LDCC, M, N, NOUT
3079 COMPLEX A( LDA, * ), B( LDB, * ), C( LDC, * ),
3273 LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA )
3288 INTEGER LDA, M, N
3292 COMPLEX AA( LDA, * ), AS( LDA, * )
3300 DO 10 I = M + 1, LDA
3318 DO 40 I = IEND + 1, LDA
