! Replaces ZHBMV   8 procedures


    ! Level 2 COMPLEX  ZHBMV

    ! .      alpha   beta  side  c

    ! 201     any    any    L    c < alpha a b + beta c
    ! 202     any    any         c < alpha a b + beta c
    ! 203     any    0.0    L    c < alpha a b
    ! 204     any    0.0         c < alpha a b
    ! 205     1.0    any    L    c < a b + beta c
    ! 206     1.0    any         c < a b + beta c
    ! 207     1.0    0.0    L    c < a b
    ! 208     1.0    0.0         c < a b


    MODULE zhbmv_01

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

        n = SIZE(c)
        k = SIZE(a,1) - 1
        CALL zhbmv('L',n,k,alpha,a,k+1,b,1,beta,c,1)
      END SUBROUTINE zhbmv_201
    END MODULE zhbmv_01

    MODULE zhbmv_02

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

        n = SIZE(c)
        k = SIZE(a,1) - 1
        CALL zhbmv('U',n,k,alpha,a,k+1,b,1,beta,c,1)
      END SUBROUTINE zhbmv_202
    END MODULE zhbmv_02

    MODULE zhbmv_03

    CONTAINS
      SUBROUTINE zhbmv_203(alpha,a,b,c,lower)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: zero = (0.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_lower_type), INTENT (IN) :: lower
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:), b(:)
        COMPLEX (wp), INTENT (INOUT) :: c(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL zhbmv

        n = SIZE(c)
        k = SIZE(a,1) - 1
        CALL zhbmv('L',n,k,alpha,a,k+1,b,1,zero,c,1)
      END SUBROUTINE zhbmv_203
    END MODULE zhbmv_03

    MODULE zhbmv_04

    CONTAINS
      SUBROUTINE zhbmv_204(alpha,a,b,c)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: zero = (0.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:), b(:)
        COMPLEX (wp), INTENT (INOUT) :: c(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL zhbmv

        n = SIZE(c)
        k = SIZE(a,1) - 1
        CALL zhbmv('U',n,k,alpha,a,k+1,b,1,zero,c,1)
      END SUBROUTINE zhbmv_204
    END MODULE zhbmv_04

    MODULE zhbmv_05

    CONTAINS
      SUBROUTINE zhbmv_205(a,b,beta,c,lower)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: beta
        TYPE (blas_lower_type), INTENT (IN) :: lower
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:), b(:)
        COMPLEX (wp), INTENT (INOUT) :: c(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL zhbmv

        n = SIZE(c)
        k = SIZE(a,1) - 1
        CALL zhbmv('L',n,k,one,a,k+1,b,1,beta,c,1)
      END SUBROUTINE zhbmv_205
    END MODULE zhbmv_05

    MODULE zhbmv_06

    CONTAINS
      SUBROUTINE zhbmv_206(a,b,beta,c)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: beta
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:), b(:)
        COMPLEX (wp), INTENT (INOUT) :: c(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL zhbmv

        n = SIZE(c)
        k = SIZE(a,1) - 1
        CALL zhbmv('U',n,k,one,a,k+1,b,1,beta,c,1)
      END SUBROUTINE zhbmv_206
    END MODULE zhbmv_06

    MODULE zhbmv_07

    CONTAINS
      SUBROUTINE zhbmv_207(a,b,c,lower)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: zero = (0.0_wp,0.0_wp)
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        TYPE (blas_lower_type), INTENT (IN) :: lower
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:), b(:)
        COMPLEX (wp), INTENT (INOUT) :: c(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL zhbmv

        n = SIZE(c)
        k = SIZE(a,1) - 1
        CALL zhbmv('L',n,k,one,a,k+1,b,1,zero,c,1)
      END SUBROUTINE zhbmv_207
    END MODULE zhbmv_07

    MODULE zhbmv_08

    CONTAINS
      SUBROUTINE zhbmv_208(a,b,c)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: zero = (0.0_wp,0.0_wp)
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:), b(:)
        COMPLEX (wp), INTENT (INOUT) :: c(:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL zhbmv

        n = SIZE(c)
        k = SIZE(a,1) - 1
        CALL zhbmv('U',n,k,one,a,k+1,b,1,zero,c,1)
      END SUBROUTINE zhbmv_208
    END MODULE zhbmv_08