Lines Matching defs:AA
137 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ),
348 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
354 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
361 $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z )
366 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
372 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
378 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
439 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,
462 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
549 CALL CMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX, AA,
607 AS( I ) = AA( I )
629 CALL CGEMV( TRANS, M, N, ALPHA, AA,
640 $ AA, LDA, XX, INCX, BETA,
659 ISAME( 5 ) = LCE( AS, AA, LAA )
676 ISAME( 7 ) = LCE( AS, AA, LAA )
784 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,
807 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
894 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
938 AS( I ) = AA( I )
959 CALL CHEMV( UPLO, N, ALPHA, AA, LDA, XX,
968 CALL CHBMV( UPLO, N, K, ALPHA, AA, LDA,
976 CALL CHPMV( UPLO, N, ALPHA, AA, XX, INCX,
994 ISAME( 4 ) = LCE( AS, AA, LAA )
1009 ISAME( 5 ) = LCE( AS, AA, LAA )
1023 ISAME( 4 ) = LCE( AS, AA, LAA )
1132 $ INCMAX, A, AA, AS, X, XX, XS, XT, G, Z )
1154 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ),
1251 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1278 AS( I ) = AA( I )
1295 CALL CTRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1303 CALL CTBMV( UPLO, TRANS, DIAG, N, K, AA,
1311 CALL CTPMV( UPLO, TRANS, DIAG, N, AA, XX,
1321 CALL CTRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1329 CALL CTBSV( UPLO, TRANS, DIAG, N, K, AA,
1337 CALL CTPSV( UPLO, TRANS, DIAG, N, AA, XX,
1357 ISAME( 5 ) = LCE( AS, AA, LAA )
1368 ISAME( 6 ) = LCE( AS, AA, LAA )
1378 ISAME( 5 ) = LCE( AS, AA, LAA )
1493 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,
1516 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1609 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1619 AS( I ) = AA( I )
1639 CALL CGERC( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1644 CALL CGERU( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1666 ISAME( 8 ) = LCE( AS, AA, LAA )
1668 ISAME( 8 ) = LCERES( 'GE', ' ', M, N, AS, AA,
1709 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1770 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,
1793 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1881 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1891 AS( I ) = AA( I )
1907 CALL CHER( UPLO, N, RALPHA, XX, INCX, AA, LDA )
1914 CALL CHPR( UPLO, N, RALPHA, XX, INCX, AA )
1933 ISAME( 6 ) = LCE( AS, AA, LAA )
1936 $ AA, LDA )
1980 $ AA( JA ), EPS, ERR, FATAL, NOUT,
2054 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,
2077 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
2179 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2190 AS( I ) = AA( I )
2211 $ AA, LDA )
2219 $ AA )
2240 ISAME( 8 ) = LCE( AS, AA, LAA )
2243 $ AS, AA, LDA )
2297 $ YT, G, AA( JA ), EPS, ERR, FATAL,
2717 SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
2722 * Stores the values in the array AA in the data structure required
2749 COMPLEX A( NMAX, * ), AA( * )
2800 AA( I + ( J - 1 )*LDA ) = A( I, J )
2803 AA( I + ( J - 1 )*LDA ) = ROGUE
2809 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2812 AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )
2815 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2836 AA( I + ( J - 1 )*LDA ) = ROGUE
2839 AA( I + ( J - 1 )*LDA ) = A( I, J )
2842 AA( I + ( J - 1 )*LDA ) = ROGUE
2846 AA( JJ ) = CMPLX( REAL( AA( JJ ) ), RROGUE )
2869 AA( I + ( J - 1 )*LDA ) = ROGUE
2872 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2875 AA( I + ( J - 1 )*LDA ) = ROGUE
2879 AA( JJ ) = CMPLX( REAL( AA( JJ ) ), RROGUE )
2894 AA( IOFF ) = A( I, J )
2897 $ AA( IOFF ) = ROGUE
2899 $ AA( IOFF ) = CMPLX( REAL( AA( IOFF ) ), RROGUE )
3071 LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA )
3088 COMPLEX AA( LDA, * ), AS( LDA, * )
3097 IF( AA( I, J ).NE.AS( I, J ) )
3111 IF( AA( I, J ).NE.AS( I, J ) )
3115 IF( AA( I, J ).NE.AS( I, J ) )
