| 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 |
| # | Content |
|---|---|
| 1 | // $Header: $ |
| 2 | |
| 3 | #if TYPE == FLOAT |
| 4 | #define CTYPE float |
| 5 | #define RTYPE float |
| 6 | #define CONJ |
| 7 | #define SQR(x) (x)*(x) |
| 8 | #define REAL(x) (x) |
| 9 | #define IMAG(x) (0.0f) |
| 10 | #elif TYPE == DOUBLE |
| 11 | #define CTYPE double |
| 12 | #define RTYPE double |
| 13 | #define CONJ |
| 14 | #define SQR(x) (x)*(x) |
| 15 | #define REAL(x) (x) |
| 16 | #define IMAG(x) (0.0) |
| 17 | #elif TYPE == COMPLEXFLOAT |
| 18 | #define CTYPE _Complex float |
| 19 | #define RTYPE float |
| 20 | #define CONJ conjf |
| 21 | #define SQR(x) (crealf(x)*crealf(x)+cimagf(x)*cimagf(x)) |
| 22 | #define REAL(x) (crealf(x)) |
| 23 | #define IMAG(x) (cimagf(x)) |
| 24 | #elif TYPE == COMPLEXDOUBLE |
| 25 | #define CTYPE _Complex double |
| 26 | #define RTYPE double |
| 27 | #define CONJ conj |
| 28 | #define SQR(x) (creal(x)*creal(x)+cimag(x)*cimag(x)) |
| 29 | #define REAL(x) (creal(x)) |
| 30 | #define IMAG(x) (cimag(x)) |
| 31 | #endif |
| 32 | |
| 33 | #define RZERO ((RTYPE) 0) |
| 34 | #define CZERO ((CTYPE) 0) |
| 35 | #define RONE ((RTYPE) 1) |
| 36 | #define CONE ((CTYPE) 1) |
| 37 | |
| 38 | #define COMPLEX(a,b) ((CTYPE) ((a) + _Complex_I*(b))) |
| 39 | |
| 40 | #include "cblas_def.h" |
| 41 |