72       COMPLEX*16         AA( NMAX*NMAX ), AB( NMAX, 2*NMAX ),  variable
222             AB( I, J ) = MAX( I - J + 1, 0 )
224          AB( J, NMAX + 1 ) = J
225          AB( 1, NMAX + J ) = J
235       CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
236      $            AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
244       CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
245      $            AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
253          AB( J, NMAX + 1 ) = N - J + 1
254          AB( 1, NMAX + J ) = N - J + 1
262       CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
263      $            AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
271       CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
272      $            AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
304      $                 NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
310      $                 NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
318      $                 NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
324      $                 NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
331      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
332      $                 AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C,
337      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
338      $                 AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C,
346      $                 NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
352      $                 NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
360      $                 NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
366      $                 NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
1853      $                  AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,  argument
1877       COMPLEX*16         AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),  local
1955                   CALL ZMAKE( 'ge', ' ', ' ', MA, NA, AB, 2*NMAX, AA,
1958                  CALL ZMAKE( 'ge', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1967                   CALL ZMAKE( 'ge', ' ', ' ', MA, NA, AB( K + 1 ),
1970                   CALL ZMAKE( 'ge', ' ', ' ', MA, NA, AB( K*NMAX + 1 ),
2115                                     W( I ) = ALPHA*AB( ( J - 1 )*2*
2119      $                                              AB( ( J - 1 )*2*
2123      $                                              AB( ( J - 1 )*2*
2128      $                                      ONE, AB( JJAB ), 2*NMAX, W,
2136                                        W( I ) = ALPHA*DCONJG( AB( ( K +
2139      $                                             AB( ( I - 1 )*NMAX +
2142                                       W( I ) = ALPHA*AB( ( K + I - 1 )*
2145      $                                             AB( ( I - 1 )*NMAX +
2150      $                                       AB( JJ ), NMAX, W, 2*NMAX,