Big-Data-HPC-Platform/plugins/eclblas/lib_eclblas.ecllib

/*##############################################################################

    HPCC SYSTEMS software Copyright (C) 2016 HPCC Systems®.

    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.
############################################################################## */

EXPORT blas_dimension_t  := UNSIGNED4;
EXPORT blas_value_t      := REAL8;
EXPORT blas_matrix_t     := SET OF REAL8;
EXPORT blas_Triangle     := ENUM(UNSIGNED1, Upper=1, Lower=2);
EXPORT blas_Diagonal     := ENUM(UNSIGNED1, UnitTri=1, NotUnitTri=2);
EXPORT blas_Side         := ENUM(UNSIGNED1, Ax=1, xA=2);


EXPORT eclblas := SERVICE : plugin('eclblasplugin'), library('eclblas'), namespace('eclblas'), CPP, PURE
  REAL8 dasum(blas_dimension_t m, const blas_matrix_t x, blas_dimension_t incx,
                blas_dimension_t skipped=0);
  SET OF REAL8 daxpy(blas_dimension_t N, blas_value_t alpha, const blas_matrix_t X,
                 blas_dimension_t incX, blas_matrix_t Y, blas_dimension_t incY,
                 blas_dimension_t x_skipped=0, blas_dimension_t y_skipped=0);
  SET OF REAL8 dgemm(BOOLEAN transposeA, BOOLEAN transposeB,
                 blas_dimension_t M, blas_dimension_t N, blas_dimension_t K,
                 blas_value_t alpha, const blas_matrix_t A, const blas_matrix_t B,
                 blas_value_t beta=0.0, const blas_matrix_t C=[]);
  SET OF REAL8 dgetf2(blas_dimension_t m, blas_dimension_t n, const blas_matrix_t a);
  SET OF REAL8 dpotf2(blas_Triangle tri, blas_dimension_t r, blas_matrix_t A, BOOLEAN clear=TRUE);
  SET OF REAL8 dscal(blas_dimension_t N, blas_value_t alpha, const blas_matrix_t X,
                 blas_dimension_t incX, blas_dimension_t skipped=0);
  SET OF REAL8 dsyrk(blas_Triangle tri, BOOLEAN transposeA, blas_dimension_t N,
                 blas_dimension_t K, blas_value_t alpha, const blas_matrix_t A,
                 blas_value_t beta, const blas_matrix_t C, BOOLEAN clear=FALSE);
  SET OF REAL8 dtrsm(blas_Side side, blas_Triangle tri,
                 BOOLEAN transposeA, blas_Diagonal diag,
                 blas_dimension_t M, blas_dimension_t N,  blas_dimension_t lda,
                 blas_value_t alpha, const blas_matrix_t A, const blas_matrix_t B);
  SET OF REAL8 extract_tri(blas_dimension_t m, blas_dimension_t n, blas_Triangle tri,
                       blas_Diagonal dt, const blas_matrix_t a);
  SET OF REAL8 make_diag(blas_dimension_t m, blas_value_t v=1.0, const blas_matrix_t X=[]);
END;