ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/JSOC/proj/globalhs/libs/dtgf/cblas.h
Revision: 1.1
Committed: Sun Apr 28 07:46:58 2013 UTC (10 years, 4 months ago) by tplarson
Content type: text/plain
Branch: MAIN
CVS Tags: globalhs_version_5, Ver_8-7, Ver_8-5, globalhs_version_23, globalhs_version_22, globalhs_version_21, globalhs_version_20, Ver_LATEST, globalhs_version_24, Ver_8-3, globalhs_version_8, globalhs_version_9, globalhs_version_0, globalhs_version_1, globalhs_version_2, globalhs_version_3, globalhs_version_4, Ver_9-41, globalhs_version_6, globalhs_version_7, Ver_9-5, Ver_8-8, globalhs_version_19, Ver_8-2, Ver_8-10, Ver_8-1, Ver_8-6, Ver_9-1, Ver_8-4, Ver_9-2, globalhs_version_12, globalhs_version_13, globalhs_version_10, globalhs_version_11, globalhs_version_16, globalhs_version_17, globalhs_version_14, globalhs_version_15, globalhs_version_18, Ver_9-4, Ver_9-3, Ver_8-11, Ver_8-12, Ver_9-0, HEAD
Log Message: 
functions needed for detrending and gapfilling

File Contents

# Content
1 // $Header: $
2
3 // cblas_?asum is a C interface to ?asum.
4 float cblas_sasum(const int N, const float *X, const int incX);
5 double cblas_dasum(const int N, const double *X, const int incX);
6 float cblas_scasum(const int N, const _Complex float *X, const int incX);
7 double cblas_dzasum(const int N, const _Complex double *X, const int incX);
8
9 // cblas_?axpy is a C interface to ?axpy.
10 void cblas_saxpy(const int N, const float alpha, const float *X, const int incX, float *Y, const int incY);
11 void cblas_daxpy(const int N, const double alpha, const double *X, const int incX, double *Y, const int incY);
12 void cblas_caxpy(const int N, const _Complex float alpha, const _Complex float *X, const int incX, _Complex float *Y, const int incY);
13 void cblas_zaxpy(const int N, const _Complex double alpha, const _Complex double *X, const int incX, _Complex double *Y, const int incY);
14
15 // cblas_?copy is a C interface to ?copy.
16 void cblas_scopy(const int N, const float *X, const int incX, float *Y, const int incY);
17 void cblas_dcopy(const int N, const double *X, const int incX, double *Y, const int incY);
18 void cblas_ccopy(const int N, const _Complex float *X, const int incX, _Complex float *Y, const int incY);
19 void cblas_zcopy(const int N, const _Complex double *X, const int incX, _Complex double *Y, const int incY);
20
21 // cblas_?dot is a C interface to ?dot.
22 float cblas_sdot(const int N, const float *X, const int incX, const float *Y, const int incY);
23 double cblas_ddot(const int N, const double *X, const int incX, const double *Y, const int incY);
24
25 // cblas_?dotc is a C interface to ?dotc.
26 _Complex float cblas_cdotc(const int N, const _Complex float *X, const int incX, const _Complex float *Y, const int incY);
27 _Complex double cblas_zdotc(const int N, const _Complex double *X, const int incX, const _Complex double *Y, const int incY);
28
29 // cblas_?dotu is a C interface to ?dotu.
30 _Complex float cblas_cdotu(const int N, const _Complex float *X, const int incX, const _Complex float *Y, const int incY);
31 _Complex double cblas_zdotu(const int N, const _Complex double *X, const int incX, const _Complex double *Y, const int incY);
32
33 // cblas_nrm2 is a C interface to ?nrm2.
34 float cblas_snrm2(const int N, const float *X, const int incX);
35 double cblas_dnrm2(const int N, const double *X, const int incX);
36 float cblas_scnrm2(const int N, const _Complex float *X, const int incX);
37 double cblas_dznrm2(const int N, const _Complex double *X, const int incX);
38
39 // cblas_?rot is a C interface to ?rot.
40 void cblas_srot(const int N, float *X, const int incX, float *Y, const int incY, const float c, const float s);
41 void cblas_drot(const int N, double *X, const int incX, double *Y, const int incY, const double c, const double s);
42
43 // cblas_?rotg is a C interface to ?rotg.
44 void cblas_srotg(float *a, float *b, float *c, float *s);
45 void cblas_drotg(double *a, double *b, double *c, double *s);
46
47 // cblas_?rotm is a C interface to ?rotm.
48 void cblas_srotm(const int N, float *X, const int incX, float *Y, const int incY, const float *P);
49 void cblas_drotm(const int N, double *X, const int incX, double *Y, const int incY, const double *P);
50
51 // cblas_?rotmg is a C interface to ?rotmg.
52 void cblas_srotmg(float *d1, float *d2, float *b1, const float b2, float *P);
53 void cblas_drotmg(double *d1, double *d2, double *b1, const double b2, double *P);
54
55 // cblas_?scal is a C interface to ?scal.
56 void cblas_sscal(const int N, const float alpha, float *X, const int incX);
57 void cblas_dscal(const int N, const double alpha, double *X, const int incX);
58 void cblas_cscal(const int N, const _Complex float alpha, _Complex float *X, const int incX);
59 void cblas_zscal(const int N, const _Complex double alpha, _Complex double *X, const int incX);
60 void cblas_csscal(const int N, const float alpha, _Complex float *X, const int incX);
61 void cblas_zdscal(const int N, const double alpha, _Complex double *X, const int incX);
62
63 // cblas_?swap is a C interface to ?swap.
64 void cblas_sswap(const int N, float *X, const int incX, float *Y, const int incY);
65 void cblas_dswap(const int N, double *X, const int incX, double *Y, const int incY);
66 void cblas_cswap(const int N, _Complex float *X, const int incX, _Complex float *Y, const int incY);
67 void cblas_zswap(const int N, _Complex double *X, const int incX, _Complex double *Y, const int incY);
68
69 // cblas_i?amax is a C interface to i?amax.
70 int cblas_isamax(const int N, const float *X, const int incX);
71 int cblas_idamax(const int N, const double *X, const int incX);
72 int cblas_icamax(const int N, const _Complex float *X, const int incX);
73 int cblas_izamax(const int N, const _Complex double *X, const int incX);
74
75 // cblas_i?amin is a C interface to i?amin.
76 int cblas_isamin(const int N, const float *X, const int incX);
77 int cblas_idamin(const int N, const double *X, const int incX);
78 int cblas_icamin(const int N, const _Complex float *X, const int incX);
79 int cblas_izamin(const int N, const _Complex double *X, const int incX);
80
81
82 // PROTOTYPES FOR FORTRAN ROUTINES
83
84 float sasum_(const int *N, const float *X, const int *incX);
85 double dasum_(const int *N, const double *X, const int *incX);
86 float scasum_(const int *N, const _Complex float *X, const int *incX);
87 double dzasum_(const int *N, const _Complex double *X, const int *incX);
88
89 void saxpy_(const int *N, const float *alpha, const float *X, const int *incX, float *Y, const int *incY);
90 void daxpy_(const int *N, const double *alpha, const double *X, const int *incX, double *Y, const int *incY);
91 void caxpy_(const int *N, const _Complex float *alpha, const _Complex float *X, const int *incX, _Complex float *Y, const int *incY);
92 void zaxpy_(const int *N, const _Complex double *alpha, const _Complex double *X, const int *incX, _Complex double *Y, const int *incY);
93
94 void scopy_(const int *N, const float *X, const int *incX, float *Y, const int *incY);
95 void dcopy_(const int *N, const double *X, const int *incX, double *Y, const int *incY);
96 void ccopy_(const int *N, const _Complex float *X, const int *incX, _Complex float *Y, const int *incY);
97 void zcopy_(const int *N, const _Complex double *X, const int *incX, _Complex double *Y, const int *incY);
98
99 float sdot_(const int *N, const float *X, const int *incX, const float *Y, const int *incY);
100 double ddot_(const int *N, const double *X, const int *incX, const double *Y, const int *incY);
101
102 void cdotc_(_Complex float *cdotc, const int *N, const _Complex float *X, const int *incX, const _Complex float *Y, const int *incY);
103 void zdotc_(_Complex double *zdotc, const int *N, const _Complex double *X, const int *incX, const _Complex double *Y, const int *incY);
104
105 void cdotu_(_Complex float *cdotu, const int *N, const _Complex float *X, const int *incX, const _Complex float *Y, const int *incY);
106 void zdotu_(_Complex double *zdotu, const int *N, const _Complex double *X, const int *incX, const _Complex double *Y, const int *incY);
107
108 float snrm2_(const int *N, const float *X, const int *incX);
109 double dnrm2_(const int *N, const double *X, const int *incX);
110 float scnrm2_(const int *N, const _Complex float *X, const int *incX);
111 double dznrm2_(const int *N, const _Complex double *X, const int *incX);
112
113 void srot_(const int *N, float *X, const int *incX, float *Y, const int *incY, const float *c, const float *s);
114 void drot_(const int *N, double *X, const int *incX, double *Y, const int *incY, const double *c, const double *s);
115
116 void srotg_(float *a, float *b, float *c, float *s);
117 void drotg_(double *a, double *b, double *c, double *s);
118
119 void srotm_(const int *N, float *X, const int *incX, float *Y, const int *incY, const float *P);
120 void drotm_(const int *N, double *X, const int *incX, double *Y, const int *incY, const double *P);
121
122 void srotmg_(float *d1, float *d2, float *b1, const float *b2, float *P);
123 void drotmg_(double *d1, double *d2, double *b1, const double *b2, double *P);
124
125 void sscal_(const int *N, const float *alpha, float *X, const int *incX);
126 void dscal_(const int *N, const double *alpha, double *X, const int *incX);
127 void cscal_(const int *N, const _Complex float *alpha, _Complex float *X, const int *incX);
128 void zscal_(const int *N, const _Complex double *alpha, _Complex double *X, const int *incX);
129 void csscal_(const int *N, const float *alpha, _Complex float *X, const int *incX);
130 void zdscal_(const int *N, const double *alpha, _Complex double *X, const int *incX);
131
132 void sswap_(const int *N, float *X, const int *incX, float *Y, const int *incY);
133 void dswap_(const int *N, double *X, const int *incX, double *Y, const int *incY);
134 void cswap_(const int *N, _Complex float *X, const int *incX, _Complex float *Y, const int *incY);
135 void zswap_(const int *N, _Complex double *X, const int *incX, _Complex double *Y, const int *incY);
136
137 int isamax_(const int *N, const float *X, const int *incX);
138 int idamax_(const int *N, const double *X, const int *incX);
139 int icamax_(const int *N, const _Complex float *X, const int *incX);
140 int izamax_(const int *N, const _Complex double *X, const int *incX);
141
142 int isamin_(const int *N, const float *X, const int *incX);
143 int idamin_(const int *N, const double *X, const int *incX);
144 int icamin_(const int *N, const _Complex float *X, const int *incX);
145 int izamin_(const int *N, const _Complex double *X, const int *incX);
146