LAPACK  3.10.1
LAPACK: Linear Algebra PACKage
c_cblas1.c
Go to the documentation of this file.
1 /*
2  * c_cblas1.c
3  *
4  * The program is a C wrapper for ccblat1.
5  *
6  * Written by Keita Teranishi. 2/11/1998
7  *
8  */
9 #include "cblas_test.h"
10 #include "cblas.h"
11 void F77_caxpy(const int *N, const void *alpha, void *X,
12  const int *incX, void *Y, const int *incY)
13 {
14  cblas_caxpy(*N, alpha, X, *incX, Y, *incY);
15  return;
16 }
17 
18 void F77_ccopy(const int *N, void *X, const int *incX,
19  void *Y, const int *incY)
20 {
21  cblas_ccopy(*N, X, *incX, Y, *incY);
22  return;
23 }
24 
25 void F77_cdotc(const int *N, void *X, const int *incX,
26  void *Y, const int *incY, void *dotc)
27 {
28  cblas_cdotc_sub(*N, X, *incX, Y, *incY, dotc);
29  return;
30 }
31 
32 void F77_cdotu(const int *N, void *X, const int *incX,
33  void *Y, const int *incY,void *dotu)
34 {
35  cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu);
36  return;
37 }
38 
39 void F77_cscal(const int *N, const void * *alpha, void *X,
40  const int *incX)
41 {
42  cblas_cscal(*N, alpha, X, *incX);
43  return;
44 }
45 
46 void F77_csscal(const int *N, const float *alpha, void *X,
47  const int *incX)
48 {
49  cblas_csscal(*N, *alpha, X, *incX);
50  return;
51 }
52 
53 void F77_cswap( const int *N, void *X, const int *incX,
54  void *Y, const int *incY)
55 {
56  cblas_cswap(*N,X,*incX,Y,*incY);
57  return;
58 }
59 
60 int F77_icamax(const int *N, const void *X, const int *incX)
61 {
62  if (*N < 1 || *incX < 1) return(0);
63  return (cblas_icamax(*N, X, *incX)+1);
64 }
65 
66 float F77_scnrm2(const int *N, const void *X, const int *incX)
67 {
68  return cblas_scnrm2(*N, X, *incX);
69 }
70 
71 float F77_scasum(const int *N, void *X, const int *incX)
72 {
73  return cblas_scasum(*N, X, *incX);
74 }
void F77_cdotc(const int *N, void *X, const int *incX, void *Y, const int *incY, void *dotc)
Definition: c_cblas1.c:25
void F77_cdotu(const int *N, void *X, const int *incX, void *Y, const int *incY, void *dotu)
Definition: c_cblas1.c:32
float F77_scnrm2(const int *N, const void *X, const int *incX)
Definition: c_cblas1.c:66
void F77_cswap(const int *N, void *X, const int *incX, void *Y, const int *incY)
Definition: c_cblas1.c:53
void F77_ccopy(const int *N, void *X, const int *incX, void *Y, const int *incY)
Definition: c_cblas1.c:18
void F77_cscal(const int *N, const void **alpha, void *X, const int *incX)
Definition: c_cblas1.c:39
float F77_scasum(const int *N, void *X, const int *incX)
Definition: c_cblas1.c:71
int F77_icamax(const int *N, const void *X, const int *incX)
Definition: c_cblas1.c:60
void F77_caxpy(const int *N, const void *alpha, void *X, const int *incX, void *Y, const int *incY)
Definition: c_cblas1.c:11
void F77_csscal(const int *N, const float *alpha, void *X, const int *incX)
Definition: c_cblas1.c:46
float cblas_scasum(const CBLAS_INT N, const void *X, const CBLAS_INT incX)
Definition: cblas_scasum.c:12
void cblas_cscal(const CBLAS_INT N, const void *alpha, void *X, const CBLAS_INT incX)
Definition: cblas_cscal.c:11
void cblas_ccopy(const CBLAS_INT N, const void *X, const CBLAS_INT incX, void *Y, const CBLAS_INT incY)
Definition: cblas_ccopy.c:11
float cblas_scnrm2(const CBLAS_INT N, const void *X, const CBLAS_INT incX)
Definition: cblas_scnrm2.c:12
CBLAS_INDEX cblas_icamax(const CBLAS_INT N, const void *X, const CBLAS_INT incX)
Definition: cblas_icamax.c:12
void cblas_caxpy(const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, void *Y, const CBLAS_INT incY)
Definition: cblas_caxpy.c:11
void cblas_cdotu_sub(const CBLAS_INT N, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *dotu)
void cblas_csscal(const CBLAS_INT N, const float alpha, void *X, const CBLAS_INT incX)
Definition: cblas_csscal.c:11
void cblas_cswap(const CBLAS_INT N, void *X, const CBLAS_INT incX, void *Y, const CBLAS_INT incY)
Definition: cblas_cswap.c:11
void cblas_cdotc_sub(const CBLAS_INT N, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *dotc)
#define N
Definition: example_user.c:10