Home | History | Annotate | Download | only in testing 
      1 /*
      2  * c_cblas1.c
      3  *
      4  * The program is a C wrapper for ccblat1.
      5  *
      6  * Written by Keita Teranishi.  2/11/1998
      7  *
      8  */
      9 #include "cblas_test.h"
     10 #include "cblas.h"
     11 void F77_caxpy(const int *N, const void *alpha, void *X,
     12                     const int *incX, void *Y, const int *incY)
     13 {
     14    cblas_caxpy(*N, alpha, X, *incX, Y, *incY);
     15    return;
     16 }
     17 
     18 void F77_ccopy(const int *N, void *X, const int *incX,
     19                     void *Y, const int *incY)
     20 {
     21    cblas_ccopy(*N, X, *incX, Y, *incY);
     22    return;
     23 }
     24 
     25 void F77_cdotc(const int *N, void *X, const int *incX,
     26                         void *Y, const int *incY, void *dotc)
     27 {
     28    cblas_cdotc_sub(*N, X, *incX, Y, *incY, dotc);
     29    return;
     30 }
     31 
     32 void F77_cdotu(const int *N, void *X, const int *incX,
     33                         void *Y, const int *incY,void *dotu)
     34 {
     35    cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu);
     36    return;
     37 }
     38 
     39 void F77_cscal(const int *N, const void * *alpha, void *X,
     40                          const int *incX)
     41 {
     42    cblas_cscal(*N, alpha, X, *incX);
     43    return;
     44 }
     45 
     46 void F77_csscal(const int *N, const float *alpha, void *X,
     47                          const int *incX)
     48 {
     49    cblas_csscal(*N, *alpha, X, *incX);
     50    return;
     51 }
     52 
     53 void F77_cswap( const int *N, void *X, const int *incX,
     54                           void *Y, const int *incY)
     55 {
     56    cblas_cswap(*N,X,*incX,Y,*incY);
     57    return;
     58 }
     59 
     60 int F77_icamax(const int *N, const void *X, const int *incX)
     61 {
     62    if (*N < 1 || *incX < 1) return(0);
     63    return (cblas_icamax(*N, X, *incX)+1);
     64 }
     65 
     66 float F77_scnrm2(const int *N, const void *X, const int *incX)
     67 {
     68    return cblas_scnrm2(*N, X, *incX);
     69 }
     70 
     71 float F77_scasum(const int *N, void *X, const int *incX)
     72 {
     73    return cblas_scasum(*N, X, *incX);
     74 }
     75