Lines Matching defs:AA
112 DOUBLE PRECISION AA( NMAX*NMAX ), AB( NMAX, 2*NMAX ),
319 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
325 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
331 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C )
336 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
342 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
397 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
418 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
495 CALL DMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
546 AS( I ) = AA( I )
568 $ AA, LDA, BB, LDB, BETA, CC, LDC )
586 ISAME( 7 ) = LDE( AS, AA, LAA )
678 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
699 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
788 CALL DMAKE( 'SY', UPLO, ' ', NA, NA, A, NMAX, AA, LDA,
813 AS( I ) = AA( I )
833 CALL DSYMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
851 ISAME( 6 ) = LDE( AS, AA, LAA )
947 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,
969 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1060 $ NMAX, AA, LDA, RESET, ZERO )
1080 AS( I ) = AA( I )
1098 $ N, ALPHA, AA, LDA, BB, LDB )
1107 $ N, ALPHA, AA, LDA, BB, LDB )
1127 ISAME( 8 ) = LDE( AS, AA, LAA )
1253 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
1274 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1348 CALL DMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
1376 AS( I ) = AA( I )
1392 CALL DSYRK( UPLO, TRANS, N, K, ALPHA, AA, LDA,
1410 ISAME( 6 ) = LDE( AS, AA, LAA )
1528 $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
1549 DOUBLE PRECISION AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
1624 CALL DMAKE( 'GE', ' ', ' ', MA, NA, AB, 2*NMAX, AA,
1627 CALL DMAKE( 'GE', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1668 AS( I ) = AA( I )
1688 CALL DSYR2K( UPLO, TRANS, N, K, ALPHA, AA, LDA,
1706 ISAME( 6 ) = LDE( AS, AA, LAA )
2395 SUBROUTINE DMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2399 * Stores the values in the array AA in the data structure required
2424 DOUBLE PRECISION A( NMAX, * ), AA( * )
2469 AA( I + ( J - 1 )*LDA ) = A( I, J )
2472 AA( I + ( J - 1 )*LDA ) = ROGUE
2493 AA( I + ( J - 1 )*LDA ) = ROGUE
2496 AA( I + ( J - 1 )*LDA ) = A( I, J )
2499 AA( I + ( J - 1 )*LDA ) = ROGUE
2662 AA, AS, LDA )
2681 DOUBLE PRECISION AA( LDA, * ), AS( LDA, * )
2690 IF( AA( I, J ).NE.AS( I, J ) )
2704 IF( AA( I, J ).NE.AS( I, J ) )
2708 IF( AA( I, J ).NE.AS( I, J ) )
