Lines Matching defs:AA
92 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ),
310 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
316 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
323 $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z )
328 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
334 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
340 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
401 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,
425 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
512 CALL ZMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX, AA,
570 AS( I ) = AA( I )
592 CALL ZGEMV( TRANS, M, N, ALPHA, AA,
603 $ AA, LDA, XX, INCX, BETA,
622 ISAME( 5 ) = LZE( AS, AA, LAA )
639 ISAME( 7 ) = LZE( AS, AA, LAA )
747 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,
771 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
858 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
902 AS( I ) = AA( I )
923 CALL ZHEMV( UPLO, N, ALPHA, AA, LDA, XX,
932 CALL ZHBMV( UPLO, N, K, ALPHA, AA, LDA,
940 CALL ZHPMV( UPLO, N, ALPHA, AA, XX, INCX,
958 ISAME( 4 ) = LZE( AS, AA, LAA )
973 ISAME( 5 ) = LZE( AS, AA, LAA )
987 ISAME( 4 ) = LZE( AS, AA, LAA )
1096 $ INCMAX, A, AA, AS, X, XX, XS, XT, G, Z )
1119 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ),
1216 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1243 AS( I ) = AA( I )
1260 CALL ZTRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1268 CALL ZTBMV( UPLO, TRANS, DIAG, N, K, AA,
1276 CALL ZTPMV( UPLO, TRANS, DIAG, N, AA, XX,
1286 CALL ZTRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1294 CALL ZTBSV( UPLO, TRANS, DIAG, N, K, AA,
1302 CALL ZTPSV( UPLO, TRANS, DIAG, N, AA, XX,
1322 ISAME( 5 ) = LZE( AS, AA, LAA )
1333 ISAME( 6 ) = LZE( AS, AA, LAA )
1343 ISAME( 5 ) = LZE( AS, AA, LAA )
1458 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,
1482 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1575 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1585 AS( I ) = AA( I )
1605 CALL ZGERC( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1610 CALL ZGERU( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1632 ISAME( 8 ) = LZE( AS, AA, LAA )
1634 ISAME( 8 ) = LZERES( 'GE', ' ', M, N, AS, AA,
1675 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1736 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,
1760 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1848 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1858 AS( I ) = AA( I )
1874 CALL ZHER( UPLO, N, RALPHA, XX, INCX, AA, LDA )
1881 CALL ZHPR( UPLO, N, RALPHA, XX, INCX, AA )
1900 ISAME( 6 ) = LZE( AS, AA, LAA )
1903 $ AA, LDA )
1947 $ AA( JA ), EPS, ERR, FATAL, NOUT,
2021 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,
2045 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
2147 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2158 AS( I ) = AA( I )
2179 $ AA, LDA )
2187 $ AA )
2208 ISAME( 8 ) = LZE( AS, AA, LAA )
2211 $ AS, AA
2265 $ YT, G, AA( JA ), EPS, ERR, FATAL,
2685 SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
2690 * Stores the values in the array AA in the data structure required
2718 COMPLEX*16 A( NMAX, * ), AA( * )
2769 AA( I + ( J - 1 )*LDA ) = A( I, J )
2772 AA( I + ( J - 1 )*LDA ) = ROGUE
2778 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2781 AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )
2784 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2805 AA( I + ( J - 1 )*LDA ) = ROGUE
2808 AA( I + ( J - 1 )*LDA ) = A( I, J )
2811 AA( I + ( J - 1 )*LDA ) = ROGUE
2815 AA( JJ ) = DCMPLX( DBLE( AA( JJ ) ), RROGUE )
2838 AA( I + ( J - 1 )*LDA ) = ROGUE
2841 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2844 AA( I + ( J - 1 )*LDA ) = ROGUE
2848 AA( JJ ) = DCMPLX( DBLE( AA( JJ ) ), RROGUE )
2863 AA( IOFF ) = A( I, J )
2866 $ AA( IOFF ) = ROGUE
2868 $ AA( IOFF ) = DCMPLX( DBLE( AA( IOFF ) ), RROGUE )
3040 LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA )
3057 COMPLEX*16 AA( LDA, * ), AS( LDA, * )
3066 IF( AA( I, J ).NE.AS( I, J ) )
3080 IF( AA( I, J ).NE.AS( I, J ) )
3084 IF( AA( I, J ).NE.AS( I, J ) )
