Home | History | Annotate | Download | only in testing 
      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