Lines Matching refs:LDA
427 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M, local
485 LDA = MA
486 IF( LDA.LT.NMAX )
487 $ LDA = LDA + 1
489 IF( LDA.GT.NMAX )
491 LAA = LDA*NA
495 CALL SMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
548 LDAS = LDA
563 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA, LDB,
568 $ AA, LDA, BB, LDB, BETA, CC, LDC )
587 ISAME( 8 ) = LDAS.EQ.LDA
654 $ ALPHA, LDA, LDB, BETA, LDC
708 $ LDA, LDAS, LDB, LDBS, LDC, LDCS, M, MS, N, NA, local
775 LDA = NA
776 IF( LDA.LT.NMAX )
777 $ LDA = LDA + 1
779 IF( LDA.GT.NMAX )
781 LAA = LDA*NA
788 CALL SMAKE( 'SY', UPLO, ' ', NA, NA, A, NMAX, AA, LDA,
815 LDAS = LDA
830 $ UPLO, M, N, ALPHA, LDA, LDB, BETA, LDC
833 CALL SSYMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
852 ISAME( 7 ) = LDAS.EQ.LDA
923 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, M, N, ALPHA, LDA,
977 $ LDA, LDAS, LDB, LDBS, M, MS, N, NA, NARGS, NC, local
1037 LDA = NA
1038 IF( LDA.LT.NMAX )
1039 $ LDA = LDA + 1
1041 IF( LDA.GT.NMAX )
1043 LAA = LDA*NA
1060 $ NMAX, AA, LDA, RESET, ZERO )
1082 LDAS = LDA
1094 $ LDA, LDB
1098 $ N, ALPHA, AA, LDA, BB, LDB )
1103 $ LDA, LDB
1107 $ N, ALPHA, AA, LDA, BB, LDB )
1128 ISAME( 9 ) = LDAS.EQ.LDA
1230 $ N, ALPHA, LDA, LDB
1283 $ LAA, LCC, LDA, LDAS, LDC, LDCS, LJ, MA, N, NA, local
1338 LDA = MA
1339 IF( LDA.LT.NMAX )
1340 $ LDA = LDA + 1
1342 IF( LDA.GT.NMAX )
1344 LAA = LDA*NA
1348 CALL SMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
1378 LDAS = LDA
1389 $ TRANS, N, K, ALPHA, LDA, BETA, LDC
1392 CALL SSYRK( UPLO, TRANS, N, K, ALPHA, AA, LDA,
1411 ISAME( 7 ) = LDAS.EQ.LDA
1504 $ LDA, BETA, LDC
1558 $ K, KS, LAA, LBB, LCC, LDA, LDAS, LDB, LDBS, local
1613 LDA = MA
1614 IF( LDA.LT.NMAX )
1615 $ LDA = LDA + 1
1617 IF( LDA.GT.NMAX )
1619 LAA = LDA*NA
1625 $ LDA, RESET, ZERO )
1627 CALL SMAKE( 'GE', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1633 LDB = LDA
1670 LDAS = LDA
1685 $ TRANS, N, K, ALPHA, LDA, LDB, BETA, LDC
1688 CALL SSYR2K( UPLO, TRANS, N, K, ALPHA, AA, LDA,
1707 ISAME( 7 ) = LDAS.EQ.LDA
1817 $ LDA, LDB, BETA, LDC
2395 SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, argument
2419 INTEGER LDA, M, N, NMAX local
2469 AA( I + ( J - 1 )*LDA ) = A( I, J )
2471 DO 40 I = M + 1, LDA
2472 AA( I + ( J - 1 )*LDA ) = ROGUE
2493 AA( I + ( J - 1 )*LDA ) = ROGUE
2496 AA( I + ( J - 1 )*LDA ) = A( I, J )
2498 DO 80 I = IEND + 1, LDA
2499 AA( I + ( J - 1 )*LDA ) = ROGUE
2508 SUBROUTINE SMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB, argument
2527 INTEGER KK, LDA, LDB, LDC, LDCC, M, N, NOUT local
2531 REAL A( LDA, * ), B( LDB, * ), C( LDC, * ),
2662 LOGICAL FUNCTION LSERES( TYPE, UPLO, M, N, AA, AS, LDA )
2677 INTEGER LDA, M, N local
2681 REAL AA( LDA, * ), AS( LDA, * )
2689 DO 10 I = M + 1, LDA
2707 DO 40 I = IEND + 1, LDA