numeric-linalg
Educational material on the SciPy implementation of numerical linear algebra algorithms
Name | Size | Mode | |
.. | |||
lapack/CBLAS/testing/c_cblas1.c | 1841B | -rw-r--r-- |
01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74
/* * 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 CBLAS_INT *N, const void *alpha, void *X, const CBLAS_INT *incX, void *Y, const CBLAS_INT *incY) { cblas_caxpy(*N, alpha, X, *incX, Y, *incY); return; } void F77_ccopy(const CBLAS_INT *N, void *X, const CBLAS_INT *incX, void *Y, const CBLAS_INT *incY) { cblas_ccopy(*N, X, *incX, Y, *incY); return; } void F77_cdotc(const CBLAS_INT *N, void *X, const CBLAS_INT *incX, void *Y, const CBLAS_INT *incY, void *dotc) { cblas_cdotc_sub(*N, X, *incX, Y, *incY, dotc); return; } void F77_cdotu(const CBLAS_INT *N, void *X, const CBLAS_INT *incX, void *Y, const CBLAS_INT *incY,void *dotu) { cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu); return; } void F77_cscal(const CBLAS_INT *N, const void * *alpha, void *X, const CBLAS_INT *incX) { cblas_cscal(*N, alpha, X, *incX); return; } void F77_csscal(const CBLAS_INT *N, const float *alpha, void *X, const CBLAS_INT *incX) { cblas_csscal(*N, *alpha, X, *incX); return; } void F77_cswap( const CBLAS_INT *N, void *X, const CBLAS_INT *incX, void *Y, const CBLAS_INT *incY) { cblas_cswap(*N,X,*incX,Y,*incY); return; } CBLAS_INT F77_icamax(const CBLAS_INT *N, const void *X, const CBLAS_INT *incX) { if (*N < 1 || *incX < 1) return(0); return (cblas_icamax(*N, X, *incX)+1); } float F77_scnrm2(const CBLAS_INT *N, const void *X, const CBLAS_INT *incX) { return cblas_scnrm2(*N, X, *incX); } float F77_scasum(const CBLAS_INT *N, void *X, const CBLAS_INT *incX) { return cblas_scasum(*N, X, *incX); }