Lines Matching defs:AA
72 COMPLEX*16 AA( NMAX*NMAX ), AB( NMAX, 2*NMAX ),
289 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
295 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
301 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C )
306 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
312 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
369 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
392 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
471 CALL ZMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
522 AS( I ) = AA( I )
544 $ AA, LDA, BB, LDB, BETA, CC, LDC )
562 ISAME( 7 ) = LZE( AS, AA, LAA )
654 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
677 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
769 $ AA, LDA, RESET, ZERO )
793 AS( I ) = AA( I )
814 CALL ZHEMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
817 CALL ZSYMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
836 ISAME( 6 ) = LZE( AS, AA, LAA )
932 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,
957 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1050 $ NMAX, AA, LDA, RESET, ZERO )
1070 AS( I ) = AA( I )
1088 $ N, ALPHA, AA, LDA, BB, LDB )
1097 $ N, ALPHA, AA, LDA, BB, LDB )
1117 ISAME( 8 ) = LZE( AS, AA, LAA )
1244 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
1267 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1344 AA, LDA,
1388 AS( I ) = AA( I )
1409 CALL ZHERK( UPLO, TRANS, N, K, RALPHA, AA,
1417 CALL ZSYRK( UPLO, TRANS, N, K, ALPHA, AA,
1440 ISAME( 6 ) = LZE( AS, AA, LAA )
1576 $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
1600 COMPLEX*16 AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
1678 CALL ZMAKE( 'GE', ' ', ' ', MA, NA, AB, 2*NMAX, AA,
1681 CALL ZMAKE( 'GE', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1730 AS( I ) = AA( I )
1755 CALL ZHER2K( UPLO, TRANS, N, K, ALPHA, AA,
1763 CALL ZSYR2K( UPLO, TRANS, N, K, ALPHA, AA,
1782 ISAME( 6 ) = LZE( AS, AA, LAA )
2874 SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2878 * Stores the values in the array AA in the data structure required
2908 COMPLEX*16 A( NMAX, * ), AA( * )
2960 AA( I + ( J - 1 )*LDA ) = A( I, J )
2963 AA( I + ( J - 1 )*LDA ) = ROGUE
2984 AA( I + ( J - 1 )*LDA ) = ROGUE
2987 AA( I + ( J - 1 )*LDA ) = A( I, J )
2990 AA( I + ( J - 1 )*LDA ) = ROGUE
2994 AA( JJ ) = DCMPLX( DBLE( AA( JJ ) ), RROGUE )
3225 LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA )
3244 COMPLEX*16 AA( LDA, * ), AS( LDA, * )
3253 IF( AA( I, J ).NE.AS( I, J ) )
3267 IF( AA( I, J ).NE.AS( I, J ) )
3271 IF( AA( I, J ).NE.AS( I, J ) )
