LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
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"
11void F77_zaxpy(const CBLAS_INT *N, const void *alpha, void *X,
12 const CBLAS_INT *incX, void *Y, const CBLAS_INT *incY)
13{
14 cblas_zaxpy(*N, alpha, X, *incX, Y, *incY);
15 return;
16}
17
18void F77_zcopy(const CBLAS_INT *N, void *X, const CBLAS_INT *incX,
19 void *Y, const CBLAS_INT *incY)
20{
21 cblas_zcopy(*N, X, *incX, Y, *incY);
22 return;
23}
24
25void F77_zdotc(const CBLAS_INT *N, const void *X, const CBLAS_INT *incX,
26 const void *Y, const CBLAS_INT *incY,void *dotc)
27{
28 cblas_zdotc_sub(*N, X, *incX, Y, *incY, dotc);
29 return;
30}
31
32void F77_zdotu(const CBLAS_INT *N, void *X, const CBLAS_INT *incX,
33 void *Y, const CBLAS_INT *incY,void *dotu)
34{
35 cblas_zdotu_sub(*N, X, *incX, Y, *incY, dotu);
36 return;
37}
38
39void F77_zdscal(const CBLAS_INT *N, const double *alpha, void *X,
40 const CBLAS_INT *incX)
41{
42 cblas_zdscal(*N, *alpha, X, *incX);
43 return;
44}
45
46void F77_zscal(const CBLAS_INT *N, const void * *alpha, void *X,
47 const CBLAS_INT *incX)
48{
49 cblas_zscal(*N, alpha, X, *incX);
50 return;
51}
52
53void F77_zswap( const CBLAS_INT *N, void *X, const CBLAS_INT *incX,
54 void *Y, const CBLAS_INT *incY)
55{
56 cblas_zswap(*N,X,*incX,Y,*incY);
57 return;
58}
59
60CBLAS_INT F77_izamax(const CBLAS_INT *N, const void *X, const CBLAS_INT *incX)
61{
62 if (*N < 1 || *incX < 1) return(0);
63 return(cblas_izamax(*N, X, *incX)+1);
64}
65
66double F77_dznrm2(const CBLAS_INT *N, const void *X, const CBLAS_INT *incX)
67{
68 return cblas_dznrm2(*N, X, *incX);
69}
70
71double F77_dzasum(const CBLAS_INT *N, void *X, const CBLAS_INT *incX)
72{
73 return cblas_dzasum(*N, X, *incX);
74}
double cblas_dzasum(const CBLAS_INT N, const void *X, const CBLAS_INT incX)
CBLAS_INDEX cblas_izamax(const CBLAS_INT N, const void *X, const CBLAS_INT incX)
void cblas_zcopy(const CBLAS_INT N, const void *X, const CBLAS_INT incX, void *Y, const CBLAS_INT incY)
Definition cblas_zcopy.c:11
void cblas_zdotc_sub(const CBLAS_INT N, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *dotc)
void cblas_zdscal(const CBLAS_INT N, const double alpha, void *X, const CBLAS_INT incX)
double cblas_dznrm2(const CBLAS_INT N, const void *X, const CBLAS_INT incX)
#define CBLAS_INT
Definition cblas.h:24
void cblas_zscal(const CBLAS_INT N, const void *alpha, void *X, const CBLAS_INT incX)
Definition cblas_zscal.c:11
void cblas_zaxpy(const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, void *Y, const CBLAS_INT incY)
Definition cblas_zaxpy.c:11
void cblas_zdotu_sub(const CBLAS_INT N, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *dotu)
void cblas_zswap(const CBLAS_INT N, void *X, const CBLAS_INT incX, void *Y, const CBLAS_INT incY)
Definition cblas_zswap.c:11
#define F77_zscal(...)
Definition cblas_f77.h:287
#define F77_zdscal(...)
Definition cblas_f77.h:286
#define F77_zaxpy(...)
Definition cblas_f77.h:282
#define F77_zswap(...)
Definition cblas_f77.h:280
#define F77_zcopy(...)
Definition cblas_f77.h:281
#define F77_dzasum
Definition cblas_test.h:72
#define F77_dznrm2
Definition cblas_test.h:71
#define F77_izamax
Definition cblas_test.h:51
#define F77_zdotu
Definition cblas_test.h:63
#define F77_zdotc
Definition cblas_test.h:64