/*

 * c_cblas1.c

 *

 * The program is a C wrapper for ccblat1.

 *

 * Written by Keita Teranishi.  2/11/1998

 *

 */

#include "common.h"

#include "cblas_test.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);

}