hl_cpu_scalar.cuh

/* Copyright (c) 2016 PaddlePaddle Authors. All Rights Reserve.

Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at

    http://www.apache.org/licenses/LICENSE-2.0

Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License. */

#ifndef HL_CPU_SCALAR_CUH_
#define HL_CPU_SCALAR_CUH_

#define VECTOR_SIMD false
#define VECTOR_SET  hl_vec_set

#ifndef PADDLE_TYPE_DOUBLE
/* size of float */
#define VECTOR_SIZE 4
#else
/* size of double */
#define VECTOR_SIZE 8
#endif

typedef real vecType;

/* Consider a real as a vector */
#define VECTOR_LEN  1

template <class Agg>
inline real hl_agg_op(Agg agg, vecType mm) {
  return mm;
}

INLINE real hl_vec_set(const real r) {
  return r;
}

INLINE real hl_vec_max(const real a, const real b) {
  return a > b ? a : b;
}

INLINE real hl_vec_min(const real a, const real b) {
  return a > b ? b : a;
}

INLINE real hl_vec_add(const real a, const real b) {
  return a + b;
}

INLINE real hl_vec_sub(const real a, const real b) {
  return a - b;
}

INLINE real hl_vec_mul(const real a, const real b) {
  return a * b;
}

INLINE real hl_vec_div(const real a, const real b) {
  return a / b;
}

INLINE real hl_vec_classification_error(const real a,
                                        const real b,
                                        const real p,
                                        const real r) {
  return ((a > p) == (b > p)) ? 0.0f : 1.0f;
}

#endif  // HL_CPU_SCALAR_CUH_