Lines Matching defs:AA
88 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ),
304 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
310 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
317 $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z )
322 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
328 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
334 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
393 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,
414 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
500 CALL DMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX, AA,
558 AS( I ) = AA( I )
580 CALL DGEMV( TRANS, M, N, ALPHA, AA,
591 $ AA, LDA, XX, INCX, BETA,
610 ISAME( 5 ) = LDE( AS, AA, LAA )
627 ISAME( 7 ) = LDE( AS, AA, LAA )
734 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,
755 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
841 CALL DMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
885 AS( I ) = AA( I )
906 CALL DSYMV( UPLO, N, ALPHA, AA, LDA, XX,
915 CALL DSBMV( UPLO, N, K, ALPHA, AA, LDA,
923 CALL DSPMV( UPLO, N, ALPHA, AA, XX, INCX,
941 ISAME( 4 ) = LDE( AS, AA, LAA )
956 ISAME( 5 ) = LDE( AS, AA, LAA )
970 ISAME( 4 ) = LDE( AS, AA, LAA )
1077 $ INCMAX, A, AA, AS, X, XX, XS, XT, G, Z )
1096 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ),
1192 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1219 AS( I ) = AA( I )
1236 CALL DTRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1244 CALL DTBMV( UPLO, TRANS, DIAG, N, K, AA,
1252 CALL DTPMV( UPLO, TRANS, DIAG, N, AA, XX,
1262 CALL DTRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1270 CALL DTBSV( UPLO, TRANS, DIAG, N, K, AA,
1278 CALL DTPSV( UPLO, TRANS, DIAG, N, AA, XX,
1298 ISAME( 5 ) = LDE( AS, AA, LAA )
1309 ISAME( 6 ) = LDE( AS, AA, LAA )
1319 ISAME( 5 ) = LDE( AS, AA, LAA )
1434 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,
1454 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1544 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1554 AS( I ) = AA( I )
1573 CALL DGER( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1594 ISAME( 8 ) = LDE( AS, AA, LAA )
1596 ISAME( 8 ) = LDERES( 'GE', ' ', M, N, AS, AA,
1635 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1695 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,
1715 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1800 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1810 AS( I ) = AA( I )
1826 CALL DSYR( UPLO, N, ALPHA, XX, INCX, AA, LDA )
1833 CALL DSPR( UPLO, N, ALPHA, XX, INCX, AA )
1852 ISAME( 6 ) = LDE( AS, AA, LAA )
1855 $ AA, LDA )
1899 $ AA( JA ), EPS, ERR, FATAL, NOUT,
1973 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,
1993 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
2093 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2104 AS( I ) = AA( I )
2125 $ AA, LDA )
2133 $ AA )
2154 ISAME( 8 ) = LDE( AS, AA, LAA )
2157 $ AS, AA, LDA )
2211 $ YT, G, AA( JA ), EPS, ERR, FATAL,
2612 SUBROUTINE DMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
2617 * Stores the values in the array AA in the data structure required
2640 DOUBLE PRECISION A( NMAX, * ), AA( * )
2689 AA( I + ( J - 1 )*LDA ) = A( I, J )
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 )
2704 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2725 AA( I + ( J - 1 )*LDA ) = ROGUE
2728 AA( I + ( J - 1 )*LDA ) = A( I, J )
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 )
2760 AA( I + ( J - 1 )*LDA ) = ROGUE
2775 AA( IOFF ) = A( I, J )
2778 $ AA( IOFF ) = ROGUE
2935 LOGICAL FUNCTION LDERES( TYPE, UPLO, M, N, AA, AS, LDA )
2952 DOUBLE PRECISION AA( LDA, * ), AS( LDA, * )
2961 IF( AA( I, J ).NE.AS( I, J ) )
2975 IF( AA( I, J ).NE.AS( I, J ) )
2979 IF( AA( I, J ).NE.AS( I, J ) )
