packages/CudaUtils/cuda_utils/BLAS_host.cc
/*!
 * \brief Internal function to convert to CUDA enum
 */
\brief Internal function to convert to CUDA enum
\ brief Internal function to convert to CUDA enum
inline Teuchos::ETransp transpose_convert(const cuda::Transpose t)
{
    Teuchos::ETransp result = Teuchos::NO_TRANS;
    switch (t)
    {
        case cuda::NO_TRANS:   result = Teuchos::NO_TRANS;   break;
        case cuda::TRANS:      result = Teuchos::TRANS;      break;
        case cuda::CONJ_TRANS: result = Teuchos::CONJ_TRANS; break;
        default:
            CHECK(0);
    }
    return result;
}
inline Teuchos :: ETransp transpose_convert ( const cuda :: Transpose t ) { Teuchos :: ETransp result = Teuchos :: NO_TRANS ; switch ( t ) { case cuda :: NO_TRANS : result = Teuchos :: NO_TRANS ; break ; case cuda :: TRANS : result = Teuchos :: TRANS ; break ; case cuda :: CONJ_TRANS : result = Teuchos :: CONJ_TRANS ; break ; default : CHECK ( 0 ) ; } return result ; }
\brief Internal function to convert to CUDA enum
\ brief Internal function to convert to CUDA enum