Lines Matching refs:AA
71 COMPLEX AA( NMAX*NMAX ), AB( NMAX, 2*NMAX ),
288 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
294 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
300 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C )
305 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
311 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
368 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
391 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
470 CALL CMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
521 AS( I ) = AA( I )
543 $ AA, LDA, BB, LDB, BETA, CC, LDC )
561 ISAME( 7 ) = LCE( AS, AA, LAA )
653 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
676 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
768 $ AA, LDA, RESET, ZERO )
792 AS( I ) = AA( I )
813 CALL CHEMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
816 CALL CSYMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
835 ISAME( 6 ) = LCE( AS, AA, LAA )
931 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,
955 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1048 $ NMAX, AA, LDA, RESET, ZERO )
1068 AS( I ) = AA( I )
1086 $ N, ALPHA, AA, LDA, BB, LDB )
1095 $ N, ALPHA, AA, LDA, BB, LDB )
1115 ISAME( 8 ) = LCE( AS, AA, LAA )
1242 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
1265 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1342 CALL CMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
1386 AS( I ) = AA( I )
1407 CALL CHERK( UPLO, TRANS, N, K, RALPHA, AA,
1415 CALL CSYRK( UPLO, TRANS, N, K, ALPHA, AA,
1438 ISAME( 6 ) = LCE( AS, AA, LAA )
1574 $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
1597 COMPLEX AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
1675 CALL CMAKE( 'GE', ' ', ' ', MA, NA, AB, 2*NMAX, AA,
1678 CALL CMAKE( 'GE', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1727 AS( I ) = AA( I )
1752 CALL CHER2K( UPLO, TRANS, N, K, ALPHA, AA,
1760 CALL CSYR2K( UPLO, TRANS, N, K, ALPHA, AA,
1779 ISAME( 6 ) = LCE( AS, AA, LAA )
2871 SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2875 * Stores the values in the array AA in the data structure required
2904 COMPLEX A( NMAX, * ), AA( * )
2956 AA( I + ( J - 1 )*LDA ) = A( I, J )
2959 AA( I + ( J - 1 )*LDA ) = ROGUE
2980 AA( I + ( J - 1 )*LDA ) = ROGUE
2983 AA( I + ( J - 1 )*LDA ) = A( I, J )
2986 AA( I + ( J - 1 )*LDA ) = ROGUE
2990 AA( JJ ) = CMPLX( REAL( AA( JJ ) ), RROGUE )
3219 LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA )
3238 COMPLEX AA( LDA, * ), AS( LDA, * )
3247 IF( AA( I, J ).NE.AS( I, J ) )
3261 IF( AA( I, J ).NE.AS( I, J ) )
3265 IF( AA( I, J ).NE.AS( I, J ) )
