1/* 2 * c_dblas1.c 3 * 4 * The program is a C wrapper for dcblat1. 5 * 6 * Written by Keita Teranishi. 2/11/1998 7 * 8 */ 9#include "cblas_test.h" 10#include "cblas.h" 11double F77_dasum(const int *N, double *X, const int *incX) 12{ 13 return cblas_dasum(*N, X, *incX); 14} 15 16void F77_daxpy(const int *N, const double *alpha, const double *X, 17 const int *incX, double *Y, const int *incY) 18{ 19 cblas_daxpy(*N, *alpha, X, *incX, Y, *incY); 20 return; 21} 22 23void F77_dcopy(const int *N, double *X, const int *incX, 24 double *Y, const int *incY) 25{ 26 cblas_dcopy(*N, X, *incX, Y, *incY); 27 return; 28} 29 30double F77_ddot(const int *N, const double *X, const int *incX, 31 const double *Y, const int *incY) 32{ 33 return cblas_ddot(*N, X, *incX, Y, *incY); 34} 35 36double F77_dnrm2(const int *N, const double *X, const int *incX) 37{ 38 return cblas_dnrm2(*N, X, *incX); 39} 40 41void F77_drotg( double *a, double *b, double *c, double *s) 42{ 43 cblas_drotg(a,b,c,s); 44 return; 45} 46 47void F77_drot( const int *N, double *X, const int *incX, double *Y, 48 const int *incY, const double *c, const double *s) 49{ 50 51 cblas_drot(*N,X,*incX,Y,*incY,*c,*s); 52 return; 53} 54 55void F77_dscal(const int *N, const double *alpha, double *X, 56 const int *incX) 57{ 58 cblas_dscal(*N, *alpha, X, *incX); 59 return; 60} 61 62void F77_dswap( const int *N, double *X, const int *incX, 63 double *Y, const int *incY) 64{ 65 cblas_dswap(*N,X,*incX,Y,*incY); 66 return; 67} 68 69double F77_dzasum(const int *N, void *X, const int *incX) 70{ 71 return cblas_dzasum(*N, X, *incX); 72} 73 74double F77_dznrm2(const int *N, const void *X, const int *incX) 75{ 76 return cblas_dznrm2(*N, X, *incX); 77} 78 79int F77_idamax(const int *N, const double *X, const int *incX) 80{ 81 if (*N < 1 || *incX < 1) return(0); 82 return (cblas_idamax(*N, X, *incX)+1); 83} 84