498      $                   INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA,  local
552                   KU = KB( IKU )
553                   KL = MAX( KU - 1, 0 )
555                   KU = N - 1
560                   LDA = KL + KU + 1
576      $                     LDA, KL, KU, RESET, TRANSL )
637                               KUS = KU
668      $                              CTRANS, M, N, KL, KU, ALPHA, LDA,
673      $                                       KU, ALPHA, AA, LDA, XX,
708                                  ISAME( 5 ) = KUS.EQ.KU
790          WRITE( NOUT, FMT = 9995 )NC, SNAME, CTRANS, M, N, KL, KU,
2742      $                  KU, RESET, TRANSL )  argument
2768       INTEGER            KL, KU, LDA, M, N, NMAX  local
2796                IF( ( I.LE.J.AND.J - I.LE.KU ).OR.
2832             DO 60 I1 = 1, KU + 1 - J
2835             DO 70 I2 = I1, MIN( KL + KU + 1, KU + 1 + M - J )
2836                AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )