Lines Matching refs:AA
87 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), variable
318 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
324 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
332 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
338 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
347 $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z,
353 $ 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,
375 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
381 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
389 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
395 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
458 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, argument
479 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ), local
566 CALL SMAKE( SNAME( 8: 9 ), ' ', ' ', M, N, A, NMAX, AA,
631 AS( I ) = AA( I )
654 $ ALPHA, AA, LDA, XX, INCX,
664 $ KU, ALPHA, AA, LDA, XX,
683 ISAME( 5 ) = LSE( AS, AA, LAA )
700 ISAME( 7 ) = LSE( AS, AA, LAA )
818 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, argument
839 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ), local
931 CALL SMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX, AA,
975 AS( I ) = AA( I )
996 CALL CSSYMV( IORDER, UPLO, N, ALPHA, AA,
1006 $ AA, LDA, XX, INCX, BETA, YY,
1014 CALL CSSPMV( IORDER, UPLO, N, ALPHA, AA,
1032 ISAME( 4 ) = LSE( AS, AA, LAA )
1047 ISAME( 5 ) = LSE( AS, AA, LAA )
1061 ISAME( 4 ) = LSE( AS, AA, LAA )
1178 $ INCMAX, A, AA, AS, X, XX, XS, XT, G, Z, IORDER ) argument
1198 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), local
1312 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1339 AS( I ) = AA( I )
1357 $ N, AA, LDA, XX, INCX )
1365 $ N, K, AA, LDA, XX, INCX )
1373 $ N, AA, XX, INCX )
1383 $ N, AA, LDA, XX, INCX )
1391 $ N, K, AA, LDA, XX, INCX )
1399 $ N, AA, XX, INCX )
1418 ISAME( 5 ) = LSE( AS, AA, LAA )
1429 ISAME( 6 ) = LSE( AS, AA, LAA )
1439 ISAME( 5 ) = LSE( AS, AA, LAA )
1565 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, argument
1586 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ), local
1676 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1686 AS( I ) = AA( I )
1706 $ INCY, AA, LDA )
1726 ISAME( 8 ) = LSE( AS, AA, LAA )
1728 ISAME( 8 ) = LSERES( 'ge', ' ', M, N, AS, AA,
1767 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1837 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, argument
1858 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ), local
1949 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1959 AS( I ) = AA( I )
1976 $ AA, LDA )
1983 CALL CSSPR( IORDER, UPLO, N, ALPHA, XX, INCX, AA )
2002 ISAME( 6 ) = LSE( AS, AA, LAA )
2005 $ AA, LDA )
2049 $ AA( JA ), EPS, ERR, FATAL, NOUT,
2133 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, argument
2154 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ), local
2260 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2271 AS( I ) = AA( I )
2292 $ YY, INCY, AA, LDA )
2300 $ YY, INCY, AA )
2321 ISAME( 8 ) = LSE( AS, AA, LAA )
2324 $ AS, AA, LDA )
2378 $ YT, G, AA( JA ), EPS, ERR, FATAL,
2463 SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, argument
2491 REAL A( NMAX, * ), AA( * ) local
2540 AA( I + ( J - 1 )*LDA ) = A( I, J )
2543 AA( I + ( J - 1 )*LDA ) = ROGUE
2549 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2552 AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )
2555 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2576 AA( I + ( J - 1 )*LDA ) = ROGUE
2579 AA( I + ( J - 1 )*LDA ) = A( I, J )
2582 AA( I + ( J - 1 )*LDA ) = ROGUE
2605 AA( I + ( J - 1 )*LDA ) = ROGUE
2608 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2611 AA( I + ( J - 1 )*LDA ) = ROGUE
2626 AA( IOFF ) = A( I, J )
2629 $ AA( IOFF ) = ROGUE
2786 LOGICAL FUNCTION LSERES( TYPE, UPLO, M, N, AA, AS, LDA )
2803 REAL AA( LDA, * ), AS( LDA, * ) local
2812 IF( AA( I, J ).NE.AS( I, J ) )
2826 IF( AA( I, J ).NE.AS( I, J ) )
2830 IF( AA( I, J ).NE.AS( I, J ) )