JSOC_Documentation: proj/globalhs/libs/dtgf/cblas.h Source File

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