LAPACK 3.11.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
c_dblas1.c
Go to the documentation of this file.
1/*
2 * c_dblas1.c
3 *
4 * The program is a C wrapper for dcblat1.
5 *
6 * Written by Keita Teranishi. 2/11/1998
7 *
8 */
9#include "cblas_test.h"
10#include "cblas.h"
11double F77_dasum(const int *N, double *X, const int *incX)
12{
13 return cblas_dasum(*N, X, *incX);
14}
15
16void F77_daxpy(const int *N, const double *alpha, const double *X,
17 const int *incX, double *Y, const int *incY)
18{
19 cblas_daxpy(*N, *alpha, X, *incX, Y, *incY);
20 return;
21}
22
23void F77_dcopy(const int *N, double *X, const int *incX,
24 double *Y, const int *incY)
25{
26 cblas_dcopy(*N, X, *incX, Y, *incY);
27 return;
28}
29
30double F77_ddot(const int *N, const double *X, const int *incX,
31 const double *Y, const int *incY)
32{
33 return cblas_ddot(*N, X, *incX, Y, *incY);
34}
35
36double F77_dnrm2(const int *N, const double *X, const int *incX)
37{
38 return cblas_dnrm2(*N, X, *incX);
39}
40
41void F77_drotg( double *a, double *b, double *c, double *s)
42{
43 cblas_drotg(a,b,c,s);
44 return;
45}
46
47void F77_drot( const int *N, double *X, const int *incX, double *Y,
48 const int *incY, const double *c, const double *s)
49{
50
51 cblas_drot(*N,X,*incX,Y,*incY,*c,*s);
52 return;
53}
54
55void F77_dscal(const int *N, const double *alpha, double *X,
56 const int *incX)
57{
58 cblas_dscal(*N, *alpha, X, *incX);
59 return;
60}
61
62void F77_dswap( const int *N, double *X, const int *incX,
63 double *Y, const int *incY)
64{
65 cblas_dswap(*N,X,*incX,Y,*incY);
66 return;
67}
68
69double F77_dzasum(const int *N, void *X, const int *incX)
70{
71 return cblas_dzasum(*N, X, *incX);
72}
73
74double F77_dznrm2(const int *N, const void *X, const int *incX)
75{
76 return cblas_dznrm2(*N, X, *incX);
77}
78
79int F77_idamax(const int *N, const double *X, const int *incX)
80{
81 if (*N < 1 || *incX < 1) return(0);
82 return (cblas_idamax(*N, X, *incX)+1);
83}
double cblas_dnrm2(const CBLAS_INT N, const double *X, const CBLAS_INT incX)
Definition: cblas_dnrm2.c:12
double cblas_dzasum(const CBLAS_INT N, const void *X, const CBLAS_INT incX)
Definition: cblas_dzasum.c:12
double cblas_dasum(const CBLAS_INT N, const double *X, const CBLAS_INT incX)
Definition: cblas_dasum.c:12
void cblas_daxpy(const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT incX, double *Y, const CBLAS_INT incY)
Definition: cblas_daxpy.c:11
void cblas_dswap(const CBLAS_INT N, double *X, const CBLAS_INT incX, double *Y, const CBLAS_INT incY)
Definition: cblas_dswap.c:11
void cblas_dscal(const CBLAS_INT N, const double alpha, double *X, const CBLAS_INT incX)
Definition: cblas_dscal.c:11
double cblas_dznrm2(const CBLAS_INT N, const void *X, const CBLAS_INT incX)
Definition: cblas_dznrm2.c:12
CBLAS_INDEX cblas_idamax(const CBLAS_INT N, const double *X, const CBLAS_INT incX)
Definition: cblas_idamax.c:12
void cblas_dcopy(const CBLAS_INT N, const double *X, const CBLAS_INT incX, double *Y, const CBLAS_INT incY)
Definition: cblas_dcopy.c:11
double cblas_ddot(const CBLAS_INT N, const double *X, const CBLAS_INT incX, const double *Y, const CBLAS_INT incY)
Definition: cblas_ddot.c:12
void cblas_drotg(double *a, double *b, double *c, double *s)
Definition: cblas_drotg.c:11
void cblas_drot(const CBLAS_INT N, double *X, const CBLAS_INT incX, double *Y, const CBLAS_INT incY, const double c, const double s)
Definition: cblas_drot.c:11
#define F77_dscal(...)
Definition: cblas_f77.h:240
#define F77_drotg(...)
Definition: cblas_f77.h:231
#define F77_daxpy(...)
Definition: cblas_f77.h:236
#define F77_dswap(...)
Definition: cblas_f77.h:237
#define F77_drot(...)
Definition: cblas_f77.h:230
#define F77_dcopy(...)
Definition: cblas_f77.h:235
#define F77_dasum
Definition: cblas_test.h:68
#define F77_dzasum
Definition: cblas_test.h:72
#define F77_dznrm2
Definition: cblas_test.h:71
#define F77_idamax
Definition: cblas_test.h:43
#define F77_ddot
Definition: cblas_test.h:53
#define F77_dnrm2
Definition: cblas_test.h:67
#define N
Definition: example_user.c:10