499      $                   INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA,  local
553                   KU = KB( IKU )
554                   KL = MAX( KU - 1, 0 )
556                   KU = N - 1
561                   LDA = KL + KU + 1
577      $                     LDA, KL, KU, RESET, TRANSL )
638                               KUS = KU
669      $                              CTRANS, M, N, KL, KU, ALPHA, LDA,
674      $                                       KU, ALPHA, AA, LDA, XX,
709                                  ISAME( 5 ) = KUS.EQ.KU
791          WRITE( NOUT, FMT = 9995 )NC, SNAME, CTRANS, M, N, KL, KU,
2748      $                  KU, RESET, TRANSL )  argument
2775       INTEGER            KL, KU, LDA, M, N, NMAX  local
2803                IF( ( I.LE.J.AND.J - I.LE.KU ).OR.
2839             DO 60 I1 = 1, KU + 1 - J
2842             DO 70 I2 = I1, MIN( KL + KU + 1, KU + 1 + M - J )
2843                AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )