JSOC_Documentation: proj/libs/gapfiller/cblas.h Source File

00001 // cblas_?asum is a C interface to ?asum.
00002 float cblas_sasum(const int N, const float *X, const int incX);
00003 double cblas_dasum(const int N, const double *X, const int incX);
00004 float cblas_scasum(const int N, const _Complex float *X, const int incX);
00005 double cblas_dzasum(const int N, const _Complex double *X, const int incX);
00006 
00007 // cblas_?axpy is a C interface to ?axpy.
00008 void cblas_saxpy(const int N, const float alpha, const float *X, const int incX, float *Y, const int incY);
00009 void cblas_daxpy(const int N, const double alpha, const double *X, const int incX, double *Y, const int incY);
00010 void cblas_caxpy(const int N, const _Complex float alpha, const _Complex float *X, const int incX, _Complex float *Y, const int incY);
00011 void cblas_zaxpy(const int N, const _Complex double alpha, const _Complex double *X, const int incX, _Complex double *Y, const int incY);
00012 
00013 // cblas_?copy is a C interface to ?copy.
00014 void cblas_scopy(const int N, const float *X, const int incX, float *Y, const int incY);
00015 void cblas_dcopy(const int N, const double *X, const int incX, double *Y, const int incY);
00016 void cblas_ccopy(const int N, const _Complex float *X, const int incX, _Complex float *Y, const int incY);
00017 void cblas_zcopy(const int N, const _Complex double *X, const int incX, _Complex double *Y, const int incY);
00018 
00019 // cblas_?dot is a C interface to ?dot.
00020 float cblas_sdot(const int N, const float *X, const int incX, const float *Y, const int incY);
00021 double cblas_ddot(const int N, const double *X, const int incX, const double *Y, const int incY);
00022 
00023 // cblas_?dotc is a C interface to ?dotc.
00024 _Complex float cblas_cdotc(const int N, const _Complex float *X, const int incX, const _Complex float *Y, const int incY);
00025 _Complex double cblas_zdotc(const int N, const _Complex double *X, const int incX, const _Complex double *Y, const int incY);
00026 
00027 // cblas_?dotu is a C interface to ?dotu.
00028 _Complex float cblas_cdotu(const int N, const _Complex float *X, const int incX, const _Complex float *Y, const int incY);
00029 _Complex double cblas_zdotu(const int N, const _Complex double *X, const int incX, const _Complex double *Y, const int incY);
00030 
00031 // cblas_nrm2 is a C interface to ?nrm2.
00032 float cblas_snrm2(const int N, const float *X, const int incX);
00033 double cblas_dnrm2(const int N, const double *X, const int incX);
00034 float cblas_scnrm2(const int N, const _Complex float *X, const int incX);
00035 double cblas_dznrm2(const int N, const _Complex double *X, const int incX);
00036 
00037 // cblas_?rot is a C interface to ?rot.
00038 void cblas_srot(const int N, float *X, const int incX, float *Y, const int incY, const float c, const float s);
00039 void cblas_drot(const int N, double *X, const int incX, double *Y, const int incY, const double c, const double s);
00040 
00041 // cblas_?rotg is a C interface to ?rotg.
00042 void cblas_srotg(float *a, float *b, float *c, float *s);
00043 void cblas_drotg(double *a, double *b, double *c, double *s);
00044 
00045 // cblas_?rotm is a C interface to ?rotm.
00046 void cblas_srotm(const int N, float *X, const int incX, float *Y, const int incY, const float *P);
00047 void cblas_drotm(const int N, double *X, const int incX, double *Y, const int incY, const double *P);
00048 
00049 // cblas_?rotmg is a C interface to ?rotmg.
00050 void cblas_srotmg(float *d1, float *d2, float *b1, const float b2, float *P);
00051 void cblas_drotmg(double *d1, double *d2, double *b1, const double b2, double *P);
00052 
00053 // cblas_?scal is a C interface to ?scal.
00054 void cblas_sscal(const int N, const float alpha, float *X, const int incX);
00055 void cblas_dscal(const int N, const double alpha, double *X, const int incX);
00056 void cblas_cscal(const int N, const _Complex float alpha, _Complex float *X, const int incX);
00057 void cblas_zscal(const int N, const _Complex double alpha, _Complex double *X, const int incX);
00058 void cblas_csscal(const int N, const float alpha, _Complex float *X, const int incX);
00059 void cblas_zdscal(const int N, const double alpha, _Complex double *X, const int incX);
00060 
00061 // cblas_?swap is a C interface to ?swap.
00062 void cblas_sswap(const int N, float *X, const int incX, float *Y, const int incY);
00063 void cblas_dswap(const int N, double *X, const int incX, double *Y, const int incY);
00064 void cblas_cswap(const int N, _Complex float *X, const int incX, _Complex float *Y, const int incY);
00065 void cblas_zswap(const int N, _Complex double *X, const int incX, _Complex double *Y, const int incY);
00066 
00067 // cblas_i?amax is a C interface to i?amax.
00068 int cblas_isamax(const int N, const float *X, const int incX);
00069 int cblas_idamax(const int N, const double *X, const int incX);
00070 int cblas_icamax(const int N, const _Complex float *X, const int incX);
00071 int cblas_izamax(const int N, const _Complex double *X, const int incX);
00072 
00073 // cblas_i?amin is a C interface to i?amin.
00074 int cblas_isamin(const int N, const float *X, const int incX);
00075 int cblas_idamin(const int N, const double *X, const int incX);
00076 int cblas_icamin(const int N, const _Complex float *X, const int incX);
00077 int cblas_izamin(const int N, const _Complex double *X, const int incX);
00078 
00079 
00080 // PROTOTYPES FOR FORTRAN ROUTINES
00081 
00082 float sasum_(const int *N, const float *X, const int *incX);
00083 double dasum_(const int *N, const double *X, const int *incX);
00084 float scasum_(const int *N, const _Complex float *X, const int *incX);
00085 double dzasum_(const int *N, const _Complex double *X, const int *incX);
00086 
00087 void saxpy_(const int *N, const float *alpha, const float *X, const int *incX, float *Y, const int *incY);
00088 void daxpy_(const int *N, const double *alpha, const double *X, const int *incX, double *Y, const int *incY);
00089 void caxpy_(const int *N, const _Complex float *alpha, const _Complex float *X, const int *incX, _Complex float *Y, const int *incY);
00090 void zaxpy_(const int *N, const _Complex double *alpha, const _Complex double *X, const int *incX, _Complex double *Y, const int *incY);
00091 
00092 void scopy_(const int *N, const float *X, const int *incX, float *Y, const int *incY);
00093 void dcopy_(const int *N, const double *X, const int *incX, double *Y, const int *incY);
00094 void ccopy_(const int *N, const _Complex float *X, const int *incX, _Complex float *Y, const int *incY);
00095 void zcopy_(const int *N, const _Complex double *X, const int *incX, _Complex double *Y, const int *incY);
00096 
00097 float sdot_(const int *N, const float *X, const int *incX, const float *Y, const int *incY);
00098 double ddot_(const int *N, const double *X, const int *incX, const double *Y, const int *incY);
00099 
00100 void cdotc_(_Complex float *cdotc, const int *N, const _Complex float *X, const int *incX, const _Complex float *Y, const int *incY);
00101 void zdotc_(_Complex double *zdotc, const int *N, const _Complex double *X, const int *incX, const _Complex double *Y, const int *incY);
00102 
00103 void cdotu_(_Complex float *cdotu, const int *N, const _Complex float *X, const int *incX, const _Complex float *Y, const int *incY);
00104 void zdotu_(_Complex double *zdotu, const int *N, const _Complex double *X, const int *incX, const _Complex double *Y, const int *incY);
00105 
00106 float snrm2_(const int *N, const float *X, const int *incX);
00107 double dnrm2_(const int *N, const double *X, const int *incX);
00108 float scnrm2_(const int *N, const _Complex float *X, const int *incX);
00109 double dznrm2_(const int *N, const _Complex double *X, const int *incX);
00110 
00111 void srot_(const int *N, float *X, const int *incX, float *Y, const int *incY, const float *c, const float *s);
00112 void drot_(const int *N, double *X, const int *incX, double *Y, const int *incY, const double *c, const double *s);
00113 
00114 void srotg_(float *a, float *b, float *c, float *s);
00115 void drotg_(double *a, double *b, double *c, double *s);
00116 
00117 void srotm_(const int *N, float *X, const int *incX, float *Y, const int *incY, const float *P);
00118 void drotm_(const int *N, double *X, const int *incX, double *Y, const int *incY, const double *P);
00119 
00120 void srotmg_(float *d1, float *d2, float *b1, const float *b2, float *P);
00121 void drotmg_(double *d1, double *d2, double *b1, const double *b2, double *P);
00122 
00123 void sscal_(const int *N, const float *alpha, float *X, const int *incX);
00124 void dscal_(const int *N, const double *alpha, double *X, const int *incX);
00125 void cscal_(const int *N, const _Complex float *alpha, _Complex float *X, const int *incX);
00126 void zscal_(const int *N, const _Complex double *alpha, _Complex double *X, const int *incX);
00127 void csscal_(const int *N, const float *alpha, _Complex float *X, const int *incX);
00128 void zdscal_(const int *N, const double *alpha, _Complex double *X, const int *incX);
00129 
00130 void sswap_(const int *N, float *X, const int *incX, float *Y, const int *incY);
00131 void dswap_(const int *N, double *X, const int *incX, double *Y, const int *incY);
00132 void cswap_(const int *N, _Complex float *X, const int *incX, _Complex float *Y, const int *incY);
00133 void zswap_(const int *N, _Complex double *X, const int *incX, _Complex double *Y, const int *incY);
00134 
00135 int isamax_(const int *N, const float *X, const int *incX);
00136 int idamax_(const int *N, const double *X, const int *incX);
00137 int icamax_(const int *N, const _Complex float *X, const int *incX);
00138 int izamax_(const int *N, const _Complex double *X, const int *incX);
00139 
00140 int isamin_(const int *N, const float *X, const int *incX);
00141 int idamin_(const int *N, const double *X, const int *incX);
00142 int icamin_(const int *N, const _Complex float *X, const int *incX);
00143 int izamin_(const int *N, const _Complex double *X, const int *incX);
00144