Lines Matching refs:AA
90 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), variable
322 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
328 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
336 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
342 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
351 $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z,
357 $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z,
365 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
371 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
379 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
385 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
393 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
399 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
464 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, argument
487 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ), local
575 CALL CMAKE( SNAME( 8: 9 ), ' ', ' ', M, N, A, NMAX, AA,
640 AS( I ) = AA( I )
663 $ ALPHA, AA, LDA, XX, INCX,
673 $ KU, ALPHA, AA, LDA, XX,
693 ISAME( 5 ) = LCE( AS, AA, LAA )
710 ISAME( 7 ) = LCE( AS, AA, LAA )
819 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, argument
842 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ), local
935 CALL CMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX, AA,
979 AS( I ) = AA( I )
1000 CALL CCHEMV( IORDER, UPLO, N, ALPHA, AA,
1011 $ AA, LDA, XX, INCX, BETA,
1019 CALL CCHPMV( IORDER, UPLO, N, ALPHA, AA,
1037 ISAME( 4 ) = LCE( AS, AA, LAA )
1052 ISAME( 5 ) = LCE( AS, AA, LAA )
1066 ISAME( 4 ) = LCE( AS, AA, LAA )
1175 $ INCMAX, A, AA, AS, X, XX, XS, XT, G, Z, IORDER ) argument
1198 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), local
1313 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1340 AS( I ) = AA( I )
1358 $ N, AA, LDA, XX, INCX )
1366 $ N, K, AA, LDA, XX, INCX )
1374 $ N, AA, XX, INCX )
1384 $ N, AA, LDA, XX, INCX )
1392 $ N, K, AA, LDA, XX, INCX )
1400 $ N, AA, XX, INCX )
1419 ISAME( 5 ) = LCE( AS, AA, LAA )
1430 ISAME( 6 ) = LCE( AS, AA, LAA )
1440 ISAME( 5 ) = LCE( AS, AA, LAA )
1556 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, argument
1580 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ), local
1673 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1683 AS( I ) = AA( I )
1704 $ YY, INCY, AA, LDA )
1709 $ YY, INCY, AA, LDA )
1730 ISAME( 8 ) = LCE( AS, AA, LAA )
1732 ISAME( 8 ) = LCERES( 'ge', ' ', M, N, AS, AA,
1773 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1833 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, argument
1857 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ), local
1951 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1961 AS( I ) = AA( I )
1978 $ INCX, AA, LDA )
1986 $ XX, INCX, AA )
2005 ISAME( 6 ) = LCE( AS, AA, LAA )
2008 $ AA, LDA )
2052 $ AA( JA ), EPS, ERR, FATAL, NOUT,
2126 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, argument
2150 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ), local
2258 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2269 AS( I ) = AA( I )
2290 $ YY, INCY, AA, LDA )
2298 $ YY, INCY, AA )
2319 ISAME( 8 ) = LCE( AS, AA, LAA )
2322 $ AS, AA, LDA )
2376 $ YT, G, AA( JA ), EPS, ERR, FATAL,
2613 LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA )
2630 COMPLEX AA( LDA, * ), AS( LDA, * ) local
2639 IF( AA( I, J ).NE.AS( I, J ) )
2653 IF( AA( I, J ).NE.AS( I, J ) )
2657 IF( AA( I, J ).NE.AS( I, J ) )
2741 SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, argument
2773 COMPLEX A( NMAX, * ), AA( * ) local
2824 AA( I + ( J - 1 )*LDA ) = A( I, J )
2827 AA( I + ( J - 1 )*LDA ) = ROGUE
2833 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2836 AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )
2839 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2860 AA( I + ( J - 1 )*LDA ) = ROGUE
2863 AA( I + ( J - 1 )*LDA ) = A( I, J )
2866 AA( I + ( J - 1 )*LDA ) = ROGUE
2870 AA( JJ ) = CMPLX( REAL( AA( JJ ) ), RROGUE )
2893 AA( I + ( J - 1 )*LDA ) = ROGUE
2896 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2899 AA( I + ( J - 1 )*LDA ) = ROGUE
2903 AA( JJ ) = CMPLX( REAL( AA( JJ ) ), RROGUE )
2918 AA( IOFF ) = A( I, J )
2921 $ AA( IOFF ) = ROGUE
2923 $ AA( IOFF ) = CMPLX( REAL( AA( IOFF ) ), RROGUE )