Lines Matching defs:AB
66 REAL AA( NMAX*NMAX ), AB( NMAX, 2*NMAX ),
200 AB( I, J ) = MAX( I - J + 1, 0 )
202 AB( J, NMAX + 1 ) = J
203 AB( 1, NMAX + J ) = J
213 CALL SMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
214 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
222 CALL SMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
223 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
231 AB( J, NMAX + 1 ) = N - J + 1
232 AB( 1, NMAX + J ) = N - J + 1
240 CALL SMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
241 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
249 CALL SMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
250 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
280 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
286 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
291 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
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 )
1489 $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
1510 REAL AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
1585 CALL SMAKE( 'GE', ' ', ' ', MA, NA, AB, 2*NMAX, AA,
1588 CALL SMAKE( 'GE', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1597 CALL SMAKE( 'GE', ' ', ' ', MA, NA, AB( K + 1 ),
1600 CALL SMAKE( 'GE', ' ', ' ', MA, NA, AB( K*NMAX + 1 ),
1710 W( I ) = AB( ( J - 1 )*2*NMAX + K +
1712 W( K + I ) = AB( ( J - 1 )*2*NMAX +
1716 $ ALPHA, AB( JJAB ), 2*NMAX,
1723 W( I ) = AB( ( K + I - 1 )*NMAX +
1725 W( K + I ) = AB( ( I - 1 )*NMAX +
1729 $ ALPHA, AB( JJ ), NMAX, W,
