← Back to branch summary

~ubuntu-branches/ubuntu/vivid/atlas/vivid

« back to all changes in this revision

Viewing changes to interfaces/blas/C/testing/c_zblas1.c

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2002-04-13 10:07:52 UTC
  • Revision ID: james.westby@ubuntu.com-20020413100752-va9zm0rd4gpurdkq
Tags: upstream-3.2.1ln
Import upstream version 3.2.1ln

Show diffs side-by-side

added added

removed removed

Lines of Context:
interfaces/blas/C/testing/c_zblas1.c
 
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"
 
11
void F77_zaxpy(const int *N, const void *alpha, void *X,
 
12
                    const int *incX, void *Y, const int *incY)
 
13
{
 
14
   cblas_zaxpy(*N, alpha, X, *incX, Y, *incY);
 
15
   return;
 
16
}
 
17
 
 
18
void F77_zcopy(const int *N, void *X, const int *incX, 
 
19
                    void *Y, const int *incY)
 
20
{
 
21
   cblas_zcopy(*N, X, *incX, Y, *incY);
 
22
   return;
 
23
}
 
24
 
 
25
void F77_zdotc(const int *N, const void *X, const int *incX, 
 
26
                     const void *Y, const int *incY,void *dotc)
 
27
{
 
28
   cblas_zdotc_sub(*N, X, *incX, Y, *incY, dotc);
 
29
   return;
 
30
}
 
31
 
 
32
void F77_zdotu(const int *N, void *X, const int *incX, 
 
33
                        void *Y, const int *incY,void *dotu)
 
34
{
 
35
   cblas_zdotu_sub(*N, X, *incX, Y, *incY, dotu);
 
36
   return;
 
37
}
 
38
 
 
39
void F77_zdscal(const int *N, const double *alpha, void *X,
 
40
                         const int *incX)
 
41
{
 
42
   cblas_zdscal(*N, *alpha, X, *incX);
 
43
   return;
 
44
}
 
45
 
 
46
void F77_zscal(const int *N, const void * *alpha, void *X,
 
47
                         const int *incX)
 
48
{
 
49
   cblas_zscal(*N, alpha, X, *incX);
 
50
   return;
 
51
}
 
52
 
 
53
void F77_zswap( const int *N, void *X, const int *incX,
 
54
                          void *Y, const int *incY)
 
55
{
 
56
   cblas_zswap(*N,X,*incX,Y,*incY);
 
57
   return;
 
58
}
 
59
 
 
60
int F77_izamax(const int *N, const void *X, const int *incX)
 
61
{
 
62
   if (*N < 1 || *incX < 1) return(0);
 
63
   return(cblas_izamax(*N, X, *incX)+1);
 
64
}
 
65
 
 
66
double F77_dznrm2(const int *N, const void *X, const int *incX)
 
67
{
 
68
   return cblas_dznrm2(*N, X, *incX);
 
69
}
 
70
 
 
71
double F77_dzasum(const int *N, void *X, const int *incX)
 
72
{
 
73
   return cblas_dzasum(*N, X, *incX);
 
74
}
 
75
/* 
 
76
 * The following routines are not tested by the tester, and not part of
 
77
 * standard, but added by RCW in order to force link test of ref blas
 
78
 * provided by ATLAS
 
79
 */
 
80
void F77_zrotg(void *a, void *b, void *c, void *s)
 
81
{
 
82
   cblas_zrotg(a, b, c, s);
 
83
}
 
84
void F77_zdrot(const int *N, void *X, const int *incX,
 
85
               void *Y, const int *incY, const double *c, const double *s)
 
86
{
 
87
   cblas_zdrot(*N, X, *incX, Y, *incY, *c, *s);
 
88
}