Lines Matching defs:AB
72 COMPLEX*16 AA( NMAX*NMAX ), AB( NMAX, 2*NMAX ),
208 AB( I, J ) = MAX( I - J + 1, 0 )
210 AB( J, NMAX + 1 ) = J
211 AB( 1, NMAX + J ) = J
221 CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
222 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
230 CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
231 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
239 AB( J, NMAX + 1 ) = N - J + 1
240 AB( 1, NMAX + J ) = N - J + 1
248 CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
249 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
257 CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
258 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
289 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
295 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
300 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
301 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C )
306 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
312 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
1576 $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
1600 COMPLEX*16 AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
1678 CALL ZMAKE( 'GE', ' ', ' ', MA, NA, AB, 2*NMAX, AA,
1681 CALL ZMAKE( 'GE', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1690 CALL ZMAKE( 'GE', ' ', ' ', MA, NA, AB( K + 1 ),
1693 CALL ZMAKE( 'GE', ' ', ' ', MA, NA, AB( K*NMAX + 1 ),
1834 W( I ) = ALPHA*AB( ( J - 1 )*2*
1838 $ AB( ( J - 1 )*2*
1842 $ AB( ( J - 1 )*2*
1847 $ ONE, AB( JJAB ), 2*NMAX, W,
1855 W( I ) = ALPHA*DCONJG( AB( ( K +
1858 $ AB( ( I - 1 )*NMAX +
1861 W( I ) = ALPHA*AB( ( K + I - 1 )*
1864 $ AB( ( I - 1 )*NMAX +
1869 $ AB( JJ ), NMAX, W, 2*NMAX,
