Lines Matching refs:AA
66 REAL AA( NMAX*NMAX ), AB( NMAX, 2*NMAX ),
296 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
302 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
310 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
316 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
324 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C,
330 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C,
338 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
344 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
352 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
358 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
418 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G,
440 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
517 CALL SMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
568 AS( I ) = AA( I )
590 $ K, ALPHA, AA, LDA, BB, LDB,
609 ISAME( 7 ) = LSE( AS, AA, LAA )
746 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G,
768 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
857 CALL SMAKE( 'SY', UPLO, ' ', NA, NA, A, NMAX, AA, LDA,
882 AS( I ) = AA( I )
904 $ AA, LDA, BB, LDB, BETA, CC, LDC )
921 ISAME( 6 ) = LSE( AS, AA, LAA )
1056 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,
1078 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1169 $ NMAX, AA, LDA, RESET, ZERO )
1189 AS( I ) = AA( I )
1207 $ DIAG, M, N, ALPHA, AA, LDA,
1217 $ DIAG, M, N, ALPHA, AA, LDA,
1238 ISAME( 8 ) = LSE( AS, AA, LAA )
1415 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G,
1437 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1511 CALL SMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
1539 AS( I ) = AA( I )
1556 $ AA, LDA, BETA, CC, LDC )
1573 ISAME( 6 ) = LSE( AS, AA, LAA )
1732 $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
1754 REAL AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
1829 CALL SMAKE( 'GE', ' ', ' ', MA, NA, AB, 2*NMAX, AA,
1832 CALL SMAKE( 'GE', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1873 AS( I ) = AA( I )
1894 $ AA, LDA, BB, LDB, BETA, CC, LDC )
1911 ISAME( 6 ) = LSE( AS, AA, LAA )
2086 SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2090 * Stores the values in the array AA in the data structure required
2115 REAL A( NMAX, * ), AA( * )
2160 AA( I + ( J - 1 )*LDA ) = A( I, J )
2163 AA( I + ( J - 1 )*LDA ) = ROGUE
2184 AA( I + ( J - 1 )*LDA ) = ROGUE
2187 AA( I + ( J - 1 )*LDA ) = A( I, J )
2190 AA( I + ( J - 1 )*LDA ) = ROGUE
2353 LOGICAL FUNCTION LSERES( TYPE, UPLO, M, N, AA, AS, LDA )
2372 REAL AA( LDA, * ), AS( LDA, * )
2381 IF( AA( I, J ).NE.AS( I, J ) )
2395 IF( AA( I, J ).NE.AS( I, J ) )
2399 IF( AA( I, J ).NE.AS( I, J ) )