Lines Matching defs:AA
117 COMPLEX AA( NMAX*NMAX ), AB( NMAX, 2*NMAX ),
327 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
333 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
339 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C )
344 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
350 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
407 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
430 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
509 CALL CMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
560 AS( I ) = AA( I )
582 $ AA, LDA, BB, LDB, BETA, CC, LDC )
600 ISAME( 7 ) = LCE( AS, AA, LAA )
692 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
715 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
807 $ AA, LDA, RESET, ZERO )
831 AS( I ) = AA( I )
852 CALL CHEMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
855 CALL CSYMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
874 ISAME( 6 ) = LCE( AS, AA, LAA )
970 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,
994 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1087 $ NMAX, AA, LDA, RESET, ZERO )
1107 AS( I ) = AA( I )
1125 $ N, ALPHA, AA, LDA, BB, LDB )
1134 $ N, ALPHA, AA, LDA, BB, LDB )
1154 ISAME( 8 ) = LCE( AS, AA, LAA )
1281 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
1304 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1381 CALL CMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
1425 AS( I ) = AA( I )
1446 CALL CHERK( UPLO, TRANS, N, K, RALPHA, AA,
1454 CALL CSYRK( UPLO, TRANS, N, K, ALPHA, AA,
1477 ISAME( 6 ) = LCE( AS, AA, LAA )
1613 $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
1636 COMPLEX AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
1714 CALL CMAKE( 'GE', ' ', ' ', MA, NA, AB, 2*NMAX, AA,
1717 CALL CMAKE( 'GE', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1766 AS( I ) = AA( I )
1791 CALL CHER2K( UPLO, TRANS, N, K, ALPHA, AA,
1799 CALL CSYR2K( UPLO, TRANS, N, K, ALPHA, AA,
1818 ISAME( 6 ) = LCE( AS, AA, LAA )
2925 SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2929 * Stores the values in the array AA in the data structure required
2958 COMPLEX A( NMAX, * ), AA( * )
3010 AA( I + ( J - 1 )*LDA ) = A( I, J )
3013 AA( I + ( J - 1 )*LDA ) = ROGUE
3034 AA( I + ( J - 1 )*LDA ) = ROGUE
3037 AA( I + ( J - 1 )*LDA ) = A( I, J )
3040 AA( I + ( J - 1 )*LDA ) = ROGUE
3044 AA( JJ ) = CMPLX( REAL( AA( JJ ) ), RROGUE )
3273 LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA )
3292 COMPLEX AA( LDA, * ), AS( LDA, * )
3301 IF( AA( I, J ).NE.AS( I, J ) )
3315 IF( AA( I, J ).NE.AS( I, J ) )
3319 IF( AA( I, J ).NE.AS( I, J ) )
