text: /*
   * c_cblas1.c
   *
   * The program is a C wrapper for ccblat1.
   *
   * Written by Keita Teranishi.  2/11/1998
   *
   */
  #include "cblas_test.h"
  #include "cblas.h"
  void F77_caxpy(const int *N, const void *alpha, void *X,
                      const int *incX, void *Y, const int *incY)
  {
     cblas_caxpy(*N, alpha, X, *incX, Y, *incY);
     return;
  }
  
  void F77_ccopy(const int *N, void *X, const int *incX, 
                      void *Y, const int *incY)
  {
     cblas_ccopy(*N, X, *incX, Y, *incY);
     return;
  }
  
  void F77_cdotc(const int *N, void *X, const int *incX, 
                          void *Y, const int *incY, void *dotc)
  {
     cblas_cdotc_sub(*N, X, *incX, Y, *incY, dotc);
     return;
  }
  
  void F77_cdotu(const int *N, void *X, const int *incX, 
                          void *Y, const int *incY,void *dotu)
  {
     cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu);
     return;
  }
  
  void F77_cscal(const int *N, const void * *alpha, void *X,
                           const int *incX)
  {
     cblas_cscal(*N, alpha, X, *incX);
     return;
  }
  
  void F77_csscal(const int *N, const float *alpha, void *X,
                           const int *incX)
  {
     cblas_csscal(*N, *alpha, X, *incX);
     return;
  }
  
  void F77_cswap(const int *N, void *X, const int *incX,
                            void *Y, const int *incY)
  {
     cblas_cswap(*N,X,*incX,Y,*incY);
     return;
  }
  
  int F77_icamax(const int *N, const void *X, const int *incX)
  {
     if (*N < 1 || *incX < 1) return(0);
     return (cblas_icamax(*N, X, *incX)+1);
  }
  
  float F77_scnrm2(const int *N, const void *X, const int *incX)
  {
     return cblas_scnrm2(*N, X, *incX);
  }
  
  float F77_scasum(const int *N, void *X, const int *incX)
  {
     return cblas_scasum(*N, X, *incX);
  }
  