Lines Matching defs:AA
119 COMPLEX*16 AA( NMAX*NMAX ), AB( NMAX, 2*NMAX ),
329 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
335 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
341 $ 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, BB, BS, C, CC, CS, CT, G, W )
409 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
432 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
511 CALL ZMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
562 AS( I ) = AA( I )
584 $ AA, LDA, BB, LDB, BETA, CC, LDC )
602 ISAME( 7 ) = LZE( AS, AA, LAA )
694 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
717 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
809 $ AA, LDA, RESET, ZERO )
833 AS( I ) = AA( I )
854 CALL ZHEMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
857 CALL ZSYMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
876 ISAME( 6 ) = LZE( AS, AA, LAA )
972 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,
997 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1090 $ NMAX, AA, LDA, RESET, ZERO )
1110 AS( I ) = AA( I )
1128 $ N, ALPHA, AA, LDA, BB, LDB )
1137 $ N, ALPHA, AA, LDA, BB, LDB )
1157 ISAME( 8 ) = LZE( AS, AA, LAA )
1284 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
1307 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1384 CALL ZMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
1428 AS( I ) = AA( I )
1449 CALL ZHERK( UPLO, TRANS, N, K, RALPHA, AA,
1457 CALL ZSYRK( UPLO, TRANS, N, K, ALPHA, AA,
1480 ISAME( 6 ) = LZE( AS, AA, LAA )
1616 $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
1640 COMPLEX*16 AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
1718 CALL ZMAKE( 'GE', ' ', ' ', MA, NA, AB, 2*NMAX, AA,
1721 CALL ZMAKE( 'GE', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1770 AS( I ) = AA( I )
1795 CALL ZHER2K( UPLO, TRANS, N, K, ALPHA, AA,
1803 CALL ZSYR2K( UPLO, TRANS, N, K, ALPHA, AA,
1822 ISAME( 6 ) = LZE( AS, AA, LAA )
2932 SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2936 * Stores the values in the array AA in the data structure required
2966 COMPLEX*16 A( NMAX, * ), AA( * )
3018 AA( I + ( J - 1 )*LDA ) = A( I, J )
3021 AA( I + ( J - 1 )*LDA ) = ROGUE
3042 AA( I + ( J - 1 )*LDA ) = ROGUE
3045 AA( I + ( J - 1 )*LDA ) = A( I, J )
3048 AA( I + ( J - 1 )*LDA ) = ROGUE
3052 AA( JJ ) = DCMPLX( DBLE( AA( JJ ) ), RROGUE )
3283 LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA )
3302 COMPLEX*16 AA( LDA, * ), AS( LDA, * )
3311 IF( AA( I, J ).NE.AS( I, J ) )
3325 IF( AA( I, J ).NE.AS( I, J ) )
3329 IF( AA( I, J ).NE.AS( I, J ) )
