Lines Matching defs:AA
91 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ),
309 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
315 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
322 $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z )
327 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
333 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
339 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
400 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,
423 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
510 CALL CMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX, AA,
568 AS( I ) = AA( I )
590 CALL CGEMV( TRANS, M, N, ALPHA, AA,
601 $ AA, LDA, XX, INCX, BETA,
620 ISAME( 5 ) = LCE( AS, AA, LAA )
637 ISAME( 7 ) = LCE( AS, AA, LAA )
745 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,
768 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
855 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
899 AS( I ) = AA( I )
920 CALL CHEMV( UPLO, N, ALPHA, AA, LDA, XX,
929 CALL CHBMV( UPLO, N, K, ALPHA, AA, LDA,
937 CALL CHPMV( UPLO, N, ALPHA, AA, XX, INCX,
955 ISAME( 4 ) = LCE( AS, AA, LAA )
970 ISAME( 5 ) = LCE( AS, AA, LAA )
984 ISAME( 4 ) = LCE( AS, AA, LAA )
1093 $ INCMAX, A, AA, AS, X, XX, XS, XT, G, Z )
1115 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ),
1212 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1239 AS( I ) = AA( I )
1256 CALL CTRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1264 CALL CTBMV( UPLO, TRANS, DIAG, N, K, AA,
1272 CALL CTPMV( UPLO, TRANS, DIAG, N, AA, XX,
1282 CALL CTRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1290 CALL CTBSV( UPLO, TRANS, DIAG, N, K, AA,
1298 CALL CTPSV( UPLO, TRANS, DIAG, N, AA, XX,
1318 ISAME( 5 ) = LCE( AS, AA, LAA )
1329 ISAME( 6 ) = LCE( AS, AA, LAA )
1339 ISAME( 5 ) = LCE( AS, AA, LAA )
1454 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,
1477 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1570 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1580 AS( I ) = AA( I )
1600 CALL CGERC( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1605 CALL CGERU( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1627 ISAME( 8 ) = LCE( AS, AA, LAA )
1629 ISAME( 8 ) = LCERES( 'GE', ' ', M, N, AS, AA,
1670 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1731 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,
1754 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1842 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1852 AS( I ) = AA( I )
1868 CALL CHER( UPLO, N, RALPHA, XX, INCX, AA, LDA )
1875 CALL CHPR( UPLO, N, RALPHA, XX, INCX, AA )
1894 ISAME( 6 ) = LCE( AS, AA, LAA )
1897 $ AA, LDA )
1941 $ AA( JA ), EPS, ERR, FATAL, NOUT,
2015 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,
2038 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
2140 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2151 AS( I ) = AA( I )
2172 $ AA, LDA )
2180 $ AA )
2201 ISAME( 8 ) = LCE( AS, AA, LAA )
2204 $ AS, AA, LDA )
2258 $ YT, G, AA( JA ), EPS, ERR, FATAL,
2678 SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
2683 * Stores the values in the array AA in the data structure required
2710 COMPLEX A( NMAX, * ), AA( * )
2761 AA( I + ( J - 1 )*LDA ) = A( I, J )
2764 AA( I + ( J - 1 )*LDA ) = ROGUE
2770 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2773 AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )
2776 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2797 AA( I + ( J - 1 )*LDA ) = ROGUE
2800 AA( I + ( J - 1 )*LDA ) = A( I, J )
2803 AA( I + ( J - 1 )*LDA ) = ROGUE
2807 AA( JJ ) = CMPLX( REAL( AA( JJ ) ), RROGUE )
2830 AA( I + ( J - 1 )*LDA ) = ROGUE
2833 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2836 AA( I + ( J - 1 )*LDA ) = ROGUE
2840 AA( JJ ) = CMPLX( REAL( AA( JJ ) ), RROGUE )
2855 AA( IOFF ) = A( I, J )
2858 $ AA( IOFF ) = ROGUE
2860 $ AA( IOFF ) = CMPLX( REAL( AA( IOFF ) ), RROGUE )
3032 LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA )
3049 COMPLEX AA( LDA, * ), AS( LDA, * )
3058 IF( AA( I, J ).NE.AS( I, J ) )
3072 IF( AA( I, J ).NE.AS( I, J ) )
3076 IF( AA( I, J ).NE.AS( I, J ) )
