Lines Matching refs:AA
66 DOUBLE PRECISION AA( NMAX*NMAX ), AB( NMAX, 2*NMAX ),
280 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
286 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
292 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C )
297 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
303 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
358 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
379 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
456 CALL DMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
507 AS( I ) = AA( I )
529 $ AA, LDA, BB, LDB, BETA, CC, LDC )
547 ISAME( 7 ) = LDE( AS, AA, LAA )
639 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
660 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
749 CALL DMAKE( 'SY', UPLO, ' ', NA, NA, A, NMAX, AA, LDA,
774 AS( I ) = AA( I )
794 CALL DSYMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
812 ISAME( 6 ) = LDE( AS, AA, LAA )
908 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,
930 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1021 $ NMAX, AA, LDA, RESET, ZERO )
1041 AS( I ) = AA( I )
1059 $ N, ALPHA, AA, LDA, BB, LDB )
1068 $ N, ALPHA, AA, LDA, BB, LDB )
1088 ISAME( 8 ) = LDE( AS, AA, LAA )
1214 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
1235 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1309 CALL DMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
1337 AS( I ) = AA( I )
1353 CALL DSYRK( UPLO, TRANS, N, K, ALPHA, AA, LDA,
1371 ISAME( 6 ) = LDE( AS, AA, LAA )
1489 $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
1510 DOUBLE PRECISION AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
1585 CALL DMAKE( 'GE', ' ', ' ', MA, NA, AB, 2*NMAX, AA,
1588 CALL DMAKE( 'GE', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1629 AS( I ) = AA( I )
1649 CALL DSYR2K( UPLO, TRANS, N, K, ALPHA, AA, LDA,
1667 ISAME( 6 ) = LDE( AS, AA, LAA )
2344 SUBROUTINE DMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2348 * Stores the values in the array AA in the data structure required
2373 DOUBLE PRECISION A( NMAX, * ), AA( * )
2418 AA( I + ( J - 1 )*LDA ) = A( I, J )
2421 AA( I + ( J - 1 )*LDA ) = ROGUE
2442 AA( I + ( J - 1 )*LDA ) = ROGUE
2445 AA( I + ( J - 1 )*LDA ) = A( I, J )
2448 AA( I + ( J - 1 )*LDA ) = ROGUE
2611 LOGICAL FUNCTION LDERES( TYPE, UPLO, M, N, AA, AS, LDA )
2630 DOUBLE PRECISION AA( LDA, * ), AS( LDA, * )
2639 IF( AA( I, J ).NE.AS( I, J ) )
2653 AA( I, J ).NE.AS( I, J ) )
2657 IF( AA( I, J ).NE.AS( I, J ) )
