! Replaces ZSYMM  16 procedures

    ! Level 3 COMPLEX  (ZSYMM)

    ! .                           right
    ! .      alpha   beta  lower  side  c

    ! 301     any    any     L     R    c < alpha b a + beta c
    ! 302     any    any     L          c < alpha a b + beta c
    ! 303     any    any           R    c < alpha b a + beta c
    ! 304     any    any                c < alpha a b + beta c
    ! 305     any    0.0     L     R    c < alpha b a
    ! 306     any    0.0     L          c < alpha a b
    ! 307     any    0.0           R    c < alpha b a
    ! 308     any    0.0                c < alpha a b
    ! 309     1.0    any     L     R    c < b a + beta c
    ! 310     1.0    any     L          c < a b + beta c
    ! 311     1.0    any           R    c < b a + beta c
    ! 312     1.0    any                c < a b + beta c
    ! 313     1.0    0.0     L     R    c < b a
    ! 314     1.0    0.0     L          c < a b
    ! 315     1.0    0.0           R    c < b a
    ! 316     1.0    0.0                c < a b


    MODULE zsymm_01

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

        m = SIZE(c,1)
        n = SIZE(c,2)
        CALL zsymm('R','L',m,n,alpha,a,n,b,m,beta,c,m)
      END SUBROUTINE zsymm_301
    END MODULE zsymm_01

    MODULE zsymm_02

    CONTAINS
      SUBROUTINE zsymm_302(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 :: m, n
        ! .. External Procedures ..
        EXTERNAL zsymm

        m = SIZE(c,1)
        n = SIZE(c,2)
        CALL zsymm('L','L',m,n,alpha,a,m,b,m,beta,c,m)
      END SUBROUTINE zsymm_302
    END MODULE zsymm_02

    MODULE zsymm_03

    CONTAINS
      SUBROUTINE zsymm_303(alpha,a,b,beta,c,right_side)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha, beta
        TYPE (blas_right_type), INTENT (IN) :: right_side
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:), b(:,:)
        COMPLEX (wp), INTENT (INOUT) :: c(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL zsymm

        m = SIZE(c,1)
        n = SIZE(c,2)
        CALL zsymm('R','U',m,n,alpha,a,n,b,m,beta,c,m)
      END SUBROUTINE zsymm_303
    END MODULE zsymm_03

    MODULE zsymm_04

    CONTAINS
      SUBROUTINE zsymm_304(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 :: m, n
        ! .. External Procedures ..
        EXTERNAL zsymm

        m = SIZE(c,1)
        n = SIZE(c,2)
        CALL zsymm('L','U',m,n,alpha,a,m,b,m,beta,c,m)
      END SUBROUTINE zsymm_304
    END MODULE zsymm_04

    MODULE zsymm_05

    CONTAINS
      SUBROUTINE zsymm_305(alpha,a,b,c,lower,right_side)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type, 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
        TYPE (blas_right_type), INTENT (IN) :: right_side
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:), b(:,:)
        COMPLEX (wp), INTENT (INOUT) :: c(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL zsymm

        m = SIZE(c,1)
        n = SIZE(c,2)
        CALL zsymm('R','L',m,n,alpha,a,n,b,m,zero,c,m)
      END SUBROUTINE zsymm_305
    END MODULE zsymm_05

    MODULE zsymm_06

    CONTAINS
      SUBROUTINE zsymm_306(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 :: m, n
        ! .. External Procedures ..
        EXTERNAL zsymm

        m = SIZE(c,1)
        n = SIZE(c,2)
        CALL zsymm('L','L',m,n,alpha,a,m,b,m,zero,c,m)
      END SUBROUTINE zsymm_306
    END MODULE zsymm_06

    MODULE zsymm_07

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

        m = SIZE(c,1)
        n = SIZE(c,2)
        CALL zsymm('R','U',m,n,alpha,a,n,b,m,zero,c,m)
      END SUBROUTINE zsymm_307
    END MODULE zsymm_07

    MODULE zsymm_08

    CONTAINS
      SUBROUTINE zsymm_308(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 :: m, n
        ! .. External Procedures ..
        EXTERNAL zsymm

        m = SIZE(c,1)
        n = SIZE(c,2)
        CALL zsymm('L','U',m,n,alpha,a,m,b,m,zero,c,m)
      END SUBROUTINE zsymm_308
    END MODULE zsymm_08

    MODULE zsymm_09

    CONTAINS
      SUBROUTINE zsymm_309(a,b,beta,c,lower,right_side)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type, 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
        TYPE (blas_right_type), INTENT (IN) :: right_side
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:), b(:,:)
        COMPLEX (wp), INTENT (INOUT) :: c(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL zsymm

        m = SIZE(c,1)
        n = SIZE(c,2)
        CALL zsymm('R','L',m,n,one,a,n,b,m,beta,c,m)
      END SUBROUTINE zsymm_309
    END MODULE zsymm_09

    MODULE zsymm_10

    CONTAINS
      SUBROUTINE zsymm_310(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 :: m, n
        ! .. External Procedures ..
        EXTERNAL zsymm

        m = SIZE(c,1)
        n = SIZE(c,2)
        CALL zsymm('L','L',m,n,one,a,m,b,m,beta,c,m)
      END SUBROUTINE zsymm_310
    END MODULE zsymm_10

    MODULE zsymm_11

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

        m = SIZE(c,1)
        n = SIZE(c,2)
        CALL zsymm('R','U',m,n,one,a,n,b,m,beta,c,m)
      END SUBROUTINE zsymm_311
    END MODULE zsymm_11

    MODULE zsymm_12

    CONTAINS
      SUBROUTINE zsymm_312(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 :: m, n
        ! .. External Procedures ..
        EXTERNAL zsymm

        m = SIZE(c,1)
        n = SIZE(c,2)
        CALL zsymm('L','U',m,n,one,a,m,b,m,beta,c,m)
      END SUBROUTINE zsymm_312
    END MODULE zsymm_12

    MODULE zsymm_13

    CONTAINS
      SUBROUTINE zsymm_313(a,b,c,lower,right_side)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type, 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
        TYPE (blas_right_type), INTENT (IN) :: right_side
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:), b(:,:)
        COMPLEX (wp), INTENT (INOUT) :: c(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL zsymm

        m = SIZE(c,1)
        n = SIZE(c,2)
        CALL zsymm('R','L',m,n,one,a,n,b,m,zero,c,m)
      END SUBROUTINE zsymm_313
    END MODULE zsymm_13

    MODULE zsymm_14

    CONTAINS
      SUBROUTINE zsymm_314(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 :: m, n
        ! .. External Procedures ..
        EXTERNAL zsymm

        m = SIZE(c,1)
        n = SIZE(c,2)
        CALL zsymm('L','L',m,n,one,a,m,b,m,zero,c,m)
      END SUBROUTINE zsymm_314
    END MODULE zsymm_14

    MODULE zsymm_15

    CONTAINS
      SUBROUTINE zsymm_315(a,b,c,right_side)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_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_right_type), INTENT (IN) :: right_side
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:), b(:,:)
        COMPLEX (wp), INTENT (INOUT) :: c(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL zsymm

        m = SIZE(c,1)
        n = SIZE(c,2)
        CALL zsymm('R','U',m,n,one,a,n,b,m,zero,c,m)
      END SUBROUTINE zsymm_315
    END MODULE zsymm_15

    MODULE zsymm_16

    CONTAINS
      SUBROUTINE zsymm_316(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)
        ! .. Scalar Arguments ..
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:), b(:,:)
        COMPLEX (wp), INTENT (INOUT) :: c(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL zsymm

        m = SIZE(c,1)
        n = SIZE(c,2)
        CALL zsymm('L','U',m,n,one,a,m,b,m,zero,c,m)
      END SUBROUTINE zsymm_316
    END MODULE zsymm_16