Lines Matching defs:AA
72 COMPLEX*16 AA( NMAX*NMAX ), AB( NMAX, 2*NMAX ),
304 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
310 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
318 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
324 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
332 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C,
338 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C,
346 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
352 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
360 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
366 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
428 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G,
452 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
531 CALL ZMAKE( 'ge', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
582 AS( I ) = AA( I )
604 $ K, ALPHA, AA, LDA, BB, LDB,
623 ISAME( 7 ) = LZE( AS, AA, LAA )
758 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G,
782 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
874 $ AA, LDA, RESET, ZERO )
898 AS( I ) = AA( I )
921 $ ALPHA, AA, LDA, BB, LDB, BETA,
925 $ ALPHA, AA, LDA, BB, LDB, BETA,
944 ISAME( 6 ) = LZE( AS, AA, LAA )
1079 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,
1103 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1196 $ NMAX, AA, LDA, RESET, ZERO )
1216 AS( I ) = AA( I )
1234 $ DIAG, M, N, ALPHA, AA, LDA,
1244 $ DIAG, M, N, ALPHA, AA, LDA,
1265 ISAME( 8 ) = LZE( AS, AA, LAA )
1443 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G,
1467 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1544 CALL ZMAKE( 'ge', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
1588 AS( I ) = AA( I )
1611 $ RALPHA, AA, LDA, RBETA, CC,
1620 $ ALPHA, AA, LDA, BETA, CC, LDC )
1642 ISAME( 6 ) = LZE( AS, AA, LAA )
1853 $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
1877 COMPLEX*16 AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
1955 CALL ZMAKE( 'ge', ' ', ' ', MA, NA, AB, 2*NMAX, AA,
1958 CALL ZMAKE( 'ge', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
2007 AS( I ) = AA( I )
2034 $ ALPHA, AA, LDA, BB, LDB, RBETA,
2044 $ ALPHA, AA, LDA, BB, LDB, BETA,
2063 ISAME( 6 ) = LZE( AS, AA, LAA )
2305 SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2309 * Stores the values in the array AA in the data structure required
2339 COMPLEX*16 A( NMAX, * ), AA( * )
2391 AA( I + ( J - 1 )*LDA ) = A( I, J )
2394 AA( I + ( J - 1 )*LDA ) = ROGUE
2415 AA( I + ( J - 1 )*LDA ) = ROGUE
2418 AA( I + ( J - 1 )*LDA ) = A( I, J )
2421 AA( I + ( J - 1 )*LDA ) = ROGUE
2425 AA( JJ ) = DCMPLX( DBLE( AA( JJ ) ), RROGUE )
2656 LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA )
2675 COMPLEX*16 AA( LDA, * ), AS( LDA, * )
2684 IF( AA( I, J ).NE.AS( I, J ) )
2698 IF( AA( I, J ).NE.AS( I, J ) )
2702 IF( AA( I, J ).NE.AS( I, J ) )
