LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
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"
11void F77_caxpy(const CBLAS_INT *N, const void *alpha, void *X,
12 const CBLAS_INT *incX, void *Y, const CBLAS_INT *incY)
13{
14 cblas_caxpy(*N, alpha, X, *incX, Y, *incY);
15 return;
16}
17
18void F77_ccopy(const CBLAS_INT *N, void *X, const CBLAS_INT *incX,
19 void *Y, const CBLAS_INT *incY)
20{
21 cblas_ccopy(*N, X, *incX, Y, *incY);
22 return;
23}
24
25void F77_cdotc(const CBLAS_INT *N, void *X, const CBLAS_INT *incX,
26 void *Y, const CBLAS_INT *incY, void *dotc)
27{
28 cblas_cdotc_sub(*N, X, *incX, Y, *incY, dotc);
29 return;
30}
31
32void F77_cdotu(const CBLAS_INT *N, void *X, const CBLAS_INT *incX,
33 void *Y, const CBLAS_INT *incY,void *dotu)
34{
35 cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu);
36 return;
37}
38
39void F77_cscal(const CBLAS_INT *N, const void * *alpha, void *X,
40 const CBLAS_INT *incX)
41{
42 cblas_cscal(*N, alpha, X, *incX);
43 return;
44}
45
46void F77_csscal(const CBLAS_INT *N, const float *alpha, void *X,
47 const CBLAS_INT *incX)
48{
49 cblas_csscal(*N, *alpha, X, *incX);
50 return;
51}
52
53void F77_cswap( const CBLAS_INT *N, void *X, const CBLAS_INT *incX,
54 void *Y, const CBLAS_INT *incY)
55{
56 cblas_cswap(*N,X,*incX,Y,*incY);
57 return;
58}
59
60CBLAS_INT F77_icamax(const CBLAS_INT *N, const void *X, const CBLAS_INT *incX)
61{
62 if (*N < 1 || *incX < 1) return(0);
63 return (cblas_icamax(*N, X, *incX)+1);
64}
65
66float F77_scnrm2(const CBLAS_INT *N, const void *X, const CBLAS_INT *incX)
67{
68 return cblas_scnrm2(*N, X, *incX);
69}
70
71float F77_scasum(const CBLAS_INT *N, void *X, const CBLAS_INT *incX)
72{
73 return cblas_scasum(*N, X, *incX);
74}
float cblas_scasum(const CBLAS_INT N, const void *X, const CBLAS_INT incX)
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)
CBLAS_INDEX cblas_icamax(const CBLAS_INT N, const void *X, const CBLAS_INT incX)
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)
#define CBLAS_INT
Definition cblas.h:24
void cblas_csscal(const CBLAS_INT N, const float alpha, void *X, const CBLAS_INT incX)
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 F77_csscal(...)
Definition cblas_f77.h:272
#define F77_ccopy(...)
Definition cblas_f77.h:265
#define F77_caxpy(...)
Definition cblas_f77.h:266
#define F77_cswap(...)
Definition cblas_f77.h:264
#define F77_cscal(...)
Definition cblas_f77.h:270
#define F77_icamax
Definition cblas_test.h:47
#define F77_scasum
Definition cblas_test.h:70
#define F77_scnrm2
Definition cblas_test.h:69
#define F77_cdotu
Definition cblas_test.h:61
#define F77_cdotc
Definition cblas_test.h:62