! Replaces ZTBSV  24 procedures


    ! Level 2 COMPLEX  (ZTBSV)

    ! .                         unit
    ! .     alpha  op_a  lower  diag  b

    ! 201    any    H      L     U    b < alpha a(-H) b
    ! 202    any    H      L          b < alpha a(-H) b
    ! 203    any    H            U    b < alpha a(-H) b
    ! 204    any    H                 b < alpha a(-H) b
    ! 205    any    T      L     U    b < alpha a(-T) b
    ! 206    any    T      L          b < alpha a(-T) b
    ! 207    any    T            U    b < alpha a(-T) b
    ! 208    any    T                 b < alpha a(-T) b
    ! 209    any           L     U    b < alpha a(-1) b
    ! 210    any           L          b < alpha a(-1) b
    ! 211    any                 U    b < alpha a(-1) b
    ! 212    any                      b < alpha a(-1) b
    ! 213    1.0    H      L     U    b < a(-H) b
    ! 214    1.0    H      L          b < a(-H) b
    ! 215    1.0    H            U    b < a(-H) b
    ! 216    1.0    H                 b < a(-H) b
    ! 217    1.0    T      L     U    b < a(-T) b
    ! 218    1.0    T      L          b < a(-T) b
    ! 219    1.0    T            U    b < a(-T) b
    ! 220    1.0    T                 b < a(-T) b
    ! 221    1.0           L     U    b < a(-1) b
    ! 222    1.0           L          b < a(-1) b
    ! 223    1.0                 U    b < a(-1) b
    ! 224    1.0                      b < a(-1) b


    MODULE ztbsv_01

    CONTAINS
      SUBROUTINE ztbsv_201(alpha,a,op_a,b,lower,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type, blas_unit_diag_type, &
         blas_conj_trans_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_conj_trans_type), INTENT (IN) :: op_a
        TYPE (blas_lower_type), INTENT (IN) :: lower
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL ztbsv

        n = SIZE(b)
        k = SIZE(a,1) - 1
        b = alpha*b
        CALL ztbsv('L','C','U',n,k,a,k+1,b,1)
      END SUBROUTINE ztbsv_201
    END MODULE ztbsv_01

    MODULE ztbsv_02

    CONTAINS
      SUBROUTINE ztbsv_202(alpha,a,op_a,b,lower)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type, blas_conj_trans_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_conj_trans_type), INTENT (IN) :: op_a
        TYPE (blas_lower_type), INTENT (IN) :: lower
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL ztbsv

        n = SIZE(b)
        k = SIZE(a,1) - 1
        b = alpha*b
        CALL ztbsv('L','C','N',n,k,a,k+1,b,1)
      END SUBROUTINE ztbsv_202
    END MODULE ztbsv_02

    MODULE ztbsv_03

    CONTAINS
      SUBROUTINE ztbsv_203(alpha,a,op_a,b,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_unit_diag_type, blas_conj_trans_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_conj_trans_type), INTENT (IN) :: op_a
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL ztbsv

        n = SIZE(b)
        k = SIZE(a,1) - 1
        b = alpha*b
        CALL ztbsv('U','C','U',n,k,a,k+1,b,1)
      END SUBROUTINE ztbsv_203
    END MODULE ztbsv_03

    MODULE ztbsv_04

    CONTAINS
      SUBROUTINE ztbsv_204(alpha,a,op_a,b)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_conj_trans_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_conj_trans_type), INTENT (IN) :: op_a
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL ztbsv

        n = SIZE(b)
        k = SIZE(a,1) - 1
        b = alpha*b
        CALL ztbsv('U','C','N',n,k,a,k+1,b,1)
      END SUBROUTINE ztbsv_204
    END MODULE ztbsv_04

    MODULE ztbsv_05

    CONTAINS
      SUBROUTINE ztbsv_205(alpha,a,op_a,b,lower,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type, blas_unit_diag_type, &
         blas_trans_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_trans_type), INTENT (IN) :: op_a
        TYPE (blas_lower_type), INTENT (IN) :: lower
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL ztbsv

        n = SIZE(b)
        k = SIZE(a,1) - 1
        b = alpha*b
        CALL ztbsv('L','T','U',n,k,a,k+1,b,1)
      END SUBROUTINE ztbsv_205
    END MODULE ztbsv_05

    MODULE ztbsv_06

    CONTAINS
      SUBROUTINE ztbsv_206(alpha,a,op_a,b,lower)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type, blas_trans_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_trans_type), INTENT (IN) :: op_a
        TYPE (blas_lower_type), INTENT (IN) :: lower
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL ztbsv

        n = SIZE(b)
        k = SIZE(a,1) - 1
        b = alpha*b
        CALL ztbsv('L','T','N',n,k,a,k+1,b,1)
      END SUBROUTINE ztbsv_206
    END MODULE ztbsv_06

    MODULE ztbsv_07

    CONTAINS
      SUBROUTINE ztbsv_207(alpha,a,op_a,b,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_unit_diag_type, blas_trans_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_trans_type), INTENT (IN) :: op_a
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL ztbsv

        n = SIZE(b)
        k = SIZE(a,1) - 1
        b = alpha*b
        CALL ztbsv('U','T','U',n,k,a,k+1,b,1)
      END SUBROUTINE ztbsv_207
    END MODULE ztbsv_07

    MODULE ztbsv_08

    CONTAINS
      SUBROUTINE ztbsv_208(alpha,a,op_a,b)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_trans_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_trans_type), INTENT (IN) :: op_a
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL ztbsv

        n = SIZE(b)
        k = SIZE(a,1) - 1
        b = alpha*b
        CALL ztbsv('U','T','N',n,k,a,k+1,b,1)
      END SUBROUTINE ztbsv_208
    END MODULE ztbsv_08

    MODULE ztbsv_09

    CONTAINS
      SUBROUTINE ztbsv_209(alpha,a,b,lower,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type, blas_unit_diag_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_lower_type), INTENT (IN) :: lower
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL ztbsv

        n = SIZE(b)
        k = SIZE(a,1) - 1
        b = alpha*b
        CALL ztbsv('L','N','U',n,k,a,k+1,b,1)
      END SUBROUTINE ztbsv_209
    END MODULE ztbsv_09

    MODULE ztbsv_10

    CONTAINS
      SUBROUTINE ztbsv_210(alpha,a,b,lower)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_lower_type), INTENT (IN) :: lower
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL ztbsv

        n = SIZE(b)
        k = SIZE(a,1) - 1
        b = alpha*b
        CALL ztbsv('L','N','N',n,k,a,k+1,b,1)
      END SUBROUTINE ztbsv_210
    END MODULE ztbsv_10

    MODULE ztbsv_11

    CONTAINS
      SUBROUTINE ztbsv_211(alpha,a,b,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_unit_diag_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL ztbsv

        n = SIZE(b)
        k = SIZE(a,1) - 1
        b = alpha*b
        CALL ztbsv('U','N','U',n,k,a,k+1,b,1)
      END SUBROUTINE ztbsv_211
    END MODULE ztbsv_11

    MODULE ztbsv_12

    CONTAINS
      SUBROUTINE ztbsv_212(alpha,a,b)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL ztbsv

        n = SIZE(b)
        k = SIZE(a,1) - 1
        b = alpha*b
        CALL ztbsv('U','N','N',n,k,a,k+1,b,1)
      END SUBROUTINE ztbsv_212
    END MODULE ztbsv_12

    MODULE ztbsv_13

    CONTAINS
      SUBROUTINE ztbsv_213(a,op_a,b,lower,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type, blas_unit_diag_type, &
         blas_conj_trans_type
        ! .. Scalar Arguments ..
        TYPE (blas_conj_trans_type), INTENT (IN) :: op_a
        TYPE (blas_lower_type), INTENT (IN) :: lower
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL ztbsv

        n = SIZE(b)
        k = SIZE(a,1) - 1
        CALL ztbsv('L','C','U',n,k,a,k+1,b,1)
      END SUBROUTINE ztbsv_213
    END MODULE ztbsv_13

    MODULE ztbsv_14

    CONTAINS
      SUBROUTINE ztbsv_214(a,op_a,b,lower)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type, blas_conj_trans_type
        ! .. Scalar Arguments ..
        TYPE (blas_conj_trans_type), INTENT (IN) :: op_a
        TYPE (blas_lower_type), INTENT (IN) :: lower
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL ztbsv

        n = SIZE(b)
        k = SIZE(a,1) - 1
        CALL ztbsv('L','C','N',n,k,a,k+1,b,1)
      END SUBROUTINE ztbsv_214
    END MODULE ztbsv_14

    MODULE ztbsv_15

    CONTAINS
      SUBROUTINE ztbsv_215(a,op_a,b,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_unit_diag_type, blas_conj_trans_type
        ! .. Scalar Arguments ..
        TYPE (blas_conj_trans_type), INTENT (IN) :: op_a
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL ztbsv

        n = SIZE(b)
        k = SIZE(a,1) - 1
        CALL ztbsv('U','C','U',n,k,a,k+1,b,1)
      END SUBROUTINE ztbsv_215
    END MODULE ztbsv_15

    MODULE ztbsv_16

    CONTAINS
      SUBROUTINE ztbsv_216(a,op_a,b)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_conj_trans_type
        ! .. Scalar Arguments ..
        TYPE (blas_conj_trans_type), INTENT (IN) :: op_a
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL ztbsv

        n = SIZE(b)
        k = SIZE(a,1) - 1
        CALL ztbsv('U','C','N',n,k,a,k+1,b,1)
      END SUBROUTINE ztbsv_216
    END MODULE ztbsv_16

    MODULE ztbsv_17

    CONTAINS
      SUBROUTINE ztbsv_217(a,op_a,b,lower,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type, blas_unit_diag_type, &
         blas_trans_type
        ! .. Scalar Arguments ..
        TYPE (blas_trans_type), INTENT (IN) :: op_a
        TYPE (blas_lower_type), INTENT (IN) :: lower
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL ztbsv

        n = SIZE(b)
        k = SIZE(a,1) - 1
        CALL ztbsv('L','T','U',n,k,a,k+1,b,1)
      END SUBROUTINE ztbsv_217
    END MODULE ztbsv_17

    MODULE ztbsv_18

    CONTAINS
      SUBROUTINE ztbsv_218(a,op_a,b,lower)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type, blas_trans_type
        ! .. Scalar Arguments ..
        TYPE (blas_trans_type), INTENT (IN) :: op_a
        TYPE (blas_lower_type), INTENT (IN) :: lower
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL ztbsv

        n = SIZE(b)
        k = SIZE(a,1) - 1
        CALL ztbsv('L','T','N',n,k,a,k+1,b,1)
      END SUBROUTINE ztbsv_218
    END MODULE ztbsv_18

    MODULE ztbsv_19

    CONTAINS
      SUBROUTINE ztbsv_219(a,op_a,b,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_unit_diag_type, blas_trans_type
        ! .. Scalar Arguments ..
        TYPE (blas_trans_type), INTENT (IN) :: op_a
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL ztbsv

        n = SIZE(b)
        k = SIZE(a,1) - 1
        CALL ztbsv('U','T','U',n,k,a,k+1,b,1)
      END SUBROUTINE ztbsv_219
    END MODULE ztbsv_19

    MODULE ztbsv_20

    CONTAINS
      SUBROUTINE ztbsv_220(a,op_a,b)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_trans_type
        ! .. Scalar Arguments ..
        TYPE (blas_trans_type), INTENT (IN) :: op_a
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL ztbsv

        n = SIZE(b)
        k = SIZE(a,1) - 1
        CALL ztbsv('U','T','N',n,k,a,k+1,b,1)
      END SUBROUTINE ztbsv_220
    END MODULE ztbsv_20

    MODULE ztbsv_21

    CONTAINS
      SUBROUTINE ztbsv_221(a,b,lower,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type, blas_unit_diag_type
        ! .. Scalar Arguments ..
        TYPE (blas_lower_type), INTENT (IN) :: lower
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL ztbsv

        n = SIZE(b)
        k = SIZE(a,1) - 1
        CALL ztbsv('L','N','U',n,k,a,k+1,b,1)
      END SUBROUTINE ztbsv_221
    END MODULE ztbsv_21

    MODULE ztbsv_22

    CONTAINS
      SUBROUTINE ztbsv_222(a,b,lower)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type
        ! .. Scalar Arguments ..
        TYPE (blas_lower_type), INTENT (IN) :: lower
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL ztbsv

        n = SIZE(b)
        k = SIZE(a,1) - 1
        CALL ztbsv('L','N','N',n,k,a,k+1,b,1)
      END SUBROUTINE ztbsv_222
    END MODULE ztbsv_22

    MODULE ztbsv_23

    CONTAINS
      SUBROUTINE ztbsv_223(a,b,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_unit_diag_type
        ! .. Scalar Arguments ..
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL ztbsv

        n = SIZE(b)
        k = SIZE(a,1) - 1
        CALL ztbsv('U','N','U',n,k,a,k+1,b,1)
      END SUBROUTINE ztbsv_223
    END MODULE ztbsv_23

    MODULE ztbsv_24

    CONTAINS
      SUBROUTINE ztbsv_224(a,b)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL ztbsv

        n = SIZE(b)
        k = SIZE(a,1) - 1
        CALL ztbsv('U','N','N',n,k,a,k+1,b,1)
      END SUBROUTINE ztbsv_224
    END MODULE ztbsv_24