Lines Matching defs:AA
88 REAL 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 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
500 CALL SMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX, AA,
558 AS( I ) = AA( I )
580 CALL SGEMV( TRANS, M, N, ALPHA, AA,
591 $ AA, LDA, XX, INCX, BETA,
610 ISAME( 5 ) = LSE( AS, AA, LAA )
627 ISAME( 7 ) = LSE( AS, AA, LAA )
734 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,
755 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
841 CALL SMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
885 AS( I ) = AA( I )
906 CALL SSYMV( UPLO, N, ALPHA, AA, LDA, XX,
915 CALL SSBMV( UPLO, N, K, ALPHA, AA, LDA,
923 CALL SSPMV( UPLO, N, ALPHA, AA, XX, INCX,
941 ISAME( 4 ) = LSE( AS, AA, LAA )
956 ISAME( 5 ) = LSE( AS, AA, LAA )
970 ISAME( 4 ) = LSE( AS, AA, LAA )
1077 $ INCMAX, A, AA, AS, X, XX, XS, XT, G, Z )
1096 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ),
1192 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1219 AS( I ) = AA( I )
1236 CALL STRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1244 CALL STBMV( UPLO, TRANS, DIAG, N, K, AA,
1252 CALL STPMV( UPLO, TRANS, DIAG, N, AA, XX,
1262 CALL STRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1270 CALL STBSV( UPLO, TRANS, DIAG, N, K, AA,
1278 CALL STPSV( UPLO, TRANS, DIAG, N, AA, XX,
1298 ISAME( 5 ) = LSE( AS, AA, LAA )
1309 ISAME( 6 ) = LSE( AS, AA, LAA )
1319 ISAME( 5 ) = LSE( AS, AA, LAA )
1434 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,
1454 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1544 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1554 AS( I ) = AA( I )
1573 CALL SGER( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1594 ISAME( 8 ) = LSE( AS, AA, LAA )
1596 ISAME( 8 ) = LSERES( '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 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1800 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1810 AS( I ) = AA( I )
1826 CALL SSYR( UPLO, N, ALPHA, XX, INCX, AA, LDA )
1833 CALL SSPR( UPLO, N, ALPHA, XX, INCX, AA )
1852 ISAME( 6 ) = LSE( 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 REAL 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 ) = LSE( AS, AA, LAA )
2157 $ AS, AA, LDA )
2211 $ YT, G, AA( JA ), EPS, ERR, FATAL,
2612 SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
2617 * Stores the values in the array AA in the data structure required
2640 REAL 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 LSERES( TYPE, UPLO, M, N, AA, AS, LDA )
2952 REAL 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 ) )
