LAPACK  3.6.1
LAPACK: Linear Algebra PACKage
c_zblas1.c
Go to the documentation of this file.
1 /*
2  * c_zblas1.c
3  *
4  * The program is a C wrapper for zcblat1.
5  *
6  * Written by Keita Teranishi. 2/11/1998
7  *
8  */
9 #include "cblas_test.h"
10 #include "cblas.h"
11 void F77_zaxpy(const int *N, const void *alpha, void *X,
12  const int *incX, void *Y, const int *incY)
13 {
14  cblas_zaxpy(*N, alpha, X, *incX, Y, *incY);
15  return;
16 }
17 
18 void F77_zcopy(const int *N, void *X, const int *incX,
19  void *Y, const int *incY)
20 {
21  cblas_zcopy(*N, X, *incX, Y, *incY);
22  return;
23 }
24 
25 void F77_zdotc(const int *N, const void *X, const int *incX,
26  const void *Y, const int *incY,void *dotc)
27 {
28  cblas_zdotc_sub(*N, X, *incX, Y, *incY, dotc);
29  return;
30 }
31 
32 void F77_zdotu(const int *N, void *X, const int *incX,
33  void *Y, const int *incY,void *dotu)
34 {
35  cblas_zdotu_sub(*N, X, *incX, Y, *incY, dotu);
36  return;
37 }
38 
39 void F77_zdscal(const int *N, const double *alpha, void *X,
40  const int *incX)
41 {
42  cblas_zdscal(*N, *alpha, X, *incX);
43  return;
44 }
45 
46 void F77_zscal(const int *N, const void * *alpha, void *X,
47  const int *incX)
48 {
49  cblas_zscal(*N, alpha, X, *incX);
50  return;
51 }
52 
53 void F77_zswap( const int *N, void *X, const int *incX,
54  void *Y, const int *incY)
55 {
56  cblas_zswap(*N,X,*incX,Y,*incY);
57  return;
58 }
59 
60 int F77_izamax(const int *N, const void *X, const int *incX)
61 {
62  if (*N < 1 || *incX < 1) return(0);
63  return(cblas_izamax(*N, X, *incX)+1);
64 }
65 
66 double F77_dznrm2(const int *N, const void *X, const int *incX)
67 {
68  return cblas_dznrm2(*N, X, *incX);
69 }
70 
71 double F77_dzasum(const int *N, void *X, const int *incX)
72 {
73  return cblas_dzasum(*N, X, *incX);
74 }
CBLAS_INDEX cblas_izamax(const int N, const void *X, const int incX)
Definition: cblas_izamax.c:12
void F77_zdotu(const int *N, void *X, const int *incX, void *Y, const int *incY, void *dotu)
Definition: c_zblas1.c:32
void F77_zswap(const int *N, void *X, const int *incX, void *Y, const int *incY)
Definition: c_zblas1.c:53
void cblas_zswap(const int N, void *X, const int incX, void *Y, const int incY)
Definition: cblas_zswap.c:11
void F77_zaxpy(const int *N, const void *alpha, void *X, const int *incX, void *Y, const int *incY)
Definition: c_zblas1.c:11
double cblas_dzasum(const int N, const void *X, const int incX)
Definition: cblas_dzasum.c:12
void F77_zdscal(const int *N, const double *alpha, void *X, const int *incX)
Definition: c_zblas1.c:39
void cblas_zdscal(const int N, const double alpha, void *X, const int incX)
Definition: cblas_zdscal.c:11
void F77_zscal(const int *N, const void **alpha, void *X, const int *incX)
Definition: c_zblas1.c:46
void cblas_zdotu_sub(const int N, const void *X, const int incX, const void *Y, const int incY, void *dotu)
int F77_izamax(const int *N, const void *X, const int *incX)
Definition: c_zblas1.c:60
void cblas_zscal(const int N, const void *alpha, void *X, const int incX)
Definition: cblas_zscal.c:11
double F77_dzasum(const int *N, void *X, const int *incX)
Definition: c_zblas1.c:71
void cblas_zcopy(const int N, const void *X, const int incX, void *Y, const int incY)
Definition: cblas_zcopy.c:11
void F77_zcopy(const int *N, void *X, const int *incX, void *Y, const int *incY)
Definition: c_zblas1.c:18
void cblas_zaxpy(const int N, const void *alpha, const void *X, const int incX, void *Y, const int incY)
Definition: cblas_zaxpy.c:11
void F77_zdotc(const int *N, const void *X, const int *incX, const void *Y, const int *incY, void *dotc)
Definition: c_zblas1.c:25
double cblas_dznrm2(const int N, const void *X, const int incX)
Definition: cblas_dznrm2.c:12
void cblas_zdotc_sub(const int N, const void *X, const int incX, const void *Y, const int incY, void *dotc)
double F77_dznrm2(const int *N, const void *X, const int *incX)
Definition: c_zblas1.c:66
#define N
Definition: example_user.c:10