! Replaces ZSYRK  16 procedures

    ! Level 3 COMPLEX  (ZSYRK)

    ! .      alpha   op_a  beta  lower  c

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

    MODULE zsyrk_01

    CONTAINS
      SUBROUTINE zsyrk_301(alpha,a,op_a,beta,c,lower)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_trans_type, blas_lower_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha, beta
        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) :: c(:,:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL zsyrk

        n = SIZE(c,1)
        k = SIZE(a,1)
        CALL zsyrk('L','T',n,k,alpha,a,k,beta,c,n)
      END SUBROUTINE zsyrk_301
    END MODULE zsyrk_01

    MODULE zsyrk_02

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

        n = SIZE(c,1)
        k = SIZE(a,1)
        CALL zsyrk('U','T',n,k,alpha,a,k,beta,c,n)
      END SUBROUTINE zsyrk_302
    END MODULE zsyrk_02

    MODULE zsyrk_03

    CONTAINS
      SUBROUTINE zsyrk_303(alpha,a,op_a,c,lower)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_trans_type, blas_lower_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: zero = (0.0_wp,0.0_wp)
        ! .. 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) :: c(:,:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL zsyrk

        n = SIZE(c,1)
        k = SIZE(a,1)
        CALL zsyrk('L','T',n,k,alpha,a,k,zero,c,n)
      END SUBROUTINE zsyrk_303
    END MODULE zsyrk_03

    MODULE zsyrk_04

    CONTAINS
      SUBROUTINE zsyrk_304(alpha,a,op_a,c)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_trans_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: zero = (0.0_wp,0.0_wp)
        ! .. 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) :: c(:,:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL zsyrk

        n = SIZE(c,1)
        k = SIZE(a,1)
        CALL zsyrk('U','T',n,k,alpha,a,k,zero,c,n)
      END SUBROUTINE zsyrk_304
    END MODULE zsyrk_04

    MODULE zsyrk_05

    CONTAINS
      SUBROUTINE zsyrk_305(alpha,a,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(:,:)
        COMPLEX (wp), INTENT (INOUT) :: c(:,:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL zsyrk

        n = SIZE(c,1)
        k = SIZE(a,2)
        CALL zsyrk('L','N',n,k,alpha,a,n,beta,c,n)
      END SUBROUTINE zsyrk_305
    END MODULE zsyrk_05

    MODULE zsyrk_06

    CONTAINS
      SUBROUTINE zsyrk_306(alpha,a,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(:,:)
        COMPLEX (wp), INTENT (INOUT) :: c(:,:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL zsyrk

        n = SIZE(c,1)
        k = SIZE(a,2)
        CALL zsyrk('U','N',n,k,alpha,a,n,beta,c,n)
      END SUBROUTINE zsyrk_306
    END MODULE zsyrk_06

    MODULE zsyrk_07

    CONTAINS
      SUBROUTINE zsyrk_307(alpha,a,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(:,:)
        COMPLEX (wp), INTENT (INOUT) :: c(:,:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL zsyrk

        n = SIZE(c,1)
        k = SIZE(a,2)
        CALL zsyrk('L','N',n,k,alpha,a,n,zero,c,n)
      END SUBROUTINE zsyrk_307
    END MODULE zsyrk_07

    MODULE zsyrk_08

    CONTAINS
      SUBROUTINE zsyrk_308(alpha,a,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(:,:)
        COMPLEX (wp), INTENT (INOUT) :: c(:,:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL zsyrk

        n = SIZE(c,1)
        k = SIZE(a,2)
        CALL zsyrk('U','N',n,k,alpha,a,n,zero,c,n)
      END SUBROUTINE zsyrk_308
    END MODULE zsyrk_08

    MODULE zsyrk_09

    CONTAINS
      SUBROUTINE zsyrk_309(a,op_a,beta,c,lower)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_trans_type, blas_lower_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: beta
        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) :: c(:,:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL zsyrk

        n = SIZE(c,1)
        k = SIZE(a,1)
        CALL zsyrk('L','T',n,k,one,a,k,beta,c,n)
      END SUBROUTINE zsyrk_309
    END MODULE zsyrk_09

    MODULE zsyrk_10

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

        n = SIZE(c,1)
        k = SIZE(a,1)
        CALL zsyrk('U','T',n,k,one,a,k,beta,c,n)
      END SUBROUTINE zsyrk_310
    END MODULE zsyrk_10

    MODULE zsyrk_11

    CONTAINS
      SUBROUTINE zsyrk_311(a,op_a,c,lower)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_trans_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_trans_type), INTENT (IN) :: op_a
        TYPE (blas_lower_type), INTENT (IN) :: lower
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: c(:,:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL zsyrk

        n = SIZE(c,1)
        k = SIZE(a,1)
        CALL zsyrk('L','T',n,k,one,a,k,zero,c,n)
      END SUBROUTINE zsyrk_311
    END MODULE zsyrk_11

    MODULE zsyrk_12

    CONTAINS
      SUBROUTINE zsyrk_312(a,op_a,c)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_trans_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_trans_type), INTENT (IN) :: op_a
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: c(:,:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL zsyrk

        n = SIZE(c,1)
        k = SIZE(a,1)
        CALL zsyrk('U','T',n,k,one,a,k,zero,c,n)
      END SUBROUTINE zsyrk_312
    END MODULE zsyrk_12

    MODULE zsyrk_13

    CONTAINS
      SUBROUTINE zsyrk_313(a,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(:,:)
        COMPLEX (wp), INTENT (INOUT) :: c(:,:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL zsyrk

        n = SIZE(c,1)
        k = SIZE(a,2)
        CALL zsyrk('L','N',n,k,one,a,n,beta,c,n)
      END SUBROUTINE zsyrk_313
    END MODULE zsyrk_13

    MODULE zsyrk_14

    CONTAINS
      SUBROUTINE zsyrk_314(a,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(:,:)
        COMPLEX (wp), INTENT (INOUT) :: c(:,:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL zsyrk

        n = SIZE(c,1)
        k = SIZE(a,2)
        CALL zsyrk('U','N',n,k,one,a,n,beta,c,n)
      END SUBROUTINE zsyrk_314
    END MODULE zsyrk_14

    MODULE zsyrk_15

    CONTAINS
      SUBROUTINE zsyrk_315(a,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(:,:)
        COMPLEX (wp), INTENT (INOUT) :: c(:,:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL zsyrk

        n = SIZE(c,1)
        k = SIZE(a,2)
        CALL zsyrk('L','N',n,k,one,a,n,zero,c,n)
      END SUBROUTINE zsyrk_315
    END MODULE zsyrk_15

    MODULE zsyrk_16

    CONTAINS
      SUBROUTINE zsyrk_316(a,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(:,:)
        COMPLEX (wp), INTENT (INOUT) :: c(:,:)
        ! .. Local Scalar ..
        INTEGER :: k, n
        ! .. External Procedures ..
        EXTERNAL zsyrk

        n = SIZE(c,1)
        k = SIZE(a,2)
        CALL zsyrk('U','N',n,k,one,a,n,zero,c,n)
      END SUBROUTINE zsyrk_316
    END MODULE zsyrk_16