-
Notifications
You must be signed in to change notification settings - Fork 0
/
fastcc.pro
439 lines (432 loc) · 25.2 KB
/
fastcc.pro
1
2
3
4
5
6
7
8
9
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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
FUNCTION fastcc, freq, alpha, td=td, bd=bd, detector=detector,debug=debug,option=option, returnfreq=returnfreq
; Apply colour corrections to various datasets
; freq should be like 'P30', 'WK', 'Q19', etc. as a string.
; detector (optional) should be between '18' and '28' inclusive for LFI, as a string; they should of the style 'K11', 'K12', 'K1' for WMAP.
; set 'debug' to see debug messages
; Use 'option' to select which set of colour corrections you want to use:
; 'option=1' is the WMAP9 and Planck 2013 numbers
; 'option=2' is the WMAP 2015 and Planck 2015 numbers
; 'option=3' is the WMAP 2015 and Planck 2018 numbers (DEFAULT)
; If you don't want to use the latest version, you MUST set option to preserve the same behaviour from future versions.
; Set alpha=<val> to use a power law, or td=<val> and bd=<val> to use a modified black body
; Set debug=True if you want some extra debug messages to appear
; Set returnfreq=True if you want the code to return [freq, correction], otherwise it will just return correction
;
; Version history:
; Mike Peel 01-Feb-2013 v1.0 Initial version
; Mike Peel 04-Feb-2013 v1.1 Correct convention
; Locke Spencer 05-Feb-2013: v1.2 Changed name to LFI_fastCC from planckcc (it only works for LFI)
; Changed nested IF..ELSE groups to case statements
; Changed invalid detector/frequency output to zero and removed internal stop in the code.
; Mike Peel 24-Jul-2014 v2.0 Added WMAP (based on values from Paddy Leahy), renamed to fastcc. Note that function calls from v1 won't work with v2 without modification.
; Mike Peel 13-Aug-2014 v2.1 Updated WMAP colour corrections, taking into account frequency drift during the mission (values from Paddy Leahy).
; Mike Peel 06-Nov-2014 v2.2 Added 'dev' parameter (updated LFI and WMAP numbers from Paddy Leahy, including LFI bandpass shifts);
; without this parameter the published values for LFI and WMAP will be returned.
; Mike Peel 12-Mar-2015 v2.3 Update 70GHz values to fits to corrected colour corrections from Paddy Leahy
; Mike Peel 23-Mar-2015 v2.4 Update WMAP colour corrections to corrected values from Paddy Leahy.
; Mike Peel 17-Jul-2019 v2.6 Change 'dev' to 'latest', add initial QUIJOTE MFI points
; Mike Peel 17-Jul-2019 v2.6a Revised QUIJOTE MFI points
; Mike Peel 18-Jul-2019 v2.7 Adding CBASS
; Mike Peel 06-Oct-2020 v2.8 New QUIJOTE numbers
; Mike Peel 16-Nov-2020 v2.9 BREAKING CHANGE, 'latest' is now 'option'. HFI added.
; Mike Peel 22-Jan-2020 v3.0 BREAKING CHANGE, frequency/detector labels now have prefixes. Upgrading to return frequencies and to prepare for colour corrections for thermal dust models for Planck HFI (not added in this version). Updated numbers for MFI, HFI, C-BASS.
; Mike Peel 10-Feb-2021 v3.1 Adding DIRBE and IRAS
; Mike Peel 26-Feb-2021 v3.2 Updating QUIJOTE, HFI, DIRBE, IRAS, adding HFI modified black body
; Mike Peel 01-Mar-2021 v3.3 Updating QUIJOTE 17 and 19GHz
; Mike Peel 03-Mar-2021 v3.4 Correction for QUIJOTE
wmap=0 ; Flag used later to determine which formula to use.
IF (~keyword_set(option)) THEN BEGIN
option = 3
ENDIF
IF (option EQ 3) THEN BEGIN ; 2018 version (mostly the same as 2015)
IF (keyword_set(td)) THEN BEGIN
CASE freq OF
'P100': cc = [9.8575562e-01, -7.9658168e-04, 1.2639553e-05, -2.2861226e-02, -3.6062312e-03, 100.0]
'P143': cc = [1.0249784e+00, -8.9829491e-04, 1.4292214e-05, -1.0535011e-02, -4.3411409e-03, 143.0]
'P217': cc = [9.7928268e-01, -2.1219356e-03, 3.3978060e-05, -3.0585570e-02, -2.6902291e-03, 217.0]
'P353': cc = [1.0023545e+00, -3.5956064e-03, 5.7863985e-05, -2.9128991e-02, -2.4766673e-03, 353.0]
'P545': cc = [1.0511112e+00, -7.0444597e-03, 1.1361618e-04, -3.3710260e-02, -2.6224528e-03, 545.0]
'P857': cc = [1.1017295e+00, -7.4657206e-03, 1.1545943e-04, -1.4661285e-02, -3.5227763e-03, 857.0]
ELSE: BEGIN
print,'Invalid frequency specified for fastcc, returning zero.'
return, 0d
ENDELSE
ENDCASE
ENDIF ELSE IF (keyword_set(detector)) THEN BEGIN
IF (keyword_set(debug)) THEN print,'Using detector ',detector
CASE detector OF
'P18': cc = [0.977484, 0.0185055, -0.00391209, 70.4]
'P19': cc = [0.965314, 0.0234026, -0.00256943, 70.4]
'P20': cc = [0.968436, 0.0220869, -0.00285115, 70.4]
'P21': cc = [0.982854, 0.0142877, -0.00317682, 70.4]
'P22': cc = [1.049, -0.0237173, -0.00288312, 70.4]
'P23': cc = [0.990172, 0.0091968, -0.00238961, 70.4]
'P1823': cc = [0.983195, 0.0141778, -0.00317682, 70.4]
'P1922': cc = [1.00978, -0.000698302, -0.00328272, 70.4]
'P2021': cc = [0.97712, 0.0175904, -0.00308092, 70.4]
'P24': cc = [0.999958, 0.00309391, -0.00177223, 44.1]
'P25': cc = [0.994381, 0.00591109, -0.00162038, 44.1]
'P26': cc = [0.990046, 0.00854446, -0.00177223, 44.1]
'P2526': cc = [0.992115, 0.00717982, -0.00167233, 44.1]
'P27': cc = [1.00503, 0.00276424, -0.00282717, 28.4]
'P28': cc = [1.00491, 0.00334266, -0.00313287, 28.4]
'WK11': cc = [0.939366, 0.0346715, -0.00214346, 22.8]
'WK12': cc = [1.00894, 0.000982418, -0.00276923, 22.8]
'WK1': cc = [0.972902, 0.0190469, -0.00276464, 22.8]
'WKa11': cc = [0.974784, 0.0159578, -0.00161958, 33.0]
'WKa12': cc = [0.992978, 0.00737502, -0.00200839, 33.0]
'WKa1': cc = [0.983787, 0.0117567, -0.00183716, 33.0]
'WQ11': cc = [0.990948, 0.00846474, -0.00204555, 40.6]
'WQ12': cc = [0.998159, 0.00404356, -0.00167233, 40.6]
'WQ1': cc = [0.994548, 0.00627672, -0.00186693, 40.6]
'WQ21': cc = [0.981607, 0.0126181, -0.00166893, 40.6]
'WQ22': cc = [1.01705, -0.00573297, -0.0016989, 40.6]
'WQ2': cc = [0.998986, 0.00378172, -0.00176723, 40.6]
'WV11': cc = [0.939474, 0.0354285, -0.00155105, 60.8]
'WV12': cc = [0.994737, 0.006396, -0.00217822, 60.8]
'WV1': cc = [0.966309, 0.0217416, -0.00209331, 60.8]
'WV21': cc = [1.00662, -0.000113686, -0.00217942, 60.8]
'WV22': cc = [0.977227, 0.0160255, -0.00220999, 60.8]
'WV2': cc = [0.991701, 0.0082012, -0.00226214, 60.8]
'WW11': cc = [0.988343, 0.00956424, -0.00211948, 93.5]
'WW12': cc = [0.9838, 0.0120015, -0.00173207, 93.5]
'WW1': cc = [0.986087, 0.0107974, -0.00193167, 93.5]
'WW21': cc = [0.978714, 0.0149705, -0.00148032, 93.5]
'WW22': cc = [0.992004, 0.00655744, -0.00146334, 93.5]
'WW2': cc = [0.985324, 0.0108262, -0.00149331, 93.5]
'WW31': cc = [0.977457, 0.0155997, -0.00131688, 93.5]
'WW32': cc = [0.993636, 0.0054001, -0.00134126, 93.5]
'WW3': cc = [0.985473, 0.0105855, -0.00135485, 93.5]
'WW41': cc = [0.991452, 0.0072962, -0.00181239, 93.5]
'WW42': cc = [0.973071, 0.0185705, -0.00153746, 93.5]
'WW4': cc = [0.982185, 0.0130277, -0.00170889, 93.5]
'Q111': cc = [0.9925526276311687, 0.007161407883127753, -0.0017891332783659003, 11.2]
'Q113': cc = [0.9949649181723395, 0.005394042720463821, -0.0014382949498306515, 12.8]
'Q111p': cc = [0.9925526276311687, 0.007161407883127753, -0.0017891332783659003, 11.2]
'Q113p': cc = [0.9949649181723395, 0.005394042720463821, -0.0014382949498306515, 12.8]
'Q217p': cc = [1.0138278113763701, -0.005438125088975354, -0.0007305386490667834, 16.7]
'Q219p': cc = [1.0169781391858363, -0.006911736638829896, -0.0007823458097656444, 18.7]
'Q311': cc = [0.9821236098857145, 0.011920227628586971, -0.0015347819996889738, 11.1]
'Q313': cc = [1.0009126144672769, 0.001850712851951476, -0.0011606369297726346, 12.9]
'Q311p': cc = [0.9829079423583542, 0.011650135267413536, -0.0015947702677977047, 11.1]
'Q313p': cc = [0.999421869156669, 0.0027138111927979794, -0.0012174359452614659, 12.9]
'Q417': cc = [0.9940133255090668, 0.004348655146028017, -0.0006806931151648366, 17.0]
'Q419': cc = [0.9900977831410904, 0.006399634237968239, -0.0007378319379189141, 19.0]
'Q417p': cc = [0.996802897834079, 0.003140068389040273, -0.0007717250294159369, 17.0]
'Q419p': rr = [0.9901652495861841, 0.006494018875299342, -0.0008034365663807574, 19.0]
ELSE: BEGIN
print,'Invalid detector specified for fastcc, returning zero.'
return, 0d
ENDELSE
ENDCASE
ENDIF ELSE BEGIN ; individual frequencies
IF (keyword_set(debug)) THEN print,'Using frequency ',freq
CASE freq OF
'CBASSNI': cc = [1.000103213196618, -0.0007238230723748647, -0.0013363809246677324, 4.76]
'CBASSNP': cc = [0.998561438218094, -0.0059052869678747595, -0.001680320871507042, 4.76]
'Q11': cc = [0.9821236098857145, 0.011920227628586971, -0.0015347819996889738, 11.1]
'Q13': cc = [1.0009126144672769, 0.001850712851951476, -0.0011606369297726346, 12.9]
'Q11p': cc = [0.9829079423583542, 0.011650135267413536, -0.0015947702677977047, 11.1]
'Q13p': cc = [0.999421869156669, 0.0027138111927979794, -0.0012174359452614659, 12.9]
'Q17': cc = [1.0067957381497863, -0.0019621413830759947, -0.000715949539348768, 16.8]
'Q19': cc = [1.0081384744982096, -0.002537677057807221, -0.0007667684588267012, 18.8]
'Q17p': cc = [1.014273653770507, -0.00557224894906659, -0.0007686809342150011, 16.8]
'Q19p': cc = [1.0098821312461561, -0.0032961843042380937, -0.0008186810627282263, 18.8]
'P30': cc = [1.00513, 0.00301399, -0.00300699, 28.4]
'P44': cc = [0.994769, 0.00596703, -0.00173626, 44.1]
'P70': cc = [0.989711, 0.0106943, -0.00328671, 70.4]
'P100': cc = [0.99868757, -0.00512203, -0.00428818, 100.0]
'P143': cc = [1.0125835, 0.00767883, -0.00468418, 143.0]
'P217': cc = [0.98670965, -0.01582359, -0.00362294, 217.0]
'P353': cc = [0.98479307, -0.0174746, -0.00318638, 353.0]
'P545': cc = [0.98083174, -0.0209257, -0.00374975, 545.0]
'P857': cc = [0.9957921, -0.00693394, -0.00402974, 857.0]
'WK' : cc = [0.972902, 0.0190469, -0.00276464, 22.8]
'WKa': cc = [0.983787, 0.0117567, -0.00183716, 33.0]
'WQ' : cc = [0.996854, 0.00496893, -0.00181359, 40.6]
'WV' : cc = [0.980322, 0.0143631, -0.00223596, 60.8]
'WW' : cc = [0.984848, 0.0112743, -0.00164595, 93.5]
'DB10': cc = [1.0056317e+00, -6.4834543e-03, -1.1925717e-02, 2.3065088e-04, 1249]
'DB9': cc = [1.0347912e+00, 2.5405537e-02, -9.5349792e-03, -1.5169126e-04, 2141]
'DB8': cc = [9.5939422e-01, -4.8364848e-02, -7.5184624e-03, 2.5625768e-04, 2997]
'DB7': cc = [9.0792167e-01, -9.9896029e-02, -6.8849851e-03, 1.0237540e-03, 4995]
'DB6': cc = [8.1605506e-01, -1.7407244e-01, 1.0301138e-02, 4.1460118e-04, 11988]
'DB5': cc = [9.8167169e-01, -3.6703132e-02, -1.7821072e-02, 7.2205620e-04, 24975]
'DB4': cc = [9.9471784e-01, -6.1251973e-03, -8.3776598e-04, 5.5378068e-06, 61163]
'DB3': cc = [1.0030533e+00, -1.7146974e-04, -3.2236280e-03, 3.4781212e-06, 85629]
'DB2': cc = [1.0064020e+00, 5.1325657e-03, -1.2763232e-03, -6.6162706e-06, 136227]
'DB1': cc = [1.0073260e+00, 4.4526956e-03, -2.8791293e-03, -3.8249291e-06, 239760]
'I100': cc = [9.8682648e-01, -2.0946426e-02, -7.6484028e-03, 1.4026849e-04, 2997]
'I60': cc = [9.5354623e-01, -6.4501286e-02, -1.7309224e-02, 8.4418210e-04, 4995]
'I25': cc = [9.1217232e-01, -9.4449066e-02, -5.8258590e-03, 8.7096798e-04, 11988]
'I12': cc = [9.0728289e-01, -1.0321426e-01, -9.2115393e-03, 1.4914416e-03, 24975]
ELSE: BEGIN
print,'Invalid frequency specified for fastcc, returning zero.'
return, 0d
ENDELSE
ENDCASE
ENDELSE
ENDIF ELSE IF (option EQ 2) THEN BEGIN ; 2015 version
IF (keyword_set(td)) THEN BEGIN
CASE freq OF
'P100': cc = [9.8406219e-01, -8.1796874e-04, 1.2984993e-05, -2.3725530e-02, -3.6248658e-03, 100.0]
'P143': cc = [1.0219676e+00, -9.1921160e-04, 1.4604784e-05, -1.1657137e-02, -4.2607225e-03, 143.0]
'P217': cc = [9.7481853e-01, -2.1586758e-03, 3.4575922e-05, -3.1927716e-02, -2.5357329e-03, 217.0]
'P353': cc = [1.0002152e+00, -3.7297627e-03, 6.0069218e-05, -3.0771509e-02, -2.4096791e-03, 353.0]
'P545': cc = [1.0512086e+00, -7.0331488e-03, 1.1341097e-04, -3.3633444e-02, -2.6284012e-03, 545.0]
'P857': cc = [1.1041638e+00, -7.7668922e-03, 1.2043497e-04, -1.5862772e-02, -3.4758949e-03, 857.0]
ELSE: BEGIN
print,'Invalid frequency specified for fastcc, returning zero.'
return, 0d
ENDELSE
ENDCASE
ENDIF ELSE IF (keyword_set(detector)) THEN BEGIN
IF (keyword_set(debug)) THEN print,'Using detector ',detector
CASE detector OF
'P18': cc = [0.977484, 0.0185055, -0.00391209, 70.4]
'P19': cc = [0.965314, 0.0234026, -0.00256943, 70.4]
'P20': cc = [0.968436, 0.0220869, -0.00285115, 70.4]
'P21': cc = [0.982854, 0.0142877, -0.00317682, 70.4]
'P22': cc = [1.049, -0.0237173, -0.00288312, 70.4]
'P23': cc = [0.990172, 0.0091968, -0.00238961, 70.4]
'P1823': cc = [0.983195, 0.0141778, -0.00317682, 70.4]
'P1922': cc = [1.00978, -0.000698302, -0.00328272, 70.4]
'P2021': cc = [0.97712, 0.0175904, -0.00308092, 70.4]
'P24': cc = [0.999958, 0.00309391, -0.00177223, 44.1]
'P25': cc = [0.994381, 0.00591109, -0.00162038, 44.1]
'P26': cc = [0.990046, 0.00854446, -0.00177223, 44.1]
'P2526': cc = [0.992115, 0.00717982, -0.00167233, 44.1]
'P27': cc = [1.00503, 0.00276424, -0.00282717, 28.4]
'P28': cc = [1.00491, 0.00334266, -0.00313287, 28.4]
'WK11': cc = [0.939366, 0.0346715, -0.00214346, 22.8]
'WK12': cc = [1.00894, 0.000982418, -0.00276923, 22.8]
'WK1': cc = [0.972902, 0.0190469, -0.00276464, 22.8]
'WKa11': cc = [0.974784, 0.0159578, -0.00161958, 33.0]
'WKa12': cc = [0.992978, 0.00737502, -0.00200839, 33.0]
'WKa1': cc = [0.983787, 0.0117567, -0.00183716, 33.0]
'WQ11': cc = [0.990948, 0.00846474, -0.00204555, 40.6]
'WQ12': cc = [0.998159, 0.00404356, -0.00167233, 40.6]
'WQ1': cc = [0.994548, 0.00627672, -0.00186693, 40.6]
'WQ21': cc = [0.981607, 0.0126181, -0.00166893, 40.6]
'WQ22': cc = [1.01705, -0.00573297, -0.0016989, 40.6]
'WQ2': cc = [0.998986, 0.00378172, -0.00176723, 40.6]
'WV11': cc = [0.939474, 0.0354285, -0.00155105, 60.8]
'WV12': cc = [0.994737, 0.006396, -0.00217822, 60.8]
'WV1': cc = [0.966309, 0.0217416, -0.00209331, 60.8]
'WV21': cc = [1.00662, -0.000113686, -0.00217942, 60.8]
'WV22': cc = [0.977227, 0.0160255, -0.00220999, 60.8]
'WV2': cc = [0.991701, 0.0082012, -0.00226214, 60.8]
'WW11': cc = [0.988343, 0.00956424, -0.00211948, 93.5]
'WW12': cc = [0.9838, 0.0120015, -0.00173207, 93.5]
'WW1': cc = [0.986087, 0.0107974, -0.00193167, 93.5]
'WW21': cc = [0.978714, 0.0149705, -0.00148032, 93.5]
'WW22': cc = [0.992004, 0.00655744, -0.00146334, 93.5]
'WW2': cc = [0.985324, 0.0108262, -0.00149331, 93.5]
'WW31': cc = [0.977457, 0.0155997, -0.00131688, 93.5]
'WW32': cc = [0.993636, 0.0054001, -0.00134126, 93.5]
'WW3': cc = [0.985473, 0.0105855, -0.00135485, 93.5]
'WW41': cc = [0.991452, 0.0072962, -0.00181239, 93.5]
'WW42': cc = [0.973071, 0.0185705, -0.00153746, 93.5]
'WW4': cc = [0.982185, 0.0130277, -0.00170889, 93.5]
'Q111': cc = [0.9925526276311687, 0.007161407883127753, -0.0017891332783659003, 11.2]
'Q113': cc = [0.9949649181723395, 0.005394042720463821, -0.0014382949498306515, 12.8]
'Q111p': cc = [0.9925526276311687, 0.007161407883127753, -0.0017891332783659003, 11.2]
'Q113p': cc = [0.9949649181723395, 0.005394042720463821, -0.0014382949498306515, 12.8]
'Q217': cc = [1.0129709167366905, -0.005101169068593444, -0.000683203301567257, 16.7]
'Q219': cc = [1.0175292512259428, -0.007544762181222079, -0.0006248503973819523, 18.7]
'Q217p': cc = [1.0165157773037472, -0.006419637626097819, -0.000927550610591879, 16.7]
'Q219p': cc = [1.0136255722145442, -0.004544629474433171, -0.0010878048910708117, 18.7]
'Q311': cc = [0.9820571573496972, 0.011947716397192746, -0.0015316600265756597, 11.1]
'Q313': cc = [1.002376171424373, 0.00087053237460555, -0.0010541678118863593, 12.9]
'Q311p': cc = [0.9843034690253142, 0.011094990021336104, -0.0016791051042741416, 11.1]
'Q313p': cc = [0.9958959030027292, 0.0051175051270606255, -0.0014905894344412235, 12.9]
'Q417': cc = [0.9888926591458963, 0.006986281593109233, -0.0007107060258669477, 17.0]
'Q419': cc = [0.9886433438856964, 0.007541246196285672, -0.0009156379893644272, 19.0]
'Q417p': cc = [1.0029823815141663, 0.0008640490621996672, -0.0012140291472187072, 17.0]
'Q419p': cc = [0.9843617866675408, 0.010330165097893152, -0.0012211561793953436, 19.0]
ELSE: BEGIN
print,'Invalid detector specified for fastcc, returning zero.'
return, 0d
ENDELSE
ENDCASE
ENDIF ELSE BEGIN ; individual frequencies
IF (keyword_set(debug)) THEN print,'Using frequency ',freq
CASE freq OF
'CBASSNI': cc = [1.000103213196618, -0.0007238230723748647, -0.0013363809246677324, 4.76]
'CBASSNP': cc = [0.998561438218094, -0.0059052869678747595, -0.001680320871507042, 4.76]
'Q11': cc = [0.9820571573496972, 0.011947716397192746, -0.0015316600265756597, 11.1]
'Q13': cc = [1.002376171424373, 0.00087053237460555, -0.0010541678118863593, 12.9]
'Q11p': cc = [0.9843034690253142, 0.011094990021336104, -0.0016791051042741416, 11.1]
'Q13p': cc = [0.9958959030027292, 0.0051175051270606255, -0.0014905894344412235, 12.9]
'Q17': cc = [1.0045219086496582, -0.0008239816165386079, -0.000711213836891805, 16.8]
'Q19': cc = [1.0081938704016171, -0.0024991942821279652, -0.0007922783464949779, 18.8]
'Q17p': cc = [1.0199160282346944, -0.007745808622016744, -0.001118027841018008, 16.8]
'Q19p': cc = [1.0049510074155987, 0.00014833510393174123, -0.0012521222004909067, 18.8]
'P30': cc = [1.00513, 0.00301399, -0.00300699, 28.4]
'P44': cc = [0.994769, 0.00596703, -0.00173626, 44.1]
'P70': cc = [0.989711, 0.0106943, -0.00328671, 70.4]
'P100': cc = [0.99806035, -0.00576334, -0.00433317, 100.0]
'P143': cc = [1.0113103, 0.00652353, -0.00465055, 143.0]
'P217': cc = [0.98461574, -0.01773364, -0.00346536, 217.0]
'P353': cc = [0.98313624, -0.01902254, -0.00317299, 353.0]
'P545': cc = [0.98094696, -0.02082102, -0.00375779, 545.0]
'P857': cc = [0.994686, -0.00797382, -0.00402693, 857.0]
'WK' : cc = [0.972902, 0.0190469, -0.00276464, 22.8]
'WKa': cc = [0.983787, 0.0117567, -0.00183716, 33.0]
'WQ' : cc = [0.996854, 0.00496893, -0.00181359, 40.6]
'WV' : cc = [0.980322, 0.0143631, -0.00223596, 60.8]
'WW' : cc = [0.984848, 0.0112743, -0.00164595, 93.5]
'DB10': cc = [1.0056317, -0.0052173, -0.0119257, 1249]
'DB9': cc = [1.0347912, 0.0245728, -0.0095350, 2141]
'DB8': cc = [0.9593942, -0.0469581, -0.0075185, 2997]
'DB7': cc = [0.9079217, -0.0942761, -0.0068850, 4995]
'DB6': cc = [0.8160551, -0.1717965, 0.0103011, 11988]
'DB5': cc = [0.9816717, -0.0327394, -0.0178211, 24975]
'DB4': cc = [0.9947178, -0.0060948, -0.0008378, 61163]
'DB3': cc = [1.0030533, -0.0001524, -0.0032236, 85629]
'DB2': cc = [1.0064020, 0.0050962, -0.0012763, 136227]
'DB1': cc = [1.0073260, 0.0044317, -0.0028791, 239760]
'I100': cc = [0.9899184805240909, -0.01970072476335274, -0.007706943391147654, 2997]
'I60': cc = [0.9510100573154361, -0.06111819772388552, -0.016457316462171055, 4995]
'I25': cc = [0.9123700815757735, -0.08972760549528734, -0.0056369170040417305, 11988]
'I12': cc = [0.9083422603187424, -0.09300485963152248, -0.008759896726856715, 24975]
ELSE: BEGIN
print,'Invalid frequency specified for fastcc, returning zero.'
return, 0d
ENDELSE
ENDCASE
ENDELSE
ENDIF ELSE BEGIN ; 2013 version
IF (keyword_set(td)) THEN BEGIN
CASE freq OF
'P100': cc = [9.78302300e-01, -8.62236600e-04, 1.36959025e-05, -2.59891562e-02, -3.56237032e-03, 100.0]
'P143': cc = [1.02247059e+00, -9.17630852e-04, 1.45960412e-05, -1.14919655e-02, -4.26908862e-03, 143.0]
'P217': cc = [9.74371731e-01, -2.16696435e-03, 3.47218520e-05, -3.21109220e-02, -2.52205669e-03, 217.0]
'P353': cc = [1.00078213e+00, -3.71209905e-03, 5.97756043e-05, -3.04965433e-02, -2.43337080e-03, 353.0]
'P545': cc = [1.05366600e+00, -6.55682059e-03, 1.05510808e-04, -2.98897382e-02, -2.86604161e-03, 545.0]
'P857': cc = [1.09370363e+00, -6.18117163e-03, 9.40234822e-05, -9.27975681e-03, -3.77657381e-03, 857.0]
ELSE: BEGIN
print,'Invalid frequency specified for fastcc, returning zero.'
return, 0d
ENDELSE
ENDCASE
ENDIF ELSE IF (keyword_set(detector)) THEN BEGIN
IF (keyword_set(debug)) THEN print,'Using detector ',detector
CASE detector OF
'P18': cc = [0.98836, 0.0123556, -0.00394, 70.4]
'P19': cc = [0.93933, 0.0375844, -0.00225, 70.4]
'P20': cc = [0.95663, 0.0285644, -0.00273, 70.4]
'P21': cc = [0.97140, 0.0209690, -0.00318, 70.4]
'P22': cc = [1.02220,-0.0077263, -0.00327, 70.4]
'P23': cc = [1.00098, 0.0029940, -0.00240, 70.4]
'P24': cc = [0.99571, 0.0053247, -0.00175, 44.1]
'P25': cc = [0.98988, 0.0082248, -0.00161, 44.1]
'P26': cc = [0.98557, 0.0107023, -0.00175, 44.1]
'P27': cc = [0.98513, 0.0129780, -0.00288, 28.4]
'P28': cc = [0.98516, 0.0134605, -0.00318, 28.4]
'Q111': cc = [0.99278484, 0.00709364, -0.00182065, 11.2]
'Q113': cc = [0.99583466, 0.00512841, -0.00151745, 12.8]
'Q217': cc = [1.00166741, 4.87517031e-04, -6.63221982e-04, 16.7]
'Q219': cc = [0.997955472, 1.66235456e-03, -4.36898290e-04, 18.7]
'Q311': cc = [0.99421638, 0.00712698, -0.00234507, 11.1]
'Q313': cc = [0.98683305, 0.01021644, -0.00182772, 12.9]
'Q417': cc = [0.996066342, 3.10394890e-03, -5.71903939e-04, 17.0]
'Q419': cc = [0.997016199, 2.40564506e-03, -4.58929918e-04, 19.0]
ELSE: BEGIN
print,'Invalid detector specified for fastcc, returning zero.'
return, 0d
ENDELSE
ENDCASE
ENDIF ELSE BEGIN ; individual frequencies
IF (keyword_set(debug)) THEN print,'Using frequency ',freq
CASE freq OF
'Q11': cc = [0.99421638, 0.00712698, -0.00234507, 11.1]
'Q13': cc = [0.98683305, 0.01021644, -0.00182772, 12.9]
'Q17': cc = [1.00166741, 4.87517031e-04, -6.63221982e-04, 16.7] ; UPDATE
'Q19': cc = [0.997955472, 1.66235456e-03, -4.36898290e-04, 18.7] ; UPDATE
'P30': cc = [0.98520, 0.0131778, -0.00302, 28.4]
'P44': cc = [0.99059, 0.0079600, -0.00169, 44.1]
'P70': cc = [0.98149, 0.0152737, -0.00325, 70.4]
'P100': cc = [0.9957806, -0.0079764, -0.00431805, 100.0]
'P143': cc = [1.0115104, 0.00670483, -0.00465519, 143.0]
'P217': cc = [0.9843917, -0.01793987, -0.00345606, 217.0]
'P353': cc = [0.9834889, -0.01869916, -0.0031923, 353.0]
'P545': cc = [0.9852726, -0.01683206, -0.00393032, 545.0]
'P857': cc = [1.0015814, -0.00154559, -0.00421434, 857.0]
'WK': BEGIN
wmap=1
nu = [20.6, 22.8, 24.9]
w = [0.332906, 0.374325, 0.292768]
dT = 1.013438
END
'WKa': BEGIN
wmap=1
nu = [30.4, 33.0, 35.6]
w = [0.322425, 0.387532, 0.290043]
dT = 1.028413
END
'WQ': BEGIN
wmap=1
nu = [37.8, 40.7, 43.8]
w = [0.353635, 0.342752, 0.303613]
dT = 1.043500
END
'WV': BEGIN
wmap=1
nu = [55.7, 60.7, 66.2]
w = [0.337805, 0.370797, 0.291399]
dT = 1.098986
END
'WW': BEGIN
wmap=1
nu = [87.0, 93.5, 100.8]
w = [0.337633, 0.367513, 0.294854]
dT = 1.247521
END
'DB10': cc = [1.0056317, -0.0052173, -0.0119257, 1249]
'DB9': cc = [1.0347912, 0.0245728, -0.0095350, 2141]
'DB8': cc = [0.9593942, -0.0469581, -0.0075185, 2997]
'DB7': cc = [0.9079217, -0.0942761, -0.0068850, 4995]
'DB6': cc = [0.8160551, -0.1717965, 0.0103011, 11988]
'DB5': cc = [0.9816717, -0.0327394, -0.0178211, 24975]
'DB4': cc = [0.9947178, -0.0060948, -0.0008378, 61163]
'DB3': cc = [1.0030533, -0.0001524, -0.0032236, 85629]
'DB2': cc = [1.0064020, 0.0050962, -0.0012763, 136227]
'DB1': cc = [1.0073260, 0.0044317, -0.0028791, 239760]
'I100': cc = [0.9899184805240909, -0.01970072476335274, -0.007706943391147654, 2997]
'I60': cc = [0.9510100573154361, -0.06111819772388552, -0.016457316462171055, 4995]
'I25': cc = [0.9123700815757735, -0.08972760549528734, -0.0056369170040417305, 11988]
'I12': cc = [0.9083422603187424, -0.09300485963152248, -0.008759896726856715, 24975]
ELSE: BEGIN
print,'Invalid frequency specified for fastcc, returning zero.'
return, 0d
ENDELSE
ENDCASE
ENDELSE
ENDELSE
retfreq = 0.0
IF (wmap) THEN BEGIN
beta=-2.0+alpha
T0 = 1.0 * (nu[0]/nu[1])^beta
T1 = 1.0
T2 = 1.0 * (nu[2]/nu[1])^beta
dT = 1.0 ; Because conversion from T_CMB to T_RJ is done elsewhere.
fastCC = 1.0/(dT * (w[0]*T0 + w[1]*T1 + w[2]*T2))
retfreq = nu[1]
ENDIF ELSE BEGIN
IF SIZE(cc, /N_ELEMENTS) eq 6 THEN BEGIN
fastCC = cc[0] + cc[1]*td + cc[2]*td*td + cc[3]*bd + cc[4]*bd*bd
retfreq = cc[5]
ENDIF ELSE IF SIZE(cc, /N_ELEMENTS) eq 5 THEN BEGIN
fastCC = cc[0] + cc[1]*alpha + cc[2]*alpha*alpha + cc[3]*alpha*alpha*alpha
retfreq = cc[4]
ENDIF ELSE BEGIN
fastCC = cc[0] + cc[1]*alpha + cc[2]*alpha*alpha
retfreq = cc[3]
ENDELSE
ENDELSE
IF n_elements(returnfreq) ne 0 THEN BEGIN
returnfreq = retfreq
ENDIF
RETURN, fastCC
END