Lines Matching defs:AA
138 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ),
349 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
355 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
362 $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z )
367 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
373 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
379 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
440 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,
464 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
551 CALL ZMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX, AA,
609 AS( I ) = AA( I )
631 CALL ZGEMV( TRANS, M, N, ALPHA, AA,
642 $ AA, LDA, XX, INCX, BETA,
661 ISAME( 5 ) = LZE( AS, AA, LAA )
678 ISAME( 7 ) = LZE( AS, AA, LAA )
786 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,
810 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
897 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
941 AS( I ) = AA( I )
962 CALL ZHEMV( UPLO, N, ALPHA, AA, LDA, XX,
971 CALL ZHBMV( UPLO, N, K, ALPHA, AA, LDA,
979 CALL ZHPMV( UPLO, N, ALPHA, AA, XX, INCX,
997 ISAME( 4 ) = LZE( AS, AA, LAA )
1012 ISAME( 5 ) = LZE( AS, AA, LAA )
1026 ISAME( 4 ) = LZE( AS, AA, LAA )
1135 $ INCMAX, A, AA, AS, X, XX, XS, XT, G, Z )
1158 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ),
1255 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1282 AS( I ) = AA( I )
1299 CALL ZTRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1307 CALL ZTBMV( UPLO, TRANS, DIAG, N, K, AA,
1315 CALL ZTPMV( UPLO, TRANS, DIAG, N, AA, XX,
1325 CALL ZTRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1333 CALL ZTBSV( UPLO, TRANS, DIAG, N, K, AA,
1341 CALL ZTPSV( UPLO, TRANS, DIAG, N, AA, XX,
1361 ISAME( 5 ) = LZE( AS, AA, LAA )
1372 ISAME( 6 ) = LZE( AS, AA, LAA )
1382 ISAME( 5 ) = LZE( AS, AA, LAA )
1497 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,
1521 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1614 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1624 AS( I ) = AA( I )
1644 CALL ZGERC( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1649 CALL ZGERU( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1671 ISAME( 8 ) = LZE( AS, AA, LAA )
1673 ISAME( 8 ) = LZERES( 'GE', ' ', M, N, AS, AA,
1714 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1775 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,
1799 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1887 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1897 AS( I ) = AA( I )
1913 CALL ZHER( UPLO, N, RALPHA, XX, INCX, AA, LDA )
1920 CALL ZHPR( UPLO, N, RALPHA, XX, INCX, AA )
1939 ISAME( 6 ) = LZE( AS, AA, LAA )
1942 $ AA, LDA )
1986 $ AA( JA ), EPS, ERR, FATAL, NOUT,
2060 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,
2084 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
2186 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2197 AS( I ) = AA( I )
2218 $ AA, LDA )
2226 AA )
2247 ISAME( 8 ) = LZE( AS, AA, LAA )
2250 $ AS, AA, LDA )
2304 $ YT, G, AA( JA ), EPS, ERR, FATAL,
2724 SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
2729 * Stores the values in the array AA in the data structure required
2757 COMPLEX*16 A( NMAX, * ), AA( * )
2808 AA( I + ( J - 1 )*LDA ) = A( I, J )
2811 AA( I + ( J - 1 )*LDA ) = ROGUE
2817 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2820 AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )
2823 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2844 AA( I + ( J - 1 )*LDA ) = ROGUE
2847 AA( I + ( J - 1 )*LDA ) = A( I, J )
2850 AA( I + ( J - 1 )*LDA ) = ROGUE
2854 AA( JJ ) = DCMPLX( DBLE( AA( JJ ) ), RROGUE )
2877 AA( I + ( J - 1 )*LDA ) = ROGUE
2880 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2883 AA( I + ( J - 1 )*LDA ) = ROGUE
2887 AA( JJ ) = DCMPLX( DBLE( AA( JJ ) ), RROGUE )
2902 AA( IOFF ) = A( I, J )
2905 $ AA( IOFF ) = ROGUE
2907 $ AA( IOFF ) = DCMPLX( DBLE( AA( IOFF ) ), RROGUE )
3079 LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA )
3096 COMPLEX*16 AA( LDA, * ), AS( LDA, * )
3105 IF( AA( I, J ).NE.AS( I, J ) )
3119 IF( AA( I, J ).NE.AS( I, J ) )
3123 IF( AA( I, J ).NE.AS( I, J ) )
