! Replaces DSYR  8 procedures

    ! .      alpha    beta  lower  c

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


    MODULE dsyr_01

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

        n = SIZE(a)
        IF (beta/=one) c = beta*c
        CALL dsyr('L',n,alpha,a,1,c,n)
      END SUBROUTINE dsyr_201
    END MODULE dsyr_01

    MODULE dsyr_02

    CONTAINS
      SUBROUTINE dsyr_202(alpha,a,beta,c)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        ! .. Parameters ..
        REAL (wp), PARAMETER :: one = 1.0_wp
        ! .. Scalar Arguments ..
        REAL (wp), INTENT (IN) :: alpha, beta
        ! .. Array Arguments ..
        REAL (wp), INTENT (IN) :: a(:)
        REAL (wp), INTENT (INOUT) :: c(:,:)
        ! .. Local Scalar ..
        INTEGER :: n
        ! .. External Procedures ..
        EXTERNAL dsyr

        n = SIZE(a)
        IF (beta/=one) c = beta*c
        CALL dsyr('U',n,alpha,a,1,c,n)
      END SUBROUTINE dsyr_202
    END MODULE dsyr_02

    MODULE dsyr_03

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

        n = SIZE(a)
        c = zero
        CALL dsyr('L',n,alpha,a,1,c,n)
      END SUBROUTINE dsyr_203
    END MODULE dsyr_03

    MODULE dsyr_04

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

        n = SIZE(a)
        c = zero
        CALL dsyr('U',n,alpha,a,1,c,n)
      END SUBROUTINE dsyr_204
    END MODULE dsyr_04

    MODULE dsyr_05

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

        n = SIZE(a)
        IF (beta/=one) c = beta*c
        CALL dsyr('L',n,one,a,1,c,n)
      END SUBROUTINE dsyr_205
    END MODULE dsyr_05

    MODULE dsyr_06

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

        n = SIZE(a)
        IF (beta/=one) c = beta*c
        CALL dsyr('U',n,one,a,1,c,n)
      END SUBROUTINE dsyr_206
    END MODULE dsyr_06

    MODULE dsyr_07

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

        n = SIZE(a)
        c = zero
        CALL dsyr('L',n,one,a,1,c,n)
      END SUBROUTINE dsyr_207
    END MODULE dsyr_07

    MODULE dsyr_08

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

        n = SIZE(a)
        c = zero
        CALL dsyr('U',n,one,a,1,c,n)
      END SUBROUTINE dsyr_208
    END MODULE dsyr_08