LAPACK  3.8.0
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 }
int F77_icamax(const int *N, const void *X, const int *incX)
Definition: c_cblas1.c:60
void cblas_csscal(const int N, const float alpha, void *X, const int incX)
Definition: cblas_csscal.c:11
void F77_cdotu(const int *N, void *X, const int *incX, void *Y, const int *incY, void *dotu)
Definition: c_cblas1.c:32
void cblas_caxpy(const int N, const void *alpha, const void *X, const int incX, void *Y, const int incY)
Definition: cblas_caxpy.c:11
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 cblas_cswap(const int N, void *X, const int incX, void *Y, const int incY)
Definition: cblas_cswap.c:11
void F77_cdotc(const int *N, void *X, const int *incX, void *Y, const int *incY, void *dotc)
Definition: c_cblas1.c:25
CBLAS_INDEX cblas_icamax(const int N, const void *X, const int incX)
Definition: cblas_icamax.c:12
void F77_csscal(const int *N, const float *alpha, void *X, const int *incX)
Definition: c_cblas1.c:46
void cblas_cdotc_sub(const int N, const void *X, const int incX, const void *Y, const int incY, void *dotc)
float F77_scasum(const int *N, void *X, const int *incX)
Definition: c_cblas1.c:71
void cblas_ccopy(const int N, const void *X, const int incX, void *Y, const int incY)
Definition: cblas_ccopy.c:11
void cblas_cscal(const int N, const void *alpha, void *X, const int incX)
Definition: cblas_cscal.c:11
float cblas_scasum(const int N, const void *X, const int incX)
Definition: cblas_scasum.c:12
void F77_ccopy(const int *N, void *X, const int *incX, void *Y, const int *incY)
Definition: c_cblas1.c:18
void cblas_cdotu_sub(const int N, const void *X, const int incX, const void *Y, const int incY, void *dotu)
float cblas_scnrm2(const int N, const void *X, const int incX)
Definition: cblas_scnrm2.c:12
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_cscal(const int *N, const void **alpha, void *X, const int *incX)
Definition: c_cblas1.c:39
#define N
Definition: example_user.c:10