Lines Matching refs:LDA
424 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA, local
485 LDA = KL + KU + 1
487 LDA = M
489 IF( LDA.LT.NMAX )
490 $ LDA = LDA + 1
492 IF( LDA.GT.NMAX )
494 LAA = LDA*N
501 $ LDA, KL, KU, RESET, TRANSL )
560 LDAS = LDA
576 $ TRANS, M, N, ALPHA, LDA, INCX, BETA,
581 $ LDA, XX, INCX, BETA, YY,
586 $ TRANS, M, N, KL, KU, ALPHA, LDA,
591 $ AA, LDA, XX, INCX, BETA,
611 ISAME( 6 ) = LDAS.EQ.LDA
628 ISAME( 8 ) = LDAS.EQ.LDA
703 WRITE( NOUT, FMT = 9994 )NC, SNAME, TRANS, M, N, ALPHA, LDA,
707 $ ALPHA, LDA, INCX, BETA, INCY
765 $ INCYS, IX, IY, K, KS, LAA, LDA, LDAS, LX, LY, local
819 LDA = K + 1
821 LDA = N
823 IF( LDA.LT.NMAX )
824 $ LDA = LDA + 1
826 IF( LDA.GT.NMAX )
831 LAA = LDA*N
842 $ LDA, K, K, RESET, TRANSL )
887 LDAS = LDA
903 $ UPLO, N, ALPHA, LDA, INCX, BETA, INCY
906 CALL DSYMV( UPLO, N, ALPHA, AA, LDA, XX,
911 $ UPLO, N, K, ALPHA, LDA, INCX, BETA,
915 CALL DSBMV( UPLO, N, K, ALPHA, AA, LDA,
942 ISAME( 5 ) = LDAS.EQ.LDA
957 ISAME( 6 ) = LDAS.EQ.LDA
1041 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1044 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1104 $ KS, LAA, LDA, LDAS, LX, N, NARGS, NC, NK, NS local
1163 LDA = K + 1
1165 LDA = N
1167 IF( LDA.LT.NMAX )
1168 $ LDA = LDA + 1
1170 IF( LDA.GT.NMAX )
1175 LAA = LDA*N
1192 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1221 LDAS = LDA
1233 $ UPLO, TRANS, DIAG, N, LDA, INCX
1236 CALL DTRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1241 $ UPLO, TRANS, DIAG, N, K, LDA, INCX
1245 $ LDA, XX, INCX )
1259 $ UPLO, TRANS, DIAG, N, LDA, INCX
1262 CALL DTRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1267 $ UPLO, TRANS, DIAG, N, K, LDA, INCX
1271 $ LDA, XX, INCX )
1299 ISAME( 6 ) = LDAS.EQ.LDA
1310 ISAME( 7 ) = LDAS.EQ.LDA
1400 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, DIAG, N, LDA,
1404 $ LDA, INCX
1463 $ IY, J, LAA, LDA, LDAS, LX, LY, M, MS, N, NARGS, local
1500 LDA = M
1501 IF( LDA.LT.NMAX )
1502 $ LDA = LDA + 1
1504 IF( LDA.GT.NMAX )
1506 LAA = LDA*N
1544 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1556 LDAS = LDA
1570 $ ALPHA, INCX, INCY, LDA
1574 $ LDA )
1597 $ LDA )
1599 ISAME( 9 ) = LDAS.EQ.LDA
1635 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1671 WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1724 $ LDA, LDAS, LJ, LX, N, NARGS, NC, NS local
1762 LDA = N
1763 IF( LDA.LT.NMAX )
1764 $ LDA = LDA + 1
1766 IF( LDA.GT.NMAX )
1771 LAA = LDA*N
1800 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1812 LDAS = LDA
1823 $ ALPHA, INCX, LDA
1826 CALL DSYR( UPLO, N, ALPHA, XX, INCX, AA, LDA )
1855 $ AA, LDA )
1858 ISAME( 7 ) = LDAS.EQ.LDA
1903 JA = JA + LDA
1905 JA = JA + LDA + 1
1944 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX, LDA
2002 $ IY, J, JA, JJ, LAA, LDA, LDAS, LJ, LX, LY, N, local
2041 LDA = N
2042 IF( LDA.LT.NMAX )
2043 $ LDA = LDA + 1
2045 IF( LDA.GT.NMAX )
2050 LAA = LDA*N
2093 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2106 LDAS = LDA
2121 $ ALPHA, INCX, INCY, LDA
2125 $ AA, LDA )
2157 $ AS, AA, LDA )
2160 ISAME( 9 ) = LDAS.EQ.LDA
2215 JA = JA + LDA
2217 JA = JA + LDA + 1
2259 $ INCY, LDA
2612 SUBROUTINE DMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, argument
2635 INTEGER KL, KU, LDA, M, N, NMAX local
2689 AA( I + ( J - 1 )*LDA ) = A( I, J )
2691 DO 40 I = M + 1, LDA
2692 AA( I + ( J - 1 )*LDA ) = ROGUE
2698 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2701 AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )
2703 DO 80 I3 = I2, LDA
2704 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2725 AA( I + ( J - 1 )*LDA ) = ROGUE
2728 AA( I + ( J - 1 )*LDA ) = A( I, J )
2730 DO 120 I = IEND + 1, LDA
2731 AA( I + ( J - 1 )*LDA ) = ROGUE
2754 AA( I + ( J - 1 )*LDA ) = ROGUE
2757 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2759 DO 160 I = IEND + 1, LDA
2760 AA( I + ( J - 1 )*LDA ) = ROGUE
2935 LOGICAL FUNCTION LDERES( TYPE, UPLO, M, N, AA, AS, LDA )
2948 INTEGER LDA, M, N local
2952 DOUBLE PRECISION AA( LDA, * ), AS( LDA, * )
2960 DO 10 I = M + 1, LDA
2978 DO 40 I = IEND + 1, LDA