floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Set visibility of internal symbols to hidden

This commit is contained in:
Martin Kroeker 2022-06-22 23:23:02 +02:00 committed by GitHub
parent 41d37b816d
commit 92557c6feb
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
31 changed files with 205 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
driver/level2/gbmv_k.c
View File

@ -48,7 +48,11 @@
#define M n
#endif
void CNAME(BLASLONG m, BLASLONG n, BLASLONG ku, BLASLONG kl, FLOAT alpha,
void
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, BLASLONG n, BLASLONG ku, BLASLONG kl, FLOAT alpha,
FLOAT *a, BLASLONG lda,
FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, void *buffer){

12
driver/level2/gbmv_thread.c
View File

@ -170,9 +170,17 @@ static int gbmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F
}
#ifndef COMPLEX
int CNAME(BLASLONG m, BLASLONG n, BLASLONG ku, BLASLONG kl, FLOAT alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *buffer, int nthreads){
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, BLASLONG n, BLASLONG ku, BLASLONG kl, FLOAT alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *buffer, int nthreads){
#else
int CNAME(BLASLONG m, BLASLONG n, BLASLONG ku, BLASLONG kl, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *buffer, int nthreads){
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, BLASLONG n, BLASLONG ku, BLASLONG kl, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *buffer, int nthreads){
#endif
blas_arg_t args;

12
driver/level2/gemv_thread.c
View File

@ -154,9 +154,17 @@ static int gemv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F
}
#ifndef COMPLEX
int CNAME(BLASLONG m, BLASLONG n, FLOAT alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *buffer, int nthreads){
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, BLASLONG n, FLOAT alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *buffer, int nthreads){
#else
int CNAME(BLASLONG m, BLASLONG n, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *buffer, int nthreads){
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, BLASLONG n, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *buffer, int nthreads){
#endif
blas_arg_t args;

12
driver/level2/ger_thread.c
View File

@ -111,9 +111,17 @@ static int ger_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL
}
#ifndef COMPLEX
int CNAME(BLASLONG m, BLASLONG n, FLOAT alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *a, BLASLONG lda, FLOAT *buffer, int nthreads){
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, BLASLONG n, FLOAT alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *a, BLASLONG lda, FLOAT *buffer, int nthreads){
#else
int CNAME(BLASLONG m, BLASLONG n, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *a, BLASLONG lda, FLOAT *buffer, int nthreads){
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, BLASLONG n, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *a, BLASLONG lda, FLOAT *buffer, int nthreads){
#endif
blas_arg_t args;

6
driver/level2/sbgemv_thread.c
View File

@ -82,7 +82,11 @@ static int sbgemv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n,
return 0;
}
int CNAME(BLASLONG m, BLASLONG n, float alpha, bfloat16 *a, BLASLONG lda, bfloat16 *x, BLASLONG incx, float beta, float *y, BLASLONG incy, int threads)
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, BLASLONG n, float alpha, bfloat16 *a, BLASLONG lda, bfloat16 *x, BLASLONG incx, float beta, float *y, BLASLONG incy, int threads)
{
blas_arg_t args;
blas_queue_t queue[MAX_CPU_NUMBER];

6
driver/level2/sbmv_k.c
View File

@ -40,7 +40,11 @@
#include <ctype.h>
#include "common.h"
int CNAME(BLASLONG n, BLASLONG k, FLOAT alpha,
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG n, BLASLONG k, FLOAT alpha,
FLOAT *a, BLASLONG lda,
FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, void *buffer){

12
driver/level2/sbmv_thread.c
View File

@ -171,9 +171,17 @@ static int sbmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F
}
#ifndef COMPLEX
int CNAME(BLASLONG n, BLASLONG k, FLOAT alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *buffer, int nthreads){
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG n, BLASLONG k, FLOAT alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *buffer, int nthreads){
#else
int CNAME(BLASLONG n, BLASLONG k, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *buffer, int nthreads){
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG n, BLASLONG k, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *buffer, int nthreads){
#endif
blas_arg_t args;

6
driver/level2/spmv_k.c
View File

@ -40,7 +40,11 @@
#include <ctype.h>
#include "common.h"
int CNAME(BLASLONG m, FLOAT alpha, FLOAT *a,
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT alpha, FLOAT *a,
FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, void *buffer){
BLASLONG i;

12
driver/level2/spmv_thread.c
View File

@ -174,9 +174,17 @@ static int spmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F
}
#ifndef COMPLEX
int CNAME(BLASLONG m, FLOAT alpha, FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *buffer, int nthreads){
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT alpha, FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *buffer, int nthreads){
#else
int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *buffer, int nthreads){
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *buffer, int nthreads){
#endif
blas_arg_t args;

6
driver/level2/spr2_k.c
View File

@ -40,7 +40,11 @@
#include <ctype.h>
#include "common.h"
int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT *x, BLASLONG incx,
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT alpha_r, FLOAT *x, BLASLONG incx,
FLOAT *y, BLASLONG incy, FLOAT *a, FLOAT *buffer){
BLASLONG i;

12
driver/level2/spr2_thread.c
View File

@ -213,9 +213,17 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL
}
#ifndef COMPLEX
int CNAME(BLASLONG m, FLOAT alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *a, FLOAT *buffer, int nthreads){
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *a, FLOAT *buffer, int nthreads){
#else
int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *a, FLOAT *buffer, int nthreads){
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *a, FLOAT *buffer, int nthreads){
#endif
blas_arg_t args;

6
driver/level2/spr_k.c
View File

@ -38,7 +38,11 @@
#include "common.h"
int CNAME(BLASLONG m, FLOAT alpha_r,
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT alpha_r,
FLOAT *x, BLASLONG incx, FLOAT *a, FLOAT *buffer){
BLASLONG i;

12
driver/level2/spr_thread.c
View File

@ -150,9 +150,17 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL
}
#if !defined(COMPLEX) || defined(HEMV) || defined(HEMVREV)
int CNAME(BLASLONG m, FLOAT alpha, FLOAT *x, BLASLONG incx, FLOAT *a, FLOAT *buffer, int nthreads){
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT alpha, FLOAT *x, BLASLONG incx, FLOAT *a, FLOAT *buffer, int nthreads){
#else
int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, FLOAT *buffer, int nthreads){
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, FLOAT *buffer, int nthreads){
#endif
blas_arg_t args;

12
driver/level2/symv_thread.c
View File

@ -108,9 +108,17 @@ static int symv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F
}
#ifndef COMPLEX
int CNAME(BLASLONG m, FLOAT alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *buffer, int nthreads){
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *buffer, int nthreads){
#else
int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *buffer, int nthreads){
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *buffer, int nthreads){
#endif
blas_arg_t args;

6
driver/level2/syr2_k.c
View File

@ -40,7 +40,11 @@
#include <ctype.h>
#include "common.h"
int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT *x, BLASLONG incx,
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT alpha_r, FLOAT *x, BLASLONG incx,
FLOAT *y, BLASLONG incy, FLOAT *a, BLASLONG lda, FLOAT *buffer){
BLASLONG i;

12
driver/level2/syr2_thread.c
View File

@ -202,9 +202,17 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL
}
#ifndef COMPLEX
int CNAME(BLASLONG m, FLOAT alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *a, BLASLONG lda, FLOAT *buffer, int nthreads){
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *a, BLASLONG lda, FLOAT *buffer, int nthreads){
#else
int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *a, BLASLONG lda, FLOAT *buffer, int nthreads){
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *a, BLASLONG lda, FLOAT *buffer, int nthreads){
#endif
blas_arg_t args;

6
driver/level2/syr_k.c
View File

@ -38,7 +38,11 @@
#include "common.h"
int CNAME(BLASLONG m, FLOAT alpha_r,
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT alpha_r,
FLOAT *x, BLASLONG incx, FLOAT *a, BLASLONG lda, FLOAT *buffer){
BLASLONG i;

12
driver/level2/syr_thread.c
View File

@ -142,9 +142,17 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL
}
#if !defined(COMPLEX) || defined(HER) || defined(HERREV)
int CNAME(BLASLONG m, FLOAT alpha, FLOAT *x, BLASLONG incx, FLOAT *a, BLASLONG lda, FLOAT *buffer, int nthreads){
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT alpha, FLOAT *x, BLASLONG incx, FLOAT *a, BLASLONG lda, FLOAT *buffer, int nthreads){
#else
int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, BLASLONG lda, FLOAT *buffer, int nthreads){
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, BLASLONG lda, FLOAT *buffer, int nthreads){
#endif
blas_arg_t args;

6
driver/level2/zgbmv_k.c
View File

@ -66,7 +66,11 @@
#define M n
#endif
void CNAME(BLASLONG m, BLASLONG n, BLASLONG ku, BLASLONG kl, FLOAT alpha_r, FLOAT alpha_i,
void
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, BLASLONG n, BLASLONG ku, BLASLONG kl, FLOAT alpha_r, FLOAT alpha_i,
FLOAT *a, BLASLONG lda,
FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, void *buffer){

6
driver/level2/zhbmv_k.c
View File

@ -40,7 +40,11 @@
#include <ctype.h>
#include "common.h"
int CNAME(BLASLONG n, BLASLONG k, FLOAT alpha_r, FLOAT alpha_i,
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG n, BLASLONG k, FLOAT alpha_r, FLOAT alpha_i,
FLOAT *a, BLASLONG lda,
FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, void *buffer){

6
driver/level2/zher2_k.c
View File

@ -40,7 +40,11 @@
#include <ctype.h>
#include "common.h"
int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i,
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i,
FLOAT *x, BLASLONG incx,
FLOAT *y, BLASLONG incy, FLOAT *a, BLASLONG lda, FLOAT *buffer){

6
driver/level2/zher_k.c
View File

@ -38,7 +38,11 @@
#include "common.h"
int CNAME(BLASLONG m, FLOAT alpha, FLOAT *x,
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT alpha, FLOAT *x,
BLASLONG incx, FLOAT *a, BLASLONG lda, FLOAT *buffer){
BLASLONG i;

6
driver/level2/zhpmv_k.c
View File

@ -40,7 +40,11 @@
#include <ctype.h>
#include "common.h"
int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i,
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i,
FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, void *buffer){
BLASLONG i;

6
driver/level2/zhpr2_k.c
View File

@ -40,7 +40,11 @@
#include <ctype.h>
#include "common.h"
int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i,
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i,
FLOAT *x, BLASLONG incx,
FLOAT *y, BLASLONG incy, FLOAT *a, FLOAT *buffer){

6
driver/level2/zhpr_k.c
View File

@ -38,7 +38,11 @@
#include "common.h"
int CNAME(BLASLONG m, FLOAT alpha, FLOAT *x,
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT alpha, FLOAT *x,
BLASLONG incx, FLOAT *a, FLOAT *buffer){
BLASLONG i;

6
driver/level2/zsbmv_k.c
View File

@ -40,7 +40,11 @@
#include <ctype.h>
#include "common.h"
int CNAME(BLASLONG n, BLASLONG k, FLOAT alpha_r, FLOAT alpha_i,
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG n, BLASLONG k, FLOAT alpha_r, FLOAT alpha_i,
FLOAT *a, BLASLONG lda,
FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, void *buffer){

6
driver/level2/zspmv_k.c
View File

@ -40,7 +40,11 @@
#include <ctype.h>
#include "common.h"
int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i,
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i,
FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, void *buffer){
BLASLONG i;

6
driver/level2/zspr2_k.c
View File

@ -40,7 +40,11 @@
#include <ctype.h>
#include "common.h"
int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, FLOAT *x, BLASLONG incx,
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, FLOAT *x, BLASLONG incx,
FLOAT *y, BLASLONG incy, FLOAT *a, FLOAT *buffer){
BLASLONG i;

6
driver/level2/zspr_k.c
View File

@ -38,7 +38,11 @@
#include "common.h"
int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i,
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i,
FLOAT *x, BLASLONG incx, FLOAT *a, FLOAT *buffer){
BLASLONG i;

6
driver/level2/zsyr2_k.c
View File

@ -40,7 +40,11 @@
#include <ctype.h>
#include "common.h"
int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, FLOAT *x, BLASLONG incx,
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, FLOAT *x, BLASLONG incx,
FLOAT *y, BLASLONG incy, FLOAT *a, BLASLONG lda, FLOAT *buffer){
BLASLONG i;

6
driver/level2/zsyr_k.c
View File

@ -38,7 +38,11 @@
#include "common.h"
int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i,
int
#ifndef C_MSVC
__attribute__((visibility("hidden")))
#endif
CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i,
FLOAT *x, BLASLONG incx, FLOAT *a, BLASLONG lda, FLOAT *buffer){
BLASLONG i;