Lines Matching refs:LDA
463 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA, local
524 LDA = KL + KU + 1
526 LDA = M
528 IF( LDA.LT.NMAX )
529 $ LDA = LDA + 1
531 IF( LDA.GT.NMAX )
533 LAA = LDA*N
540 $ LDA, KL, KU, RESET, TRANSL )
599 LDAS = LDA
615 $ TRANS, M, N, ALPHA, LDA, INCX, BETA,
620 $ LDA, XX, INCX, BETA, YY,
625 $ TRANS, M, N, KL, KU, ALPHA, LDA,
630 $ AA, LDA, XX, INCX, BETA,
650 ISAME( 6 ) = LDAS.EQ.LDA
667 ISAME( 8 ) = LDAS.EQ.LDA
742 WRITE( NOUT, FMT = 9994 )NC, SNAME, TRANS, M, N, ALPHA, LDA,
746 $ ALPHA, LDA, INCX, BETA, INCY
804 $ INCYS, IX, IY, K, KS, LAA, LDA, LDAS, LX, LY, local
858 LDA = K + 1
860 LDA = N
862 IF( LDA.LT.NMAX )
863 $ LDA = LDA + 1
865 IF( LDA.GT.NMAX )
870 LAA = LDA*N
881 $ LDA, K, K, RESET, TRANSL )
926 LDAS = LDA
942 $ UPLO, N, ALPHA, LDA, INCX, BETA, INCY
945 CALL SSYMV( UPLO, N, ALPHA, AA, LDA, XX,
950 $ UPLO, N, K, ALPHA, LDA, INCX, BETA,
954 CALL SSBMV( UPLO, N, K, ALPHA, AA, LDA,
981 ISAME( 5 ) = LDAS.EQ.LDA
996 ISAME( 6 ) = LDAS.EQ.LDA
1080 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1083 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1143 $ KS, LAA, LDA, LDAS, LX, N, NARGS, NC, NK, NS local
1202 LDA = K + 1
1204 LDA = N
1206 IF( LDA.LT.NMAX )
1207 $ LDA = LDA + 1
1209 IF( LDA.GT.NMAX )
1214 LAA = LDA*N
1231 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1260 LDAS = LDA
1272 $ UPLO, TRANS, DIAG, N, LDA, INCX
1275 CALL STRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1280 $ UPLO, TRANS, DIAG, N, K, LDA, INCX
1284 $ LDA, XX, INCX )
1298 $ UPLO, TRANS, DIAG, N, LDA, INCX
1301 CALL STRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1306 $ UPLO, TRANS, DIAG, N, K, LDA, INCX
1310 $ LDA, XX, INCX )
1338 ISAME( 6 ) = LDAS.EQ.LDA
1349 ISAME( 7 ) = LDAS.EQ.LDA
1439 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, DIAG, N, LDA,
1443 $ LDA, INCX
1502 $ IY, J, LAA, LDA, LDAS, LX, LY, M, MS, N, NARGS, local
1539 LDA = M
1540 IF( LDA.LT.NMAX )
1541 $ LDA = LDA + 1
1543 IF( LDA.GT.NMAX )
1545 LAA = LDA*N
1583 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1595 LDAS = LDA
1609 $ ALPHA, INCX, INCY, LDA
1613 $ LDA )
1636 $ LDA )
1638 ISAME( 9 ) = LDAS.EQ.LDA
1674 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1710 WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1763 $ LDA, LDAS, LJ, LX, N, NARGS, NC, NS local
1801 LDA = N
1802 IF( LDA.LT.NMAX )
1803 $ LDA = LDA + 1
1805 IF( LDA.GT.NMAX )
1810 LAA = LDA*N
1839 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1851 LDAS = LDA
1862 $ ALPHA, INCX, LDA
1865 CALL SSYR( UPLO, N, ALPHA, XX, INCX, AA, LDA )
1894 $ AA, LDA )
1897 ISAME( 7 ) = LDAS.EQ.LDA
1942 JA = JA + LDA
1944 JA = JA + LDA + 1
1983 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX, LDA
2041 $ IY, J, JA, JJ, LAA, LDA, LDAS, LJ, LX, LY, N, local
2080 LDA = N
2081 IF( LDA.LT.NMAX )
2082 $ LDA = LDA + 1
2084 IF( LDA.GT.NMAX )
2089 LAA = LDA*N
2132 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2145 LDAS = LDA
2160 $ ALPHA, INCX, INCY, LDA
2164 $ AA, LDA )
2196 $ AS, AA, LDA )
2199 ISAME( 9 ) = LDAS.EQ.LDA
2254 JA = JA + LDA
2256 JA = JA + LDA + 1
2298 $ INCY, LDA
2651 SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, argument
2674 INTEGER KL, KU, LDA, M, N, NMAX local
2728 AA( I + ( J - 1 )*LDA ) = A( I, J )
2730 DO 40 I = M + 1, LDA
2731 AA( I + ( J - 1 )*LDA ) = ROGUE
2737 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2740 AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )
2742 DO 80 I3 = I2, LDA
2743 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2764 AA( I + ( J - 1 )*LDA ) = ROGUE
2767 AA( I + ( J - 1 )*LDA ) = A( I, J )
2769 DO 120 I = IEND + 1, LDA
2770 AA( I + ( J - 1 )*LDA ) = ROGUE
2793 AA( I + ( J - 1 )*LDA ) = ROGUE
2796 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2798 DO 160 I = IEND + 1, LDA
2799 AA( I + ( J - 1 )*LDA ) = ROGUE
2974 LOGICAL FUNCTION LSERES( TYPE, UPLO, M, N, AA, AS, LDA )
2987 INTEGER LDA, M, N local
2991 REAL AA( LDA, * ), AS( LDA, * )
2999 DO 10 I = M + 1, LDA
3017 DO 40 I = IEND + 1, LDA