Lines Matching defs:AA
134 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ),
343 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
349 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
356 $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z )
361 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
367 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
373 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
432 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,
453 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
539 CALL SMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX, AA,
597 AS( I ) = AA( I )
619 CALL SGEMV( TRANS, M, N, ALPHA, AA,
630 $ AA, LDA, XX, INCX, BETA,
649 ISAME( 5 ) = LSE( AS, AA, LAA )
666 ISAME( 7 ) = LSE( AS, AA, LAA )
773 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,
794 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
880 CALL SMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
924 AS( I ) = AA( I )
945 CALL SSYMV( UPLO, N, ALPHA, AA, LDA, XX,
954 CALL SSBMV( UPLO, N, K, ALPHA, AA, LDA,
962 CALL SSPMV( UPLO, N, ALPHA, AA, XX, INCX,
980 ISAME( 4 ) = LSE( AS, AA, LAA )
995 ISAME( 5 ) = LSE( AS, AA, LAA )
1009 ISAME( 4 ) = LSE( AS, AA, LAA )
1116 $ INCMAX, A, AA, AS, X, XX, XS, XT, G, Z )
1135 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ),
1231 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1258 AS( I ) = AA( I )
1275 CALL STRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1283 CALL STBMV( UPLO, TRANS, DIAG, N, K, AA,
1291 CALL STPMV( UPLO, TRANS, DIAG, N, AA, XX,
1301 CALL STRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1309 CALL STBSV( UPLO, TRANS, DIAG, N, K, AA,
1317 CALL STPSV( UPLO, TRANS, DIAG, N, AA, XX,
1337 ISAME( 5 ) = LSE( AS, AA, LAA )
1348 ISAME( 6 ) = LSE( AS, AA, LAA )
1358 ISAME( 5 ) = LSE( AS, AA, LAA )
1473 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,
1493 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1583 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1593 AS( I ) = AA( I )
1612 CALL SGER( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1633 ISAME( 8 ) = LSE( AS, AA, LAA )
1635 ISAME( 8 ) = LSERES( 'GE', ' ', M, N, AS, AA,
1674 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1734 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,
1754 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1839 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1849 AS( I ) = AA( I )
1865 CALL SSYR( UPLO, N, ALPHA, XX, INCX, AA, LDA )
1872 CALL SSPR( UPLO, N, ALPHA, XX, INCX, AA )
1891 ISAME( 6 ) = LSE( AS, AA, LAA )
1894 $ AA, LDA )
1938 $ AA( JA ), EPS, ERR, FATAL, NOUT,
2012 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,
2032 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
2132 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2143 AS( I ) = AA( I )
2164 $ AA, LDA )
2172 $ AA )
2193 ISAME( 8 ) = LSE( AS, AA, LAA )
2196 $ AS, AA, LDA )
2250 $ YT, G, AA( JA ), EPS, ERR, FATAL,
2651 SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
2656 * Stores the values in the array AA in the data structure required
2679 REAL A( NMAX, * ), AA( * )
2728 AA( I + ( J - 1 )*LDA ) = A( I, J )
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 )
2743 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2764 AA( I + ( J - 1 )*LDA ) = ROGUE
2767 AA( I + ( J - 1 )*LDA ) = A( I, J )
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 )
2799 AA( I + ( J - 1 )*LDA ) = ROGUE
2814 AA( IOFF ) = A( I, J )
2817 $ AA( IOFF ) = ROGUE
2974 LOGICAL FUNCTION LSERES( TYPE, UPLO, M, N, AA, AS, LDA )
2991 REAL AA( LDA, * ), AS( LDA, * )
3000 IF( AA( I, J ).NE.AS( I, J ) )
3014 IF( AA( I, J ).NE.AS( I, J ) )
3018 IF( AA( I, J ).NE.AS( I, J ) )
