MODULE blas_keywords
      ! Module for defining BLAS keywords
      PRIVATE
      PUBLIC :: blas_trans, blas_trans_type, blas_conj, blas_conj_type, &
       blas_conj_trans, blas_conj_trans_type, blas_lower, blas_lower_type, &
       blas_right, blas_right_type, blas_unit_diag, blas_unit_diag_type


      ! .. Derived Type Declarations ..
      TYPE :: blas_trans_type
        PRIVATE
        INTEGER :: dummy
      END TYPE blas_trans_type
      TYPE :: blas_conj_type
        PRIVATE
        INTEGER :: dummy
      END TYPE blas_conj_type
      TYPE :: blas_conj_trans_type
        PRIVATE
        INTEGER :: dummy
      END TYPE blas_conj_trans_type
      TYPE :: blas_lower_type
        PRIVATE
        INTEGER :: dummy
      END TYPE blas_lower_type
      TYPE :: blas_right_type
        PRIVATE
        INTEGER :: dummy
      END TYPE blas_right_type
      TYPE :: blas_unit_diag_type
        PRIVATE
        INTEGER :: dummy
      END TYPE blas_unit_diag_type

      ! .. Dependents ..
      TYPE (blas_trans_type), PARAMETER :: blas_trans = blas_trans_type(1)
      TYPE (blas_conj_type), PARAMETER :: blas_conj = blas_conj_type(1)
      TYPE (blas_conj_trans_type), PARAMETER :: blas_conj_trans = &
       blas_conj_trans_type(1)
      TYPE (blas_lower_type), PARAMETER :: blas_lower = blas_lower_type(1)
      TYPE (blas_right_type), PARAMETER :: blas_right = blas_right_type(1)
      TYPE (blas_unit_diag_type), PARAMETER :: blas_unit_diag = &
       blas_unit_diag_type(1)
    END MODULE blas_keywords