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 "common.h"
10 #include "cblas_test.h"
11
F77_sasum(blasint * N,float * X,blasint * incX)12 float F77_sasum(blasint *N, float *X, blasint *incX)
13 {
14 return cblas_sasum(*N, X, *incX);
15 }
16
F77_saxpy(blasint * N,const float * alpha,OPENBLAS_CONST float * X,blasint * incX,float * Y,blasint * incY)17 void F77_saxpy(blasint *N, const float *alpha, OPENBLAS_CONST float *X,
18 blasint *incX, float *Y, blasint *incY)
19 {
20 cblas_saxpy(*N, *alpha, X, *incX, Y, *incY);
21 return;
22 }
23
F77_scopy(blasint * N,OPENBLAS_CONST float * X,blasint * incX,float * Y,blasint * incY)24 void F77_scopy(blasint *N, OPENBLAS_CONST float *X, blasint *incX,
25 float *Y, blasint *incY)
26 {
27 cblas_scopy(*N, X, *incX, Y, *incY);
28 return;
29 }
30
F77_sdot(blasint * N,OPENBLAS_CONST float * X,blasint * incX,OPENBLAS_CONST float * Y,blasint * incY)31 float F77_sdot(blasint *N, OPENBLAS_CONST float *X, blasint *incX,
32 OPENBLAS_CONST float *Y, blasint *incY)
33 {
34 return cblas_sdot(*N, X, *incX, Y, *incY);
35 }
36
F77_snrm2(blasint * N,OPENBLAS_CONST float * X,blasint * incX)37 float F77_snrm2(blasint *N, OPENBLAS_CONST float *X, blasint *incX)
38 {
39 return cblas_snrm2(*N, X, *incX);
40 }
41
F77_srotg(float * a,float * b,float * c,float * s)42 void F77_srotg( float *a, float *b, float *c, float *s)
43 {
44 cblas_srotg(a,b,c,s);
45 return;
46 }
47
F77_srotm(blasint * N,float * X,blasint * incX,float * Y,blasint * incY,float * param)48 void F77_srotm(blasint *N, float *X, blasint *incX, float *Y, blasint *incY,
49 float *param)
50 {
51 cblas_srotm(*N, X, *incX, Y, *incY, param);
52 return;
53 }
54
F77_srot(blasint * N,float * X,blasint * incX,float * Y,blasint * incY,const float * c,const float * s)55 void F77_srot( blasint *N, float *X, blasint *incX, float *Y,
56 blasint *incY, const float *c, const float *s)
57 {
58 cblas_srot(*N,X,*incX,Y,*incY,*c,*s);
59 return;
60 }
61
F77_sscal(blasint * N,const float * alpha,float * X,blasint * incX)62 void F77_sscal(blasint *N, const float *alpha, float *X,
63 blasint *incX)
64 {
65 cblas_sscal(*N, *alpha, X, *incX);
66 return;
67 }
68
F77_sswap(blasint * N,float * X,blasint * incX,float * Y,blasint * incY)69 void F77_sswap( blasint *N, float *X, blasint *incX,
70 float *Y, blasint *incY)
71 {
72 cblas_sswap(*N,X,*incX,Y,*incY);
73 return;
74 }
75
F77_isamax(blasint * N,OPENBLAS_CONST float * X,blasint * incX)76 int F77_isamax(blasint *N, OPENBLAS_CONST float *X, blasint *incX)
77 {
78 if (*N < 1 || *incX < 1) return(0);
79 return (cblas_isamax(*N, X, *incX)+1);
80 }
81