LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
c_sblas1.c
Go to the documentation of this file.
1/*
2 * c_sblas1.c
3 *
4 * The program is a C wrapper for scblat1.
5 *
6 * Written by Keita Teranishi. 2/11/1998
7 *
8 */
9#include "cblas_test.h"
10#include "cblas.h"
11float F77_sasum(const CBLAS_INT *N, float *X, const CBLAS_INT *incX)
12{
13 return cblas_sasum(*N, X, *incX);
14}
15
16void F77_saxpy(const CBLAS_INT *N, const float *alpha, const float *X,
17 const CBLAS_INT *incX, float *Y, const CBLAS_INT *incY)
18{
19 cblas_saxpy(*N, *alpha, X, *incX, Y, *incY);
20 return;
21}
22
23float F77_scasum(const CBLAS_INT *N, void *X, const CBLAS_INT *incX)
24{
25 return cblas_scasum(*N, X, *incX);
26}
27
28float F77_scnrm2(const CBLAS_INT *N, const void *X, const CBLAS_INT *incX)
29{
30 return cblas_scnrm2(*N, X, *incX);
31}
32
33void F77_scopy(const CBLAS_INT *N, const float *X, const CBLAS_INT *incX,
34 float *Y, const CBLAS_INT *incY)
35{
36 cblas_scopy(*N, X, *incX, Y, *incY);
37 return;
38}
39
40float F77_sdot(const CBLAS_INT *N, const float *X, const CBLAS_INT *incX,
41 const float *Y, const CBLAS_INT *incY)
42{
43 return cblas_sdot(*N, X, *incX, Y, *incY);
44}
45
46float F77_snrm2(const CBLAS_INT *N, const float *X, const CBLAS_INT *incX)
47{
48 return cblas_snrm2(*N, X, *incX);
49}
50
51void F77_srotg( float *a, float *b, float *c, float *s)
52{
53 cblas_srotg(a,b,c,s);
54 return;
55}
56
57void F77_srot( const CBLAS_INT *N, float *X, const CBLAS_INT *incX, float *Y,
58 const CBLAS_INT *incY, const float *c, const float *s)
59{
60 cblas_srot(*N,X,*incX,Y,*incY,*c,*s);
61 return;
62}
63
64void F77_sscal(const CBLAS_INT *N, const float *alpha, float *X,
65 const CBLAS_INT *incX)
66{
67 cblas_sscal(*N, *alpha, X, *incX);
68 return;
69}
70
71void F77_sswap( const CBLAS_INT *N, float *X, const CBLAS_INT *incX,
72 float *Y, const CBLAS_INT *incY)
73{
74 cblas_sswap(*N,X,*incX,Y,*incY);
75 return;
76}
77
78CBLAS_INT F77_isamax(const CBLAS_INT *N, const float *X, const CBLAS_INT *incX)
79{
80 if (*N < 1 || *incX < 1) return(0);
81 return (cblas_isamax(*N, X, *incX)+1);
82}
float cblas_scasum(const CBLAS_INT N, const void *X, const CBLAS_INT incX)
CBLAS_INDEX cblas_isamax(const CBLAS_INT N, const float *X, const CBLAS_INT incX)
float cblas_scnrm2(const CBLAS_INT N, const void *X, const CBLAS_INT incX)
float cblas_sdot(const CBLAS_INT N, const float *X, const CBLAS_INT incX, const float *Y, const CBLAS_INT incY)
Definition cblas_sdot.c:12
void cblas_srot(const CBLAS_INT N, float *X, const CBLAS_INT incX, float *Y, const CBLAS_INT incY, const float c, const float s)
Definition cblas_srot.c:11
void cblas_saxpy(const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, float *Y, const CBLAS_INT incY)
Definition cblas_saxpy.c:12
void cblas_srotg(float *a, float *b, float *c, float *s)
Definition cblas_srotg.c:11
float cblas_sasum(const CBLAS_INT N, const float *X, const CBLAS_INT incX)
Definition cblas_sasum.c:12
float cblas_snrm2(const CBLAS_INT N, const float *X, const CBLAS_INT incX)
Definition cblas_snrm2.c:12
void cblas_scopy(const CBLAS_INT N, const float *X, const CBLAS_INT incX, float *Y, const CBLAS_INT incY)
Definition cblas_scopy.c:11
#define CBLAS_INT
Definition cblas.h:24
void cblas_sswap(const CBLAS_INT N, float *X, const CBLAS_INT incX, float *Y, const CBLAS_INT incY)
Definition cblas_sswap.c:11
void cblas_sscal(const CBLAS_INT N, const float alpha, float *X, const CBLAS_INT incX)
Definition cblas_sscal.c:11
#define F77_sscal(...)
Definition cblas_f77.h:236
#define F77_srotg(...)
Definition cblas_f77.h:228
#define F77_saxpy(...)
Definition cblas_f77.h:233
#define F77_sswap(...)
Definition cblas_f77.h:231
#define F77_srot(...)
Definition cblas_f77.h:227
#define F77_scopy(...)
Definition cblas_f77.h:232
#define F77_sdot
Definition cblas_test.h:52
#define F77_scasum
Definition cblas_test.h:70
#define F77_scnrm2
Definition cblas_test.h:69
#define F77_isamax
Definition cblas_test.h:39
#define F77_sasum
Definition cblas_test.h:66
#define F77_snrm2
Definition cblas_test.h:65