MathFunctions.h 2.2 KB
Newer Older
1
/* Copyright (c) 2016 PaddlePaddle Authors. All Rights Reserve.
Z
zhangjinchao01 已提交
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

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 MATHFUNCTIONS_H_
#define MATHFUNCTIONS_H_

#ifdef PADDLE_USE_MKL
#include <mkl.h>
20
#ifdef PADDLE_USE_LAPACK
L
lzhao4ever 已提交
21
#include <mkl_lapacke.h>
L
Liu Yiqun 已提交
22
#endif
Z
zhangjinchao01 已提交
23 24 25 26
#else
extern "C" {
#include <cblas.h>
}
27
#ifdef PADDLE_USE_LAPACK
L
lzhao4ever 已提交
28 29 30 31 32 33 34
#ifdef PADDLE_USE_ATLAS
extern "C" {
#include <clapack.h>
}
#else
#include <lapacke.h>
#endif
Z
zhangjinchao01 已提交
35
#endif
L
Liu Yiqun 已提交
36
#endif
Z
zhangjinchao01 已提交
37

L
liaogang 已提交
38 39
#include <cmath>

Z
zhangjinchao01 已提交
40 41
namespace paddle {

42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69
template <class T>
void gemm(const CBLAS_TRANSPOSE transA,
          const CBLAS_TRANSPOSE transB,
          const int M,
          const int N,
          const int K,
          const T alpha,
          const T* A,
          const int lda,
          const T* B,
          const int ldb,
          const T beta,
          T* C,
          const int ldc);

template <class T>
int getrf(const CBLAS_ORDER Order,
          const int M,
          const int N,
          T* A,
          const int lda,
          int* ipiv);

template <class T>
int getri(
    const CBLAS_ORDER Order, const int N, T* A, const int lda, const int* ipiv);

template <class T>
Z
zhangjinchao01 已提交
70 71
void axpy(const int n, const T alpha, const T* x, T* y);

72
template <class T>
Z
zhangjinchao01 已提交
73 74
T dotProduct(const int n, const T* x, const T* y);

75
template <class T>
Z
zhangjinchao01 已提交
76 77
void vExp(const int n, const T* a, T* r);

78
template <class T>
Z
zhangjinchao01 已提交
79 80
void vPow(const int n, const T* a, const T b, T* r);

81
template <class T>
Z
zhangjinchao01 已提交
82 83
void vLog(const int n, const T* a, T* r);

84
template <class T>
Z
zhangjinchao01 已提交
85 86
void vAdd(const int n, const T* a, const T* b, T* r);

87
template <class T>
Z
zhangjinchao01 已提交
88 89
void vInvSqrt(const int n, const T* a, T* r);

90
template <class T>
Z
zhangjinchao01 已提交
91 92
void vLog1p(const int n, const T* a, T* r);

93
template <class T>
Z
zhangjinchao01 已提交
94 95 96 97 98
void vTanh(const int n, const T* a, T* r);

}  // namespace paddle

#endif  // MATHFUNCTIONS_H_