-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathcalconCKD1.0.data.f
1447 lines (1444 loc) · 85.5 KB
/
calconCKD1.0.data.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 --------------------------------------------------------------
C
BLOCK DATA BS296_MTCKD1
C
IMPLICIT NONE
C
C 11/18/02
C UNITS OF (CM**3/MOL)*1.E-20
C
C
INTEGER NPT
REAL*8 V1,V2,DV,
* S0000( 2),S0001(50),S0051(50),S0101(50),S0151(50),
* S0201(50),S0251(50),S0301(50),S0351(50),S0401(50),
* S0451(50),S0501(50),S0551(50),S0601(50),S0651(50),
* S0701(50),S0751(50),S0801(50),S0851(50),S0901(50),
* S0951(50),S1001(50),S1051(50),S1101(50),S1151(50),
* S1201(50),S1251(50),S1301(50),S1351(50),S1401(50),
* S1451(50),S1501(50),S1551(50),S1601(50),S1651(50),
* S1701(50),S1751(50),S1801(50),S1851(50),S1901(50),
* S1951(50),S2001(1)
COMMON /SH2O_MTCKD1/ V1,V2,DV,NPT,
* S0000,S0001,S0051,S0101,S0151,
* S0201,S0251,S0301,S0351,S0401,
* S0451,S0501,S0551,S0601,S0651,
* S0701,S0751,S0801,S0851,S0901,
* S0951,S1001,S1051,S1101,S1151,
* S1201,S1251,S1301,S1351,S1401,
* S1451,S1501,S1551,S1601,S1651,
* S1701,S1751,S1801,S1851,S1901,
* S1951, S2001
C
DATA V1,V2,DV,NPT / -20.0, 20000.0, 10.0, 2003/
C
DATA S0000/
* 1.720e-01, 1.695e-01/
DATA S0001/
* 1.700e-01, 1.695e-01, 1.720e-01, 1.680e-01, 1.687e-01,
* 1.624e-01, 1.606e-01, 1.508e-01, 1.447e-01, 1.344e-01,
* 1.214e-01, 1.133e-01, 1.009e-01, 9.217e-02, 8.297e-02,
* 6.989e-02, 6.513e-02, 5.469e-02, 5.056e-02, 4.417e-02,
* 3.779e-02, 3.484e-02, 2.994e-02, 2.720e-02, 2.325e-02,
* 2.063e-02, 1.818e-02, 1.592e-02, 1.405e-02, 1.251e-02,
* 1.080e-02, 9.647e-03, 8.424e-03, 7.519e-03, 6.555e-03,
* 5.880e-03, 5.136e-03, 4.511e-03, 3.989e-03, 3.509e-03,
* 3.114e-03, 2.740e-03, 2.446e-03, 2.144e-03, 1.895e-03,
* 1.676e-03, 1.486e-03, 1.312e-03, 1.164e-03, 1.031e-03/
DATA S0051/
* 9.129e-04, 8.106e-04, 7.213e-04, 6.400e-04, 5.687e-04,
* 5.063e-04, 4.511e-04, 4.029e-04, 3.596e-04, 3.220e-04,
* 2.889e-04, 2.597e-04, 2.337e-04, 2.108e-04, 1.907e-04,
* 1.728e-04, 1.570e-04, 1.430e-04, 1.305e-04, 1.195e-04,
* 1.097e-04, 1.009e-04, 9.307e-05, 8.604e-05, 7.971e-05,
* 7.407e-05, 6.896e-05, 6.433e-05, 6.013e-05, 5.631e-05,
* 5.283e-05, 4.963e-05, 4.669e-05, 4.398e-05, 4.148e-05,
* 3.917e-05, 3.702e-05, 3.502e-05, 3.316e-05, 3.142e-05,
* 2.978e-05, 2.825e-05, 2.681e-05, 2.546e-05, 2.419e-05,
* 2.299e-05, 2.186e-05, 2.079e-05, 1.979e-05, 1.884e-05/
DATA S0101/
* 1.795e-05, 1.711e-05, 1.633e-05, 1.559e-05, 1.490e-05,
* 1.426e-05, 1.367e-05, 1.312e-05, 1.263e-05, 1.218e-05,
* 1.178e-05, 1.143e-05, 1.112e-05, 1.088e-05, 1.070e-05,
* 1.057e-05, 1.050e-05, 1.051e-05, 1.059e-05, 1.076e-05,
* 1.100e-05, 1.133e-05, 1.180e-05, 1.237e-05, 1.308e-05,
* 1.393e-05, 1.483e-05, 1.614e-05, 1.758e-05, 1.930e-05,
* 2.123e-05, 2.346e-05, 2.647e-05, 2.930e-05, 3.279e-05,
* 3.745e-05, 4.152e-05, 4.813e-05, 5.477e-05, 6.203e-05,
* 7.331e-05, 8.056e-05, 9.882e-05, 1.050e-04, 1.210e-04,
* 1.341e-04, 1.572e-04, 1.698e-04, 1.968e-04, 2.175e-04/
DATA S0151/
* 2.431e-04, 2.735e-04, 2.867e-04, 3.190e-04, 3.371e-04,
* 3.554e-04, 3.726e-04, 3.837e-04, 3.878e-04, 3.864e-04,
* 3.858e-04, 3.841e-04, 3.852e-04, 3.815e-04, 3.762e-04,
* 3.618e-04, 3.579e-04, 3.450e-04, 3.202e-04, 3.018e-04,
* 2.785e-04, 2.602e-04, 2.416e-04, 2.097e-04, 1.939e-04,
* 1.689e-04, 1.498e-04, 1.308e-04, 1.170e-04, 1.011e-04,
* 9.237e-05, 7.909e-05, 7.006e-05, 6.112e-05, 5.401e-05,
* 4.914e-05, 4.266e-05, 3.963e-05, 3.316e-05, 3.037e-05,
* 2.598e-05, 2.294e-05, 2.066e-05, 1.813e-05, 1.583e-05,
* 1.423e-05, 1.247e-05, 1.116e-05, 9.760e-06, 8.596e-06/
DATA S0201/
* 7.720e-06, 6.825e-06, 6.108e-06, 5.366e-06, 4.733e-06,
* 4.229e-06, 3.731e-06, 3.346e-06, 2.972e-06, 2.628e-06,
* 2.356e-06, 2.102e-06, 1.878e-06, 1.678e-06, 1.507e-06,
* 1.348e-06, 1.210e-06, 1.089e-06, 9.806e-07, 8.857e-07,
* 8.004e-07, 7.261e-07, 6.599e-07, 6.005e-07, 5.479e-07,
* 5.011e-07, 4.595e-07, 4.219e-07, 3.885e-07, 3.583e-07,
* 3.314e-07, 3.071e-07, 2.852e-07, 2.654e-07, 2.474e-07,
* 2.311e-07, 2.162e-07, 2.026e-07, 1.902e-07, 1.788e-07,
* 1.683e-07, 1.587e-07, 1.497e-07, 1.415e-07, 1.338e-07,
* 1.266e-07, 1.200e-07, 1.138e-07, 1.080e-07, 1.027e-07/
DATA S0251/
* 9.764e-08, 9.296e-08, 8.862e-08, 8.458e-08, 8.087e-08,
* 7.744e-08, 7.429e-08, 7.145e-08, 6.893e-08, 6.664e-08,
* 6.468e-08, 6.322e-08, 6.162e-08, 6.070e-08, 5.992e-08,
* 5.913e-08, 5.841e-08, 5.796e-08, 5.757e-08, 5.746e-08,
* 5.731e-08, 5.679e-08, 5.577e-08, 5.671e-08, 5.656e-08,
* 5.594e-08, 5.593e-08, 5.602e-08, 5.620e-08, 5.693e-08,
* 5.725e-08, 5.858e-08, 6.037e-08, 6.249e-08, 6.535e-08,
* 6.899e-08, 7.356e-08, 7.918e-08, 8.618e-08, 9.385e-08,
* 1.039e-07, 1.158e-07, 1.290e-07, 1.437e-07, 1.650e-07,
* 1.871e-07, 2.121e-07, 2.427e-07, 2.773e-07, 3.247e-07/
DATA S0301/
* 3.677e-07, 4.037e-07, 4.776e-07, 5.101e-07, 6.214e-07,
* 6.936e-07, 7.581e-07, 8.486e-07, 9.355e-07, 9.942e-07,
* 1.063e-06, 1.123e-06, 1.191e-06, 1.215e-06, 1.247e-06,
* 1.260e-06, 1.271e-06, 1.284e-06, 1.317e-06, 1.323e-06,
* 1.349e-06, 1.353e-06, 1.362e-06, 1.344e-06, 1.329e-06,
* 1.336e-06, 1.327e-06, 1.325e-06, 1.359e-06, 1.374e-06,
* 1.415e-06, 1.462e-06, 1.526e-06, 1.619e-06, 1.735e-06,
* 1.863e-06, 2.034e-06, 2.265e-06, 2.482e-06, 2.756e-06,
* 3.103e-06, 3.466e-06, 3.832e-06, 4.378e-06, 4.913e-06,
* 5.651e-06, 6.311e-06, 7.169e-06, 8.057e-06, 9.253e-06/
DATA S0351/
* 1.047e-05, 1.212e-05, 1.360e-05, 1.569e-05, 1.776e-05,
* 2.020e-05, 2.281e-05, 2.683e-05, 2.994e-05, 3.488e-05,
* 3.896e-05, 4.499e-05, 5.175e-05, 6.035e-05, 6.340e-05,
* 7.281e-05, 7.923e-05, 8.348e-05, 9.631e-05, 1.044e-04,
* 1.102e-04, 1.176e-04, 1.244e-04, 1.283e-04, 1.326e-04,
* 1.400e-04, 1.395e-04, 1.387e-04, 1.363e-04, 1.314e-04,
* 1.241e-04, 1.228e-04, 1.148e-04, 1.086e-04, 1.018e-04,
* 8.890e-05, 8.316e-05, 7.292e-05, 6.452e-05, 5.625e-05,
* 5.045e-05, 4.380e-05, 3.762e-05, 3.290e-05, 2.836e-05,
* 2.485e-05, 2.168e-05, 1.895e-05, 1.659e-05, 1.453e-05/
DATA S0401/
* 1.282e-05, 1.132e-05, 1.001e-05, 8.836e-06, 7.804e-06,
* 6.922e-06, 6.116e-06, 5.429e-06, 4.824e-06, 4.278e-06,
* 3.788e-06, 3.371e-06, 2.985e-06, 2.649e-06, 2.357e-06,
* 2.090e-06, 1.858e-06, 1.647e-06, 1.462e-06, 1.299e-06,
* 1.155e-06, 1.028e-06, 9.142e-07, 8.132e-07, 7.246e-07,
* 6.451e-07, 5.764e-07, 5.151e-07, 4.603e-07, 4.121e-07,
* 3.694e-07, 3.318e-07, 2.985e-07, 2.690e-07, 2.428e-07,
* 2.197e-07, 1.992e-07, 1.810e-07, 1.649e-07, 1.506e-07,
* 1.378e-07, 1.265e-07, 1.163e-07, 1.073e-07, 9.918e-08,
* 9.191e-08, 8.538e-08, 7.949e-08, 7.419e-08, 6.940e-08/
DATA S0451/
* 6.508e-08, 6.114e-08, 5.761e-08, 5.437e-08, 5.146e-08,
* 4.890e-08, 4.636e-08, 4.406e-08, 4.201e-08, 4.015e-08,
* 3.840e-08, 3.661e-08, 3.510e-08, 3.377e-08, 3.242e-08,
* 3.130e-08, 3.015e-08, 2.918e-08, 2.830e-08, 2.758e-08,
* 2.707e-08, 2.656e-08, 2.619e-08, 2.609e-08, 2.615e-08,
* 2.630e-08, 2.675e-08, 2.745e-08, 2.842e-08, 2.966e-08,
* 3.125e-08, 3.318e-08, 3.565e-08, 3.850e-08, 4.191e-08,
* 4.590e-08, 5.059e-08, 5.607e-08, 6.239e-08, 6.958e-08,
* 7.796e-08, 8.773e-08, 9.880e-08, 1.114e-07, 1.258e-07,
* 1.422e-07, 1.610e-07, 1.822e-07, 2.060e-07, 2.337e-07/
DATA S0501/
* 2.645e-07, 2.996e-07, 3.393e-07, 3.843e-07, 4.363e-07,
* 4.935e-07, 5.607e-07, 6.363e-07, 7.242e-07, 8.230e-07,
* 9.411e-07, 1.071e-06, 1.232e-06, 1.402e-06, 1.600e-06,
* 1.820e-06, 2.128e-06, 2.386e-06, 2.781e-06, 3.242e-06,
* 3.653e-06, 4.323e-06, 4.747e-06, 5.321e-06, 5.919e-06,
* 6.681e-06, 7.101e-06, 7.983e-06, 8.342e-06, 8.741e-06,
* 9.431e-06, 9.952e-06, 1.026e-05, 1.055e-05, 1.095e-05,
* 1.095e-05, 1.087e-05, 1.056e-05, 1.026e-05, 9.715e-06,
* 9.252e-06, 8.452e-06, 7.958e-06, 7.268e-06, 6.295e-06,
* 6.003e-06, 5.000e-06, 4.591e-06, 3.983e-06, 3.479e-06/
DATA S0551/
* 3.058e-06, 2.667e-06, 2.293e-06, 1.995e-06, 1.747e-06,
* 1.517e-06, 1.335e-06, 1.165e-06, 1.028e-06, 9.007e-07,
* 7.956e-07, 7.015e-07, 6.192e-07, 5.491e-07, 4.859e-07,
* 4.297e-07, 3.799e-07, 3.380e-07, 3.002e-07, 2.659e-07,
* 2.366e-07, 2.103e-07, 1.861e-07, 1.655e-07, 1.469e-07,
* 1.309e-07, 1.162e-07, 1.032e-07, 9.198e-08, 8.181e-08,
* 7.294e-08, 6.516e-08, 5.787e-08, 5.163e-08, 4.612e-08,
* 4.119e-08, 3.695e-08, 3.308e-08, 2.976e-08, 2.670e-08,
* 2.407e-08, 2.171e-08, 1.965e-08, 1.780e-08, 1.617e-08,
* 1.470e-08, 1.341e-08, 1.227e-08, 1.125e-08, 1.033e-08/
DATA S0601/
* 9.524e-09, 8.797e-09, 8.162e-09, 7.565e-09, 7.040e-09,
* 6.560e-09, 6.129e-09, 5.733e-09, 5.376e-09, 5.043e-09,
* 4.750e-09, 4.466e-09, 4.211e-09, 3.977e-09, 3.759e-09,
* 3.558e-09, 3.373e-09, 3.201e-09, 3.043e-09, 2.895e-09,
* 2.760e-09, 2.635e-09, 2.518e-09, 2.411e-09, 2.314e-09,
* 2.230e-09, 2.151e-09, 2.087e-09, 2.035e-09, 1.988e-09,
* 1.946e-09, 1.927e-09, 1.916e-09, 1.916e-09, 1.933e-09,
* 1.966e-09, 2.018e-09, 2.090e-09, 2.182e-09, 2.299e-09,
* 2.442e-09, 2.623e-09, 2.832e-09, 3.079e-09, 3.368e-09,
* 3.714e-09, 4.104e-09, 4.567e-09, 5.091e-09, 5.701e-09/
DATA S0651/
* 6.398e-09, 7.194e-09, 8.127e-09, 9.141e-09, 1.035e-08,
* 1.177e-08, 1.338e-08, 1.508e-08, 1.711e-08, 1.955e-08,
* 2.216e-08, 2.534e-08, 2.871e-08, 3.291e-08, 3.711e-08,
* 4.285e-08, 4.868e-08, 5.509e-08, 6.276e-08, 7.262e-08,
* 8.252e-08, 9.400e-08, 1.064e-07, 1.247e-07, 1.411e-07,
* 1.626e-07, 1.827e-07, 2.044e-07, 2.284e-07, 2.452e-07,
* 2.854e-07, 3.026e-07, 3.278e-07, 3.474e-07, 3.693e-07,
* 3.930e-07, 4.104e-07, 4.220e-07, 4.439e-07, 4.545e-07,
* 4.778e-07, 4.812e-07, 5.018e-07, 4.899e-07, 5.075e-07,
* 5.073e-07, 5.171e-07, 5.131e-07, 5.250e-07, 5.617e-07/
DATA S0701/
* 5.846e-07, 6.239e-07, 6.696e-07, 7.398e-07, 8.073e-07,
* 9.150e-07, 1.009e-06, 1.116e-06, 1.264e-06, 1.439e-06,
* 1.644e-06, 1.856e-06, 2.147e-06, 2.317e-06, 2.713e-06,
* 2.882e-06, 2.990e-06, 3.489e-06, 3.581e-06, 4.033e-06,
* 4.260e-06, 4.543e-06, 4.840e-06, 4.826e-06, 5.013e-06,
* 5.252e-06, 5.277e-06, 5.306e-06, 5.236e-06, 5.123e-06,
* 5.171e-06, 4.843e-06, 4.615e-06, 4.385e-06, 3.970e-06,
* 3.693e-06, 3.231e-06, 2.915e-06, 2.495e-06, 2.144e-06,
* 1.910e-06, 1.639e-06, 1.417e-06, 1.226e-06, 1.065e-06,
* 9.290e-07, 8.142e-07, 7.161e-07, 6.318e-07, 5.581e-07/
DATA S0751/
* 4.943e-07, 4.376e-07, 3.884e-07, 3.449e-07, 3.060e-07,
* 2.712e-07, 2.412e-07, 2.139e-07, 1.903e-07, 1.689e-07,
* 1.499e-07, 1.331e-07, 1.183e-07, 1.050e-07, 9.362e-08,
* 8.306e-08, 7.403e-08, 6.578e-08, 5.853e-08, 5.216e-08,
* 4.632e-08, 4.127e-08, 3.678e-08, 3.279e-08, 2.923e-08,
* 2.612e-08, 2.339e-08, 2.094e-08, 1.877e-08, 1.686e-08,
* 1.516e-08, 1.366e-08, 1.234e-08, 1.114e-08, 1.012e-08,
* 9.182e-09, 8.362e-09, 7.634e-09, 6.981e-09, 6.406e-09,
* 5.888e-09, 5.428e-09, 5.021e-09, 4.650e-09, 4.326e-09,
* 4.033e-09, 3.770e-09, 3.536e-09, 3.327e-09, 3.141e-09/
DATA S0801/
* 2.974e-09, 2.825e-09, 2.697e-09, 2.584e-09, 2.488e-09,
* 2.406e-09, 2.340e-09, 2.292e-09, 2.259e-09, 2.244e-09,
* 2.243e-09, 2.272e-09, 2.310e-09, 2.378e-09, 2.454e-09,
* 2.618e-09, 2.672e-09, 2.831e-09, 3.050e-09, 3.225e-09,
* 3.425e-09, 3.677e-09, 3.968e-09, 4.221e-09, 4.639e-09,
* 4.960e-09, 5.359e-09, 5.649e-09, 6.230e-09, 6.716e-09,
* 7.218e-09, 7.746e-09, 7.988e-09, 8.627e-09, 8.999e-09,
* 9.442e-09, 9.820e-09, 1.015e-08, 1.060e-08, 1.079e-08,
* 1.109e-08, 1.137e-08, 1.186e-08, 1.180e-08, 1.187e-08,
* 1.194e-08, 1.192e-08, 1.224e-08, 1.245e-08, 1.246e-08/
DATA S0851/
* 1.318e-08, 1.377e-08, 1.471e-08, 1.582e-08, 1.713e-08,
* 1.853e-08, 2.063e-08, 2.270e-08, 2.567e-08, 2.891e-08,
* 3.264e-08, 3.744e-08, 4.286e-08, 4.915e-08, 5.623e-08,
* 6.336e-08, 7.293e-08, 8.309e-08, 9.319e-08, 1.091e-07,
* 1.243e-07, 1.348e-07, 1.449e-07, 1.620e-07, 1.846e-07,
* 1.937e-07, 2.040e-07, 2.179e-07, 2.298e-07, 2.433e-07,
* 2.439e-07, 2.464e-07, 2.611e-07, 2.617e-07, 2.582e-07,
* 2.453e-07, 2.401e-07, 2.349e-07, 2.203e-07, 2.066e-07,
* 1.939e-07, 1.780e-07, 1.558e-07, 1.391e-07, 1.203e-07,
* 1.048e-07, 9.464e-08, 8.306e-08, 7.239e-08, 6.317e-08/
DATA S0901/
* 5.520e-08, 4.847e-08, 4.282e-08, 3.796e-08, 3.377e-08,
* 2.996e-08, 2.678e-08, 2.400e-08, 2.134e-08, 1.904e-08,
* 1.705e-08, 1.523e-08, 1.350e-08, 1.204e-08, 1.070e-08,
* 9.408e-09, 8.476e-09, 7.470e-09, 6.679e-09, 5.929e-09,
* 5.267e-09, 4.711e-09, 4.172e-09, 3.761e-09, 3.288e-09,
* 2.929e-09, 2.609e-09, 2.315e-09, 2.042e-09, 1.844e-09,
* 1.640e-09, 1.470e-09, 1.310e-09, 1.176e-09, 1.049e-09,
* 9.377e-10, 8.462e-10, 7.616e-10, 6.854e-10, 6.191e-10,
* 5.596e-10, 5.078e-10, 4.611e-10, 4.197e-10, 3.830e-10,
* 3.505e-10, 3.215e-10, 2.956e-10, 2.726e-10, 2.521e-10/
DATA S0951/
* 2.338e-10, 2.173e-10, 2.026e-10, 1.895e-10, 1.777e-10,
* 1.672e-10, 1.579e-10, 1.496e-10, 1.423e-10, 1.358e-10,
* 1.302e-10, 1.254e-10, 1.216e-10, 1.187e-10, 1.163e-10,
* 1.147e-10, 1.145e-10, 1.150e-10, 1.170e-10, 1.192e-10,
* 1.250e-10, 1.298e-10, 1.345e-10, 1.405e-10, 1.538e-10,
* 1.648e-10, 1.721e-10, 1.872e-10, 1.968e-10, 2.089e-10,
* 2.172e-10, 2.317e-10, 2.389e-10, 2.503e-10, 2.585e-10,
* 2.686e-10, 2.800e-10, 2.895e-10, 3.019e-10, 3.037e-10,
* 3.076e-10, 3.146e-10, 3.198e-10, 3.332e-10, 3.397e-10,
* 3.540e-10, 3.667e-10, 3.895e-10, 4.071e-10, 4.565e-10/
DATA S1001/
* 4.983e-10, 5.439e-10, 5.968e-10, 6.676e-10, 7.456e-10,
* 8.405e-10, 9.478e-10, 1.064e-09, 1.218e-09, 1.386e-09,
* 1.581e-09, 1.787e-09, 2.032e-09, 2.347e-09, 2.677e-09,
* 3.008e-09, 3.544e-09, 4.056e-09, 4.687e-09, 5.331e-09,
* 6.227e-09, 6.854e-09, 8.139e-09, 8.945e-09, 9.865e-09,
* 1.125e-08, 1.178e-08, 1.364e-08, 1.436e-08, 1.540e-08,
* 1.672e-08, 1.793e-08, 1.906e-08, 2.036e-08, 2.144e-08,
* 2.292e-08, 2.371e-08, 2.493e-08, 2.606e-08, 2.706e-08,
* 2.866e-08, 3.036e-08, 3.136e-08, 3.405e-08, 3.665e-08,
* 3.837e-08, 4.229e-08, 4.748e-08, 5.320e-08, 5.763e-08/
DATA S1051/
* 6.677e-08, 7.216e-08, 7.716e-08, 8.958e-08, 9.419e-08,
* 1.036e-07, 1.108e-07, 1.189e-07, 1.246e-07, 1.348e-07,
* 1.310e-07, 1.361e-07, 1.364e-07, 1.363e-07, 1.343e-07,
* 1.293e-07, 1.254e-07, 1.235e-07, 1.158e-07, 1.107e-07,
* 9.961e-08, 9.011e-08, 7.910e-08, 6.916e-08, 6.338e-08,
* 5.564e-08, 4.827e-08, 4.198e-08, 3.695e-08, 3.276e-08,
* 2.929e-08, 2.633e-08, 2.391e-08, 2.192e-08, 2.021e-08,
* 1.890e-08, 1.772e-08, 1.667e-08, 1.603e-08, 1.547e-08,
* 1.537e-08, 1.492e-08, 1.515e-08, 1.479e-08, 1.450e-08,
* 1.513e-08, 1.495e-08, 1.529e-08, 1.565e-08, 1.564e-08/
DATA S1101/
* 1.553e-08, 1.569e-08, 1.584e-08, 1.570e-08, 1.538e-08,
* 1.513e-08, 1.472e-08, 1.425e-08, 1.349e-08, 1.328e-08,
* 1.249e-08, 1.170e-08, 1.077e-08, 9.514e-09, 8.614e-09,
* 7.460e-09, 6.621e-09, 5.775e-09, 5.006e-09, 4.308e-09,
* 3.747e-09, 3.240e-09, 2.840e-09, 2.481e-09, 2.184e-09,
* 1.923e-09, 1.710e-09, 1.504e-09, 1.334e-09, 1.187e-09,
* 1.053e-09, 9.367e-10, 8.306e-10, 7.419e-10, 6.630e-10,
* 5.918e-10, 5.277e-10, 4.717e-10, 4.222e-10, 3.783e-10,
* 3.390e-10, 3.036e-10, 2.729e-10, 2.455e-10, 2.211e-10,
* 1.995e-10, 1.804e-10, 1.635e-10, 1.485e-10, 1.355e-10/
DATA S1151/
* 1.240e-10, 1.139e-10, 1.051e-10, 9.757e-11, 9.114e-11,
* 8.577e-11, 8.139e-11, 7.792e-11, 7.520e-11, 7.390e-11,
* 7.311e-11, 7.277e-11, 7.482e-11, 7.698e-11, 8.162e-11,
* 8.517e-11, 8.968e-11, 9.905e-11, 1.075e-10, 1.187e-10,
* 1.291e-10, 1.426e-10, 1.573e-10, 1.734e-10, 1.905e-10,
* 2.097e-10, 2.280e-10, 2.473e-10, 2.718e-10, 2.922e-10,
* 3.128e-10, 3.361e-10, 3.641e-10, 3.910e-10, 4.196e-10,
* 4.501e-10, 4.932e-10, 5.258e-10, 5.755e-10, 6.253e-10,
* 6.664e-10, 7.344e-10, 7.985e-10, 8.877e-10, 1.005e-09,
* 1.118e-09, 1.251e-09, 1.428e-09, 1.610e-09, 1.888e-09/
DATA S1201/
* 2.077e-09, 2.331e-09, 2.751e-09, 3.061e-09, 3.522e-09,
* 3.805e-09, 4.181e-09, 4.575e-09, 5.167e-09, 5.634e-09,
* 6.007e-09, 6.501e-09, 6.829e-09, 7.211e-09, 7.262e-09,
* 7.696e-09, 7.832e-09, 7.799e-09, 7.651e-09, 7.304e-09,
* 7.150e-09, 6.977e-09, 6.603e-09, 6.209e-09, 5.690e-09,
* 5.432e-09, 4.764e-09, 4.189e-09, 3.640e-09, 3.203e-09,
* 2.848e-09, 2.510e-09, 2.194e-09, 1.946e-09, 1.750e-09,
* 1.567e-09, 1.426e-09, 1.302e-09, 1.197e-09, 1.109e-09,
* 1.035e-09, 9.719e-10, 9.207e-10, 8.957e-10, 8.578e-10,
* 8.262e-10, 8.117e-10, 7.987e-10, 7.875e-10, 7.741e-10/
DATA S1251/
* 7.762e-10, 7.537e-10, 7.424e-10, 7.474e-10, 7.294e-10,
* 7.216e-10, 7.233e-10, 7.075e-10, 6.892e-10, 6.618e-10,
* 6.314e-10, 6.208e-10, 5.689e-10, 5.550e-10, 4.984e-10,
* 4.600e-10, 4.078e-10, 3.879e-10, 3.459e-10, 2.982e-10,
* 2.626e-10, 2.329e-10, 1.988e-10, 1.735e-10, 1.487e-10,
* 1.297e-10, 1.133e-10, 9.943e-11, 8.736e-11, 7.726e-11,
* 6.836e-11, 6.053e-11, 5.384e-11, 4.789e-11, 4.267e-11,
* 3.804e-11, 3.398e-11, 3.034e-11, 2.710e-11, 2.425e-11,
* 2.173e-11, 1.950e-11, 1.752e-11, 1.574e-11, 1.418e-11,
* 1.278e-11, 1.154e-11, 1.044e-11, 9.463e-12, 8.602e-12/
DATA S1301/
* 7.841e-12, 7.171e-12, 6.584e-12, 6.073e-12, 5.631e-12,
* 5.254e-12, 4.937e-12, 4.679e-12, 4.476e-12, 4.328e-12,
* 4.233e-12, 4.194e-12, 4.211e-12, 4.286e-12, 4.424e-12,
* 4.628e-12, 4.906e-12, 5.262e-12, 5.708e-12, 6.254e-12,
* 6.914e-12, 7.714e-12, 8.677e-12, 9.747e-12, 1.101e-11,
* 1.256e-11, 1.409e-11, 1.597e-11, 1.807e-11, 2.034e-11,
* 2.316e-11, 2.622e-11, 2.962e-11, 3.369e-11, 3.819e-11,
* 4.329e-11, 4.932e-11, 5.589e-11, 6.364e-11, 7.284e-11,
* 8.236e-11, 9.447e-11, 1.078e-10, 1.229e-10, 1.417e-10,
* 1.614e-10, 1.843e-10, 2.107e-10, 2.406e-10, 2.728e-10/
DATA S1351/
* 3.195e-10, 3.595e-10, 4.153e-10, 4.736e-10, 5.410e-10,
* 6.088e-10, 6.769e-10, 7.691e-10, 8.545e-10, 9.621e-10,
* 1.047e-09, 1.161e-09, 1.296e-09, 1.424e-09, 1.576e-09,
* 1.739e-09, 1.893e-09, 2.080e-09, 2.336e-09, 2.604e-09,
* 2.760e-09, 3.001e-09, 3.365e-09, 3.550e-09, 3.895e-09,
* 4.183e-09, 4.614e-09, 4.846e-09, 5.068e-09, 5.427e-09,
* 5.541e-09, 5.864e-09, 5.997e-09, 5.997e-09, 6.061e-09,
* 5.944e-09, 5.855e-09, 5.661e-09, 5.523e-09, 5.374e-09,
* 4.940e-09, 4.688e-09, 4.170e-09, 3.913e-09, 3.423e-09,
* 2.997e-09, 2.598e-09, 2.253e-09, 1.946e-09, 1.710e-09/
DATA S1401/
* 1.507e-09, 1.336e-09, 1.190e-09, 1.068e-09, 9.623e-10,
* 8.772e-10, 8.007e-10, 7.420e-10, 6.884e-10, 6.483e-10,
* 6.162e-10, 5.922e-10, 5.688e-10, 5.654e-10, 5.637e-10,
* 5.701e-10, 5.781e-10, 5.874e-10, 6.268e-10, 6.357e-10,
* 6.525e-10, 7.137e-10, 7.441e-10, 8.024e-10, 8.485e-10,
* 9.143e-10, 9.536e-10, 9.717e-10, 1.018e-09, 1.042e-09,
* 1.054e-09, 1.092e-09, 1.079e-09, 1.064e-09, 1.043e-09,
* 1.020e-09, 9.687e-10, 9.273e-10, 9.208e-10, 9.068e-10,
* 7.687e-10, 7.385e-10, 6.595e-10, 5.870e-10, 5.144e-10,
* 4.417e-10, 3.804e-10, 3.301e-10, 2.866e-10, 2.509e-10/
DATA S1451/
* 2.202e-10, 1.947e-10, 1.719e-10, 1.525e-10, 1.361e-10,
* 1.210e-10, 1.084e-10, 9.800e-11, 8.801e-11, 7.954e-11,
* 7.124e-11, 6.335e-11, 5.760e-11, 5.132e-11, 4.601e-11,
* 4.096e-11, 3.657e-11, 3.250e-11, 2.909e-11, 2.587e-11,
* 2.297e-11, 2.050e-11, 1.828e-11, 1.632e-11, 1.462e-11,
* 1.314e-11, 1.185e-11, 1.073e-11, 9.760e-12, 8.922e-12,
* 8.206e-12, 7.602e-12, 7.100e-12, 6.694e-12, 6.378e-12,
* 6.149e-12, 6.004e-12, 5.941e-12, 5.962e-12, 6.069e-12,
* 6.265e-12, 6.551e-12, 6.935e-12, 7.457e-12, 8.074e-12,
* 8.811e-12, 9.852e-12, 1.086e-11, 1.207e-11, 1.361e-11/
DATA S1501/
* 1.553e-11, 1.737e-11, 1.930e-11, 2.175e-11, 2.410e-11,
* 2.706e-11, 3.023e-11, 3.313e-11, 3.657e-11, 4.118e-11,
* 4.569e-11, 5.025e-11, 5.660e-11, 6.231e-11, 6.881e-11,
* 7.996e-11, 8.526e-11, 9.694e-11, 1.106e-10, 1.222e-10,
* 1.355e-10, 1.525e-10, 1.775e-10, 1.924e-10, 2.181e-10,
* 2.379e-10, 2.662e-10, 2.907e-10, 3.154e-10, 3.366e-10,
* 3.579e-10, 3.858e-10, 4.046e-10, 4.196e-10, 4.166e-10,
* 4.457e-10, 4.466e-10, 4.404e-10, 4.337e-10, 4.150e-10,
* 4.083e-10, 3.910e-10, 3.723e-10, 3.514e-10, 3.303e-10,
* 2.847e-10, 2.546e-10, 2.230e-10, 1.994e-10, 1.733e-10/
DATA S1551/
* 1.488e-10, 1.297e-10, 1.144e-10, 1.004e-10, 8.741e-11,
* 7.928e-11, 7.034e-11, 6.323e-11, 5.754e-11, 5.250e-11,
* 4.850e-11, 4.502e-11, 4.286e-11, 4.028e-11, 3.899e-11,
* 3.824e-11, 3.761e-11, 3.804e-11, 3.839e-11, 3.845e-11,
* 4.244e-11, 4.382e-11, 4.582e-11, 4.847e-11, 5.209e-11,
* 5.384e-11, 5.887e-11, 6.371e-11, 6.737e-11, 7.168e-11,
* 7.415e-11, 7.827e-11, 8.037e-11, 8.120e-11, 8.071e-11,
* 8.008e-11, 7.851e-11, 7.544e-11, 7.377e-11, 7.173e-11,
* 6.801e-11, 6.267e-11, 5.727e-11, 5.288e-11, 4.853e-11,
* 4.082e-11, 3.645e-11, 3.136e-11, 2.672e-11, 2.304e-11/
DATA S1601/
* 1.986e-11, 1.725e-11, 1.503e-11, 1.315e-11, 1.153e-11,
* 1.014e-11, 8.942e-12, 7.901e-12, 6.993e-12, 6.199e-12,
* 5.502e-12, 4.890e-12, 4.351e-12, 3.878e-12, 3.461e-12,
* 3.094e-12, 2.771e-12, 2.488e-12, 2.241e-12, 2.025e-12,
* 1.838e-12, 1.677e-12, 1.541e-12, 1.427e-12, 1.335e-12,
* 1.262e-12, 1.209e-12, 1.176e-12, 1.161e-12, 1.165e-12,
* 1.189e-12, 1.234e-12, 1.300e-12, 1.389e-12, 1.503e-12,
* 1.644e-12, 1.814e-12, 2.017e-12, 2.255e-12, 2.534e-12,
* 2.858e-12, 3.231e-12, 3.661e-12, 4.153e-12, 4.717e-12,
* 5.360e-12, 6.094e-12, 6.930e-12, 7.882e-12, 8.966e-12/
DATA S1651/
* 1.020e-11, 1.162e-11, 1.324e-11, 1.510e-11, 1.720e-11,
* 1.965e-11, 2.237e-11, 2.560e-11, 2.927e-11, 3.371e-11,
* 3.842e-11, 4.429e-11, 5.139e-11, 5.798e-11, 6.697e-11,
* 7.626e-11, 8.647e-11, 1.022e-10, 1.136e-10, 1.300e-10,
* 1.481e-10, 1.672e-10, 1.871e-10, 2.126e-10, 2.357e-10,
* 2.583e-10, 2.997e-10, 3.289e-10, 3.702e-10, 4.012e-10,
* 4.319e-10, 4.527e-10, 5.001e-10, 5.448e-10, 5.611e-10,
* 5.760e-10, 5.965e-10, 6.079e-10, 6.207e-10, 6.276e-10,
* 6.222e-10, 6.137e-10, 6.000e-10, 5.814e-10, 5.393e-10,
* 5.350e-10, 4.947e-10, 4.629e-10, 4.117e-10, 3.712e-10/
DATA S1701/
* 3.372e-10, 2.923e-10, 2.550e-10, 2.232e-10, 1.929e-10,
* 1.679e-10, 1.460e-10, 1.289e-10, 1.130e-10, 9.953e-11,
* 8.763e-11, 7.760e-11, 6.900e-11, 6.160e-11, 5.525e-11,
* 4.958e-11, 4.489e-11, 4.072e-11, 3.728e-11, 3.438e-11,
* 3.205e-11, 3.006e-11, 2.848e-11, 2.766e-11, 2.688e-11,
* 2.664e-11, 2.670e-11, 2.696e-11, 2.786e-11, 2.861e-11,
* 3.009e-11, 3.178e-11, 3.389e-11, 3.587e-11, 3.819e-11,
* 4.054e-11, 4.417e-11, 4.703e-11, 5.137e-11, 5.460e-11,
* 6.055e-11, 6.333e-11, 6.773e-11, 7.219e-11, 7.717e-11,
* 8.131e-11, 8.491e-11, 8.574e-11, 9.010e-11, 9.017e-11/
DATA S1751/
* 8.999e-11, 8.959e-11, 8.838e-11, 8.579e-11, 8.162e-11,
* 8.098e-11, 7.472e-11, 7.108e-11, 6.559e-11, 5.994e-11,
* 5.172e-11, 4.424e-11, 3.951e-11, 3.340e-11, 2.902e-11,
* 2.541e-11, 2.215e-11, 1.945e-11, 1.716e-11, 1.503e-11,
* 1.339e-11, 1.185e-11, 1.050e-11, 9.336e-12, 8.307e-12,
* 7.312e-12, 6.550e-12, 5.836e-12, 5.178e-12, 4.600e-12,
* 4.086e-12, 3.639e-12, 3.247e-12, 2.904e-12, 2.604e-12,
* 2.341e-12, 2.112e-12, 1.914e-12, 1.744e-12, 1.598e-12,
* 1.476e-12, 1.374e-12, 1.293e-12, 1.230e-12, 1.185e-12,
* 1.158e-12, 1.147e-12, 1.154e-12, 1.177e-12, 1.219e-12/
DATA S1801/
* 1.280e-12, 1.360e-12, 1.463e-12, 1.591e-12, 1.750e-12,
* 1.940e-12, 2.156e-12, 2.430e-12, 2.748e-12, 3.052e-12,
* 3.533e-12, 3.967e-12, 4.471e-12, 5.041e-12, 5.860e-12,
* 6.664e-12, 7.522e-12, 8.342e-12, 9.412e-12, 1.072e-11,
* 1.213e-11, 1.343e-11, 1.496e-11, 1.664e-11, 1.822e-11,
* 2.029e-11, 2.233e-11, 2.457e-11, 2.709e-11, 2.928e-11,
* 3.115e-11, 3.356e-11, 3.592e-11, 3.818e-11, 3.936e-11,
* 4.061e-11, 4.149e-11, 4.299e-11, 4.223e-11, 4.251e-11,
* 4.287e-11, 4.177e-11, 4.094e-11, 3.942e-11, 3.772e-11,
* 3.614e-11, 3.394e-11, 3.222e-11, 2.791e-11, 2.665e-11/
DATA S1851/
* 2.309e-11, 2.032e-11, 1.740e-11, 1.535e-11, 1.323e-11,
* 1.151e-11, 9.803e-12, 8.650e-12, 7.540e-12, 6.619e-12,
* 5.832e-12, 5.113e-12, 4.503e-12, 3.975e-12, 3.520e-12,
* 3.112e-12, 2.797e-12, 2.500e-12, 2.240e-12, 2.013e-12,
* 1.819e-12, 1.653e-12, 1.513e-12, 1.395e-12, 1.299e-12,
* 1.225e-12, 1.168e-12, 1.124e-12, 1.148e-12, 1.107e-12,
* 1.128e-12, 1.169e-12, 1.233e-12, 1.307e-12, 1.359e-12,
* 1.543e-12, 1.686e-12, 1.794e-12, 2.028e-12, 2.210e-12,
* 2.441e-12, 2.653e-12, 2.828e-12, 3.093e-12, 3.280e-12,
* 3.551e-12, 3.677e-12, 3.803e-12, 3.844e-12, 4.068e-12/
DATA S1901/
* 4.093e-12, 4.002e-12, 3.904e-12, 3.624e-12, 3.633e-12,
* 3.622e-12, 3.443e-12, 3.184e-12, 2.934e-12, 2.476e-12,
* 2.212e-12, 1.867e-12, 1.594e-12, 1.370e-12, 1.192e-12,
* 1.045e-12, 9.211e-13, 8.170e-13, 7.290e-13, 6.550e-13,
* 5.929e-13, 5.415e-13, 4.995e-13, 4.661e-13, 4.406e-13,
* 4.225e-13, 4.116e-13, 4.075e-13, 4.102e-13, 4.198e-13,
* 4.365e-13, 4.606e-13, 4.925e-13, 5.326e-13, 5.818e-13,
* 6.407e-13, 7.104e-13, 7.920e-13, 8.868e-13, 9.964e-13,
* 1.123e-12, 1.268e-12, 1.434e-12, 1.626e-12, 1.848e-12,
* 2.107e-12, 2.422e-12, 2.772e-12, 3.145e-12, 3.704e-12/
DATA S1951/
* 4.270e-12, 4.721e-12, 5.361e-12, 6.083e-12, 7.095e-12,
* 7.968e-12, 9.228e-12, 1.048e-11, 1.187e-11, 1.336e-11,
* 1.577e-11, 1.772e-11, 2.017e-11, 2.250e-11, 2.630e-11,
* 2.911e-11, 3.356e-11, 3.820e-11, 4.173e-11, 4.811e-11,
* 5.254e-11, 5.839e-11, 6.187e-11, 6.805e-11, 7.118e-11,
* 7.369e-11, 7.664e-11, 7.794e-11, 7.947e-11, 8.036e-11,
* 7.954e-11, 7.849e-11, 7.518e-11, 7.462e-11, 6.926e-11,
* 6.531e-11, 6.197e-11, 5.421e-11, 4.777e-11, 4.111e-11,
* 3.679e-11, 3.166e-11, 2.786e-11, 2.436e-11, 2.144e-11,
* 1.859e-11, 1.628e-11, 1.414e-11, 1.237e-11, 1.093e-11/
DATA S2001/
* 9.558e-12/
C
END
C
C --------------------------------------------------------------
C
BLOCK DATA BS260_MTCKD1
C
IMPLICIT NONE
C
C 11/18/02
C UNITS OF (CM**3/MOL)*1.E-20
C
INTEGER NPT
REAL*8 V1,V2,DV,
* S0000( 2),S0001(50),S0051(50),S0101(50),S0151(50),
* S0201(50),S0251(50),S0301(50),S0351(50),S0401(50),
* S0451(50),S0501(50),S0551(50),S0601(50),S0651(50),
* S0701(50),S0751(50),S0801(50),S0851(50),S0901(50),
* S0951(50),S1001(50),S1051(50),S1101(50),S1151(50),
* S1201(50),S1251(50),S1301(50),S1351(50),S1401(50),
* S1451(50),S1501(50),S1551(50),S1601(50),S1651(50),
* S1701(50),S1751(50),S1801(50),S1851(50),S1901(50),
* S1951(50),S2001( 1)
C
COMMON /S260_MTCKD1/ V1,V2,DV,NPT,
* S0000,S0001,S0051,S0101,S0151,
* S0201,S0251,S0301,S0351,S0401,
* S0451,S0501,S0551,S0601,S0651,
* S0701,S0751,S0801,S0851,S0901,
* S0951,S1001,S1051,S1101,S1151,
* S1201,S1251,S1301,S1351,S1401,
* S1451,S1501,S1551,S1601,S1651,
* S1701,S1751,S1801,S1851,S1901,
* S1951,S2001
C
DATA V1,V2,DV,NPT / -20.0, 20000.0, 10.0, 2003/
C
DATA S0000/
* 2.749e-01, 2.732e-01/
DATA S0001/
* 2.752e-01, 2.732e-01, 2.749e-01, 2.676e-01, 2.667e-01,
* 2.545e-01, 2.497e-01, 2.327e-01, 2.218e-01, 2.036e-01,
* 1.825e-01, 1.694e-01, 1.497e-01, 1.353e-01, 1.210e-01,
* 1.014e-01, 9.405e-02, 7.848e-02, 7.195e-02, 6.246e-02,
* 5.306e-02, 4.853e-02, 4.138e-02, 3.735e-02, 3.171e-02,
* 2.785e-02, 2.431e-02, 2.111e-02, 1.845e-02, 1.640e-02,
* 1.405e-02, 1.255e-02, 1.098e-02, 9.797e-03, 8.646e-03,
* 7.779e-03, 6.898e-03, 6.099e-03, 5.453e-03, 4.909e-03,
* 4.413e-03, 3.959e-03, 3.581e-03, 3.199e-03, 2.871e-03,
* 2.583e-03, 2.330e-03, 2.086e-03, 1.874e-03, 1.684e-03/
DATA S0051/
* 1.512e-03, 1.361e-03, 1.225e-03, 1.100e-03, 9.890e-04,
* 8.916e-04, 8.039e-04, 7.256e-04, 6.545e-04, 5.918e-04,
* 5.359e-04, 4.867e-04, 4.426e-04, 4.033e-04, 3.682e-04,
* 3.366e-04, 3.085e-04, 2.833e-04, 2.605e-04, 2.403e-04,
* 2.221e-04, 2.055e-04, 1.908e-04, 1.774e-04, 1.653e-04,
* 1.544e-04, 1.443e-04, 1.351e-04, 1.267e-04, 1.190e-04,
* 1.119e-04, 1.053e-04, 9.922e-05, 9.355e-05, 8.831e-05,
* 8.339e-05, 7.878e-05, 7.449e-05, 7.043e-05, 6.664e-05,
* 6.307e-05, 5.969e-05, 5.654e-05, 5.357e-05, 5.075e-05,
* 4.810e-05, 4.560e-05, 4.322e-05, 4.102e-05, 3.892e-05/
DATA S0101/
* 3.696e-05, 3.511e-05, 3.339e-05, 3.177e-05, 3.026e-05,
* 2.886e-05, 2.756e-05, 2.636e-05, 2.527e-05, 2.427e-05,
* 2.337e-05, 2.257e-05, 2.185e-05, 2.127e-05, 2.080e-05,
* 2.041e-05, 2.013e-05, 2.000e-05, 1.997e-05, 2.009e-05,
* 2.031e-05, 2.068e-05, 2.124e-05, 2.189e-05, 2.267e-05,
* 2.364e-05, 2.463e-05, 2.618e-05, 2.774e-05, 2.937e-05,
* 3.144e-05, 3.359e-05, 3.695e-05, 4.002e-05, 4.374e-05,
* 4.947e-05, 5.431e-05, 6.281e-05, 7.169e-05, 8.157e-05,
* 9.728e-05, 1.079e-04, 1.337e-04, 1.442e-04, 1.683e-04,
* 1.879e-04, 2.223e-04, 2.425e-04, 2.838e-04, 3.143e-04/
DATA S0151/
* 3.527e-04, 4.012e-04, 4.237e-04, 4.747e-04, 5.057e-04,
* 5.409e-04, 5.734e-04, 5.944e-04, 6.077e-04, 6.175e-04,
* 6.238e-04, 6.226e-04, 6.248e-04, 6.192e-04, 6.098e-04,
* 5.818e-04, 5.709e-04, 5.465e-04, 5.043e-04, 4.699e-04,
* 4.294e-04, 3.984e-04, 3.672e-04, 3.152e-04, 2.883e-04,
* 2.503e-04, 2.211e-04, 1.920e-04, 1.714e-04, 1.485e-04,
* 1.358e-04, 1.156e-04, 1.021e-04, 8.887e-05, 7.842e-05,
* 7.120e-05, 6.186e-05, 5.730e-05, 4.792e-05, 4.364e-05,
* 3.720e-05, 3.280e-05, 2.946e-05, 2.591e-05, 2.261e-05,
* 2.048e-05, 1.813e-05, 1.630e-05, 1.447e-05, 1.282e-05/
DATA S0201/
* 1.167e-05, 1.041e-05, 9.449e-06, 8.510e-06, 7.596e-06,
* 6.961e-06, 6.272e-06, 5.728e-06, 5.198e-06, 4.667e-06,
* 4.288e-06, 3.897e-06, 3.551e-06, 3.235e-06, 2.952e-06,
* 2.688e-06, 2.449e-06, 2.241e-06, 2.050e-06, 1.879e-06,
* 1.722e-06, 1.582e-06, 1.456e-06, 1.339e-06, 1.236e-06,
* 1.144e-06, 1.060e-06, 9.830e-07, 9.149e-07, 8.535e-07,
* 7.973e-07, 7.466e-07, 6.999e-07, 6.574e-07, 6.180e-07,
* 5.821e-07, 5.487e-07, 5.180e-07, 4.896e-07, 4.631e-07,
* 4.386e-07, 4.160e-07, 3.945e-07, 3.748e-07, 3.562e-07,
* 3.385e-07, 3.222e-07, 3.068e-07, 2.922e-07, 2.788e-07/
DATA S0251/
* 2.659e-07, 2.539e-07, 2.425e-07, 2.318e-07, 2.219e-07,
* 2.127e-07, 2.039e-07, 1.958e-07, 1.885e-07, 1.818e-07,
* 1.758e-07, 1.711e-07, 1.662e-07, 1.630e-07, 1.605e-07,
* 1.580e-07, 1.559e-07, 1.545e-07, 1.532e-07, 1.522e-07,
* 1.510e-07, 1.495e-07, 1.465e-07, 1.483e-07, 1.469e-07,
* 1.448e-07, 1.444e-07, 1.436e-07, 1.426e-07, 1.431e-07,
* 1.425e-07, 1.445e-07, 1.477e-07, 1.515e-07, 1.567e-07,
* 1.634e-07, 1.712e-07, 1.802e-07, 1.914e-07, 2.024e-07,
* 2.159e-07, 2.295e-07, 2.461e-07, 2.621e-07, 2.868e-07,
* 3.102e-07, 3.394e-07, 3.784e-07, 4.223e-07, 4.864e-07/
DATA S0301/
* 5.501e-07, 6.039e-07, 7.193e-07, 7.728e-07, 9.514e-07,
* 1.073e-06, 1.180e-06, 1.333e-06, 1.472e-06, 1.566e-06,
* 1.677e-06, 1.784e-06, 1.904e-06, 1.953e-06, 2.020e-06,
* 2.074e-06, 2.128e-06, 2.162e-06, 2.219e-06, 2.221e-06,
* 2.249e-06, 2.239e-06, 2.235e-06, 2.185e-06, 2.141e-06,
* 2.124e-06, 2.090e-06, 2.068e-06, 2.100e-06, 2.104e-06,
* 2.142e-06, 2.181e-06, 2.257e-06, 2.362e-06, 2.500e-06,
* 2.664e-06, 2.884e-06, 3.189e-06, 3.480e-06, 3.847e-06,
* 4.313e-06, 4.790e-06, 5.250e-06, 5.989e-06, 6.692e-06,
* 7.668e-06, 8.520e-06, 9.606e-06, 1.073e-05, 1.225e-05/
DATA S0351/
* 1.377e-05, 1.582e-05, 1.761e-05, 2.029e-05, 2.284e-05,
* 2.602e-05, 2.940e-05, 3.483e-05, 3.928e-05, 4.618e-05,
* 5.240e-05, 6.132e-05, 7.183e-05, 8.521e-05, 9.111e-05,
* 1.070e-04, 1.184e-04, 1.264e-04, 1.475e-04, 1.612e-04,
* 1.704e-04, 1.818e-04, 1.924e-04, 1.994e-04, 2.061e-04,
* 2.180e-04, 2.187e-04, 2.200e-04, 2.196e-04, 2.131e-04,
* 2.015e-04, 1.988e-04, 1.847e-04, 1.729e-04, 1.597e-04,
* 1.373e-04, 1.262e-04, 1.087e-04, 9.439e-05, 8.061e-05,
* 7.093e-05, 6.049e-05, 5.120e-05, 4.435e-05, 3.817e-05,
* 3.340e-05, 2.927e-05, 2.573e-05, 2.291e-05, 2.040e-05/
DATA S0401/
* 1.827e-05, 1.636e-05, 1.463e-05, 1.309e-05, 1.170e-05,
* 1.047e-05, 9.315e-06, 8.328e-06, 7.458e-06, 6.665e-06,
* 5.940e-06, 5.316e-06, 4.752e-06, 4.252e-06, 3.825e-06,
* 3.421e-06, 3.064e-06, 2.746e-06, 2.465e-06, 2.216e-06,
* 1.990e-06, 1.790e-06, 1.609e-06, 1.449e-06, 1.306e-06,
* 1.177e-06, 1.063e-06, 9.607e-07, 8.672e-07, 7.855e-07,
* 7.118e-07, 6.460e-07, 5.871e-07, 5.340e-07, 4.868e-07,
* 4.447e-07, 4.068e-07, 3.729e-07, 3.423e-07, 3.151e-07,
* 2.905e-07, 2.686e-07, 2.484e-07, 2.306e-07, 2.142e-07,
* 1.995e-07, 1.860e-07, 1.738e-07, 1.626e-07, 1.522e-07/
DATA S0451/
* 1.427e-07, 1.338e-07, 1.258e-07, 1.183e-07, 1.116e-07,
* 1.056e-07, 9.972e-08, 9.460e-08, 9.007e-08, 8.592e-08,
* 8.195e-08, 7.816e-08, 7.483e-08, 7.193e-08, 6.892e-08,
* 6.642e-08, 6.386e-08, 6.154e-08, 5.949e-08, 5.764e-08,
* 5.622e-08, 5.479e-08, 5.364e-08, 5.301e-08, 5.267e-08,
* 5.263e-08, 5.313e-08, 5.410e-08, 5.550e-08, 5.745e-08,
* 6.003e-08, 6.311e-08, 6.713e-08, 7.173e-08, 7.724e-08,
* 8.368e-08, 9.121e-08, 9.986e-08, 1.097e-07, 1.209e-07,
* 1.338e-07, 1.486e-07, 1.651e-07, 1.837e-07, 2.048e-07,
* 2.289e-07, 2.557e-07, 2.857e-07, 3.195e-07, 3.587e-07/
DATA S0501/
* 4.015e-07, 4.497e-07, 5.049e-07, 5.665e-07, 6.366e-07,
* 7.121e-07, 7.996e-07, 8.946e-07, 1.002e-06, 1.117e-06,
* 1.262e-06, 1.416e-06, 1.611e-06, 1.807e-06, 2.056e-06,
* 2.351e-06, 2.769e-06, 3.138e-06, 3.699e-06, 4.386e-06,
* 5.041e-06, 6.074e-06, 6.812e-06, 7.790e-06, 8.855e-06,
* 1.014e-05, 1.095e-05, 1.245e-05, 1.316e-05, 1.390e-05,
* 1.504e-05, 1.583e-05, 1.617e-05, 1.652e-05, 1.713e-05,
* 1.724e-05, 1.715e-05, 1.668e-05, 1.629e-05, 1.552e-05,
* 1.478e-05, 1.340e-05, 1.245e-05, 1.121e-05, 9.575e-06,
* 8.956e-06, 7.345e-06, 6.597e-06, 5.612e-06, 4.818e-06/
DATA S0551/
* 4.165e-06, 3.579e-06, 3.041e-06, 2.623e-06, 2.290e-06,
* 1.984e-06, 1.748e-06, 1.534e-06, 1.369e-06, 1.219e-06,
* 1.092e-06, 9.800e-07, 8.762e-07, 7.896e-07, 7.104e-07,
* 6.364e-07, 5.691e-07, 5.107e-07, 4.575e-07, 4.090e-07,
* 3.667e-07, 3.287e-07, 2.931e-07, 2.633e-07, 2.356e-07,
* 2.111e-07, 1.895e-07, 1.697e-07, 1.525e-07, 1.369e-07,
* 1.233e-07, 1.114e-07, 9.988e-08, 9.004e-08, 8.149e-08,
* 7.352e-08, 6.662e-08, 6.030e-08, 5.479e-08, 4.974e-08,
* 4.532e-08, 4.129e-08, 3.781e-08, 3.462e-08, 3.176e-08,
* 2.919e-08, 2.687e-08, 2.481e-08, 2.292e-08, 2.119e-08/
DATA S0601/
* 1.967e-08, 1.828e-08, 1.706e-08, 1.589e-08, 1.487e-08,
* 1.393e-08, 1.307e-08, 1.228e-08, 1.156e-08, 1.089e-08,
* 1.028e-08, 9.696e-09, 9.159e-09, 8.658e-09, 8.187e-09,
* 7.746e-09, 7.340e-09, 6.953e-09, 6.594e-09, 6.259e-09,
* 5.948e-09, 5.660e-09, 5.386e-09, 5.135e-09, 4.903e-09,
* 4.703e-09, 4.515e-09, 4.362e-09, 4.233e-09, 4.117e-09,
* 4.017e-09, 3.962e-09, 3.924e-09, 3.905e-09, 3.922e-09,
* 3.967e-09, 4.046e-09, 4.165e-09, 4.320e-09, 4.522e-09,
* 4.769e-09, 5.083e-09, 5.443e-09, 5.872e-09, 6.366e-09,
* 6.949e-09, 7.601e-09, 8.371e-09, 9.220e-09, 1.020e-08/
DATA S0651/
* 1.129e-08, 1.251e-08, 1.393e-08, 1.542e-08, 1.720e-08,
* 1.926e-08, 2.152e-08, 2.392e-08, 2.678e-08, 3.028e-08,
* 3.390e-08, 3.836e-08, 4.309e-08, 4.900e-08, 5.481e-08,
* 6.252e-08, 7.039e-08, 7.883e-08, 8.849e-08, 1.012e-07,
* 1.142e-07, 1.300e-07, 1.475e-07, 1.732e-07, 1.978e-07,
* 2.304e-07, 2.631e-07, 2.988e-07, 3.392e-07, 3.690e-07,
* 4.355e-07, 4.672e-07, 5.110e-07, 5.461e-07, 5.828e-07,
* 6.233e-07, 6.509e-07, 6.672e-07, 6.969e-07, 7.104e-07,
* 7.439e-07, 7.463e-07, 7.708e-07, 7.466e-07, 7.668e-07,
* 7.549e-07, 7.586e-07, 7.384e-07, 7.439e-07, 7.785e-07/
DATA S0701/
* 7.915e-07, 8.310e-07, 8.745e-07, 9.558e-07, 1.038e-06,
* 1.173e-06, 1.304e-06, 1.452e-06, 1.671e-06, 1.931e-06,
* 2.239e-06, 2.578e-06, 3.032e-06, 3.334e-06, 3.980e-06,
* 4.300e-06, 4.518e-06, 5.321e-06, 5.508e-06, 6.211e-06,
* 6.590e-06, 7.046e-06, 7.555e-06, 7.558e-06, 7.875e-06,
* 8.319e-06, 8.433e-06, 8.590e-06, 8.503e-06, 8.304e-06,
* 8.336e-06, 7.739e-06, 7.301e-06, 6.827e-06, 6.078e-06,
* 5.551e-06, 4.762e-06, 4.224e-06, 3.538e-06, 2.984e-06,
* 2.619e-06, 2.227e-06, 1.923e-06, 1.669e-06, 1.462e-06,
* 1.294e-06, 1.155e-06, 1.033e-06, 9.231e-07, 8.238e-07/
DATA S0751/
* 7.360e-07, 6.564e-07, 5.869e-07, 5.236e-07, 4.673e-07,
* 4.174e-07, 3.736e-07, 3.330e-07, 2.976e-07, 2.657e-07,
* 2.367e-07, 2.106e-07, 1.877e-07, 1.671e-07, 1.494e-07,
* 1.332e-07, 1.192e-07, 1.065e-07, 9.558e-08, 8.586e-08,
* 7.717e-08, 6.958e-08, 6.278e-08, 5.666e-08, 5.121e-08,
* 4.647e-08, 4.213e-08, 3.815e-08, 3.459e-08, 3.146e-08,
* 2.862e-08, 2.604e-08, 2.375e-08, 2.162e-08, 1.981e-08,
* 1.817e-08, 1.670e-08, 1.537e-08, 1.417e-08, 1.310e-08,
* 1.215e-08, 1.128e-08, 1.050e-08, 9.793e-09, 9.158e-09,
* 8.586e-09, 8.068e-09, 7.595e-09, 7.166e-09, 6.778e-09/
DATA S0801/
* 6.427e-09, 6.108e-09, 5.826e-09, 5.571e-09, 5.347e-09,
* 5.144e-09, 4.968e-09, 4.822e-09, 4.692e-09, 4.589e-09,
* 4.506e-09, 4.467e-09, 4.440e-09, 4.466e-09, 4.515e-09,
* 4.718e-09, 4.729e-09, 4.937e-09, 5.249e-09, 5.466e-09,
* 5.713e-09, 6.030e-09, 6.436e-09, 6.741e-09, 7.330e-09,
* 7.787e-09, 8.414e-09, 8.908e-09, 9.868e-09, 1.069e-08,
* 1.158e-08, 1.253e-08, 1.300e-08, 1.409e-08, 1.470e-08,
* 1.548e-08, 1.612e-08, 1.666e-08, 1.736e-08, 1.763e-08,
* 1.812e-08, 1.852e-08, 1.923e-08, 1.897e-08, 1.893e-08,
* 1.888e-08, 1.868e-08, 1.895e-08, 1.899e-08, 1.876e-08/
DATA S0851/
* 1.960e-08, 2.020e-08, 2.121e-08, 2.239e-08, 2.379e-08,
* 2.526e-08, 2.766e-08, 2.994e-08, 3.332e-08, 3.703e-08,
* 4.158e-08, 4.774e-08, 5.499e-08, 6.355e-08, 7.349e-08,
* 8.414e-08, 9.846e-08, 1.143e-07, 1.307e-07, 1.562e-07,
* 1.817e-07, 2.011e-07, 2.192e-07, 2.485e-07, 2.867e-07,
* 3.035e-07, 3.223e-07, 3.443e-07, 3.617e-07, 3.793e-07,
* 3.793e-07, 3.839e-07, 4.081e-07, 4.117e-07, 4.085e-07,
* 3.920e-07, 3.851e-07, 3.754e-07, 3.490e-07, 3.229e-07,
* 2.978e-07, 2.691e-07, 2.312e-07, 2.029e-07, 1.721e-07,
* 1.472e-07, 1.308e-07, 1.132e-07, 9.736e-08, 8.458e-08/
DATA S0901/
* 7.402e-08, 6.534e-08, 5.811e-08, 5.235e-08, 4.762e-08,
* 4.293e-08, 3.896e-08, 3.526e-08, 3.165e-08, 2.833e-08,
* 2.551e-08, 2.288e-08, 2.036e-08, 1.820e-08, 1.626e-08,
* 1.438e-08, 1.299e-08, 1.149e-08, 1.030e-08, 9.148e-09,
* 8.122e-09, 7.264e-09, 6.425e-09, 5.777e-09, 5.060e-09,
* 4.502e-09, 4.013e-09, 3.567e-09, 3.145e-09, 2.864e-09,
* 2.553e-09, 2.311e-09, 2.087e-09, 1.886e-09, 1.716e-09,
* 1.556e-09, 1.432e-09, 1.311e-09, 1.202e-09, 1.104e-09,
* 1.013e-09, 9.293e-10, 8.493e-10, 7.790e-10, 7.185e-10,
* 6.642e-10, 6.141e-10, 5.684e-10, 5.346e-10, 5.032e-10/
DATA S0951/
* 4.725e-10, 4.439e-10, 4.176e-10, 3.930e-10, 3.714e-10,
* 3.515e-10, 3.332e-10, 3.167e-10, 3.020e-10, 2.887e-10,
* 2.769e-10, 2.665e-10, 2.578e-10, 2.503e-10, 2.436e-10,
* 2.377e-10, 2.342e-10, 2.305e-10, 2.296e-10, 2.278e-10,
* 2.321e-10, 2.355e-10, 2.402e-10, 2.478e-10, 2.670e-10,
* 2.848e-10, 2.982e-10, 3.263e-10, 3.438e-10, 3.649e-10,
* 3.829e-10, 4.115e-10, 4.264e-10, 4.473e-10, 4.630e-10,
* 4.808e-10, 4.995e-10, 5.142e-10, 5.313e-10, 5.318e-10,
* 5.358e-10, 5.452e-10, 5.507e-10, 5.698e-10, 5.782e-10,
* 5.983e-10, 6.164e-10, 6.532e-10, 6.811e-10, 7.624e-10/
DATA S1001/
* 8.302e-10, 9.067e-10, 9.937e-10, 1.104e-09, 1.221e-09,
* 1.361e-09, 1.516e-09, 1.675e-09, 1.883e-09, 2.101e-09,
* 2.349e-09, 2.614e-09, 2.920e-09, 3.305e-09, 3.724e-09,
* 4.142e-09, 4.887e-09, 5.614e-09, 6.506e-09, 7.463e-09,
* 8.817e-09, 9.849e-09, 1.187e-08, 1.321e-08, 1.474e-08,
* 1.698e-08, 1.794e-08, 2.090e-08, 2.211e-08, 2.362e-08,
* 2.556e-08, 2.729e-08, 2.880e-08, 3.046e-08, 3.167e-08,
* 3.367e-08, 3.457e-08, 3.590e-08, 3.711e-08, 3.826e-08,
* 4.001e-08, 4.211e-08, 4.315e-08, 4.661e-08, 5.010e-08,
* 5.249e-08, 5.840e-08, 6.628e-08, 7.512e-08, 8.253e-08/
DATA S1051/
* 9.722e-08, 1.067e-07, 1.153e-07, 1.347e-07, 1.428e-07,
* 1.577e-07, 1.694e-07, 1.833e-07, 1.938e-07, 2.108e-07,
* 2.059e-07, 2.157e-07, 2.185e-07, 2.208e-07, 2.182e-07,
* 2.093e-07, 2.014e-07, 1.962e-07, 1.819e-07, 1.713e-07,
* 1.510e-07, 1.340e-07, 1.154e-07, 9.890e-08, 8.880e-08,
* 7.673e-08, 6.599e-08, 5.730e-08, 5.081e-08, 4.567e-08,
* 4.147e-08, 3.773e-08, 3.460e-08, 3.194e-08, 2.953e-08,
* 2.759e-08, 2.594e-08, 2.442e-08, 2.355e-08, 2.283e-08,
* 2.279e-08, 2.231e-08, 2.279e-08, 2.239e-08, 2.210e-08,
* 2.309e-08, 2.293e-08, 2.352e-08, 2.415e-08, 2.430e-08/
DATA S1101/
* 2.426e-08, 2.465e-08, 2.500e-08, 2.496e-08, 2.465e-08,
* 2.445e-08, 2.383e-08, 2.299e-08, 2.165e-08, 2.113e-08,
* 1.968e-08, 1.819e-08, 1.644e-08, 1.427e-08, 1.270e-08,
* 1.082e-08, 9.428e-09, 8.091e-09, 6.958e-09, 5.988e-09,
* 5.246e-09, 4.601e-09, 4.098e-09, 3.664e-09, 3.287e-09,
* 2.942e-09, 2.656e-09, 2.364e-09, 2.118e-09, 1.903e-09,
* 1.703e-09, 1.525e-09, 1.365e-09, 1.229e-09, 1.107e-09,
* 9.960e-10, 8.945e-10, 8.080e-10, 7.308e-10, 6.616e-10,
* 5.994e-10, 5.422e-10, 4.929e-10, 4.478e-10, 4.070e-10,
* 3.707e-10, 3.379e-10, 3.087e-10, 2.823e-10, 2.592e-10/
DATA S1151/
* 2.385e-10, 2.201e-10, 2.038e-10, 1.897e-10, 1.774e-10,
* 1.667e-10, 1.577e-10, 1.502e-10, 1.437e-10, 1.394e-10,
* 1.358e-10, 1.324e-10, 1.329e-10, 1.324e-10, 1.360e-10,
* 1.390e-10, 1.424e-10, 1.544e-10, 1.651e-10, 1.817e-10,
* 1.984e-10, 2.195e-10, 2.438e-10, 2.700e-10, 2.991e-10,
* 3.322e-10, 3.632e-10, 3.957e-10, 4.360e-10, 4.701e-10,
* 5.030e-10, 5.381e-10, 5.793e-10, 6.190e-10, 6.596e-10,
* 7.004e-10, 7.561e-10, 7.934e-10, 8.552e-10, 9.142e-10,
* 9.570e-10, 1.027e-09, 1.097e-09, 1.193e-09, 1.334e-09,
* 1.470e-09, 1.636e-09, 1.871e-09, 2.122e-09, 2.519e-09/
DATA S1201/
* 2.806e-09, 3.203e-09, 3.846e-09, 4.362e-09, 5.114e-09,
* 5.643e-09, 6.305e-09, 6.981e-09, 7.983e-09, 8.783e-09,
* 9.419e-09, 1.017e-08, 1.063e-08, 1.121e-08, 1.130e-08,
* 1.201e-08, 1.225e-08, 1.232e-08, 1.223e-08, 1.177e-08,
* 1.151e-08, 1.116e-08, 1.047e-08, 9.698e-09, 8.734e-09,
* 8.202e-09, 7.041e-09, 6.074e-09, 5.172e-09, 4.468e-09,
* 3.913e-09, 3.414e-09, 2.975e-09, 2.650e-09, 2.406e-09,
* 2.173e-09, 2.009e-09, 1.861e-09, 1.727e-09, 1.612e-09,
* 1.514e-09, 1.430e-09, 1.362e-09, 1.333e-09, 1.288e-09,
* 1.249e-09, 1.238e-09, 1.228e-09, 1.217e-09, 1.202e-09/
DATA S1251/
* 1.209e-09, 1.177e-09, 1.157e-09, 1.165e-09, 1.142e-09,
* 1.131e-09, 1.138e-09, 1.117e-09, 1.100e-09, 1.069e-09,
* 1.023e-09, 1.005e-09, 9.159e-10, 8.863e-10, 7.865e-10,
* 7.153e-10, 6.247e-10, 5.846e-10, 5.133e-10, 4.360e-10,
* 3.789e-10, 3.335e-10, 2.833e-10, 2.483e-10, 2.155e-10,
* 1.918e-10, 1.709e-10, 1.529e-10, 1.374e-10, 1.235e-10,
* 1.108e-10, 9.933e-11, 8.932e-11, 8.022e-11, 7.224e-11,
* 6.520e-11, 5.896e-11, 5.328e-11, 4.813e-11, 4.365e-11,
* 3.961e-11, 3.594e-11, 3.266e-11, 2.967e-11, 2.701e-11,
* 2.464e-11, 2.248e-11, 2.054e-11, 1.878e-11, 1.721e-11/
DATA S1301/
* 1.579e-11, 1.453e-11, 1.341e-11, 1.241e-11, 1.154e-11,
* 1.078e-11, 1.014e-11, 9.601e-12, 9.167e-12, 8.838e-12,
* 8.614e-12, 8.493e-12, 8.481e-12, 8.581e-12, 8.795e-12,
* 9.131e-12, 9.601e-12, 1.021e-11, 1.097e-11, 1.191e-11,
* 1.303e-11, 1.439e-11, 1.601e-11, 1.778e-11, 1.984e-11,
* 2.234e-11, 2.474e-11, 2.766e-11, 3.085e-11, 3.415e-11,
* 3.821e-11, 4.261e-11, 4.748e-11, 5.323e-11, 5.935e-11,
* 6.619e-11, 7.418e-11, 8.294e-11, 9.260e-11, 1.039e-10,
* 1.156e-10, 1.297e-10, 1.460e-10, 1.641e-10, 1.858e-10,
* 2.100e-10, 2.383e-10, 2.724e-10, 3.116e-10, 3.538e-10/
DATA S1351/
* 4.173e-10, 4.727e-10, 5.503e-10, 6.337e-10, 7.320e-10,
* 8.298e-10, 9.328e-10, 1.059e-09, 1.176e-09, 1.328e-09,
* 1.445e-09, 1.593e-09, 1.770e-09, 1.954e-09, 2.175e-09,
* 2.405e-09, 2.622e-09, 2.906e-09, 3.294e-09, 3.713e-09,
* 3.980e-09, 4.384e-09, 4.987e-09, 5.311e-09, 5.874e-09,
* 6.337e-09, 7.027e-09, 7.390e-09, 7.769e-09, 8.374e-09,
* 8.605e-09, 9.165e-09, 9.415e-09, 9.511e-09, 9.704e-09,
* 9.588e-09, 9.450e-09, 9.086e-09, 8.798e-09, 8.469e-09,
* 7.697e-09, 7.168e-09, 6.255e-09, 5.772e-09, 4.970e-09,
* 4.271e-09, 3.653e-09, 3.154e-09, 2.742e-09, 2.435e-09/
DATA S1401/
* 2.166e-09, 1.936e-09, 1.731e-09, 1.556e-09, 1.399e-09,
* 1.272e-09, 1.157e-09, 1.066e-09, 9.844e-10, 9.258e-10,
* 8.787e-10, 8.421e-10, 8.083e-10, 8.046e-10, 8.067e-10,
* 8.181e-10, 8.325e-10, 8.517e-10, 9.151e-10, 9.351e-10,
* 9.677e-10, 1.071e-09, 1.126e-09, 1.219e-09, 1.297e-09,
* 1.408e-09, 1.476e-09, 1.517e-09, 1.600e-09, 1.649e-09,
* 1.678e-09, 1.746e-09, 1.742e-09, 1.728e-09, 1.699e-09,
* 1.655e-09, 1.561e-09, 1.480e-09, 1.451e-09, 1.411e-09,
* 1.171e-09, 1.106e-09, 9.714e-10, 8.523e-10, 7.346e-10,
* 6.241e-10, 5.371e-10, 4.704e-10, 4.144e-10, 3.683e-10/
DATA S1451/
* 3.292e-10, 2.942e-10, 2.620e-10, 2.341e-10, 2.104e-10,
* 1.884e-10, 1.700e-10, 1.546e-10, 1.394e-10, 1.265e-10,
* 1.140e-10, 1.019e-10, 9.279e-11, 8.283e-11, 7.458e-11,
* 6.668e-11, 5.976e-11, 5.330e-11, 4.794e-11, 4.289e-11,
* 3.841e-11, 3.467e-11, 3.130e-11, 2.832e-11, 2.582e-11,
* 2.356e-11, 2.152e-11, 1.970e-11, 1.808e-11, 1.664e-11,
* 1.539e-11, 1.434e-11, 1.344e-11, 1.269e-11, 1.209e-11,
* 1.162e-11, 1.129e-11, 1.108e-11, 1.099e-11, 1.103e-11,
* 1.119e-11, 1.148e-11, 1.193e-11, 1.252e-11, 1.329e-11,
* 1.421e-11, 1.555e-11, 1.685e-11, 1.839e-11, 2.054e-11/
DATA S1501/
* 2.317e-11, 2.571e-11, 2.839e-11, 3.171e-11, 3.490e-11,
* 3.886e-11, 4.287e-11, 4.645e-11, 5.047e-11, 5.592e-11,
* 6.109e-11, 6.628e-11, 7.381e-11, 8.088e-11, 8.966e-11,
* 1.045e-10, 1.120e-10, 1.287e-10, 1.486e-10, 1.662e-10,
* 1.866e-10, 2.133e-10, 2.524e-10, 2.776e-10, 3.204e-10,
* 3.559e-10, 4.028e-10, 4.448e-10, 4.882e-10, 5.244e-10,
* 5.605e-10, 6.018e-10, 6.328e-10, 6.579e-10, 6.541e-10,
* 7.024e-10, 7.074e-10, 7.068e-10, 7.009e-10, 6.698e-10,
* 6.545e-10, 6.209e-10, 5.834e-10, 5.412e-10, 5.001e-10,
* 4.231e-10, 3.727e-10, 3.211e-10, 2.833e-10, 2.447e-10/
DATA S1551/
* 2.097e-10, 1.843e-10, 1.639e-10, 1.449e-10, 1.270e-10,
* 1.161e-10, 1.033e-10, 9.282e-11, 8.407e-11, 7.639e-11,
* 7.023e-11, 6.474e-11, 6.142e-11, 5.760e-11, 5.568e-11,
* 5.472e-11, 5.390e-11, 5.455e-11, 5.540e-11, 5.587e-11,
* 6.230e-11, 6.490e-11, 6.868e-11, 7.382e-11, 8.022e-11,
* 8.372e-11, 9.243e-11, 1.004e-10, 1.062e-10, 1.130e-10,
* 1.176e-10, 1.244e-10, 1.279e-10, 1.298e-10, 1.302e-10,
* 1.312e-10, 1.295e-10, 1.244e-10, 1.211e-10, 1.167e-10,
* 1.098e-10, 9.927e-11, 8.854e-11, 8.011e-11, 7.182e-11,
* 5.923e-11, 5.212e-11, 4.453e-11, 3.832e-11, 3.371e-11/
DATA S1601/
* 2.987e-11, 2.651e-11, 2.354e-11, 2.093e-11, 1.863e-11,
* 1.662e-11, 1.486e-11, 1.331e-11, 1.193e-11, 1.071e-11,
* 9.628e-12, 8.660e-12, 7.801e-12, 7.031e-12, 6.347e-12,
* 5.733e-12, 5.182e-12, 4.695e-12, 4.260e-12, 3.874e-12,
* 3.533e-12, 3.235e-12, 2.979e-12, 2.760e-12, 2.579e-12,
* 2.432e-12, 2.321e-12, 2.246e-12, 2.205e-12, 2.196e-12,
* 2.223e-12, 2.288e-12, 2.387e-12, 2.525e-12, 2.704e-12,
* 2.925e-12, 3.191e-12, 3.508e-12, 3.876e-12, 4.303e-12,
* 4.793e-12, 5.347e-12, 5.978e-12, 6.682e-12, 7.467e-12,
* 8.340e-12, 9.293e-12, 1.035e-11, 1.152e-11, 1.285e-11/
DATA S1651/
* 1.428e-11, 1.586e-11, 1.764e-11, 1.972e-11, 2.214e-11,
* 2.478e-11, 2.776e-11, 3.151e-11, 3.591e-11, 4.103e-11,
* 4.660e-11, 5.395e-11, 6.306e-11, 7.172e-11, 8.358e-11,
* 9.670e-11, 1.110e-10, 1.325e-10, 1.494e-10, 1.736e-10,
* 2.007e-10, 2.296e-10, 2.608e-10, 3.004e-10, 3.361e-10,
* 3.727e-10, 4.373e-10, 4.838e-10, 5.483e-10, 6.006e-10,
* 6.535e-10, 6.899e-10, 7.687e-10, 8.444e-10, 8.798e-10,
* 9.135e-10, 9.532e-10, 9.757e-10, 9.968e-10, 1.006e-09,
* 9.949e-10, 9.789e-10, 9.564e-10, 9.215e-10, 8.510e-10,
* 8.394e-10, 7.707e-10, 7.152e-10, 6.274e-10, 5.598e-10/
DATA S1701/
* 5.028e-10, 4.300e-10, 3.710e-10, 3.245e-10, 2.809e-10,
* 2.461e-10, 2.154e-10, 1.910e-10, 1.685e-10, 1.487e-10,
* 1.313e-10, 1.163e-10, 1.031e-10, 9.172e-11, 8.221e-11,
* 7.382e-11, 6.693e-11, 6.079e-11, 5.581e-11, 5.167e-11,
* 4.811e-11, 4.506e-11, 4.255e-11, 4.083e-11, 3.949e-11,
* 3.881e-11, 3.861e-11, 3.858e-11, 3.951e-11, 4.045e-11,
* 4.240e-11, 4.487e-11, 4.806e-11, 5.133e-11, 5.518e-11,
* 5.919e-11, 6.533e-11, 7.031e-11, 7.762e-11, 8.305e-11,
* 9.252e-11, 9.727e-11, 1.045e-10, 1.117e-10, 1.200e-10,
* 1.275e-10, 1.341e-10, 1.362e-10, 1.438e-10, 1.450e-10/
DATA S1751/
* 1.455e-10, 1.455e-10, 1.434e-10, 1.381e-10, 1.301e-10,
* 1.276e-10, 1.163e-10, 1.089e-10, 9.911e-11, 8.943e-11,
* 7.618e-11, 6.424e-11, 5.717e-11, 4.866e-11, 4.257e-11,
* 3.773e-11, 3.331e-11, 2.958e-11, 2.629e-11, 2.316e-11,
* 2.073e-11, 1.841e-11, 1.635e-11, 1.464e-11, 1.310e-11,
* 1.160e-11, 1.047e-11, 9.408e-12, 8.414e-12, 7.521e-12,
* 6.705e-12, 5.993e-12, 5.371e-12, 4.815e-12, 4.338e-12,
* 3.921e-12, 3.567e-12, 3.265e-12, 3.010e-12, 2.795e-12,
* 2.613e-12, 2.464e-12, 2.346e-12, 2.256e-12, 2.195e-12,
* 2.165e-12, 2.166e-12, 2.198e-12, 2.262e-12, 2.364e-12/
DATA S1801/
* 2.502e-12, 2.682e-12, 2.908e-12, 3.187e-12, 3.533e-12,
* 3.946e-12, 4.418e-12, 5.013e-12, 5.708e-12, 6.379e-12,
* 7.430e-12, 8.390e-12, 9.510e-12, 1.078e-11, 1.259e-11,
* 1.438e-11, 1.630e-11, 1.814e-11, 2.055e-11, 2.348e-11,
* 2.664e-11, 2.956e-11, 3.300e-11, 3.677e-11, 4.032e-11,
* 4.494e-11, 4.951e-11, 5.452e-11, 6.014e-11, 6.500e-11,
* 6.915e-11, 7.450e-11, 7.971e-11, 8.468e-11, 8.726e-11,
* 8.995e-11, 9.182e-11, 9.509e-11, 9.333e-11, 9.386e-11,
* 9.457e-11, 9.210e-11, 9.019e-11, 8.680e-11, 8.298e-11,
* 7.947e-11, 7.460e-11, 7.082e-11, 6.132e-11, 5.855e-11/
DATA S1851/
* 5.073e-11, 4.464e-11, 3.825e-11, 3.375e-11, 2.911e-11,
* 2.535e-11, 2.160e-11, 1.907e-11, 1.665e-11, 1.463e-11,
* 1.291e-11, 1.133e-11, 9.997e-12, 8.836e-12, 7.839e-12,
* 6.943e-12, 6.254e-12, 5.600e-12, 5.029e-12, 4.529e-12,
* 4.102e-12, 3.737e-12, 3.428e-12, 3.169e-12, 2.959e-12,
* 2.798e-12, 2.675e-12, 2.582e-12, 2.644e-12, 2.557e-12,
* 2.614e-12, 2.717e-12, 2.874e-12, 3.056e-12, 3.187e-12,
* 3.631e-12, 3.979e-12, 4.248e-12, 4.817e-12, 5.266e-12,
* 5.836e-12, 6.365e-12, 6.807e-12, 7.470e-12, 7.951e-12,
* 8.636e-12, 8.972e-12, 9.314e-12, 9.445e-12, 1.003e-11/
DATA S1901/
* 1.013e-11, 9.937e-12, 9.729e-12, 9.064e-12, 9.119e-12,
* 9.124e-12, 8.704e-12, 8.078e-12, 7.470e-12, 6.329e-12,
* 5.674e-12, 4.808e-12, 4.119e-12, 3.554e-12, 3.103e-12,
* 2.731e-12, 2.415e-12, 2.150e-12, 1.926e-12, 1.737e-12,
* 1.578e-12, 1.447e-12, 1.340e-12, 1.255e-12, 1.191e-12,
* 1.146e-12, 1.121e-12, 1.114e-12, 1.126e-12, 1.156e-12,
* 1.207e-12, 1.278e-12, 1.372e-12, 1.490e-12, 1.633e-12,
* 1.805e-12, 2.010e-12, 2.249e-12, 2.528e-12, 2.852e-12,
* 3.228e-12, 3.658e-12, 4.153e-12, 4.728e-12, 5.394e-12,
* 6.176e-12, 7.126e-12, 8.188e-12, 9.328e-12, 1.103e-11/
DATA S1951/
* 1.276e-11, 1.417e-11, 1.615e-11, 1.840e-11, 2.155e-11,
* 2.429e-11, 2.826e-11, 3.222e-11, 3.664e-11, 4.140e-11,
* 4.906e-11, 5.536e-11, 6.327e-11, 7.088e-11, 8.316e-11,
* 9.242e-11, 1.070e-10, 1.223e-10, 1.341e-10, 1.553e-10,
* 1.703e-10, 1.900e-10, 2.022e-10, 2.233e-10, 2.345e-10,
* 2.438e-10, 2.546e-10, 2.599e-10, 2.661e-10, 2.703e-10,
* 2.686e-10, 2.662e-10, 2.560e-10, 2.552e-10, 2.378e-10,
* 2.252e-10, 2.146e-10, 1.885e-10, 1.668e-10, 1.441e-10,
* 1.295e-10, 1.119e-10, 9.893e-11, 8.687e-11, 7.678e-11,
* 6.685e-11, 5.879e-11, 5.127e-11, 4.505e-11, 3.997e-11/
DATA S2001/
* 3.511e-11/
C
END
C
C --------------------------------------------------------------
C
BLOCK DATA BFH2O_MTCKD1
C
IMPLICIT NONE
C
C 11/18/02
C UNITS OF (CM**3/MOL)*1.E-20
C
INTEGER NPT
REAL*8 V1,V2,DV,
* F0000( 2),F0001(50),F0051(50),F0101(50),F0151(50),
* F0201(50),F0251(50),F0301(50),F0351(50),F0401(50),
* F0451(50),F0501(50),F0551(50),F0601(50),F0651(50),
* F0701(50),F0751(50),F0801(50),F0851(50),F0901(50),
* F0951(50),F1001(50),F1051(50),F1101(50),F1151(50),
* F1201(50),F1251(50),F1301(50),F1351(50),F1401(50),
* F1451(50),F1501(50),F1551(50),F1601(50),F1651(50),
* F1701(50),F1751(50),F1801(50),F1851(50),F1901(50),
* F1951(50),F2001(1)
C
COMMON /FH2O_MTCKD1/ V1,V2,DV,NPT,
* F0000,F0001,F0051,F0101,F0151,
* F0201,F0251,F0301,F0351,F0401,
* F0451,F0501,F0551,F0601,F0651,
* F0701,F0751,F0801,F0851,F0901,
* F0951,F1001,F1051,F1101,F1151,
* F1201,F1251,F1301,F1351,F1401,
* F1451,F1501,F1551,F1601,F1651,
* F1701,F1751,F1801,F1851,F1901,
* F1951,F2001
C
DATA V1,V2,DV,NPT / -20.0, 20000.0, 10.0, 2003/
C
DATA F0000/