Lines Matching refs:AA
91 COMPLEX*16 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
488 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ), local
576 CALL ZMAKE( SNAME( 8: 9 ), ' ', ' ', M, N, A, NMAX, AA,
641 AS( I ) = AA( I )
664 $ ALPHA, AA, LDA, XX, INCX,
674 $ KU, ALPHA, AA, LDA, XX,
694 ISAME( 5 ) = LZE( AS, AA, LAA )
711 ISAME( 7 ) = LZE( AS, AA, LAA )
820 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, argument
844 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ), local
937 CALL ZMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX, AA,
981 AS( I ) = AA( I )
1002 CALL CZHEMV( IORDER, UPLO, N, ALPHA, AA,
1013 $ AA, LDA, XX, INCX, BETA,
1021 CALL CZHPMV( IORDER, UPLO, N, ALPHA, AA,
1039 ISAME( 4 ) = LZE( AS, AA, LAA )
1054 ISAME( 5 ) = LZE( AS, AA, LAA )
1068 ISAME( 4 ) = LZE( AS, AA, LAA )
1177 $ INCMAX, A, AA, AS, X, XX, XS, XT, G, Z, IORDER ) argument
1201 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), local
1316 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1343 AS( I ) = AA( I )
1361 $ N, AA, LDA, XX, INCX )
1369 $ N, K, AA, LDA, XX, INCX )
1377 $ N, AA, XX, INCX )
1387 $ N, AA, LDA, XX, INCX )
1395 $ N, K, AA, LDA, XX, INCX )
1403 $ N, AA, XX, INCX )
1422 ISAME( 5 ) = LZE( AS, AA, LAA )
1433 ISAME( 6 ) = LZE( AS, AA, LAA )
1443 ISAME( 5 ) = LZE( AS, AA, LAA )
1559 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, argument
1584 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ), local
1677 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1687 AS( I ) = AA( I )
1708 $ YY, INCY, AA, LDA )
1713 $ YY, INCY, AA, LDA )
1734 ISAME( 8 ) = LZE( AS, AA, LAA )
1736 ISAME( 8 ) = LZERES( 'ge', ' ', M, N, AS, AA,
1777 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1837 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, argument
1862 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ), local
1956 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1966 AS( I ) = AA( I )
1983 $ INCX, AA, LDA )
1991 $ XX, INCX, AA )
2010 ISAME( 6 ) = LZE( AS, AA, LAA )
2013 $ AA, LDA )
2057 $ AA( JA ), EPS, ERR, FATAL, NOUT,
2131 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, argument
2156 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ), local
2264 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2275 AS( I ) = AA( I )
2296 $ YY, INCY, AA, LDA )
2304 $ YY, INCY, AA )
2325 ISAME( 8 ) = LZE( AS, AA, LAA )
2328 $ AS, AA, LDA )
2382 $ YT, G, AA( JA ), EPS, ERR, FATAL,
2619 LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA )
2636 COMPLEX*16 AA( LDA, * ), AS( LDA, * ) local
2645 IF( AA( I, J ).NE.AS( I, J ) )
2659 IF( AA( I, J ).NE.AS( I, J ) )
2663 IF( AA( I, J ).NE.AS( I, J ) )
2747 SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, argument
2780 COMPLEX*16 A( NMAX, * ), AA( * ) local
2831 AA( I + ( J - 1 )*LDA ) = A( I, J )
2834 AA( I + ( J - 1 )*LDA ) = ROGUE
2840 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2843 AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )
2846 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2867 AA( I + ( J - 1 )*LDA ) = ROGUE
2870 AA( I + ( J - 1 )*LDA ) = A( I, J )
2873 AA( I + ( J - 1 )*LDA ) = ROGUE
2877 AA( JJ ) = DCMPLX( DBLE( AA( JJ ) ), RROGUE )
2900 AA( I + ( J - 1 )*LDA ) = ROGUE
2903 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2906 AA( I + ( J - 1 )*LDA ) = ROGUE
2910 AA( JJ ) = DCMPLX( DBLE( AA( JJ ) ), RROGUE )
2925 AA( IOFF ) = A( I, J )
2928 $ AA( IOFF ) = ROGUE
2930 $ AA( IOFF ) = DCMPLX( DBLE( AA( IOFF ) ), RROGUE )