Lines Matching refs:AA
71 COMPLEX AA( NMAX*NMAX ), AB( NMAX, 2*NMAX ),
303 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
309 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
317 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
323 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
331 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C,
337 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C,
345 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
351 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
359 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
365 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
427 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G,
451 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
530 CALL CMAKE( 'ge', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
581 AS( I ) = AA( I )
603 $ K, ALPHA, AA, LDA, BB, LDB,
622 ISAME( 7 ) = LCE( AS, AA, LAA )
757 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G,
781 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
873 $ AA, LDA, RESET, ZERO )
897 AS( I ) = AA( I )
920 $ ALPHA, AA, LDA, BB, LDB, BETA,
924 $ ALPHA, AA, LDA, BB, LDB, BETA,
943 ISAME( 6 ) = LCE( AS, AA, LAA )
1078 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,
1102 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1195 $ NMAX, AA, LDA, RESET, ZERO )
1215 AS( I ) = AA( I )
1233 $ DIAG, M, N, ALPHA, AA, LDA,
1243 $ DIAG, M, N, ALPHA, AA, LDA,
1264 ISAME( 8 ) = LCE( AS, AA, LAA )
1442 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G,
1466 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1543 CALL CMAKE( 'ge', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
1587 AS( I ) = AA( I )
1610 $ RALPHA, AA, LDA, RBETA, CC,
1619 $ ALPHA, AA, LDA, BETA, CC, LDC )
1641 ISAME( 6 ) = LCE( AS, AA, LAA )
1852 $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
1876 COMPLEX AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
1954 CALL CMAKE( 'ge', ' ', ' ', MA, NA, AB, 2*NMAX, AA,
1957 CALL CMAKE( 'ge', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
2006 AS( I ) = AA( I )
2033 $ ALPHA, AA, LDA, BB, LDB, RBETA,
2043 $ ALPHA, AA, LDA, BB, LDB, BETA,
2062 ISAME( 6 ) = LCE( AS, AA, LAA )
2304 SUBROUTINE CMAKE(TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2308 * Stores the values in the array AA in the data structure required
2337 COMPLEX A( NMAX, * ), AA( * )
2389 AA( I + ( J - 1 )*LDA ) = A( I, J )
2392 AA( I + ( J - 1 )*LDA ) = ROGUE
2413 AA( I + ( J - 1 )*LDA ) = ROGUE
2416 AA( I + ( J - 1 )*LDA ) = A( I, J )
2419 AA( I + ( J - 1 )*LDA ) = ROGUE
2423 AA( JJ ) = CMPLX( REAL( AA( JJ ) ), RROGUE )
2652 LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA )
2671 COMPLEX AA( LDA, * ), AS( LDA, * )
2680 IF( AA( I, J ).NE.AS( I, J ) )
2694 IF( AA( I, J ).NE.AS( I, J ) )
2698 IF( AA( I, J ).NE.AS( I, J ) )
