forked from paulricchiazzi/SBDART
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathtaugas.f
7835 lines (7530 loc) · 400 KB
/
taugas.f
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
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
c file: taugas.f
c
c external routines: kdistr,absint,taugas
c gasinit, gasset, depthscl, readk
c
c internal routines: slf296,slf260,frn296,sint,c4dta,hno3,
c hertda,o2cont,o2int,o3hht,o3int,o3uv,
c c8dta,cxdta,abcdta,schrun,volmix
c
c modules: gasblk, trcblk, kdstblk
c
c=======================================================================
module gasblk
use params, only: mxly, kr
integer, parameter :: nta=9
real(kr) :: bma(11), bmb(11), bmc(11), bms(11), cps(11)
real(kr) :: cph2o(3515), cpo3(447), cpco2(1219), cpco(173),
& cpch4(493), cpn2o(704), cpo2(382), cpnh3(431), cpno(62),
& cpno2(142), cpso2(226)
integer :: iwlh2o(15), iwlo3(6), iwlco2(11), iwlco(4), iwlch4(5),
& iwln2o(12), iwlo2(7), iwlnh3(3), iwlno(2), iwlno2(4),
& iwlso2(5), iwhh2o(15), iwho3(6), iwhco2(11), iwhco(4),
& iwhch4(5), iwhn2o(12), iwho2(7), iwhnh3(3), iwhno(2),
& iwhno2(4), iwhso2(5), ibnd(11)
c --- double exponential fit parameters for h2o
data cph2o(1:100)/
& -0.59366, -0.16679, 0.42846, 0.87819, 1.26357,
& 1.59247, 1.86372, 2.11483, 2.31810, 2.44040,
& 2.55998, 2.69879, 2.79810, 2.89747, 2.98118,
& 3.04863, 3.09568, 3.15381, 3.22984, 3.23785,
& 3.20991, 3.14246, 3.03461, 2.98864, 3.03520,
& 3.08981, 3.10027, 3.11302, 3.10266, 3.05765,
& 3.06166, 3.01593, 2.95500, 2.95328, 2.95297,
& 2.91497, 2.83753, 2.74642, 2.70474, 2.75606,
& 2.84097, 2.89052, 2.89886, 2.86150, 2.78032,
& 2.67212, 2.52752, 2.39301, 2.38109, 2.43965,
& 2.46195, 2.39329, 2.22943, 2.15815, 2.16157,
& 2.29683, 2.40335, 2.35569, 2.29239, 2.12968,
& 2.03781, 1.94313, 1.86282, 1.87312, 1.88177,
& 1.95321, 1.94145, 1.92602, 1.92812, 1.90587,
& 2.04943, 1.95396, 1.78078, 1.60325, 1.55071,
& 1.49473, 1.46485, 1.50231, 1.39831, 1.30664,
& 1.14704, 0.96109, 0.93139, 1.00613, 1.11827,
& 1.13529, 1.07767, 0.96652, 0.90777, 0.91973,
& 0.90622, 0.93883, 0.90861, 0.81968, 0.79852,
& 0.69385, 0.56997, 0.49693, 0.40867, 0.37846/
data cph2o(101:200)/
& 0.44490, 0.53554, 0.59020, 0.59196, 0.50771,
& 0.34361, 0.20796, 0.15417, 0.13600, 0.14235,
& 0.12700, 0.08853, 0.06715, 0.11430, 0.15016,
& 0.15016, 0.13964, 0.04897, -0.04476, -0.16953,
& -0.30196, -0.39901, -0.42462, -0.39340, -0.35671,
& -0.30771, -0.31570, -0.35021, -0.47016, -0.62308,
& -0.77946, -0.85086, -0.82482, -0.83468, -0.83991,
& -0.89726, -0.90918, -0.84484, -0.71025, -0.62777,
& -0.66324, -0.76848, -1.03341, -1.27044, -1.49576,
& -1.61769, -1.53549, -1.47958, -1.33160, -1.29625,
& -1.40768, -1.52411, -1.72765, -1.82510, -1.76468,
& -1.70983, -1.59977, -1.50730, -1.46683, -1.39464,
& -1.43093, -1.58947, -1.78778, -2.06146, -2.33634,
& -2.40749, -2.49065, -2.44182, -2.25150, -2.19801,
& -2.08624, -2.10309, -2.27174, -2.36492, -2.45781,
& -2.44508, -2.36196, -2.38101, -2.48058, -2.61957,
& -2.74895, -2.74245, -2.63961, -2.61588, -2.61569,
& -2.71770, -2.92220, -3.01021, -2.99432, -2.89456,
& -2.79847, -2.73359, -2.69055, -2.65898, -2.60837,
& -2.63170, -2.79096, -2.97394, -3.15934, -3.17057/
data cph2o(201:300)/
& -2.95258, -2.78308, -2.69196, -2.60867, -2.62239,
& -2.62637, -2.62950, -2.71010, -2.72574, -2.71317,
& -2.61321, -2.51967, -2.42437, -2.38734, -2.45056,
& -2.47843, -2.58702, -2.56472, -2.44706, -2.30814,
& -2.12582, -2.02697, -1.99880, -2.05659, -2.05701,
& -2.06643, -2.04721, -1.90723, -1.90946, -1.92812,
& -1.86522, -1.88820, -1.77270, -1.60669, -1.51740,
& -1.40182, -1.38758, -1.38799, -1.41620, -1.43182,
& -1.37124, -1.28249, -1.09992, -0.99724, -0.97950,
& -0.99952, -1.09066, -1.09980, -1.00750, -0.87259,
& -0.70131, -0.48309, -0.30502, -0.20407, -0.13886,
& -0.19661, -0.24505, -0.28415, -0.34466, -0.34496,
& -0.28657, -0.09485, 0.16770, 0.38311, 0.48553,
& 0.49475, 0.49074, 0.52493, 0.57439, 0.60303,
& 0.66919, 0.75656, 0.90385, 1.04976, 1.13836,
& 1.20132, 1.21963, 1.30344, 1.41212, 1.46770,
& 1.47630, 1.45559, 1.43315, 1.49679, 1.62749,
& 1.68517, 1.70120, 1.66090, 1.59891, 1.64107,
& 1.76792, 1.93419, 2.09362, 2.13280, 2.07959,
& 2.01987, 1.96835, 2.03073, 2.17591, 2.32257/
data cph2o(301:400)/
& 2.49261, 2.60881, 2.66112, 2.68139, 2.70360,
& 2.70568, 2.67997, 2.66478, 2.63655, 2.59716,
& 2.57555, 2.58781, 2.58940, 2.50826, 2.28771,
& 1.95070, 1.59144, 1.31269, 1.21786, 1.22507,
& 1.31945, 1.53875, 1.78543, 2.02655, 2.22881,
& 2.32061, 2.34163, 2.39432, 2.43073, 2.53438,
& 2.55861, 2.51156, 2.46499, 2.46254, 2.51561,
& 2.56373, 2.62430, 2.67999, 2.68386, 2.68780,
& 2.68227, 2.59536, 2.42505, 2.29307, 2.17816,
& 2.11945, 2.20521, 2.32197, 2.38083, 2.38052,
& 2.25417, 2.11473, 2.06142, 2.02788, 2.01508,
& 1.97680, 1.91586, 1.87253, 1.83706, 1.80766,
& 1.67367, 1.45528, 1.29956, 1.18809, 1.20246,
& 1.33650, 1.45778, 1.48886, 1.40546, 1.22716,
& 1.01444, 0.91282, 0.87247, 0.83576, 0.80170,
& 0.71481, 0.66927, 0.65846, 0.66839, 0.68503,
& 0.66215, 0.72413, 0.78703, 0.77831, 0.71136,
& 0.51200, 0.35931, 0.30680, 0.33365, 0.36267,
& 0.32095, 0.25710, 0.12363, -0.02266, -0.18001,
& -0.28048, -0.27808, -0.19047, -0.08151, -0.09169/
data cph2o(401:500)/
& -0.16662, -0.24404, -0.27238, -0.27345, -0.32244,
& -0.42037, -0.54071, -0.63500, -0.69930, -0.77174,
& -0.83521, -0.86639, -0.82329, -0.78820, -0.82340,
& -0.83838, -0.91387, -0.96524, -0.96364, -1.05757,
& -1.12747, -1.19973, -1.27071, -1.30173, -1.34436,
& -1.35556, -1.35990, -1.30386, -1.26726, -1.28022,
& -1.32843, -1.43599, -1.55929, -1.69416, -1.79362,
& -1.86416, -1.90037, -1.91305, -1.94866, -1.95483,
& -1.92284, -1.87535, -1.83065, -1.86043, -1.93470,
& -2.01410, -2.07677, -2.07980, -2.01822, -1.96078,
& -1.95185, -1.96638, -2.05704, -2.17667, -2.24120,
& -2.27833, -2.33268, -2.37375, -2.43075, -2.54346,
& -2.60789, -2.68442, -2.78402, -2.83736, -2.89622,
& -2.95598, -3.03170, -3.13338, -3.26736, -3.41725,
& -3.51456, -3.61586, -3.67210, -3.67841, -3.72135,
& -3.74941, -3.78822, -3.85868, -3.90419, -3.91592,
& -3.97897, -4.00562, -4.08675, -4.18795, -4.15833,
& -4.18094, -4.18872, -4.25849, -4.42026, -4.57444,
& -4.64021, -4.58636, -4.51788, -4.46274, -4.44165,
& -4.45450, -4.42101, -4.35067, -4.30493, -4.23157/
data cph2o(501:600)/
& -4.11952, -4.01918, -3.93341, -3.81424, -3.70572,
& -3.62484, -3.48143, -3.35886, -3.26514, -3.15517,
& -3.02814, -2.95147, -2.83444, -2.68908, -2.62390,
& -2.50458, -2.39841, -2.35516, -2.24360, -2.18204,
& -2.16652, -2.08381, -2.02597, -1.99880, -1.90122,
& -1.84045, -1.82575, -1.74889, -1.70489, -1.66792,
& -1.60475, -1.59789, -1.59221, -1.60854, -1.66569,
& -1.68527, -1.72998, -1.79886, -1.81356, -1.82715,
& -1.79425, -1.61106, -1.40549, -1.24369, -1.15433,
& -1.23589, -1.44178, -1.64717, -1.78560, -1.84622,
& -1.77824, -1.69071, -1.66066, -1.58765, -1.54222,
& -1.51960, -1.45477, -1.39881, -1.38659, -1.37586,
& -1.36025, -1.39179, -1.36927, -1.35455, -1.38734,
& -1.40292, -1.45598, -1.51545, -1.56173, -1.62478,
& -1.69200, -1.75192, -1.81120, -1.83354, -1.87063,
& -1.89006, -1.88485, -1.90298, -1.85403, -1.82001,
& -1.82495, -1.82901, -1.90076, -1.93649, -1.83304,
& -1.70268, -1.52380, -1.41443, -1.41301, -1.39373,
& -1.34561, -1.20932, -1.03186, -0.85296, -0.71145,
& -0.59825, -0.51884, -0.51690, -0.51723, -0.52224/
data cph2o(601:700)/
& -0.50043, -0.40989, -0.32204, -0.24881, -0.18653,
& -0.17548, -0.22729, -0.32885, -0.46183, -0.47994,
& -0.36042, -0.23072, -0.12160, -0.06422, -0.14924,
& -0.21674, -0.17913, -0.15803, -0.04515, 0.14450,
& 0.28118, 0.39718, 0.49818, 0.51040, 0.44761,
& 0.29666, 0.01147, -0.32421, -0.66518, -0.96090,
& -1.13017, -1.18009, -1.08032, -0.80133, -0.52001,
& -0.33748, -0.22519, -0.20871, -0.26962, -0.22592,
& -0.15919, -0.07358, 0.09367, 0.20019, 0.25965,
& 0.27816, 0.28577, 0.22305, 0.17722, 0.14469,
& 0.06694, 0.07268, 0.10103, 0.14554, 0.20352,
& 0.25681, 0.25790, 0.21316, 0.15965, 0.08703,
& 0.01638, -0.03529, -0.03274, -0.08812, -0.12524,
& -0.13536, -0.23808, -0.28262, -0.30082, -0.29252,
& -0.13320, 0.05226, 0.17657, 0.21670, 0.12268,
& 0.00438, -0.03051, -0.00359, 0.02967, 0.04460,
& -0.01109, -0.06041, -0.07485, -0.02511, 0.07116,
& 0.18506, 0.27668, 0.32130, 0.35452, 0.39867,
& 0.36470, 0.34978, 0.36519, 0.38993, 0.47009,
& 0.54349, 0.60193, 0.67101, 0.73253, 0.84100/
data cph2o(701:800)/
& 0.92974, 1.00406, 1.06301, 1.07261, 1.09629,
& 1.10790, 1.10959, 1.11710, 1.15716, 1.24152,
& 1.34834, 1.45152, 1.53939, 1.59331, 1.60894,
& 1.63833, 1.67031, 1.74144, 1.82069, 1.90463,
& 1.98593, 2.02996, 2.10254, 2.16357, 2.16140,
& 2.11190, 2.06655, 2.02241, 2.02978, 2.06771,
& 2.04985, 2.02048, 1.99566, 2.01593, 2.11269,
& 2.22805, 2.27037, 2.23480, 2.16907, 2.09990,
& 2.08096, 2.10710, 2.15298, 2.19061, 2.25811,
& 2.34221, 2.43200, 2.59765, 2.72007, 2.77243,
& 2.71671, 2.56246, 2.33896, 2.14412, 1.97864,
& 1.79640, 1.73371, 1.71380, 1.74950, 1.91932,
& 2.10063, 2.26262, 2.36884, 2.42988, 2.47605,
& 2.51875, 2.53371, 2.51476, 2.47425, 2.40051,
& 2.39254, 2.39540, 2.35342, 2.33460, 2.26830,
& 2.17169, 2.09605, 2.04747, 2.01127, 1.89721,
& 1.74928, 1.55948, 1.38069, 1.34831, 1.35751,
& 1.35809, 1.34286, 1.25929, 1.16743, 1.09595,
& 1.00365, 0.87965, 0.76257, 0.64206, 0.56343,
& 0.49943, 0.40691, 0.29104, 0.18437, 0.12690/
data cph2o(801:900)/
& 0.09157, 0.13377, 0.18899, 0.20257, 0.19155,
& 0.09384, -0.01238, -0.14283, -0.26122, -0.31851,
& -0.45610, -0.58273, -0.65867, -0.73100, -0.66169,
& -0.52264, -0.46798, -0.50258, -0.59104, -0.72925,
& -0.81067, -0.80914, -0.86943, -0.92975, -0.92524,
& -0.88289, -0.79203, -0.69250, -0.68167, -0.75444,
& -0.86193, -0.97556, -1.10473, -1.20018, -1.24824,
& -1.27702, -1.22693, -1.18773, -1.13552, -1.14015,
& -1.21589, -1.26394, -1.39464, -1.46192, -1.52629,
& -1.64635, -1.71511, -1.78752, -1.79358, -1.77801,
& -1.75599, -1.77196, -1.83224, -1.89985, -1.98528,
& -2.09408, -2.24126, -2.37607, -2.43218, -2.43830,
& -2.38400, -2.33538, -2.43573, -2.52275, -2.67290,
& -2.83451, -2.93019, -3.01749, -3.02463, -2.99666,
& -2.95414, -2.91300, -2.96493, -3.07471, -3.25693,
& -3.47657, -3.67222, -3.88925, -3.97727, -3.94079,
& -3.81920, -3.66194, -3.59739, -3.64351, -3.74016,
& -3.90037, -4.04679, -4.07663, -4.03256, -3.91836,
& -3.80990, -3.76032, -3.77951, -3.84240, -3.90305,
& -3.92223, -3.82628, -3.65450, -3.44339, -3.25756/
data cph2o(901:1000)/
& -3.09919, -3.00901, -2.95747, -2.88271, -2.82108,
& -2.72633, -2.59367, -2.46775, -2.36235, -2.28438,
& -2.27343, -2.30886, -2.33620, -2.27813, -2.20677,
& -2.16170, -2.14594, -2.24245, -2.36299, -2.42996,
& -2.50866, -2.55678, -2.50968, -2.47465, -2.42796,
& -2.37981, -2.34092, -2.30518, -2.26753, -2.27390,
& -2.44156, -2.72384, -3.06108, -3.38056, -3.48970,
& -3.41674, -3.36528, -3.27790, -3.15495, -3.01945,
& -2.81869, -2.66003, -2.56096, -2.49017, -2.46335,
& -2.51454, -2.59743, -2.67025, -2.78841, -2.77863,
& -2.63881, -2.54169, -2.40240, -2.37146, -2.46253,
& -2.54291, -2.65346, -2.69467, -2.69130, -2.65025,
& -2.59152, -2.56343, -2.50785, -2.44665, -2.41418,
& -2.34553, -2.28223, -2.25278, -2.20694, -2.16892,
& -2.14295, -2.14341, -2.16443, -2.24853, -2.38594,
& -2.49449, -2.58047, -2.55462, -2.41673, -2.35641,
& -2.32619, -2.34603, -2.40102, -2.30576, -2.20532,
& -2.09307, -2.00782, -2.00039, -1.91252, -1.80383,
& -1.65749, -1.55728, -1.59262, -1.70939, -1.83569,
& -1.84895, -1.71457, -1.53813, -1.41904, -1.37588/
data cph2o(1001:1100)/
& -1.39458, -1.39135, -1.35232, -1.30470, -1.24821,
& -1.20394, -1.19607, -1.15995, -1.13948, -1.11024,
& -1.03785, -0.99804, -0.95430, -0.92707, -0.93592,
& -0.93528, -0.86881, -0.75121, -0.55836, -0.35056,
& -0.22085, -0.13412, -0.12673, -0.13867, -0.11656,
& -0.07357, 0.01888, 0.11050, 0.20428, 0.29291,
& 0.35923, 0.43608, 0.47266, 0.49792, 0.54978,
& 0.60489, 0.67778, 0.71787, 0.73606, 0.74796,
& 0.75193, 0.81728, 0.87972, 0.95990, 1.07451,
& 1.13098, 1.17565, 1.19031, 1.20334, 1.27687,
& 1.35910, 1.41924, 1.37988, 1.28213, 1.16286,
& 1.08658, 1.06554, 1.03702, 1.01290, 0.95519,
& 0.94231, 0.94216, 0.95764, 1.03405, 1.11309,
& 1.27076, 1.48131, 1.66125, 1.76502, 1.68299,
& 1.50126, 1.28195, 1.13724, 1.09863, 1.12031,
& 1.23502, 1.34328, 1.39556, 1.40851, 1.40939,
& 1.40259, 1.39505, 1.38427, 1.33724, 1.29860,
& 1.34354, 1.43194, 1.50874, 1.54493, 1.48740,
& 1.37260, 1.26973, 1.21297, 1.11026, 0.97625,
& 0.87238, 0.76100, 0.71825, 0.73936, 0.69604/
data cph2o(1101:1200)/
& 0.64138, 0.59585, 0.51097, 0.44903, 0.40524,
& 0.29892, 0.21583, 0.19145, 0.15378, 0.13759,
& 0.09412, -0.04455, -0.18870, -0.28538, -0.37204,
& -0.46390, -0.57884, -0.70647, -0.78911, -0.79511,
& -0.76645, -0.76146, -0.80163, -0.83155, -0.86672,
& -0.92994, -0.99971, -1.10990, -1.25701, -1.32841,
& -1.33350, -1.35269, -1.31799, -1.35095, -1.48830,
& -1.57874, -1.67539, -1.72874, -1.68087, -1.67518,
& -1.73066, -1.77654, -1.79238, -1.81386, -1.77187,
& -1.73774, -1.78673, -1.82129, -1.86174, -1.87867,
& -1.92986, -1.95895, -1.98042, -2.10738, -2.14350,
& -2.22883, -2.35165, -2.30593, -2.31343, -2.23607,
& -2.17791, -2.29047, -2.40740, -2.60466, -2.70413,
& -2.67647, -2.64479, -2.62274, -2.66727, -2.67591,
& -2.66531, -2.64576, -2.69566, -2.79611, -2.90809,
& -2.99381, -2.94495, -2.94833, -2.97002, -3.01283,
& -3.07907, -3.08348, -3.06412, -3.08084, -3.20105,
& -3.32453, -3.49652, -3.63219, -3.65897, -3.69476,
& -3.63741, -3.54369, -3.44992, -3.41310, -3.43168,
& -3.48306, -3.57513, -3.59385, -3.59684, -3.60814/
data cph2o(1201:1300)/
& -3.50612, -3.41284, -3.34107, -3.27248, -3.26950,
& -3.31027, -3.32205, -3.29589, -3.29768, -3.28777,
& -3.29950, -3.39843, -3.43784, -3.47042, -3.54250,
& -3.55457, -3.69278, -3.82390, -3.91709, -4.02428,
& -3.97802, -4.04945, -3.99837, -3.96096, -4.01515,
& -4.01286, -4.27890, -4.64526, -4.92520, -5.20714,
& -5.02961, -4.88315, -4.85584, -4.76921, -4.54440,
& -4.33075, -4.16671, -4.04406, -4.09564, -4.11792,
& -4.14522, -4.19109, -4.14906, -4.22221, -4.35301,
& -4.47867, -4.50537, -4.41913, -4.24856, -4.05892,
& -3.91396, -3.73977, -3.60042, -3.52610, -3.50040,
& -3.55218, -3.66025, -3.77097, -3.87835, -3.96454,
& -3.93046, -3.92926, -3.96805, -3.99038, -4.10179,
& -4.21981, -4.24013, -4.26190, -4.27753, -4.25594,
& -4.28500, -4.29071, -4.26155, -4.16114, -4.04160,
& -3.91756, -3.82524, -3.76258, -3.74207, -3.77017,
& -3.80666, -3.92858, -4.01356, -4.10145, -4.16708,
& -4.09123, -4.00345, -3.88032, -3.81171, -3.80771,
& -3.83212, -3.88507, -3.81399, -3.70048, -3.58376,
& -3.46350, -3.42785, -3.41629, -3.40329, -3.36172/
data cph2o(1301:1400)/
& -3.26599, -3.16908, -3.10954, -3.03394, -2.95828,
& -2.85536, -2.71469, -2.60076, -2.48946, -2.38513,
& -2.32220, -2.30051, -2.34186, -2.37590, -2.33267,
& -2.21087, -2.03216, -1.91013, -1.82328, -1.77996,
& -1.76714, -1.72488, -1.71325, -1.67669, -1.62963,
& -1.60411, -1.54027, -1.47681, -1.37155, -1.25978,
& -1.23494, -1.26986, -1.33751, -1.37220, -1.28322,
& -1.14853, -1.03021, -0.89832, -0.84340, -0.83317,
& -0.78856, -0.76905, -0.69209, -0.53147, -0.37401,
& -0.25508, -0.21755, -0.22627, -0.23936, -0.22223,
& -0.17345, -0.11880, -0.10331, -0.15444, -0.20353,
& -0.25350, -0.26628, -0.13441, 0.02358, 0.13657,
& 0.22032, 0.19637, 0.12621, 0.07999, 0.04393,
& -0.01900, -0.06543, -0.08129, -0.14847, -0.17765,
& -0.23113, -0.29309, -0.28723, -0.27521, -0.20013,
& -0.11575, -0.00428, 0.10976, 0.16530, 0.18309,
& 0.13200, 0.10610, 0.10394, 0.13621, 0.17117,
& 0.17251, 0.18671, 0.16161, 0.16640, 0.18417,
& 0.18573, 0.24876, 0.26103, 0.28476, 0.33612,
& 0.30642, 0.30150, 0.27173, 0.21976, 0.23130/
data cph2o(1401:1500)/
& 0.27376, 0.30887, 0.34334, 0.34765, 0.31180,
& 0.30774, 0.31256, 0.35423, 0.42454, 0.44493,
& 0.43846, 0.44507, 0.43684, 0.49327, 0.53868,
& 0.51933, 0.54592, 0.54951, 0.63201, 0.74737,
& 0.80266, 0.88719, 0.87874, 0.84412, 0.84352,
& 0.81737, 0.86380, 0.94765, 0.95553, 0.93965,
& 0.90241, 0.91481, 1.00917, 1.11552, 1.15202,
& 1.06885, 0.96737, 0.85164, 0.80701, 0.82571,
& 0.87391, 0.98520, 1.07042, 1.18051, 1.29004,
& 1.37755, 1.48278, 1.47663, 1.40851, 1.27508,
& 1.11986, 0.98454, 0.88260, 0.82338, 0.79509,
& 0.83355, 0.91046, 1.04503, 1.21868, 1.36672,
& 1.46155, 1.47085, 1.46520, 1.42619, 1.37940,
& 1.41333, 1.43128, 1.45974, 1.54526, 1.53032,
& 1.48103, 1.39624, 1.26267, 1.17261, 1.09232,
& 1.05888, 1.01929, 0.94626, 0.87615, 0.73334,
& 0.61962, 0.52576, 0.40124, 0.32424, 0.20042,
& 0.05769, -0.09325, -0.27407, -0.40779, -0.52559,
& -0.58490, -0.57916, -0.54457, -0.50743, -0.45937,
& -0.41861, -0.41520, -0.39164, -0.36510, -0.30857/
data cph2o(1501:1600)/
& -0.23157, -0.18280, -0.15878, -0.21295, -0.29332,
& -0.39457, -0.54826, -0.71006, -0.87700, -0.96819,
& -0.98703, -0.93748, -0.83916, -0.78698, -0.76209,
& -0.80754, -0.93347, -1.06076, -1.15801, -1.16256,
& -1.09618, -1.03195, -1.05522, -1.13586, -1.23387,
& -1.33214, -1.32682, -1.33648, -1.38038, -1.42553,
& -1.49769, -1.52950, -1.54445, -1.56745, -1.61707,
& -1.69148, -1.76787, -1.82556, -1.84347, -1.86221,
& -1.87097, -1.84614, -1.88659, -1.98535, -2.12108,
& -2.27740, -2.39335, -2.39886, -2.33846, -2.30442,
& -2.27409, -2.29854, -2.39124, -2.56427, -2.73609,
& -2.88840, -3.00443, -3.02685, -3.09379, -3.16003,
& -3.13090, -3.06189, -3.00807, -2.95169, -3.01568,
& -3.11918, -3.18931, -3.35446, -3.46712, -3.51002,
& -3.48618, -3.36603, -3.29278, -3.32935, -3.47177,
& -3.61763, -3.68930, -3.67420, -3.62078, -3.67644,
& -3.76717, -3.78944, -3.79818, -3.75336, -3.74321,
& -3.86778, -3.96899, -4.05004, -4.15451, -4.17979,
& -4.22704, -4.28851, -4.25560, -4.21920, -4.27564,
& -4.42921, -4.58506, -4.70967, -4.80136, -4.64650/
data cph2o(1601:1700)/
& -4.65341, -4.51995, -4.42433, -4.42137, -4.44853,
& -4.44819, -4.49132, -4.49176, -4.52929, -4.58468,
& -4.60533, -4.62362, -4.60168, -4.59803, -4.45292,
& -4.26920, -4.09891, -3.92615, -3.86016, -3.69436,
& -3.53699, -3.38584, -3.23356, -3.19281, -3.14232,
& -3.11326, -3.04386, -2.90514, -2.80270, -2.68808,
& -2.62726, -2.61349, -2.57111, -2.54465, -2.47142,
& -2.42795, -2.40936, -2.37936, -2.41255, -2.40417,
& -2.41017, -2.39774, -2.33861, -2.23985, -2.08388,
& -2.00350, -1.93767, -1.91020, -1.92815, -1.89802,
& -1.85648, -1.84229, -1.86062, -1.89799, -1.95863,
& -2.01858, -2.05596, -2.06508, -2.02824, -1.93392,
& -1.83965, -1.74890, -1.71252, -1.72275, -1.71193,
& -1.68781, -1.66945, -1.64316, -1.63675, -1.69286,
& -1.70297, -1.72751, -1.75100, -1.73714, -1.79804,
& -1.84371, -1.86235, -1.88812, -1.83704, -1.77649,
& -1.70661, -1.60188, -1.50341, -1.43505, -1.46076,
& -1.51651, -1.57911, -1.61619, -1.55812, -1.49706,
& -1.45230, -1.42832, -1.44314, -1.52138, -1.60752,
& -1.62106, -1.64265, -1.64250, -1.64573, -1.74951/
data cph2o(1701:1800)/
& -1.80667, -1.76036, -1.68790, -1.57515, -1.53228,
& -1.57292, -1.61350, -1.65583, -1.63563, -1.58694,
& -1.56417, -1.53128, -1.54079, -1.55014, -1.53022,
& -1.53190, -1.50230, -1.50260, -1.49991, -1.45992,
& -1.41944, -1.31703, -1.21850, -1.14990, -1.08809,
& -1.04748, -1.01748, -0.95109, -0.84680, -0.74538,
& -0.60472, -0.50362, -0.46372, -0.42447, -0.44838,
& -0.44419, -0.40683, -0.38084, -0.33053, -0.32846,
& -0.33572, -0.31158, -0.29906, -0.20305, -0.13083,
& -0.09973, -0.06963, -0.12740, -0.20199, -0.29978,
& -0.35896, -0.38843, -0.41730, -0.45017, -0.51507,
& -0.56213, -0.57297, -0.50844, -0.42276, -0.29372,
& -0.08843, 0.09240, 0.25840, 0.28311, 0.13891,
& -0.06768, -0.28207, -0.39760, -0.40444, -0.31138,
& -0.14305, -0.02128, 0.04782, 0.08894, 0.10200,
& 0.09648, 0.10814, 0.09787, 0.04275, 0.07559,
& 0.12150, 0.14186, 0.19034, 0.13856, 0.07934,
& 0.05903, -0.00117, -0.04140, -0.11747, -0.21938,
& -0.28241, -0.37335, -0.49225, -0.58631, -0.68229,
& -0.75086, -0.77623, -0.84652, -0.93691, -1.00829/
data cph2o(1801:1900)/
& -1.07836, -1.10936, -1.10990, -1.10672, -1.07623,
& -1.03447, -1.01613, -1.00369, -0.99511, -1.06778,
& -1.12221, -1.14258, -1.19379, -1.17257, -1.15262,
& -1.17033, -1.16389, -1.14503, -1.13643, -1.12323,
& -1.19203, -1.33003, -1.47540, -1.65339, -1.68424,
& -1.66968, -1.67118, -1.61782, -1.65910, -1.73337,
& -1.81449, -1.93135, -2.03554, -2.03827, -1.99609,
& -2.00710, -2.03895, -2.19678, -2.30931, -2.30301,
& -2.23226, -2.07787, -2.03277, -2.03851, -2.10514,
& -2.23452, -2.33474, -2.44465, -2.43944, -2.37675,
& -2.35973, -2.37611, -2.48915, -2.59681, -2.62562,
& -2.61907, -2.61274, -2.73225, -2.84636, -2.91882,
& -2.95084, -2.84617, -2.83687, -2.84531, -2.82928,
& -2.88406, -2.93621, -3.00526, -3.09956, -3.16051,
& -3.18338, -3.25056, -3.38003, -3.56102, -3.72396,
& -3.80811, -3.82369, -3.79760, -3.90921, -4.04910,
& -4.14132, -4.22416, -4.16634, -4.21193, -4.37375,
& -4.54004, -4.54848, -4.34009, -4.10097, -3.93945,
& -3.99014, -4.18155, -4.46321, -4.84035, -4.95672,
& -4.88529, -4.92967, -5.09480, -5.27981, -5.39165/
data cph2o(1901:2000)/
& -5.32774, -5.16805, -5.26308, -5.53619, -5.93153,
& -6.48485, -6.38350, -6.02883, -5.76237, -5.65535,
& -5.58220, -5.58090, -5.69939, -5.87562, -6.23761,
& -6.45380, -6.50710, -6.40861, -6.18069, -6.15034,
& -6.12957, -6.08168, -6.05912, -6.20029, -6.35916,
& -6.63834, -7.22799, -6.87579, -6.38557, -6.05701,
& -5.77145, -5.71889, -5.54063, -5.34887, -5.20440,
& -5.01687, -4.88229, -4.75732, -4.61829, -4.47540,
& -4.40382, -4.22901, -4.07893, -3.91067, -3.71540,
& -3.66982, -3.60413, -3.59635, -3.66139, -3.67630,
& -3.61574, -3.49060, -3.33033, -3.18950, -3.19004,
& -3.27293, -3.43811, -3.58539, -3.69658, -3.64411,
& -3.52966, -3.51758, -3.45900, -3.56858, -3.67516,
& -3.75396, -3.80574, -3.77074, -3.74231, -3.63809,
& -3.64323, -3.59911, -3.62673, -3.64385, -3.54801,
& -3.49160, -3.38461, -3.33358, -3.21719, -3.04173,
& -2.89493, -2.77334, -2.79171, -2.91085, -3.04844,
& -3.23627, -3.31742, -3.35484, -3.39756, -3.34285,
& -3.36017, -3.34117, -3.26031, -3.20256, -3.07615,
& -2.98533, -3.01199, -3.13943, -3.33780, -3.54162/
data cph2o(2001:2100)/
& -3.64413, -3.59251, -3.59490, -3.60162, -3.66139,
& -3.81236, -3.87304, -4.04749, -4.11623, -4.09447,
& -4.12708, -3.91916, -3.77960, -3.62012, -3.44890,
& -3.42739, -3.42156, -3.36932, -3.34675, -3.22941,
& -3.12258, -3.12447, -3.07216, -3.06608, -3.04637,
& -2.99581, -3.00597, -2.94524, -2.83430, -2.69244,
& -2.53460, -2.44553, -2.36211, -2.25128, -2.12504,
& -1.99329, -1.94694, -1.96858, -2.02552, -2.02890,
& -1.95458, -1.83064, -1.68469, -1.63148, -1.63055,
& -1.64868, -1.68433, -1.65098, -1.54445, -1.45543,
& -1.39405, -1.35500, -1.38974, -1.43708, -1.49729,
& -1.58141, -1.63709, -1.71988, -1.74834, -1.78729,
& -1.81439, -1.79445, -1.80727, -1.78446, -1.77116,
& -1.69515, -1.57106, -1.41358, -1.22505, -1.11749,
& -1.06719, -1.05722, -1.05923, -1.08022, -1.08249,
& -1.05940, -1.05527, -0.97884, -0.90009, -0.86984,
& -0.84202, -0.84891, -0.86571, -0.87771, -0.86436,
& -0.89675, -0.95811, -0.95681, -0.98685, -0.91920,
& -0.79481, -0.73405, -0.63486, -0.61580, -0.66083,
& -0.69059, -0.75323, -0.74477, -0.65052, -0.58475/
data cph2o(2101:2200)/
& -0.56151, -0.61494, -0.70313, -0.70147, -0.64776,
& -0.57626, -0.52669, -0.56405, -0.57813, -0.57452,
& -0.57656, -0.52371, -0.48121, -0.47066, -0.44204,
& -0.42321, -0.43939, -0.40019, -0.34592, -0.36666,
& -0.36117, -0.41494, -0.53334, -0.63311, -0.73668,
& -0.83196, -0.91543, -0.92801, -0.91893, -0.82619,
& -0.64369, -0.45814, -0.28838, -0.20295, -0.12845,
& -0.12789, -0.14668, -0.10804, -0.12206, -0.08664,
& -0.05495, -0.09929, -0.16477, -0.24481, -0.32305,
& -0.39276, -0.44000, -0.52873, -0.60139, -0.69141,
& -0.79857, -0.89923, -1.00968, -1.08832, -1.14958,
& -1.21303, -1.28067, -1.38492, -1.47822, -1.51729,
& -1.55518, -1.53633, -1.51062, -1.50327, -1.51801,
& -1.57645, -1.65941, -1.73134, -1.75165, -1.72655,
& -1.71606, -1.73263, -1.74728, -1.79286, -1.73848,
& -1.66180, -1.56283, -1.40366, -1.32738, -1.25309,
& -1.25065, -1.26987, -1.24009, -1.22822, -1.19404,
& -1.20867, -1.23645, -1.19332, -1.13591, -1.08205,
& -1.04976, -1.14128, -1.23489, -1.27858, -1.33065,
& -1.28360, -1.22682, -1.18706, -1.15823, -1.14067/
data cph2o(2201:2300)/
& -1.16633, -1.17506, -1.15970, -1.19126, -1.19843,
& -1.30385, -1.42862, -1.58004, -1.72327, -1.78743,
& -1.86895, -1.85190, -1.80529, -1.69422, -1.49103,
& -1.32529, -1.20009, -1.13762, -1.11678, -1.13199,
& -1.16550, -1.16402, -1.17932, -1.17405, -1.15184,
& -1.20924, -1.29157, -1.34831, -1.38571, -1.42632,
& -1.43812, -1.50800, -1.62119, -1.70590, -1.86161,
& -2.00714, -2.11745, -2.25960, -2.34777, -2.44254,
& -2.64264, -2.83979, -3.04320, -3.29364, -3.41153,
& -3.49359, -3.60572, -3.67873, -3.78090, -3.85398,
& -3.88200, -3.83753, -3.77740, -3.85401, -3.79646,
& -3.72746, -3.70451, -3.59083, -3.70223, -3.88363,
& -4.03077, -4.20725, -4.19594, -4.16725, -4.13410,
& -4.16791, -4.12138, -4.08875, -4.14355, -4.10163,
& -4.19018, -4.25695, -4.31184, -4.47906, -4.51148,
& -4.57929, -4.59458, -4.62081, -4.83031, -5.02522,
& -5.15710, -5.27403, -5.22837, -5.32058, -5.55260,
& -5.72630, -5.86735, -5.86402, -5.84419, -5.89720,
& -6.15533, -6.51283, -6.98011, -7.28495, -7.08784,
& -6.77605, -6.49215, -6.43947, -6.42083, -6.59354/
data cph2o(2301:2400)/
& -6.78419, -6.98883, -7.11018, -6.93420, -6.83581,
& -6.87136, -6.96133, -7.28561, -8.27079, -8.59451,
& -9.45197, -8.33631, -8.21424, -6.89777, -6.27923,
& -5.89945, -5.66364, -5.69459, -5.87082, -5.81185,
& -5.70141, -5.45890, -5.24048, -5.30703, -5.32430,
& -5.18694, -5.03410, -4.82279, -4.72208, -4.55097,
& -4.36284, -4.20326, -4.04534, -4.05883, -4.01183,
& -3.93857, -3.83212, -3.66113, -3.56021, -3.45969,
& -3.38518, -3.33373, -3.32721, -3.34771, -3.35412,
& -3.34584, -3.22701, -3.14293, -3.09481, -3.05706,
& -3.13587, -3.18156, -3.26336, -3.34559, -3.38498,
& -3.39054, -3.33695, -3.34959, -3.36191, -3.53258,
& -3.66238, -3.68946, -3.69155, -3.52990, -3.48606,
& -3.41160, -3.34144, -3.31933, -3.26341, -3.22609,
& -3.18298, -3.12800, -3.02166, -2.93903, -2.84135,
& -2.69864, -2.63582, -2.60853, -2.59699, -2.64799,
& -2.71846, -2.70856, -2.67797, -2.67978, -2.58432,
& -2.57052, -2.57883, -2.48977, -2.47541, -2.43446,
& -2.39253, -2.42823, -2.44830, -2.49704, -2.54904,
& -2.54865, -2.51223, -2.39407, -2.28582, -2.22341/
data cph2o(2401:2500)/
& -2.18280, -2.17308, -2.15234, -2.10486, -2.08564,
& -2.08578, -2.09615, -2.11136, -2.10200, -2.06832,
& -2.04134, -2.00194, -1.95185, -1.92025, -1.85931,
& -1.85988, -1.91696, -2.01129, -2.15097, -2.20539,
& -2.21302, -2.22309, -2.24412, -2.30471, -2.33847,
& -2.25445, -2.08096, -1.85098, -1.61538, -1.45841,
& -1.42089, -1.54484, -1.74234, -1.96839, -2.18038,
& -2.28394, -2.31701, -2.24125, -2.05966, -1.88694,
& -1.78105, -1.69960, -1.64107, -1.62909, -1.58168,
& -1.56599, -1.59412, -1.56739, -1.56346, -1.54456,
& -1.55619, -1.61000, -1.67072, -1.75312, -1.82511,
& -1.87588, -1.89436, -1.94377, -1.96038, -2.02291,
& -2.14131, -2.19637, -2.27114, -2.33418, -2.36152,
& -2.44688, -2.53819, -2.61011, -2.69105, -2.73774,
& -2.76700, -2.82031, -2.85910, -2.88525, -2.95422,
& -2.99210, -3.06247, -3.12280, -3.12274, -3.13972,
& -3.09998, -3.11771, -3.10670, -3.00116, -2.91302,
& -2.75838, -2.66379, -2.65726, -2.62212, -2.59431,
& -2.55351, -2.49874, -2.47486, -2.52563, -2.54608,
& -2.54311, -2.54938, -2.49038, -2.49664, -2.52688/
data cph2o(2501:2600)/
& -2.58688, -2.67000, -2.71830, -2.77113, -2.80244,
& -2.84845, -2.87062, -2.83368, -2.69338, -2.52225,
& -2.40864, -2.34429, -2.40612, -2.55941, -2.73915,
& -2.94409, -3.12344, -3.27308, -3.32104, -3.27077,
& -3.13129, -2.92504, -2.78515, -2.71007, -2.66733,
& -2.62518, -2.62279, -2.59906, -2.56745, -2.59548,
& -2.53657, -2.50849, -2.47640, -2.46021, -2.53747,
& -2.62220, -2.76449, -2.88041, -2.96357, -3.02153,
& -3.06178, -3.14581, -3.25318, -3.44687, -3.69634,
& -3.90497, -4.09399, -4.22346, -4.29749, -4.51957,
& -4.79572, -5.03708, -5.27140, -5.34657, -5.44757,
& -5.52207, -5.57087, -5.64385, -5.80294, -5.90763,
& -5.94797, -5.85439, -5.62721, -5.45121, -5.40324,
& -5.38540, -5.39409, -5.59404, -5.69955, -5.76877,
& -5.86764, -5.78129, -5.88887, -6.12206, -6.37505,
& -6.85575, -7.13884, -6.98622, -6.96112, -6.84830,
& -6.72456, -6.67530, -6.65251, -6.66033, -6.88151,
& -7.11199, -7.33922, -7.61766, -7.66585, -7.87464,
& -8.59519, -9.04047, -9.30602, -9.51273, -8.93688,
& -9.43151, -8.84005, -10.00000, -9.65151, -8.98420/
data cph2o(2601:2700)/
& -10.00000, -9.43151, -9.68331, -10.00000, -9.43067,
& -9.90527, -10.00000, -9.98810, -9.65151, -9.74384,
& -9.20004, -10.00000, -9.20004, -10.00000, -10.00000,
& -9.85239, -8.09585, -7.66916, -7.89183, -8.46587,
& -8.79342, -8.93440, -8.68356, -8.83423, -8.01626,
& -7.91911, -8.27604, -9.44864, -9.69462, -10.00000,
& -9.69462, -8.31857, -7.91867, -7.86404, -8.32240,
& -8.68705, -9.61515, -9.25284, -8.68705, -8.28789,
& -7.63730, -8.25919, -10.00000, -9.51758, -10.00000,
& -10.00000, -9.51758, -8.05261, -7.76848, -8.24255,
& -9.34171, -9.19941, -8.56505, -7.78955, -7.23750,
& -6.64136, -6.41854, -6.14335, -5.86704, -5.70840,
& -5.48179, -5.23814, -5.00650, -4.80407, -4.69986,
& -4.70404, -4.80846, -4.99355, -5.19947, -5.33300,
& -5.30550, -5.17017, -5.05309, -4.95685, -4.79959,
& -4.65496, -4.54077, -4.44407, -4.43768, -4.47167,
& -4.40429, -4.30236, -4.22549, -4.15283, -4.06900,
& -3.99244, -3.87562, -3.76949, -3.78198, -3.77003,
& -3.67364, -3.52061, -3.34459, -3.20426, -3.15993,
& -3.13851, -3.09692, -3.07747, -3.02936, -3.02192/
data cph2o(2701:2800)/
& -2.96720, -2.90584, -2.79069, -2.65042, -2.62072,
& -2.53133, -2.50554, -2.48745, -2.41611, -2.43532,
& -2.40913, -2.38723, -2.33337, -2.21812, -2.15072,
& -2.08313, -2.06151, -2.10585, -2.13670, -2.18757,
& -2.23995, -2.26992, -2.34229, -2.38059, -2.38087,
& -2.33246, -2.21618, -2.14795, -2.12707, -2.09130,
& -2.05043, -1.95550, -1.77077, -1.66044, -1.58224,
& -1.51702, -1.54004, -1.54074, -1.53712, -1.54938,
& -1.52352, -1.49404, -1.51985, -1.57774, -1.64393,
& -1.65332, -1.56238, -1.45105, -1.39264, -1.40635,
& -1.46167, -1.50365, -1.47751, -1.47268, -1.45992,
& -1.46654, -1.50223, -1.47576, -1.47730, -1.46977,
& -1.45630, -1.44490, -1.43097, -1.43664, -1.49313,
& -1.63372, -1.81848, -1.97938, -2.06009, -2.10124,
& -2.02376, -1.95095, -1.86835, -1.70161, -1.54835,
& -1.37614, -1.25130, -1.17408, -1.17670, -1.19790,
& -1.21344, -1.27252, -1.28030, -1.31031, -1.34321,
& -1.34056, -1.35264, -1.38137, -1.44648, -1.56735,
& -1.72096, -1.88960, -2.06793, -2.19583, -2.29229,
& -2.34400, -2.34120, -2.36407, -2.39688, -2.45450/
data cph2o(2801:2900)/
& -2.53132, -2.58327, -2.60585, -2.60773, -2.60606,
& -2.64243, -2.71853, -2.78182, -2.84459, -2.83665,
& -2.78522, -2.71157, -2.61628, -2.53314, -2.45692,
& -2.41679, -2.41535, -2.45500, -2.51120, -2.57918,
& -2.62854, -2.63617, -2.61204, -2.53833, -2.43992,
& -2.37490, -2.34880, -2.34476, -2.36650, -2.36553,
& -2.34094, -2.33633, -2.30483, -2.26933, -2.25141,
& -2.22841, -2.27610, -2.33673, -2.37913, -2.44271,
& -2.48571, -2.57146, -2.64200, -2.61103, -2.47198,
& -2.27897, -2.15874, -2.06557, -2.05371, -2.06333,
& -2.04641, -2.04429, -2.01040, -2.00804, -1.99416,
& -2.05499, -2.09948, -2.09706, -2.10517, -2.01267,
& -1.99934, -2.03719, -2.12114, -2.29537, -2.44295,
& -2.55926, -2.66007, -2.73808, -2.75972, -2.78032,
& -2.67031, -2.44995, -2.27133, -2.11654, -2.02598,
& -2.01402, -2.04264, -2.04511, -2.02975, -2.00687,
& -1.94840, -1.93975, -1.97104, -2.01554, -2.09336,
& -2.15829, -2.26705, -2.40356, -2.55216, -2.78858,
& -3.00697, -3.22778, -3.44413, -3.55439, -3.66412,
& -3.73884, -3.92224, -4.18922, -4.41150, -4.55122/
data cph2o(2901:3000)/
& -4.48637, -4.29339, -4.19248, -4.28419, -4.41178,
& -4.60369, -4.81645, -4.83716, -4.93818, -4.87772,
& -4.65255, -4.40133, -4.14378, -4.05431, -4.02425,
& -4.04257, -4.11794, -4.12153, -4.16374, -4.17459,
& -4.10274, -4.04733, -4.00176, -4.01760, -4.13393,
& -4.29085, -4.38409, -4.39975, -4.33916, -4.31515,
& -4.35426, -4.44628, -4.51842, -4.52596, -4.53399,
& -4.54590, -4.63864, -4.75657, -4.86504, -4.95580,
& -5.03365, -5.14879, -5.33868, -5.62972, -5.92584,
& -6.30299, -6.62922, -6.70773, -6.97810, -7.35919,
& -7.64909, -8.62765, -8.55378, -7.76305, -7.47054,
& -7.07789, -7.11538, -7.34052, -7.75694, -9.17126,
& -10.00000, -9.86547, -8.71424, -8.66552, -8.31602,
& -8.41339, -7.92192, -8.66385, -8.99856, -9.65437,
& -9.36822, -9.46517, -9.43986, -8.65941, -10.00000,
& -10.00000, -8.82641, -8.56244, -7.93689, -7.68823,
& -7.55818, -7.05113, -6.76446, -6.49313, -6.24749,
& -6.12617, -6.05220, -6.13798, -6.07909, -5.86845,
& -5.69141, -5.50496, -5.48376, -5.56108, -5.42768,
& -5.29615, -5.10664, -4.88111, -4.78669, -4.62385/
data cph2o(3001:3100)/
& -4.52174, -4.49073, -4.45792, -4.54129, -4.54480,
& -4.51341, -4.47258, -4.27643, -4.18091, -4.09557,
& -4.04222, -4.11247, -4.14851, -4.16970, -4.11065,
& -4.04809, -4.00745, -3.99879, -4.07978, -4.12451,
& -4.19723, -4.17393, -4.09022, -4.02101, -3.87998,
& -3.79109, -3.66411, -3.50066, -3.40580, -3.32713,
& -3.30194, -3.35131, -3.35137, -3.29933, -3.20658,
& -3.06263, -2.97995, -2.98759, -2.99176, -3.00756,
& -2.97359, -2.85849, -2.81640, -2.77094, -2.75469,
& -2.77297, -2.71165, -2.69187, -2.64524, -2.60542,
& -2.60059, -2.57842, -2.59991, -2.58577, -2.60792,
& -2.66006, -2.70803, -2.79094, -2.81048, -2.79532,
& -2.79499, -2.84578, -2.90638, -2.96270, -2.90633,
& -2.71535, -2.54313, -2.37822, -2.31125, -2.35246,
& -2.49011, -2.68215, -2.83136, -2.96357, -2.95873,
& -2.90544, -2.84387, -2.70352, -2.58329, -2.49207,
& -2.41735, -2.35522, -2.30279, -2.25786, -2.22067,
& -2.20741, -2.19735, -2.20181, -2.22358, -2.27247,
& -2.33737, -2.39631, -2.45029, -2.49867, -2.56939,
& -2.64313, -2.77129, -2.92580, -3.05513, -3.23728/
data cph2o(3101:3200)/
& -3.31415, -3.33588, -3.39544, -3.43947, -3.57455,
& -3.69955, -3.77227, -3.76260, -3.70753, -3.70942,
& -3.73899, -3.82827, -3.93052, -4.10437, -4.24931,
& -4.35000, -4.42069, -4.25644, -4.21454, -4.17061,
& -4.11168, -4.16038, -4.16686, -4.19465, -4.23251,
& -4.27305, -4.21672, -4.13963, -4.07622, -3.97332,
& -3.96263, -3.95541, -3.97392, -4.03776, -4.07778,
& -4.01771, -3.87070, -3.70710, -3.59495, -3.62243,
& -3.69528, -3.76171, -3.76582, -3.65793, -3.61555,
& -3.59708, -3.63113, -3.63691, -3.57465, -3.55435,
& -3.47507, -3.49075, -3.53253, -3.57495, -3.68837,
& -3.68628, -3.68771, -3.64979, -3.60831, -3.56633,
& -3.48250, -3.37856, -3.22908, -3.14286, -3.11346,
& -3.13691, -3.26625, -3.44333, -3.64611, -3.86925,
& -4.08285, -4.22794, -4.25115, -4.14282, -3.85944,
& -3.59027, -3.43514, -3.31856, -3.24442, -3.22555,
& -3.18795, -3.20363, -3.30589, -3.41248, -3.60718,
& -3.70563, -3.65431, -3.57332, -3.47347, -3.47521,
& -3.53388, -3.72003, -3.97569, -4.31048, -4.87330,
& -5.39648, -6.27322, -8.18185, -8.07588, -8.20933/
data cph2o(3201:3300)/
& -8.60643, -8.83713, -9.01727, -9.15690, -9.41970,
& -9.51520, -9.63843, -9.87539, -9.94314, -10.00000,
& -10.00000, -9.99542, -9.97748, -9.94374, -9.93287,
& -9.90450, -9.85082, -9.82140, -9.73549, -9.64536,
& -9.59412, -9.54635, -9.26735, -9.23243, -9.05763,
& -8.93240, -8.74549, -8.52992, -8.25637, -8.13836,
& -7.66071, -7.35897, -7.37375, -7.09925, -6.98326,
& -6.89298, -6.79545, -6.97172, -6.67558, -6.37369,
& -6.21189, -5.94606, -5.84975, -5.83536, -5.82878,
& -5.78456, -5.68334, -5.44809, -5.28421, -5.06970,
& -4.89514, -4.80192, -4.73588, -4.78558, -4.78127,
& -4.73462, -4.54889, -4.33093, -4.18543, -4.09190,
& -4.11204, -4.13402, -4.13401, -3.97210, -3.79621,
& -3.65860, -3.55511, -3.57549, -3.57633, -3.53833,
& -3.46143, -3.34082, -3.23729, -3.17300, -3.14437,
& -3.10547, -3.05061, -2.96941, -2.86694, -2.79500,
& -2.75350, -2.75307, -2.77146, -2.79530, -2.76451,
& -2.68758, -2.63931, -2.57797, -2.58894, -2.59717,
& -2.52817, -2.47282, -2.42360, -2.45382, -2.56145,
& -2.61304, -2.59963, -2.52689, -2.46472, -2.46461/
data cph2o(3301:3400)/
& -2.45407, -2.39432, -2.25523, -2.14408, -2.05525,
& -2.01888, -2.07413, -2.12889, -2.25990, -2.39692,
& -2.48925, -2.54855, -2.53415, -2.54460, -2.50455,
& -2.46921, -2.42259, -2.28066, -2.22625, -2.17393,
& -2.13289, -2.19687, -2.21326, -2.23949, -2.27620,
& -2.26819, -2.29009, -2.29281, -2.25201, -2.17355,
& -2.07947, -2.03121, -2.01967, -2.04954, -2.08143,
& -2.06833, -2.05240, -2.05599, -2.06967, -2.12334,
& -2.21510, -2.29897, -2.40035, -2.52428, -2.62702,
& -2.73003, -2.87671, -2.99894, -3.10548, -3.25316,
& -3.32982, -3.39709, -3.53992, -3.63406, -3.74020,
& -3.92706, -3.96893, -3.93910, -3.93559, -3.82934,
& -3.82006, -3.87551, -3.89939, -3.94509, -3.95617,
& -3.96332, -3.96114, -3.99122, -4.01273, -4.01717,
& -4.02888, -4.04697, -4.10112, -4.14864, -4.27169,
& -4.32135, -4.33175, -4.41165, -4.36331, -4.39914,
& -4.42505, -4.40381, -4.48901, -4.44885, -4.38473,
& -4.32458, -4.19760, -4.16511, -4.15683, -4.14102,
& -4.11365, -4.10673, -4.13026, -4.13652, -4.19636,
& -4.19684, -4.14832, -4.05676, -3.96205, -3.90165/
data cph2o(3401:3500)/
& -3.84404, -3.86524, -3.83773, -3.69609, -3.55481,
& -3.42043, -3.33841, -3.37637, -3.44611, -3.49193,
& -3.52932, -3.44601, -3.36757, -3.31227, -3.23777,
& -3.21254, -3.19842, -3.22310, -3.28352, -3.27914,
& -3.23481, -3.12437, -3.04729, -3.06777, -3.09818,
& -3.19530, -3.24569, -3.24974, -3.30729, -3.27728,
& -3.25317, -3.22055, -3.15996, -3.17334, -3.17694,
& -3.12288, -3.04593, -2.99049, -2.98361, -3.06492,
& -3.19818, -3.31628, -3.42190, -3.47775, -3.55095,
& -3.56669, -3.53409, -3.38883, -3.17115, -3.00955,
& -2.89158, -2.83770, -2.86055, -2.86096, -2.83436,
& -2.82886, -2.78602, -2.80289, -2.85454, -2.89629,
& -2.99573, -3.11206, -3.27394, -3.47183, -3.64849,
& -3.79741, -3.91130, -4.08705, -4.24317, -4.41275,
& -4.55729, -4.55082, -4.66958, -4.82149, -4.94204,
& -5.13772, -5.22105, -5.20710, -5.18691, -5.09729,
& -5.03217, -4.96344, -4.97810, -5.03506, -5.05380,
& -5.08007, -5.10835, -5.13285, -5.24491, -5.44530,
& -5.65236, -5.80563, -5.75192, -5.58691, -5.38023,
& -5.31721, -5.30923, -5.34087, -5.39044, -5.38089/
data cph2o(3501:3515)/
& -5.43438, -5.52124, -5.79590, -6.25048, -6.78272,
& -8.29899, -8.50913, -8.77871, -8.91512, -9.13453,
& -9.37455, -9.56578, -9.71290, -9.89385, -10.00000/
c --- double exponential fit parameters for o3
data cpo3(1:100)/
& -2.04270, -1.89660, -1.62630, -1.38960, -1.21700,
& -1.09960, -1.02140, -0.96730, -0.92490, -0.88960,
& -0.86120, -0.84170, -0.83600, -0.84830, -0.87850,
& -0.92730, -0.99320, -1.07200, -1.16390, -1.26620,
& -1.37710, -1.49760, -1.62740, -1.77120, -1.92890,
& -2.10270, -2.29480, -2.49870, -2.73210, -2.99920,
& -3.30450, -3.69940, -4.10220, -4.64670, -5.13280,
& -5.64810, -6.16340, -6.67870, -7.19400, -7.70930,
& -8.00000, -7.92740, -7.64180, -7.35620, -7.07060,
& -6.78500, -6.49940, -6.21380, -5.92820, -5.64260,
& -5.35700, -5.07140, -4.78580, -4.50020, -4.21460,
& -3.92900, -3.62130, -3.34070, -3.07220, -2.82260,
& -2.59140, -2.37780, -2.18230, -2.00570, -1.84560,
& -1.69910, -1.56590, -1.44360, -1.33230, -1.23190,
& -1.14070, -1.05500, -0.97330, -0.90330, -0.85840,
& -0.85270, -0.88380, -0.92190, -0.93600, -0.90250,
& -0.84020, -0.79130, -0.77940, -0.81230, -0.87500,
& -0.94840, -1.02060, -1.08640, -1.15200, -1.22020,
& -1.29280, -1.37450, -1.46410, -1.56110, -1.66690,
& -1.78160, -1.90510, -2.03830, -2.17960, -2.33120/
data cpo3(101:200)/
& -2.49060, -2.65690, -2.83540, -3.01790, -3.21210,
& -3.41060, -3.62080, -3.83320, -4.05840, -4.28540,
& -4.49790, -4.71750, -4.91090, -5.12460, -5.33440,
& -5.54420, -5.75400, -5.96380, -6.17360, -6.38340,
& -6.59320, -6.80300, -7.01280, -6.90110, -6.25900,
& -5.81190, -5.16030, -4.33270, -3.68490, -3.12530,
& -2.63040, -2.19030, -1.80190, -1.45850, -1.15330,
& -0.87700, -0.61660, -0.36300, -0.11020, 0.13360,
& 0.35250, 0.53260, 0.66780, 0.75100, 0.77520,
& 0.78260, 0.78740, 0.80060, 0.82410, 0.76140,
& 0.56620, 0.19490, -0.27700, -0.61990, -0.83470,
& -0.95860, -1.01680, -1.05010, -1.08160, -1.09800,
& -1.08330, -1.04240, -0.99720, -0.97240, -0.98550,
& -1.03650, -1.11870, -1.21500, -1.31420, -1.41030,
& -1.49980, -1.59330, -1.69380, -1.80610, -1.93320,
& -2.07370, -2.22790, -2.39660, -2.57870, -2.77550,
& -2.98550, -3.20900, -3.44650, -3.69670, -3.96330,
& -4.24610, -4.55020, -4.89120, -5.28450, -5.76540,
& -6.41940, -6.92880, -7.43820, -7.94760, -8.00000,
& -7.54320, -6.92730, -6.31150, -5.54310, -4.95630/
data cpo3(201:300)/
& -4.46400, -4.03710, -3.65330, -3.30690, -2.98770,
& -2.70420, -2.45070, -2.23550, -2.06510, -1.94770,
& -1.87050, -1.84220, -1.82350, -1.77820, -1.73670,
& -1.70120, -1.72080, -1.83530, -2.03310, -2.30770,
& -2.59960, -2.75170, -2.72630, -2.66710, -2.64150,
& -2.64490, -2.66130, -2.65890, -2.60830, -2.52500,
& -2.45290, -2.41570, -2.42980, -2.49060, -2.58230,
& -2.68730, -2.78080, -2.86120, -2.93030, -3.00220,
& -3.08730, -3.18440, -3.29290, -3.41580, -3.53610,
& -3.67100, -3.80620, -3.95200, -4.11400, -4.26350,
& -4.43950, -4.61380, -4.83720, -5.08370, -5.33020,
& -5.36650, -5.43580, -5.06510, -4.84160, -4.52930,
& -4.25470, -4.00390, -3.78180, -3.58500, -3.40910,
& -3.25090, -3.09340, -2.94850, -2.80550, -2.67050,
& -2.54820, -2.43620, -2.33800, -2.24860, -2.16450,
& -2.08340, -2.00350, -1.90810, -1.76810, -1.57680,
& -1.36150, -1.14630, -0.94820, -0.78000, -0.63360,
& -0.50920, -0.41050, -0.34950, -0.32740, -0.31330,
& -0.30230, -0.28590, -0.30550, -0.43740, -0.69720,
& -1.10640, -1.49040, -1.96870, -2.44980, -2.59710/
data cpo3(301:400)/
& -2.52200, -2.43010, -2.34670, -2.29010, -2.27460,
& -2.30210, -2.36350, -2.44200, -2.50880, -2.54850,
& -2.56170, -2.56560, -2.57710, -2.61340, -2.68220,
& -2.78850, -2.93790, -3.12000, -3.32600, -3.54640,
& -3.77360, -4.03110, -4.36510, -4.77940, -5.51520,
& -6.12400, -7.21930, -8.00000, -7.97210, -7.61180,
& -7.25150, -6.89130, -6.53100, -6.17070, -5.81050,
& -5.45020, -5.08990, -4.72970, -4.36940, -3.94620,
& -3.60220, -3.28860, -3.02340, -2.78630, -2.57970,
& -2.40730, -2.27600, -2.18940, -2.13590, -2.11600,
& -2.08080, -2.01510, -1.96660, -1.94090, -1.98680,
& -2.14500, -2.39650, -2.80420, -3.55000, -4.82750,
& -5.63780, -6.44820, -7.25850, -8.00000, -8.00000,
& -7.62780, -7.25560, -6.88340, -6.51110, -6.13890,
& -5.76670, -5.39450, -5.02230, -4.65010, -4.27790,
& -3.90560, -3.53340, -3.38280, -3.24520, -3.14110,
& -3.04030, -2.94280, -2.84360, -2.75730, -2.68530,
& -2.60400, -2.52180, -2.41210, -2.35470, -2.19700,
& -2.06680, -1.91210, -1.76170, -1.61530, -1.46880,
& -1.40220, -1.34470, -1.26690, -1.19020, -1.18050/
data cpo3(401:447)/
& -1.17070, -1.16090, -1.16090, -1.18050, -1.19990,
& -1.42140, -1.63480, -1.75190, -1.97300, -2.20780,
& -2.46080, -2.53370, -2.59230, -2.66160, -2.63840,
& -2.62710, -2.61540, -2.55700, -2.49830, -2.44800,
& -2.38900, -2.36630, -2.34310, -2.33140, -2.32000,
& -2.32000, -2.33140, -2.34310, -2.35470, -2.37770,
& -2.40040, -2.52180, -2.64990, -2.76940, -2.90570,
& -3.02860, -3.15430, -3.36960, -3.60530, -4.19770,
& -4.78110, -5.29330, -5.75540, -6.45420, -7.02390,
& -7.59370, -8.00000/
c --- double exponential fit parameters for co2
data cpco2(1:100)/
& -9.84950, -9.64840, -9.44720, -9.24610, -9.04490,
& -8.95440, -8.61270, -8.40760, -8.27100, -8.03910,
& -7.94850, -7.96380, -7.78490, -7.62780, -7.14180,
& -6.78230, -6.38260, -6.03230, -5.75010, -5.52490,
& -5.33040, -5.01050, -4.77030, -4.57140, -4.39190,
& -4.29740, -4.13700, -3.87610, -3.59360, -3.28520,
& -3.00160, -2.73030, -2.48680, -2.27410, -2.09360,
& -1.94240, -1.80920, -1.68430, -1.53720, -1.38030,
& -1.20430, -0.99300, -0.77240, -0.55090, -0.34650,
& -0.17850, -0.04700, 0.04490, 0.11140, 0.13670,
& 0.09100, 0.00660, -0.12690, -0.29940, -0.49340,
& -0.71010, -0.90870, -1.10040, -1.26940, -1.40640,
& -1.56220, -1.68100, -1.78410, -1.89730, -2.02740,
& -2.20790, -2.42640, -2.67630, -2.93120, -3.18960,
& -3.42620, -3.59790, -3.70510, -3.73720, -3.79830,
& -3.91540, -4.05200, -4.25670, -4.46610, -4.66700,
& -4.92260, -5.22030, -5.55970, -5.64030, -5.70390,
& -5.76740, -5.83100, -5.89480, -5.95030, -6.02170,
& -6.03920, -5.98550, -5.86200, -5.68340, -5.50830,
& -5.34730, -5.20280, -5.07990, -4.96280, -4.83790/
data cpco2(101:200)/
& -4.70320, -4.55840, -4.42130, -4.31980, -4.27860,
& -4.28430, -4.30990, -4.32100, -4.27690, -4.22290,
& -4.21790, -4.29500, -4.47890, -4.75500, -5.09020,
& -5.43290, -5.66890, -5.66080, -5.45820, -5.19690,
& -4.94190, -4.71060, -4.50840, -4.34090, -4.22110,
& -4.15630, -4.12590, -4.11080, -4.08030, -4.02110,
& -3.98240, -4.00530, -4.12210, -4.35040, -4.67410,
& -5.08260, -5.58570, -6.23010, -7.08290, -8.13440,
& -8.86010, -9.04570, -9.12310, -9.07280, -9.14130,
& -9.12210, -9.18820, -9.27520, -9.22370, -9.36040,
& -9.30580, -9.54550, -9.55670, -9.37540, -8.77560,
& -8.09040, -7.48270, -6.95850, -6.50950, -6.11940,
& -5.78240, -5.49100, -5.25320, -5.08400, -4.99200,
& -4.95770, -4.96380, -4.97410, -4.95550, -4.94660,
& -4.97740, -5.07190, -5.25580, -5.52130, -5.86330,
& -6.28770, -6.78780, -7.26020, -7.29400, -6.85240,
& -6.33720, -5.88540, -5.50650, -5.20110, -4.97760,
& -4.84710, -4.78850, -4.77830, -4.78150, -4.75380,
& -4.72280, -4.72590, -4.78600, -4.92310, -5.12700,
& -5.38310, -5.68490, -6.03510, -6.44370, -6.91600/
data cpco2(201:300)/
& -7.48150, -8.14370, -8.94490, -9.85640, -9.89030,
& -9.43650, -8.98260, -8.52880, -8.11840, -7.65550,
& -7.16730, -6.72260, -6.34230, -6.04100, -5.81540,
& -5.65190, -5.51860, -5.38590, -5.22790, -5.02380,
& -4.78650, -4.53430, -4.28460, -4.05600, -3.87170,
& -3.76240, -3.72310, -3.73350, -3.83120, -3.98540,
& -4.19300, -4.48950, -4.73940, -4.88920, -4.94990,
& -4.93920, -4.97870, -5.11290, -5.33300, -5.60930,
& -5.88620, -6.05810, -6.02740, -5.83560, -5.59890,
& -5.37380, -5.16610, -4.94720, -4.70200, -4.43540,
& -4.14390, -3.85610, -3.59440, -3.36940, -3.21000,
& -3.10410, -3.04110, -3.04710, -3.10770, -3.23050,
& -3.42740, -3.61150, -3.75420, -3.86660, -3.93380,
& -4.00790, -4.09620, -4.21420, -4.14330, -4.28700,
& -4.47960, -4.66180, -4.82040, -4.94990, -4.98620,
& -5.01710, -5.02820, -5.05800, -5.03980, -4.94650,
& -4.78160, -4.55380, -4.29750, -4.02860, -3.75280,
& -3.47150, -3.18990, -2.90410, -2.61270, -2.32120,
& -2.04350, -1.78940, -1.55310, -1.33820, -1.15150,
& -0.99900, -0.88330, -0.80060, -0.72270, -0.62880/
data cpco2(301:400)/
& -0.49770, -0.32490, -0.13490, 0.05760, 0.24870,
& 0.43860, 0.62600, 0.80810, 0.96810, 1.08590,
& 1.15220, 1.18610, 1.20390, 1.22550, 1.25870,
& 1.24730, 1.14570, 0.91390, 0.52500, 0.01730,
& -0.57960, -1.39440, -2.38410, -2.72440, -2.92640,
& -3.06890, -3.21200, -3.33530, -3.45100, -3.55660,
& -3.65180, -3.74600, -3.85000, -3.96800, -4.09810,
& -4.22590, -4.33690, -4.43290, -4.53050, -4.62640,
& -4.74380, -4.88420, -5.02480, -5.14480, -5.23710,
& -5.27810, -5.32990, -5.37660, -5.42330, -5.46990,
& -5.51660, -5.56330, -5.66460, -5.75930, -5.84610,
& -5.92290, -5.98180, -6.00650, -5.97470, -5.87410,
& -5.72300, -5.56200, -5.43890, -5.37880, -5.36790,
& -5.38270, -5.38370, -5.34600, -5.31860, -5.33940,
& -5.43200, -5.60950, -5.84460, -6.09920, -6.33990,
& -6.54990, -6.74340, -6.93590, -7.12190, -7.28180,
& -7.39840, -7.48810, -7.54520, -7.59940, -7.64450,
& -7.67340, -7.64220, -7.50570, -7.26500, -6.99750,
& -6.77490, -6.63980, -6.58750, -6.59120, -6.61920,
& -6.61550, -6.58660, -6.58510, -6.63820, -6.77360/
data cpco2(401:500)/
& -7.00090, -7.28960, -7.63270, -7.97670, -8.26330,
& -8.47440, -8.54550, -8.58130, -8.60250, -8.64590,
& -8.89480, -9.14360, -9.39250, -9.64130, -9.89020,
& -9.80060, -9.50490, -9.19470, -8.72540, -8.44100,
& -8.17810, -8.01820, -7.93810, -7.87930, -7.76360,
& -7.55490, -7.29620, -7.02440, -6.75560, -6.48880,
& -6.24430, -6.04220, -5.90880, -5.85900, -5.88900,
& -5.98500, -6.09490, -6.11640, -6.02070, -5.85920,
& -5.71100, -5.63280, -5.63690, -5.72740, -5.90690,
& -6.17200, -6.52030, -6.95860, -7.47760, -8.06070,
& -8.55140, -8.70110, -8.42320, -7.92740, -7.61590,
& -7.38360, -7.19690, -7.05230, -6.76850, -6.40220,
& -6.03540, -5.71250, -5.46590, -5.30880, -5.25460,
& -5.29910, -5.38190, -5.46150, -5.41170, -5.21070,
& -5.01030, -4.82320, -4.70710, -4.68500, -4.73850,
& -4.87970, -5.10240, -5.40150, -5.77580, -6.22250,
& -6.66810, -6.91270, -6.89190, -6.69720, -6.50120,
& -6.31230, -6.10910, -5.86410, -5.58890, -5.30570,
& -5.03400, -4.78260, -4.54760, -4.32770, -4.12240,
& -3.93330, -3.76750, -3.63240, -3.51630, -3.40430/
data cpco2(501:600)/
& -3.27440, -3.11800, -2.95570, -2.82540, -2.73590,
& -2.67210, -2.60840, -2.51050, -2.37720, -2.23170,
& -2.08660, -1.95210, -1.82920, -1.71100, -1.59920,
& -1.48730, -1.36460, -1.22600, -1.07210, -0.92810,
& -0.83790, -0.81230, -0.82610, -0.84830, -0.83050,
& -0.77920, -0.76260, -0.82280, -0.99080, -1.25030,
& -1.53470, -1.79340, -1.98370, -2.07150, -2.03750,
& -1.89750, -1.69060, -1.44970, -1.20480, -0.98310,
& -0.81250, -0.71570, -0.67070, -0.65320, -0.62970,
& -0.57060, -0.52630, -0.54890, -0.68570, -0.97930,
& -1.39620, -1.86730, -2.36550, -3.54360, -4.04240,
& -4.40840, -4.68480, -4.86630, -4.95160, -4.97900,
& -4.99230, -5.02070, -5.05960, -5.09580, -5.10180,
& -5.06360, -5.03540, -5.05460, -5.14540, -5.32740,
& -5.58630, -5.88890, -6.17700, -6.35550, -6.40960,
& -6.43710, -6.51120, -6.66800, -6.91830, -7.24180,
& -7.58270, -7.87040, -8.05510, -8.17050, -8.25000,
& -8.35540, -8.39610, -8.43540, -8.39200, -8.27850,
& -8.04990, -7.74370, -7.41300, -7.11530, -6.88610,
& -6.74220, -6.67860, -6.67740, -6.70530, -6.70900/
data cpco2(601:700)/
& -6.67940, -6.60550, -6.48270, -6.34540, -6.24010,
& -6.19920, -6.26760, -6.48330, -6.84900, -7.43100,