473      $                   INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA,  local
526                   KU = KB( IKU )
527                   KL = MAX( KU - 1, 0 )
529                   KU = N - 1
534                   LDA = KL + KU + 1
550      $                     LDA, KL, KU, RESET, TRANSL )
604                               KUS = KU
635      $                              TRANS, M, N, KL, KU, ALPHA, LDA,
639                                  CALL CGBMV( TRANS, M, N, KL, KU, ALPHA,
674                                  ISAME( 5 ) = KUS.EQ.KU
755          WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANS, M, N, KL, KU,
2718      $                  KU, RESET, TRANSL )  argument
2744       INTEGER            KL, KU, LDA, M, N, NMAX  local
2772                IF( ( I.LE.J.AND.J - I.LE.KU ).OR.
2808             DO 60 I1 = 1, KU + 1 - J
2811             DO 70 I2 = I1, MIN( KL + KU + 1, KU + 1 + M - J )
2812                AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )