-
Notifications
You must be signed in to change notification settings - Fork 1
Expand file tree
/
Copy pathdataSpec_P5B.f90
More file actions
2271 lines (2068 loc) · 177 KB
/
Copy pathdataSpec_P5B.f90
File metadata and controls
2271 lines (2068 loc) · 177 KB
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
! ***********************************************************************
! dataSpec_P5B.f90 - (october, 20th 2009)
! ***********************************************************************
! **********************************************************************
! these modules contain the spectral domain of PROSPECT & SAIL (lambda)
! (nw wavelengths with 1 nm spectral resolution),
! and the spectral coefficients for leaf, canopy, atmsphere and soil:
! [1] = refractive index of leaf material
! [2] = specific absorption coefficient of chlorophyll (a+b) (cm2.microg-1)
! [3] = specific absorption coefficient of carotenoids (cm2.microg-1)
! [4] = specific absorption coefficient of brown pigments (arbitrary units)
! [5] = specific absorption coefficient of water (cm-1)
! [6] = specific absorption coefficient of dry matter (cm2.g-1)
! [7] = fraction of direct light
! [8] = fraction of diffuse light
! [9] = reflectance of a dry soil
! [10] = reflectance of a wet soil
! Féret et al. (2008), PROSPECT-4 and 5: Advances in the Leaf Optical
! Properties Model Separating Photosynthetic Pigments, Remote Sensing of
! Environment
! The specific absorption coefficient corresponding to brown pigment is
! provided by Frederic Baret (EMMAH, INRA Avignon, baret@avignon.inra.fr)
! and used with his autorization.
! **********************************************************************
! **********************************************************************
MODULE MOD_dataSpec_P5B
IMPLICIT NONE
INTEGER,PARAMETER :: nw=2101
INTEGER*4 :: lambda(nw)
REAL*8 :: refractive(nw),k_Cab(nw),k_Car(nw),k_Brown(nw),k_Cw(nw),k_Cm(nw)
REAL*8 :: Es(nw),Ed(nw),Rsoil1(nw),Rsoil2(nw)
INTEGER*4 i
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!! wavelength !!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
DATA (lambda(i),i=1,100)/&
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/
DATA (lambda(i),i=101,200)/&
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/
DATA (lambda(i),i=201,300)/&
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/
DATA (lambda(i),i=301,400)/&
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/
DATA (lambda(i),i=401,500)/&
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/
DATA (lambda(i),i=501,600)/&
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/
DATA (lambda(i),i=601,700)/&
1000.,1001.,1002.,1003.,1004.,1005.,1006.,1007.,1008.,1009.,&
1010.,1011.,1012.,1013.,1014.,1015.,1016.,1017.,1018.,1019.,&
1020.,1021.,1022.,1023.,1024.,1025.,1026.,1027.,1028.,1029.,&
1030.,1031.,1032.,1033.,1034.,1035.,1036.,1037.,1038.,1039.,&
1040.,1041.,1042.,1043.,1044.,1045.,1046.,1047.,1048.,1049.,&
1050.,1051.,1052.,1053.,1054.,1055.,1056.,1057.,1058.,1059.,&
1060.,1061.,1062.,1063.,1064.,1065.,1066.,1067.,1068.,1069.,&
1070.,1071.,1072.,1073.,1074.,1075.,1076.,1077.,1078.,1079.,&
1080.,1081.,1082.,1083.,1084.,1085.,1086.,1087.,1088.,1089.,&
1090.,1091.,1092.,1093.,1094.,1095.,1096.,1097.,1098.,1099/
DATA (lambda(i),i=701,800)/&
1100.,1101.,1102.,1103.,1104.,1105.,1106.,1107.,1108.,1109.,&
1110.,1111.,1112.,1113.,1114.,1115.,1116.,1117.,1118.,1119.,&
1120.,1121.,1122.,1123.,1124.,1125.,1126.,1127.,1128.,1129.,&
1130.,1131.,1132.,1133.,1134.,1135.,1136.,1137.,1138.,1139.,&
1140.,1141.,1142.,1143.,1144.,1145.,1146.,1147.,1148.,1149.,&
1150.,1151.,1152.,1153.,1154.,1155.,1156.,1157.,1158.,1159.,&
1160.,1161.,1162.,1163.,1164.,1165.,1166.,1167.,1168.,1169.,&
1170.,1171.,1172.,1173.,1174.,1175.,1176.,1177.,1178.,1179.,&
1180.,1181.,1182.,1183.,1184.,1185.,1186.,1187.,1188.,1189.,&
1190.,1191.,1192.,1193.,1194.,1195.,1196.,1197.,1198.,1199/
DATA (lambda(i),i=801,900)/&
1200.,1201.,1202.,1203.,1204.,1205.,1206.,1207.,1208.,1209.,&
1210.,1211.,1212.,1213.,1214.,1215.,1216.,1217.,1218.,1219.,&
1220.,1221.,1222.,1223.,1224.,1225.,1226.,1227.,1228.,1229.,&
1230.,1231.,1232.,1233.,1234.,1235.,1236.,1237.,1238.,1239.,&
1240.,1241.,1242.,1243.,1244.,1245.,1246.,1247.,1248.,1249.,&
1250.,1251.,1252.,1253.,1254.,1255.,1256.,1257.,1258.,1259.,&
1260.,1261.,1262.,1263.,1264.,1265.,1266.,1267.,1268.,1269.,&
1270.,1271.,1272.,1273.,1274.,1275.,1276.,1277.,1278.,1279.,&
1280.,1281.,1282.,1283.,1284.,1285.,1286.,1287.,1288.,1289.,&
1290.,1291.,1292.,1293.,1294.,1295.,1296.,1297.,1298.,1299/
DATA (lambda(i),i=901,1000)/&
1300.,1301.,1302.,1303.,1304.,1305.,1306.,1307.,1308.,1309.,&
1310.,1311.,1312.,1313.,1314.,1315.,1316.,1317.,1318.,1319.,&
1320.,1321.,1322.,1323.,1324.,1325.,1326.,1327.,1328.,1329.,&
1330.,1331.,1332.,1333.,1334.,1335.,1336.,1337.,1338.,1339.,&
1340.,1341.,1342.,1343.,1344.,1345.,1346.,1347.,1348.,1349.,&
1350.,1351.,1352.,1353.,1354.,1355.,1356.,1357.,1358.,1359.,&
1360.,1361.,1362.,1363.,1364.,1365.,1366.,1367.,1368.,1369.,&
1370.,1371.,1372.,1373.,1374.,1375.,1376.,1377.,1378.,1379.,&
1380.,1381.,1382.,1383.,1384.,1385.,1386.,1387.,1388.,1389.,&
1390.,1391.,1392.,1393.,1394.,1395.,1396.,1397.,1398.,1399/
DATA (lambda(i),i=1001,1100)/&
1400.,1401.,1402.,1403.,1404.,1405.,1406.,1407.,1408.,1409.,&
1410.,1411.,1412.,1413.,1414.,1415.,1416.,1417.,1418.,1419.,&
1420.,1421.,1422.,1423.,1424.,1425.,1426.,1427.,1428.,1429.,&
1430.,1431.,1432.,1433.,1434.,1435.,1436.,1437.,1438.,1439.,&
1440.,1441.,1442.,1443.,1444.,1445.,1446.,1447.,1448.,1449.,&
1450.,1451.,1452.,1453.,1454.,1455.,1456.,1457.,1458.,1459.,&
1460.,1461.,1462.,1463.,1464.,1465.,1466.,1467.,1468.,1469.,&
1470.,1471.,1472.,1473.,1474.,1475.,1476.,1477.,1478.,1479.,&
1480.,1481.,1482.,1483.,1484.,1485.,1486.,1487.,1488.,1489.,&
1490.,1491.,1492.,1493.,1494.,1495.,1496.,1497.,1498.,1499/
DATA (lambda(i),i=1101,1200)/&
1500.,1501.,1502.,1503.,1504.,1505.,1506.,1507.,1508.,1509.,&
1510.,1511.,1512.,1513.,1514.,1515.,1516.,1517.,1518.,1519.,&
1520.,1521.,1522.,1523.,1524.,1525.,1526.,1527.,1528.,1529.,&
1530.,1531.,1532.,1533.,1534.,1535.,1536.,1537.,1538.,1539.,&
1540.,1541.,1542.,1543.,1544.,1545.,1546.,1547.,1548.,1549.,&
1550.,1551.,1552.,1553.,1554.,1555.,1556.,1557.,1558.,1559.,&
1560.,1561.,1562.,1563.,1564.,1565.,1566.,1567.,1568.,1569.,&
1570.,1571.,1572.,1573.,1574.,1575.,1576.,1577.,1578.,1579.,&
1580.,1581.,1582.,1583.,1584.,1585.,1586.,1587.,1588.,1589.,&
1590.,1591.,1592.,1593.,1594.,1595.,1596.,1597.,1598.,1599/
DATA (lambda(i),i=1201,1300)/&
1600.,1601.,1602.,1603.,1604.,1605.,1606.,1607.,1608.,1609.,&
1610.,1611.,1612.,1613.,1614.,1615.,1616.,1617.,1618.,1619.,&
1620.,1621.,1622.,1623.,1624.,1625.,1626.,1627.,1628.,1629.,&
1630.,1631.,1632.,1633.,1634.,1635.,1636.,1637.,1638.,1639.,&
1640.,1641.,1642.,1643.,1644.,1645.,1646.,1647.,1648.,1649.,&
1650.,1651.,1652.,1653.,1654.,1655.,1656.,1657.,1658.,1659.,&
1660.,1661.,1662.,1663.,1664.,1665.,1666.,1667.,1668.,1669.,&
1670.,1671.,1672.,1673.,1674.,1675.,1676.,1677.,1678.,1679.,&
1680.,1681.,1682.,1683.,1684.,1685.,1686.,1687.,1688.,1689.,&
1690.,1691.,1692.,1693.,1694.,1695.,1696.,1697.,1698.,1699/
DATA (lambda(i),i=1301,1400)/&
1700.,1701.,1702.,1703.,1704.,1705.,1706.,1707.,1708.,1709.,&
1710.,1711.,1712.,1713.,1714.,1715.,1716.,1717.,1718.,1719.,&
1720.,1721.,1722.,1723.,1724.,1725.,1726.,1727.,1728.,1729.,&
1730.,1731.,1732.,1733.,1734.,1735.,1736.,1737.,1738.,1739.,&
1740.,1741.,1742.,1743.,1744.,1745.,1746.,1747.,1748.,1749.,&
1750.,1751.,1752.,1753.,1754.,1755.,1756.,1757.,1758.,1759.,&
1760.,1761.,1762.,1763.,1764.,1765.,1766.,1767.,1768.,1769.,&
1770.,1771.,1772.,1773.,1774.,1775.,1776.,1777.,1778.,1779.,&
1780.,1781.,1782.,1783.,1784.,1785.,1786.,1787.,1788.,1789.,&
1790.,1791.,1792.,1793.,1794.,1795.,1796.,1797.,1798.,1799/
DATA (lambda(i),i=1401,1500)/&
1800.,1801.,1802.,1803.,1804.,1805.,1806.,1807.,1808.,1809.,&
1810.,1811.,1812.,1813.,1814.,1815.,1816.,1817.,1818.,1819.,&
1820.,1821.,1822.,1823.,1824.,1825.,1826.,1827.,1828.,1829.,&
1830.,1831.,1832.,1833.,1834.,1835.,1836.,1837.,1838.,1839.,&
1840.,1841.,1842.,1843.,1844.,1845.,1846.,1847.,1848.,1849.,&
1850.,1851.,1852.,1853.,1854.,1855.,1856.,1857.,1858.,1859.,&
1860.,1861.,1862.,1863.,1864.,1865.,1866.,1867.,1868.,1869.,&
1870.,1871.,1872.,1873.,1874.,1875.,1876.,1877.,1878.,1879.,&
1880.,1881.,1882.,1883.,1884.,1885.,1886.,1887.,1888.,1889.,&
1890.,1891.,1892.,1893.,1894.,1895.,1896.,1897.,1898.,1899/
DATA (lambda(i),i=1501,1600)/&
1900.,1901.,1902.,1903.,1904.,1905.,1906.,1907.,1908.,1909.,&
1910.,1911.,1912.,1913.,1914.,1915.,1916.,1917.,1918.,1919.,&
1920.,1921.,1922.,1923.,1924.,1925.,1926.,1927.,1928.,1929.,&
1930.,1931.,1932.,1933.,1934.,1935.,1936.,1937.,1938.,1939.,&
1940.,1941.,1942.,1943.,1944.,1945.,1946.,1947.,1948.,1949.,&
1950.,1951.,1952.,1953.,1954.,1955.,1956.,1957.,1958.,1959.,&
1960.,1961.,1962.,1963.,1964.,1965.,1966.,1967.,1968.,1969.,&
1970.,1971.,1972.,1973.,1974.,1975.,1976.,1977.,1978.,1979.,&
1980.,1981.,1982.,1983.,1984.,1985.,1986.,1987.,1988.,1989.,&
1990.,1991.,1992.,1993.,1994.,1995.,1996.,1997.,1998.,1999/
DATA (lambda(i),i=1601,1700)/&
2000.,2001.,2002.,2003.,2004.,2005.,2006.,2007.,2008.,2009.,&
2010.,2011.,2012.,2013.,2014.,2015.,2016.,2017.,2018.,2019.,&
2020.,2021.,2022.,2023.,2024.,2025.,2026.,2027.,2028.,2029.,&
2030.,2031.,2032.,2033.,2034.,2035.,2036.,2037.,2038.,2039.,&
2040.,2041.,2042.,2043.,2044.,2045.,2046.,2047.,2048.,2049.,&
2050.,2051.,2052.,2053.,2054.,2055.,2056.,2057.,2058.,2059.,&
2060.,2061.,2062.,2063.,2064.,2065.,2066.,2067.,2068.,2069.,&
2070.,2071.,2072.,2073.,2074.,2075.,2076.,2077.,2078.,2079.,&
2080.,2081.,2082.,2083.,2084.,2085.,2086.,2087.,2088.,2089.,&
2090.,2091.,2092.,2093.,2094.,2095.,2096.,2097.,2098.,2099/
DATA (lambda(i),i=1701,1800)/&
2100.,2101.,2102.,2103.,2104.,2105.,2106.,2107.,2108.,2109.,&
2110.,2111.,2112.,2113.,2114.,2115.,2116.,2117.,2118.,2119.,&
2120.,2121.,2122.,2123.,2124.,2125.,2126.,2127.,2128.,2129.,&
2130.,2131.,2132.,2133.,2134.,2135.,2136.,2137.,2138.,2139.,&
2140.,2141.,2142.,2143.,2144.,2145.,2146.,2147.,2148.,2149.,&
2150.,2151.,2152.,2153.,2154.,2155.,2156.,2157.,2158.,2159.,&
2160.,2161.,2162.,2163.,2164.,2165.,2166.,2167.,2168.,2169.,&
2170.,2171.,2172.,2173.,2174.,2175.,2176.,2177.,2178.,2179.,&
2180.,2181.,2182.,2183.,2184.,2185.,2186.,2187.,2188.,2189.,&
2190.,2191.,2192.,2193.,2194.,2195.,2196.,2197.,2198.,2199/
DATA (lambda(i),i=1801,1900)/&
2200.,2201.,2202.,2203.,2204.,2205.,2206.,2207.,2208.,2209.,&
2210.,2211.,2212.,2213.,2214.,2215.,2216.,2217.,2218.,2219.,&
2220.,2221.,2222.,2223.,2224.,2225.,2226.,2227.,2228.,2229.,&
2230.,2231.,2232.,2233.,2234.,2235.,2236.,2237.,2238.,2239.,&
2240.,2241.,2242.,2243.,2244.,2245.,2246.,2247.,2248.,2249.,&
2250.,2251.,2252.,2253.,2254.,2255.,2256.,2257.,2258.,2259.,&
2260.,2261.,2262.,2263.,2264.,2265.,2266.,2267.,2268.,2269.,&
2270.,2271.,2272.,2273.,2274.,2275.,2276.,2277.,2278.,2279.,&
2280.,2281.,2282.,2283.,2284.,2285.,2286.,2287.,2288.,2289.,&
2290.,2291.,2292.,2293.,2294.,2295.,2296.,2297.,2298.,2299/
DATA (lambda(i),i=1901,2000)/&
2300.,2301.,2302.,2303.,2304.,2305.,2306.,2307.,2308.,2309.,&
2310.,2311.,2312.,2313.,2314.,2315.,2316.,2317.,2318.,2319.,&
2320.,2321.,2322.,2323.,2324.,2325.,2326.,2327.,2328.,2329.,&
2330.,2331.,2332.,2333.,2334.,2335.,2336.,2337.,2338.,2339.,&
2340.,2341.,2342.,2343.,2344.,2345.,2346.,2347.,2348.,2349.,&
2350.,2351.,2352.,2353.,2354.,2355.,2356.,2357.,2358.,2359.,&
2360.,2361.,2362.,2363.,2364.,2365.,2366.,2367.,2368.,2369.,&
2370.,2371.,2372.,2373.,2374.,2375.,2376.,2377.,2378.,2379.,&
2380.,2381.,2382.,2383.,2384.,2385.,2386.,2387.,2388.,2389.,&
2390.,2391.,2392.,2393.,2394.,2395.,2396.,2397.,2398.,2399/
DATA (lambda(i),i=2001,2101)/&
2400.,2401.,2402.,2403.,2404.,2405.,2406.,2407.,2408.,2409.,&
2410.,2411.,2412.,2413.,2414.,2415.,2416.,2417.,2418.,2419.,&
2420.,2421.,2422.,2423.,2424.,2425.,2426.,2427.,2428.,2429.,&
2430.,2431.,2432.,2433.,2434.,2435.,2436.,2437.,2438.,2439.,&
2440.,2441.,2442.,2443.,2444.,2445.,2446.,2447.,2448.,2449.,&
2450.,2451.,2452.,2453.,2454.,2455.,2456.,2457.,2458.,2459.,&
2460.,2461.,2462.,2463.,2464.,2465.,2466.,2467.,2468.,2469.,&
2470.,2471.,2472.,2473.,2474.,2475.,2476.,2477.,2478.,2479.,&
2480.,2481.,2482.,2483.,2484.,2485.,2486.,2487.,2488.,2489.,&
2490.,2491.,2492.,2493.,2494.,2495.,2496.,2497.,2498.,2499.,&
2500./
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!! Refractive index !!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
DATA (refractive(i),i=1,100)/&
1.4955,1.4958,1.4960,1.4964,1.4971,1.4978,1.4986,1.4995,1.5006,1.5016,&
1.5024,1.5031,1.5041,1.5052,1.5065,1.5076,1.5088,1.5099,1.5110,1.5122,&
1.5134,1.5144,1.5156,1.5168,1.5181,1.5195,1.5206,1.5212,1.5219,1.5228,&
1.5235,1.5241,1.5249,1.5256,1.5262,1.5267,1.5272,1.5276,1.5279,1.5282,&
1.5286,1.5290,1.5292,1.5294,1.5294,1.5295,1.5293,1.5291,1.5289,1.5286,&
1.5282,1.5278,1.5273,1.5268,1.5262,1.5256,1.5249,1.5243,1.5237,1.5230,&
1.5224,1.5217,1.5210,1.5203,1.5196,1.5189,1.5184,1.5178,1.5173,1.5170,&
1.5166,1.5163,1.5159,1.5156,1.5153,1.5150,1.5148,1.5145,1.5142,1.5139,&
1.5135,1.5131,1.5125,1.5119,1.5111,1.5103,1.5092,1.5080,1.5067,1.5051,&
1.5034,1.5015,1.4994,1.4971,1.4947,1.4921,1.4894,1.4866,1.4837,1.4807/
DATA (refractive(i),i=101,200)/&
1.4776,1.4744,1.4712,1.4680,1.4647,1.4615,1.4583,1.4553,1.4523,1.4495,&
1.4468,1.4443,1.4419,1.4397,1.4377,1.4360,1.4344,1.4331,1.4319,1.4310,&
1.4302,1.4296,1.4291,1.4288,1.4286,1.4286,1.4286,1.4287,1.4288,1.4290,&
1.4292,1.4294,1.4296,1.4298,1.4300,1.4302,1.4303,1.4305,1.4306,1.4307,&
1.4308,1.4309,1.4309,1.4310,1.4310,1.4310,1.4309,1.4308,1.4307,1.4305,&
1.4303,1.4301,1.4298,1.4294,1.4290,1.4285,1.4280,1.4274,1.4268,1.4262,&
1.4255,1.4248,1.4241,1.4234,1.4227,1.4220,1.4213,1.4206,1.4199,1.4192,&
1.4185,1.4179,1.4173,1.4167,1.4161,1.4156,1.4151,1.4146,1.4141,1.4137,&
1.4133,1.4129,1.4126,1.4123,1.4120,1.4117,1.4114,1.4112,1.4109,1.4107,&
1.4105,1.4103,1.4101,1.4099,1.4097,1.4095,1.4093,1.4091,1.4089,1.4087/
DATA (refractive(i),i=201,300)/&
1.4086,1.4084,1.4082,1.4081,1.4079,1.4078,1.4077,1.4076,1.4075,1.4075,&
1.4075,1.4075,1.4075,1.4076,1.4077,1.4077,1.4078,1.4079,1.4080,1.4081,&
1.4082,1.4083,1.4083,1.4083,1.4083,1.4082,1.4082,1.4081,1.4079,1.4078,&
1.4077,1.4076,1.4076,1.4076,1.4078,1.4080,1.4083,1.4087,1.4093,1.4100,&
1.4108,1.4118,1.4128,1.4140,1.4153,1.4166,1.4179,1.4193,1.4206,1.4218,&
1.4229,1.4240,1.4250,1.4261,1.4272,1.4284,1.4298,1.4315,1.4335,1.4357,&
1.4383,1.4411,1.4442,1.4475,1.4509,1.4544,1.4579,1.4614,1.4649,1.4682,&
1.4714,1.4744,1.4773,1.4802,1.4830,1.4857,1.4884,1.4909,1.4932,1.4951,&
1.4963,1.4967,1.4958,1.4936,1.4899,1.4847,1.4780,1.4702,1.4618,1.4530,&
1.4445,1.4366,1.4296,1.4237,1.4190,1.4154,1.4129,1.4112,1.4104,1.4102/
DATA (refractive(i),i=301,400)/&
1.4106,1.4113,1.4124,1.4137,1.4152,1.4168,1.4186,1.4204,1.4222,1.4242,&
1.4261,1.4281,1.4301,1.4321,1.4341,1.4361,1.4382,1.4402,1.4422,1.4442,&
1.4462,1.4481,1.4500,1.4518,1.4536,1.4554,1.4571,1.4587,1.4603,1.4618,&
1.4632,1.4646,1.4659,1.4671,1.4683,1.4694,1.4704,1.4713,1.4721,1.4729,&
1.4736,1.4742,1.4747,1.4752,1.4756,1.4759,1.4762,1.4764,1.4765,1.4766,&
1.4766,1.4767,1.4767,1.4767,1.4767,1.4766,1.4766,1.4765,1.4764,1.4763,&
1.4762,1.4761,1.4759,1.4758,1.4756,1.4754,1.4752,1.4751,1.4748,1.4746,&
1.4744,1.4742,1.4739,1.4737,1.4734,1.4732,1.4729,1.4727,1.4725,1.4722,&
1.4720,1.4718,1.4716,1.4714,1.4712,1.4710,1.4708,1.4706,1.4703,1.4701,&
1.4700,1.4698,1.4696,1.4694,1.4692,1.4690,1.4688,1.4686,1.4684,1.4682/
DATA (refractive(i),i=401,500)/&
1.4681,1.4679,1.4677,1.4675,1.4674,1.4672,1.4670,1.4668,1.4666,1.4665,&
1.4663,1.4662,1.4660,1.4659,1.4657,1.4655,1.4654,1.4652,1.4651,1.4649,&
1.4648,1.4646,1.4645,1.4643,1.4641,1.4639,1.4638,1.4636,1.4635,1.4633,&
1.4631,1.4630,1.4628,1.4627,1.4626,1.4625,1.4623,1.4622,1.4620,1.4619,&
1.4617,1.4616,1.4614,1.4613,1.4611,1.4610,1.4608,1.4607,1.4605,1.4604,&
1.4602,1.4601,1.4600,1.4599,1.4597,1.4596,1.4595,1.4594,1.4592,1.4591,&
1.4589,1.4587,1.4586,1.4584,1.4583,1.4582,1.4582,1.4581,1.4580,1.4579,&
1.4577,1.4576,1.4574,1.4572,1.4571,1.4569,1.4568,1.4566,1.4565,1.4563,&
1.4562,1.4560,1.4559,1.4558,1.4556,1.4554,1.4553,1.4551,1.4550,1.4548,&
1.4547,1.4545,1.4544,1.4542,1.4541,1.4539,1.4538,1.4536,1.4535,1.4533/
DATA (refractive(i),i=501,600)/&
1.4532,1.4531,1.4529,1.4528,1.4526,1.4525,1.4524,1.4522,1.4521,1.4519,&
1.4518,1.4516,1.4515,1.4513,1.4512,1.4511,1.4509,1.4508,1.4506,1.4505,&
1.4503,1.4502,1.4500,1.4498,1.4497,1.4495,1.4493,1.4492,1.4491,1.4489,&
1.4488,1.4487,1.4485,1.4483,1.4481,1.4479,1.4478,1.4477,1.4476,1.4474,&
1.4472,1.4469,1.4466,1.4465,1.4463,1.4462,1.4461,1.4461,1.4461,1.4460,&
1.4457,1.4455,1.4453,1.4451,1.4450,1.4449,1.4448,1.4447,1.4445,1.4445,&
1.4445,1.4442,1.4440,1.4438,1.4437,1.4436,1.4436,1.4435,1.4434,1.4434,&
1.4434,1.4434,1.4432,1.4430,1.4428,1.4427,1.4426,1.4425,1.4423,1.4421,&
1.4420,1.4418,1.4416,1.4415,1.4414,1.4414,1.4414,1.4415,1.4416,1.4416,&
1.4415,1.4414,1.4413,1.4411,1.4409,1.4407,1.4405,1.4403,1.4401,1.4400/
DATA (refractive(i),i=601,700)/&
1.4399,1.4397,1.4395,1.4394,1.4393,1.4392,1.4392,1.4391,1.4391,1.4390,&
1.4389,1.4387,1.4386,1.4385,1.4384,1.4384,1.4383,1.4381,1.4379,1.4378,&
1.4376,1.4374,1.4372,1.4371,1.4370,1.4369,1.4368,1.4367,1.4365,1.4365,&
1.4364,1.4364,1.4363,1.4363,1.4363,1.4363,1.4363,1.4362,1.4361,1.4360,&
1.4359,1.4357,1.4356,1.4354,1.4352,1.4351,1.4351,1.4350,1.4349,1.4349,&
1.4348,1.4347,1.4345,1.4343,1.4342,1.4342,1.4342,1.4341,1.4340,1.4339,&
1.4338,1.4337,1.4335,1.4334,1.4333,1.4333,1.4334,1.4333,1.4333,1.4332,&
1.4330,1.4329,1.4328,1.4327,1.4325,1.4324,1.4322,1.4321,1.4319,1.4318,&
1.4317,1.4316,1.4315,1.4314,1.4314,1.4313,1.4312,1.4310,1.4309,1.4307,&
1.4305,1.4304,1.4303,1.4302,1.4302,1.4301,1.4300,1.4297,1.4295,1.4294/
DATA (refractive(i),i=701,800)/&
1.4293,1.4292,1.4291,1.4290,1.4289,1.4288,1.4286,1.4284,1.4283,1.4283,&
1.4284,1.4284,1.4284,1.4284,1.4283,1.4282,1.4282,1.4280,1.4278,1.4276,&
1.4275,1.4274,1.4272,1.4270,1.4268,1.4267,1.4267,1.4266,1.4265,1.4264,&
1.4263,1.4262,1.4260,1.4259,1.4258,1.4257,1.4256,1.4256,1.4255,1.4254,&
1.4252,1.4250,1.4249,1.4248,1.4247,1.4244,1.4241,1.4239,1.4237,1.4235,&
1.4234,1.4233,1.4231,1.4230,1.4228,1.4226,1.4224,1.4224,1.4223,1.4223,&
1.4222,1.4222,1.4221,1.4221,1.4221,1.4219,1.4217,1.4216,1.4215,1.4215,&
1.4214,1.4212,1.4210,1.4208,1.4207,1.4206,1.4206,1.4206,1.4206,1.4206,&
1.4205,1.4203,1.4200,1.4199,1.4198,1.4199,1.4201,1.4204,1.4205,1.4205,&
1.4203,1.4200,1.4196,1.4192,1.4189,1.4187,1.4187,1.4188,1.4188,1.4187/
DATA (refractive(i),i=801,900)/&
1.4186,1.4185,1.4182,1.4181,1.4179,1.4178,1.4177,1.4177,1.4176,1.4175,&
1.4173,1.4173,1.4172,1.4171,1.4170,1.4168,1.4167,1.4165,1.4164,1.4163,&
1.4161,1.4158,1.4156,1.4155,1.4154,1.4153,1.4151,1.4151,1.4151,1.4150,&
1.4148,1.4147,1.4146,1.4145,1.4144,1.4143,1.4141,1.4139,1.4136,1.4134,&
1.4133,1.4130,1.4128,1.4128,1.4128,1.4127,1.4126,1.4124,1.4122,1.4122,&
1.4121,1.4121,1.4121,1.4119,1.4118,1.4116,1.4115,1.4113,1.4112,1.4112,&
1.4111,1.4111,1.4110,1.4108,1.4106,1.4104,1.4102,1.4102,1.4102,1.4103,&
1.4103,1.4101,1.4099,1.4097,1.4095,1.4093,1.4091,1.4091,1.4091,1.4090,&
1.4089,1.4088,1.4085,1.4083,1.4081,1.4080,1.4079,1.4078,1.4077,1.4078,&
1.4078,1.4078,1.4077,1.4076,1.4075,1.4073,1.4070,1.4068,1.4066,1.4064/
DATA (refractive(i),i=901,1000)/&
1.4064,1.4062,1.4061,1.4059,1.4056,1.4055,1.4055,1.4055,1.4055,1.4056,&
1.4057,1.4058,1.4058,1.4056,1.4055,1.4053,1.4051,1.4050,1.4049,1.4048,&
1.4046,1.4045,1.4044,1.4044,1.4044,1.4045,1.4045,1.4043,1.4042,1.4040,&
1.4040,1.4041,1.4041,1.4040,1.4036,1.4034,1.4032,1.4031,1.4030,1.4031,&
1.4033,1.4033,1.4033,1.4031,1.4028,1.4023,1.4017,1.4013,1.4010,1.4010,&
1.4008,1.4007,1.4004,1.4002,1.4000,1.4002,1.4004,1.4009,1.4011,1.4015,&
1.4016,1.4015,1.4010,1.4002,1.3996,1.3992,1.3989,1.3992,1.3994,1.3997,&
1.4000,1.4000,1.4000,1.4003,1.4002,1.3999,1.4002,1.4004,1.4008,1.4009,&
1.4019,1.4015,1.4010,1.4000,1.4001,1.3988,1.3978,1.3971,1.3960,1.3967,&
1.3958,1.3955,1.3952,1.3953,1.3945,1.3960,1.3961,1.3950,1.3946,1.3942/
DATA (refractive(i),i=1001,1100)/&
1.3938,1.3935,1.3926,1.3926,1.3930,1.3943,1.3943,1.3944,1.3944,1.3937,&
1.3933,1.3934,1.3934,1.3935,1.3933,1.3931,1.3928,1.3925,1.3920,1.3918,&
1.3915,1.3910,1.3904,1.3898,1.3892,1.3880,1.3872,1.3865,1.3858,1.3852,&
1.3843,1.3838,1.3829,1.3823,1.3810,1.3801,1.3794,1.3785,1.3776,1.3771,&
1.3765,1.3758,1.3751,1.3743,1.3733,1.3725,1.3717,1.3711,1.3707,1.3703,&
1.3700,1.3700,1.3697,1.3692,1.3685,1.3680,1.3675,1.3670,1.3667,1.3662,&
1.3657,1.3659,1.3658,1.3656,1.3656,1.3654,1.3650,1.3653,1.3651,1.3649,&
1.3650,1.3646,1.3641,1.3644,1.3640,1.3644,1.3643,1.3644,1.3647,1.3646,&
1.3649,1.3644,1.3641,1.3635,1.3635,1.3633,1.3631,1.3635,1.3635,1.3643,&
1.3642,1.3646,1.3643,1.3642,1.3637,1.3640,1.3638,1.3640,1.3640,1.3640/
DATA (refractive(i),i=1101,1200)/&
1.3646,1.3645,1.3650,1.3650,1.3652,1.3657,1.3656,1.3660,1.3657,1.3661,&
1.3665,1.3667,1.3670,1.3666,1.3669,1.3673,1.3673,1.3680,1.3686,1.3686,&
1.3689,1.3693,1.3690,1.3694,1.3697,1.3695,1.3697,1.3698,1.3696,1.3698,&
1.3700,1.3706,1.3705,1.3709,1.3712,1.3717,1.3718,1.3721,1.3721,1.3724,&
1.3723,1.3721,1.3723,1.3723,1.3725,1.3723,1.3723,1.3727,1.3729,1.3730,&
1.3730,1.3730,1.3731,1.3734,1.3734,1.3736,1.3737,1.3738,1.3735,1.3735,&
1.3734,1.3735,1.3736,1.3738,1.3737,1.3738,1.3736,1.3737,1.3735,1.3735,&
1.3735,1.3734,1.3734,1.3734,1.3735,1.3732,1.3733,1.3732,1.3732,1.3735,&
1.3736,1.3739,1.3742,1.3741,1.3738,1.3737,1.3737,1.3736,1.3735,1.3737,&
1.3738,1.3741,1.3743,1.3744,1.3744,1.3743,1.3740,1.3740,1.3741,1.3741/
DATA (refractive(i),i=1201,1300)/&
1.3742,1.3742,1.3741,1.3743,1.3743,1.3743,1.3742,1.3741,1.3740,1.3740,&
1.3738,1.3736,1.3734,1.3733,1.3731,1.3730,1.3730,1.3731,1.3730,1.3732,&
1.3731,1.3730,1.3729,1.3728,1.3727,1.3726,1.3725,1.3726,1.3725,1.3726,&
1.3726,1.3724,1.3719,1.3718,1.3716,1.3715,1.3712,1.3713,1.3711,1.3710,&
1.3707,1.3708,1.3707,1.3708,1.3708,1.3710,1.3712,1.3715,1.3715,1.3716,&
1.3714,1.3714,1.3712,1.3713,1.3709,1.3708,1.3704,1.3704,1.3700,1.3698,&
1.3695,1.3694,1.3692,1.3690,1.3687,1.3687,1.3684,1.3685,1.3684,1.3683,&
1.3683,1.3687,1.3681,1.3678,1.3674,1.3670,1.3665,1.3665,1.3664,1.3663,&
1.3659,1.3659,1.3656,1.3655,1.3654,1.3655,1.3654,1.3654,1.3651,1.3651,&
1.3648,1.3648,1.3647,1.3648,1.3647,1.3647,1.3646,1.3647,1.3646,1.3644/
DATA (refractive(i),i=1301,1400)/&
1.3640,1.3638,1.3635,1.3634,1.3632,1.3631,1.3628,1.3629,1.3627,1.3629,&
1.3629,1.3627,1.3625,1.3625,1.3623,1.3622,1.3619,1.3620,1.3619,1.3619,&
1.3616,1.3615,1.3612,1.3611,1.3611,1.3612,1.3613,1.3617,1.3617,1.3618,&
1.3618,1.3617,1.3615,1.3616,1.3615,1.3616,1.3618,1.3617,1.3616,1.3616,&
1.3613,1.3612,1.3612,1.3616,1.3616,1.3617,1.3618,1.3621,1.3623,1.3625,&
1.3626,1.3626,1.3625,1.3627,1.3633,1.3637,1.3637,1.3636,1.3635,1.3633,&
1.3630,1.3629,1.3632,1.3636,1.3641,1.3646,1.3651,1.3653,1.3648,1.3640,&
1.3630,1.3620,1.3615,1.3608,1.3608,1.3611,1.3617,1.3628,1.3638,1.3645,&
1.3649,1.3646,1.3637,1.3625,1.3613,1.3601,1.3595,1.3593,1.3599,1.3607,&
1.3614,1.3623,1.3627,1.3627,1.3624,1.3622,1.3619,1.3616,1.3616,1.3617/
DATA (refractive(i),i=1401,1500)/&
1.3619,1.3621,1.3622,1.3626,1.3630,1.3635,1.3637,1.3639,1.3636,1.3632,&
1.3629,1.3625,1.3623,1.3625,1.3628,1.3634,1.3638,1.3645,1.3649,1.3652,&
1.3652,1.3650,1.3645,1.3642,1.3639,1.3638,1.3636,1.3634,1.3631,1.3632,&
1.3631,1.3630,1.3624,1.3623,1.3623,1.3623,1.3626,1.3629,1.3629,1.3630,&
1.3628,1.3622,1.3615,1.3607,1.3601,1.3597,1.3597,1.3599,1.3597,1.3597,&
1.3595,1.3599,1.3593,1.3597,1.3602,1.3613,1.3625,1.3633,1.3638,1.3645,&
1.3643,1.3648,1.3629,1.3632,1.3635,1.3645,1.3647,1.3662,1.3668,1.3684,&
1.3653,1.3658,1.3663,1.3663,1.3671,1.3668,1.3680,1.3626,1.3620,1.3624,&
1.3627,1.3617,1.3628,1.3562,1.3557,1.3558,1.3559,1.3555,1.3508,1.3504,&
1.3511,1.3520,1.3525,1.3493,1.3503,1.3524,1.3546,1.3578,1.3556,1.3583/
DATA (refractive(i),i=1501,1600)/&
1.3601,1.3610,1.3595,1.3599,1.3606,1.3611,1.3598,1.3600,1.3601,1.3606,&
1.3599,1.3600,1.3603,1.3608,1.3606,1.3613,1.3615,1.3614,1.3606,1.3600,&
1.3591,1.3582,1.3573,1.3564,1.3556,1.3547,1.3538,1.3530,1.3522,1.3513,&
1.3505,1.3497,1.3489,1.3481,1.3473,1.3465,1.3457,1.3450,1.3442,1.3434,&
1.3427,1.3420,1.3412,1.3405,1.3398,1.3391,1.3384,1.3377,1.3371,1.3364,&
1.3357,1.3351,1.3344,1.3338,1.3332,1.3326,1.3320,1.3314,1.3308,1.3302,&
1.3297,1.3291,1.3286,1.3280,1.3275,1.3270,1.3265,1.3260,1.3255,1.3251,&
1.3246,1.3242,1.3237,1.3233,1.3229,1.3225,1.3221,1.3217,1.3213,1.3209,&
1.3206,1.3203,1.3199,1.3196,1.3193,1.3190,1.3187,1.3185,1.3182,1.3180,&
1.3177,1.3175,1.3173,1.3171,1.3169,1.3168,1.3166,1.3165,1.3163,1.3162/
DATA (refractive(i),i=1601,1700)/&
1.3161,1.3160,1.3159,1.3159,1.3158,1.3157,1.3156,1.3155,1.3154,1.3153,&
1.3152,1.3151,1.3150,1.3150,1.3149,1.3148,1.3147,1.3146,1.3146,1.3145,&
1.3144,1.3143,1.3142,1.3141,1.3140,1.3139,1.3138,1.3137,1.3136,1.3135,&
1.3134,1.3133,1.3132,1.3131,1.3130,1.3129,1.3128,1.3127,1.3126,1.3125,&
1.3124,1.3123,1.3122,1.3121,1.3120,1.3119,1.3118,1.3117,1.3116,1.3115,&
1.3114,1.3113,1.3112,1.3110,1.3109,1.3108,1.3107,1.3106,1.3105,1.3104,&
1.3103,1.3102,1.3101,1.3099,1.3098,1.3097,1.3096,1.3095,1.3094,1.3093,&
1.3092,1.3091,1.3090,1.3088,1.3087,1.3086,1.3085,1.3084,1.3082,1.3081,&
1.3080,1.3079,1.3078,1.3076,1.3075,1.3074,1.3073,1.3072,1.3070,1.3069,&
1.3068,1.3067,1.3066,1.3064,1.3063,1.3062,1.3061,1.3060,1.3059,1.3058/
DATA (refractive(i),i=1701,1800)/&
1.3057,1.3056,1.3055,1.3053,1.3052,1.3051,1.3050,1.3049,1.3047,1.3046,&
1.3045,1.3044,1.3043,1.3041,1.3040,1.3039,1.3038,1.3037,1.3035,1.3034,&
1.3033,1.3032,1.3031,1.3029,1.3028,1.3027,1.3026,1.3025,1.3023,1.3022,&
1.3021,1.3020,1.3019,1.3017,1.3016,1.3015,1.3014,1.3013,1.3011,1.3010,&
1.3009,1.3008,1.3007,1.3005,1.3004,1.3003,1.3002,1.3001,1.2999,1.2998,&
1.2997,1.2996,1.2995,1.2993,1.2992,1.2991,1.2990,1.2989,1.2987,1.2986,&
1.2985,1.2984,1.2983,1.2981,1.2980,1.2979,1.2978,1.2977,1.2975,1.2974,&
1.2973,1.2972,1.2970,1.2969,1.2967,1.2966,1.2965,1.2964,1.2962,1.2961,&
1.2960,1.2959,1.2958,1.2957,1.2956,1.2955,1.2954,1.2953,1.2951,1.2950,&
1.2949,1.2948,1.2947,1.2945,1.2944,1.2943,1.2942,1.2941,1.2939,1.2938/
DATA (refractive(i),i=1801,1900)/&
1.2937,1.2936,1.2935,1.2933,1.2932,1.2931,1.2930,1.2928,1.2927,1.2925,&
1.2924,1.2923,1.2922,1.2920,1.2919,1.2918,1.2917,1.2916,1.2914,1.2913,&
1.2912,1.2911,1.2910,1.2908,1.2907,1.2906,1.2905,1.2904,1.2902,1.2901,&
1.2900,1.2899,1.2898,1.2896,1.2895,1.2894,1.2893,1.2892,1.2890,1.2889,&
1.2888,1.2887,1.2886,1.2884,1.2883,1.2882,1.2881,1.2880,1.2878,1.2877,&
1.2876,1.2875,1.2874,1.2873,1.2872,1.2871,1.2870,1.2869,1.2867,1.2866,&
1.2865,1.2864,1.2863,1.2862,1.2861,1.2860,1.2859,1.2858,1.2856,1.2855,&
1.2854,1.2853,1.2852,1.2850,1.2849,1.2848,1.2847,1.2846,1.2845,1.2844,&
1.2843,1.2842,1.2841,1.2840,1.2839,1.2838,1.2837,1.2836,1.2834,1.2833,&
1.2832,1.2831,1.2830,1.2829,1.2828,1.2827,1.2826,1.2825,1.2824,1.2823/
DATA (refractive(i),i=1901,2000)/&
1.2822,1.2821,1.2820,1.2818,1.2817,1.2816,1.2815,1.2814,1.2813,1.2812,&
1.2811,1.2810,1.2809,1.2808,1.2807,1.2806,1.2805,1.2804,1.2803,1.2802,&
1.2801,1.2800,1.2799,1.2799,1.2798,1.2797,1.2796,1.2795,1.2795,1.2794,&
1.2793,1.2792,1.2791,1.2791,1.2790,1.2789,1.2788,1.2788,1.2787,1.2787,&
1.2786,1.2785,1.2785,1.2784,1.2784,1.2783,1.2782,1.2781,1.2780,1.2779,&
1.2778,1.2777,1.2776,1.2776,1.2775,1.2774,1.2773,1.2772,1.2771,1.2770,&
1.2769,1.2768,1.2767,1.2766,1.2765,1.2764,1.2763,1.2762,1.2761,1.2760,&
1.2759,1.2758,1.2757,1.2757,1.2756,1.2755,1.2754,1.2753,1.2753,1.2752,&
1.2751,1.2750,1.2749,1.2749,1.2748,1.2747,1.2746,1.2745,1.2745,1.2744,&
1.2743,1.2742,1.2742,1.2741,1.2741,1.2740,1.2739,1.2739,1.2738,1.2738/
DATA (refractive(i),i=2001,2101)/&
1.2737,1.2736,1.2736,1.2735,1.2735,1.2734,1.2733,1.2733,1.2732,1.2732,&
1.2731,1.2730,1.2730,1.2729,1.2729,1.2728,1.2727,1.2727,1.2726,1.2726,&
1.2725,1.2725,1.2724,1.2724,1.2723,1.2723,1.2722,1.2722,1.2721,1.2721,&
1.2720,1.2720,1.2719,1.2719,1.2718,1.2718,1.2717,1.2717,1.2716,1.2716,&
1.2715,1.2715,1.2714,1.2714,1.2713,1.2713,1.2713,1.2713,1.2712,1.2712,&
1.2712,1.2712,1.2711,1.2711,1.2710,1.2710,1.2710,1.2710,1.2709,1.2709,&
1.2709,1.2709,1.2709,1.2708,1.2708,1.2708,1.2708,1.2708,1.2708,1.2708,&
1.2708,1.2708,1.2708,1.2708,1.2708,1.2708,1.2708,1.2709,1.2709,1.2710,&
1.2710,1.2711,1.2712,1.2712,1.2713,1.2714,1.2715,1.2716,1.2717,1.2718,&
1.2719,1.2720,1.2722,1.2723,1.2725,1.2726,1.2728,1.2730,1.2732,1.2734,&
1.2736/
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!! specific absorption of chlorophyll !!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
DATA (k_Cab(i),i=1,100)/&
2.676E-02,3.113E-02,3.561E-02,3.972E-02,4.321E-02,4.606E-02,4.815E-02,5.007E-02,5.189E-02,5.346E-02,&
5.526E-02,5.721E-02,5.891E-02,6.004E-02,6.100E-02,6.189E-02,6.259E-02,6.318E-02,6.367E-02,6.416E-02,&
6.475E-02,6.555E-02,6.628E-02,6.690E-02,6.718E-02,6.747E-02,6.795E-02,6.855E-02,6.897E-02,6.931E-02,&
6.979E-02,7.037E-02,7.082E-02,7.114E-02,7.141E-02,7.160E-02,7.174E-02,7.177E-02,7.171E-02,7.156E-02,&
7.120E-02,7.048E-02,6.963E-02,6.883E-02,6.789E-02,6.685E-02,6.583E-02,6.480E-02,6.358E-02,6.225E-02,&
6.090E-02,5.956E-02,5.813E-02,5.677E-02,5.553E-02,5.439E-02,5.330E-02,5.224E-02,5.135E-02,5.056E-02,&
4.990E-02,4.934E-02,4.891E-02,4.852E-02,4.812E-02,4.767E-02,4.729E-02,4.698E-02,4.673E-02,4.647E-02,&
4.622E-02,4.606E-02,4.589E-02,4.570E-02,4.552E-02,4.535E-02,4.519E-02,4.492E-02,4.466E-02,4.442E-02,&
4.413E-02,4.373E-02,4.325E-02,4.275E-02,4.216E-02,4.149E-02,4.073E-02,3.989E-02,3.895E-02,3.791E-02,&
3.683E-02,3.571E-02,3.455E-02,3.335E-02,3.215E-02,3.094E-02,2.972E-02,2.850E-02,2.730E-02,2.615E-02/
DATA (k_Cab(i),i=101,200)/&
2.502e-02,2.392e-02,2.284e-02,2.179e-02,2.077e-02,1.979e-02,1.883e-02,1.790e-02,1.702e-02,1.617e-02,&
1.536e-02,1.458e-02,1.383e-02,1.312e-02,1.246e-02,1.183e-02,1.126e-02,1.074e-02,1.027e-02,9.855e-03,&
9.490e-03,9.176e-03,8.910e-03,8.698e-03,8.542e-03,8.437e-03,8.381e-03,8.373e-03,8.411e-03,8.486e-03,&
8.595e-03,8.735e-03,8.905e-03,9.098e-03,9.313e-03,9.544e-03,9.789e-03,1.004e-02,1.030e-02,1.056e-02,&
1.083e-02,1.108e-02,1.133e-02,1.157e-02,1.180e-02,1.201e-02,1.221e-02,1.239e-02,1.256e-02,1.271e-02,&
1.286e-02,1.300e-02,1.314e-02,1.327e-02,1.340e-02,1.353e-02,1.367e-02,1.380e-02,1.394e-02,1.408e-02,&
1.421e-02,1.435e-02,1.451e-02,1.469e-02,1.489e-02,1.511e-02,1.535e-02,1.561e-02,1.589e-02,1.619e-02,&
1.650e-02,1.683e-02,1.716e-02,1.749e-02,1.782e-02,1.814e-02,1.846e-02,1.876e-02,1.905e-02,1.933e-02,&
1.960e-02,1.986e-02,2.011e-02,2.035e-02,2.058e-02,2.079e-02,2.100e-02,2.120e-02,2.138e-02,2.155e-02,&
2.171e-02,2.185e-02,2.199e-02,2.211e-02,2.222e-02,2.231e-02,2.241e-02,2.250e-02,2.259e-02,2.269e-02/
DATA (k_Cab(i),i=201,300)/&
2.279e-02,2.291e-02,2.304e-02,2.319e-02,2.337e-02,2.356e-02,2.378e-02,2.403e-02,2.430e-02,2.459e-02,&
2.489e-02,2.520e-02,2.552e-02,2.586e-02,2.620e-02,2.654e-02,2.687e-02,2.719e-02,2.750e-02,2.778e-02,&
2.803e-02,2.826e-02,2.845e-02,2.862e-02,2.877e-02,2.888e-02,2.898e-02,2.905e-02,2.910e-02,2.916e-02,&
2.921e-02,2.928e-02,2.938e-02,2.951e-02,2.969e-02,2.993e-02,3.022e-02,3.059e-02,3.102e-02,3.152e-02,&
3.208e-02,3.269e-02,3.335e-02,3.405e-02,3.478e-02,3.552e-02,3.626e-02,3.698e-02,3.767e-02,3.831e-02,&
3.890e-02,3.943e-02,3.993e-02,4.043e-02,4.095e-02,4.152e-02,4.217e-02,4.293e-02,4.380e-02,4.478e-02,&
4.588e-02,4.709e-02,4.837e-02,4.970e-02,5.106e-02,5.239e-02,5.368e-02,5.488e-02,5.595e-02,5.688e-02,&
5.765e-02,5.826e-02,5.871e-02,5.900e-02,5.914e-02,5.914e-02,5.899e-02,5.868e-02,5.819e-02,5.748e-02,&
5.650e-02,5.522e-02,5.361e-02,5.168e-02,4.941e-02,4.689e-02,4.416e-02,4.128e-02,3.834e-02,3.541e-02,&
3.254e-02,2.978e-02,2.717e-02,2.473e-02,2.247e-02,2.039e-02,1.850e-02,1.678e-02,1.523e-02,1.384e-02/
DATA (k_Cab(i),i=301,400)/&
1.259e-02,1.147e-02,1.048e-02,9.594e-03,8.804e-03,8.099e-03,7.465e-03,6.892e-03,6.371e-03,5.897e-03,&
5.461e-03,5.061e-03,4.691e-03,4.348e-03,4.029e-03,3.733e-03,3.456e-03,3.199e-03,2.960e-03,2.736e-03,&
2.528e-03,2.334e-03,2.153e-03,1.985e-03,1.829e-03,1.683e-03,1.549e-03,1.424e-03,1.309e-03,1.202e-03,&
1.103e-03,1.012e-03,9.269e-04,8.485e-04,7.768e-04,7.110e-04,6.505e-04,5.948e-04,5.437e-04,4.967e-04,&
4.539e-04,4.150e-04,3.794e-04,3.471e-04,3.177e-04,2.909e-04,2.666e-04,2.450e-04,2.255e-04,2.079e-04,&
1.924e-04,1.773e-04,1.629e-04,1.493e-04,1.364e-04,1.243e-04,1.128e-04,1.020e-04,9.188e-05,8.240e-05,&
7.354e-05,6.529e-05,5.763e-05,5.054e-05,4.400e-05,3.800e-05,3.251e-05,2.753e-05,2.302e-05,1.898e-05,&
1.539e-05,1.222e-05,9.466e-06,7.101e-06,5.109e-06,3.473e-06,2.175e-06,1.196e-06,5.200e-07,1.270e-07,&
0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,&
0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00/
DATA (k_Cab(i),i=401,2101)/1701*0./
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!! specific absorption of carotenoids !!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
DATA (k_Car(i),i=1,100)/&
2.895e-01,2.796e-01,2.693e-01,2.601e-01,2.525e-01,2.456e-01,2.402e-01,2.352e-01,2.303e-01,2.255e-01,&
2.203e-01,2.151e-01,2.105e-01,2.069e-01,2.035e-01,2.002e-01,1.971e-01,1.943e-01,1.914e-01,1.889e-01,&
1.866e-01,1.844e-01,1.823e-01,1.805e-01,1.792e-01,1.777e-01,1.762e-01,1.747e-01,1.735e-01,1.724e-01,&
1.715e-01,1.707e-01,1.701e-01,1.694e-01,1.688e-01,1.682e-01,1.678e-01,1.674e-01,1.670e-01,1.667e-01,&
1.664e-01,1.659e-01,1.653e-01,1.647e-01,1.641e-01,1.632e-01,1.624e-01,1.615e-01,1.605e-01,1.592e-01,&
1.577e-01,1.561e-01,1.544e-01,1.528e-01,1.513e-01,1.497e-01,1.483e-01,1.468e-01,1.454e-01,1.440e-01,&
1.425e-01,1.411e-01,1.397e-01,1.384e-01,1.371e-01,1.358e-01,1.347e-01,1.335e-01,1.325e-01,1.316e-01,&
1.308e-01,1.302e-01,1.296e-01,1.292e-01,1.288e-01,1.285e-01,1.282e-01,1.280e-01,1.277e-01,1.274e-01,&
1.270e-01,1.265e-01,1.260e-01,1.253e-01,1.244e-01,1.234e-01,1.223e-01,1.211e-01,1.197e-01,1.182e-01,&
1.166e-01,1.150e-01,1.132e-01,1.114e-01,1.096e-01,1.076e-01,1.056e-01,1.035e-01,1.013e-01,9.901e-02/
DATA (k_Car(i),i=101,200)/&
9.660e-02,9.420e-02,9.179e-02,8.939e-02,8.699e-02,8.460e-02,8.221e-02,7.983e-02,7.746e-02,7.510e-02,&
7.275e-02,7.041e-02,6.809e-02,6.578e-02,6.349e-02,6.122e-02,5.897e-02,5.673e-02,5.453e-02,5.234e-02,&
5.018e-02,4.805e-02,4.594e-02,4.387e-02,4.182e-02,3.981e-02,3.783e-02,3.588e-02,3.397e-02,3.210e-02,&
3.026e-02,2.847e-02,2.672e-02,2.501e-02,2.334e-02,2.172e-02,2.015e-02,1.863e-02,1.715e-02,1.573e-02,&
1.436e-02,1.304e-02,1.178e-02,1.057e-02,9.420e-03,8.330e-03,7.301e-03,6.334e-03,5.429e-03,4.589e-03,&
3.816e-03,3.109e-03,2.471e-03,1.903e-03,1.406e-03,9.822e-04,6.322e-04,3.577e-04,1.599e-04,4.019e-05,&
0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,&
0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,&
0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,&
0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00,0.000e+00/
DATA (k_Car(i),i=201,2101)/1901*0./
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!! specific absorption of Brown pigments !!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
DATA (k_Brown(i),i=1,100)/&
5.272e-001,5.262e-001,5.252e-001,5.242e-001,5.232e-001,5.222e-001,5.212e-001,5.202e-001,5.192e-001,5.182e-001,&
5.172e-001,5.162e-001,5.152e-001,5.142e-001,5.132e-001,5.122e-001,5.112e-001,5.102e-001,5.092e-001,5.082e-001,&
5.072e-001,5.062e-001,5.052e-001,5.042e-001,5.032e-001,5.022e-001,5.012e-001,5.002e-001,4.992e-001,4.982e-001,&
4.972e-001,4.960e-001,4.948e-001,4.936e-001,4.924e-001,4.912e-001,4.900e-001,4.888e-001,4.876e-001,4.864e-001,&
4.852e-001,4.840e-001,4.829e-001,4.817e-001,4.805e-001,4.793e-001,4.781e-001,4.769e-001,4.757e-001,4.745e-001,&
4.733e-001,4.720e-001,4.708e-001,4.695e-001,4.683e-001,4.670e-001,4.658e-001,4.645e-001,4.633e-001,4.620e-001,&
4.608e-001,4.597e-001,4.587e-001,4.577e-001,4.566e-001,4.556e-001,4.546e-001,4.535e-001,4.525e-001,4.515e-001,&
4.504e-001,4.494e-001,4.484e-001,4.473e-001,4.463e-001,4.453e-001,4.442e-001,4.432e-001,4.422e-001,4.411e-001,&
4.401e-001,4.388e-001,4.375e-001,4.362e-001,4.350e-001,4.337e-001,4.324e-001,4.311e-001,4.298e-001,4.285e-001,&
4.272e-001,4.260e-001,4.247e-001,4.234e-001,4.221e-001,4.208e-001,4.195e-001,4.183e-001,4.170e-001,4.157e-001/
DATA (k_Brown(i),i=101,200)/&
4.144e-001,4.135e-001,4.127e-001,4.118e-001,4.109e-001,4.100e-001,4.092e-001,4.083e-001,4.074e-001,4.065e-001,&
4.057e-001,4.047e-001,4.038e-001,4.028e-001,4.019e-001,4.009e-001,4.000e-001,3.990e-001,3.981e-001,3.971e-001,&
3.962e-001,3.952e-001,3.943e-001,3.933e-001,3.924e-001,3.914e-001,3.905e-001,3.895e-001,3.886e-001,3.876e-001,&
3.867e-001,3.846e-001,3.824e-001,3.803e-001,3.782e-001,3.760e-001,3.739e-001,3.718e-001,3.696e-001,3.675e-001,&
3.654e-001,3.639e-001,3.625e-001,3.611e-001,3.597e-001,3.582e-001,3.568e-001,3.554e-001,3.540e-001,3.525e-001,&
3.511e-001,3.500e-001,3.489e-001,3.478e-001,3.467e-001,3.456e-001,3.445e-001,3.434e-001,3.423e-001,3.412e-001,&
3.401e-001,3.383e-001,3.366e-001,3.348e-001,3.330e-001,3.312e-001,3.294e-001,3.276e-001,3.258e-001,3.241e-001,&
3.223e-001,3.202e-001,3.182e-001,3.162e-001,3.141e-001,3.121e-001,3.100e-001,3.080e-001,3.059e-001,3.039e-001,&
3.019e-001,2.999e-001,2.979e-001,2.959e-001,2.940e-001,2.920e-001,2.900e-001,2.881e-001,2.861e-001,2.841e-001,&
2.821e-001,2.803e-001,2.784e-001,2.766e-001,2.747e-001,2.728e-001,2.710e-001,2.691e-001,2.673e-001,2.654e-001/
DATA (k_Brown(i),i=201,300)/&
2.636e-001,2.618e-001,2.601e-001,2.584e-001,2.566e-001,2.549e-001,2.532e-001,2.515e-001,2.497e-001,2.480e-001,&
2.463e-001,2.447e-001,2.431e-001,2.414e-001,2.398e-001,2.382e-001,2.366e-001,2.350e-001,2.334e-001,2.318e-001,&
2.302e-001,2.288e-001,2.273e-001,2.258e-001,2.244e-001,2.229e-001,2.215e-001,2.200e-001,2.185e-001,2.171e-001,&
2.156e-001,2.143e-001,2.129e-001,2.115e-001,2.102e-001,2.088e-001,2.074e-001,2.061e-001,2.047e-001,2.033e-001,&
2.020e-001,2.007e-001,1.994e-001,1.981e-001,1.968e-001,1.955e-001,1.942e-001,1.929e-001,1.916e-001,1.903e-001,&
1.890e-001,1.878e-001,1.865e-001,1.853e-001,1.841e-001,1.829e-001,1.816e-001,1.804e-001,1.792e-001,1.780e-001,&
1.768e-001,1.755e-001,1.742e-001,1.729e-001,1.717e-001,1.704e-001,1.691e-001,1.679e-001,1.666e-001,1.653e-001,&
1.641e-001,1.627e-001,1.613e-001,1.600e-001,1.586e-001,1.572e-001,1.559e-001,1.545e-001,1.532e-001,1.518e-001,&
1.504e-001,1.491e-001,1.478e-001,1.464e-001,1.451e-001,1.437e-001,1.424e-001,1.411e-001,1.397e-001,1.384e-001,&
1.370e-001,1.358e-001,1.345e-001,1.333e-001,1.320e-001,1.308e-001,1.295e-001,1.283e-001,1.270e-001,1.258e-001/
DATA (k_Brown(i),i=301,400)/&
1.245e-001,1.234e-001,1.223e-001,1.212e-001,1.200e-001,1.189e-001,1.178e-001,1.167e-001,1.156e-001,1.144e-001,&
1.133e-001,1.122e-001,1.111e-001,1.100e-001,1.089e-001,1.078e-001,1.067e-001,1.056e-001,1.046e-001,1.035e-001,&
1.024e-001,1.013e-001,1.003e-001,9.931e-002,9.829e-002,9.727e-002,9.625e-002,9.524e-002,9.422e-002,9.320e-002,&
9.218e-002,9.120e-002,9.022e-002,8.924e-002,8.827e-002,8.729e-002,8.631e-002,8.533e-002,8.435e-002,8.337e-002,&
8.239e-002,8.155e-002,8.070e-002,7.985e-002,7.901e-002,7.816e-002,7.732e-002,7.647e-002,7.562e-002,7.478e-002,&
7.393e-002,7.319e-002,7.245e-002,7.171e-002,7.097e-002,7.023e-002,6.949e-002,6.875e-002,6.801e-002,6.727e-002,&
6.653e-002,6.586e-002,6.519e-002,6.452e-002,6.385e-002,6.318e-002,6.251e-002,6.184e-002,6.117e-002,6.050e-002,&
5.983e-002,5.913e-002,5.843e-002,5.773e-002,5.704e-002,5.634e-002,5.564e-002,5.494e-002,5.424e-002,5.354e-002,&
5.284e-002,5.226e-002,5.167e-002,5.109e-002,5.050e-002,4.992e-002,4.933e-002,4.874e-002,4.816e-002,4.757e-002,&
4.699e-002,4.646e-002,4.594e-002,4.542e-002,4.490e-002,4.437e-002,4.385e-002,4.333e-002,4.281e-002,4.228e-002/
DATA (k_Brown(i),i=401,500)/&
4.176e-002,4.128e-002,4.081e-002,4.033e-002,3.985e-002,3.937e-002,3.889e-002,3.841e-002,3.793e-002,3.746e-002,&
3.698e-002,3.657e-002,3.615e-002,3.574e-002,3.533e-002,3.492e-002,3.451e-002,3.409e-002,3.368e-002,3.327e-002,&
3.286e-002,3.249e-002,3.212e-002,3.175e-002,3.139e-002,3.102e-002,3.065e-002,3.028e-002,2.991e-002,2.954e-002,&
2.918e-002,2.885e-002,2.852e-002,2.819e-002,2.786e-002,2.753e-002,2.720e-002,2.688e-002,2.655e-002,2.622e-002,&
2.589e-002,2.559e-002,2.529e-002,2.499e-002,2.469e-002,2.440e-002,2.410e-002,2.380e-002,2.350e-002,2.320e-002,&
2.290e-002,2.264e-002,2.238e-002,2.212e-002,2.186e-002,2.159e-002,2.133e-002,2.107e-002,2.081e-002,2.055e-002,&
2.029e-002,2.006e-002,1.983e-002,1.961e-002,1.938e-002,1.915e-002,1.893e-002,1.870e-002,1.847e-002,1.825e-002,&
1.802e-002,1.782e-002,1.762e-002,1.742e-002,1.723e-002,1.703e-002,1.683e-002,1.663e-002,1.643e-002,1.623e-002,&
1.604e-002,1.586e-002,1.568e-002,1.551e-002,1.533e-002,1.516e-002,1.498e-002,1.481e-002,1.463e-002,1.446e-002,&
1.428e-002,1.414e-002,1.400e-002,1.385e-002,1.371e-002,1.357e-002,1.343e-002,1.328e-002,1.314e-002,1.300e-002/
DATA (k_Brown(i),i=501,600)/&
1.286e-002,1.275e-002,1.265e-002,1.255e-002,1.245e-002,1.235e-002,1.225e-002,1.215e-002,1.205e-002,1.195e-002,&
1.185e-002,1.175e-002,1.165e-002,1.155e-002,1.145e-002,1.135e-002,1.125e-002,1.115e-002,1.105e-002,1.096e-002,&
1.086e-002,1.076e-002,1.066e-002,1.056e-002,1.047e-002,1.037e-002,1.027e-002,1.017e-002,1.008e-002,9.980e-003,&
9.884e-003,9.787e-003,9.691e-003,9.595e-003,9.500e-003,9.404e-003,9.309e-003,9.214e-003,9.120e-003,9.025e-003,&
8.931e-003,8.837e-003,8.743e-003,8.650e-003,8.557e-003,8.464e-003,8.371e-003,8.279e-003,8.187e-003,8.095e-003,&
8.004e-003,7.913e-003,7.822e-003,7.732e-003,7.641e-003,7.552e-003,7.462e-003,7.373e-003,7.284e-003,7.195e-003,&
7.107e-003,7.019e-003,6.932e-003,6.844e-003,6.758e-003,6.671e-003,6.585e-003,6.499e-003,6.414e-003,6.329e-003,&
6.244e-003,6.160e-003,6.076e-003,5.993e-003,5.910e-003,5.827e-003,5.745e-003,5.663e-003,5.581e-003,5.500e-003,&
5.419e-003,5.339e-003,5.259e-003,5.180e-003,5.101e-003,5.023e-003,4.945e-003,4.867e-003,4.790e-003,4.713e-003,&
4.637e-003,4.561e-003,4.486e-003,4.411e-003,4.337e-003,4.263e-003,4.190e-003,4.117e-003,4.044e-003,3.972e-003/
DATA (k_Brown(i),i=601,700)/&
3.901e-003,3.830e-003,3.760e-003,3.690e-003,3.620e-003,3.552e-003,3.483e-003,3.416e-003,3.348e-003,3.282e-003,&
3.215e-003,3.150e-003,3.085e-003,3.020e-003,2.956e-003,2.893e-003,2.830e-003,2.768e-003,2.706e-003,2.645e-003,&
2.585e-003,2.525e-003,2.465e-003,2.407e-003,2.348e-003,2.291e-003,2.234e-003,2.178e-003,2.122e-003,2.067e-003,&
2.012e-003,1.959e-003,1.905e-003,1.853e-003,1.801e-003,1.750e-003,1.699e-003,1.649e-003,1.600e-003,1.551e-003,&
1.503e-003,1.456e-003,1.409e-003,1.363e-003,1.318e-003,1.274e-003,1.230e-003,1.187e-003,1.144e-003,1.102e-003,&
1.061e-003,1.021e-003,9.811e-004,9.422e-004,9.040e-004,8.665e-004,8.297e-004,7.937e-004,7.584e-004,7.239e-004,&
6.901e-004,6.571e-004,6.248e-004,5.933e-004,5.626e-004,5.326e-004,5.034e-004,4.750e-004,4.473e-004,4.205e-004,&
3.944e-004,3.691e-004,3.446e-004,3.210e-004,2.981e-004,2.760e-004,2.548e-004,2.344e-004,2.148e-004,1.960e-004,&
1.780e-004,1.609e-004,1.446e-004,1.292e-004,1.146e-004,1.009e-004,8.804e-005,7.603e-005,6.488e-005,5.460e-005,&
4.519e-005,3.666e-005,2.901e-005,2.225e-005,1.637e-005,1.138e-005,7.297e-006,4.111e-006,1.830e-006,4.581e-007/
DATA (k_Brown(i),i=701,2101)/1401*0./
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!! specific absorption of water !!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
DATA (k_Cw(i),i=1,100)/&
5.800E-05,5.852E-05,5.900E-05,5.989E-05,6.100E-05,6.203E-05,6.300E-05,6.399E-05,6.500E-05,6.603E-05,&
6.700E-05,6.790E-05,6.900E-05,7.050E-05,7.200E-05,7.312E-05,7.400E-05,7.490E-05,7.600E-05,7.740E-05,&
7.900E-05,8.063E-05,8.200E-05,8.297E-05,8.400E-05,8.551E-05,8.700E-05,8.800E-05,8.900E-05,9.050E-05,&
9.200E-05,9.300E-05,9.400E-05,9.550E-05,9.700E-05,9.801E-05,9.900E-05,1.005E-04,1.020E-04,1.031E-04,&
1.040E-04,1.050E-04,1.060E-04,1.070E-04,1.080E-04,1.090E-04,1.100E-04,1.110E-04,1.120E-04,1.130E-04,&
1.140E-04,1.150E-04,1.160E-04,1.170E-04,1.180E-04,1.190E-04,1.200E-04,1.210E-04,1.220E-04,1.230E-04,&
1.240E-04,1.250E-04,1.260E-04,1.270E-04,1.280E-04,1.289E-04,1.300E-04,1.315E-04,1.330E-04,1.340E-04,&
1.350E-04,1.364E-04,1.380E-04,1.396E-04,1.410E-04,1.424E-04,1.440E-04,1.459E-04,1.480E-04,1.499E-04,&
1.520E-04,1.544E-04,1.570E-04,1.596E-04,1.620E-04,1.643E-04,1.670E-04,1.704E-04,1.740E-04,1.775E-04,&
1.810E-04,1.849E-04,1.890E-04,1.934E-04,1.980E-04,2.031E-04,2.090E-04,2.158E-04,2.230E-04,2.303E-04/
DATA (k_Cw(i),i=101,200)/&
2.380E-04,2.463E-04,2.550E-04,2.640E-04,2.730E-04,2.819E-04,2.910E-04,3.004E-04,3.100E-04,3.194E-04,&
3.290E-04,3.390E-04,3.490E-04,3.588E-04,3.680E-04,3.767E-04,3.860E-04,3.962E-04,4.040E-04,4.069E-04,&
4.090E-04,4.138E-04,4.160E-04,4.112E-04,4.090E-04,4.176E-04,4.270E-04,4.268E-04,4.230E-04,4.237E-04,&
4.290E-04,4.371E-04,4.450E-04,4.506E-04,4.560E-04,4.631E-04,4.700E-04,4.748E-04,4.800E-04,4.879E-04,&
4.950E-04,4.983E-04,5.030E-04,5.141E-04,5.270E-04,5.363E-04,5.440E-04,5.532E-04,5.640E-04,5.759E-04,&
5.880E-04,5.998E-04,6.110E-04,6.215E-04,6.310E-04,6.391E-04,6.460E-04,6.520E-04,6.580E-04,6.647E-04,&
6.720E-04,6.793E-04,6.860E-04,6.920E-04,6.990E-04,7.084E-04,7.180E-04,7.257E-04,7.340E-04,7.455E-04,&
7.590E-04,7.729E-04,7.870E-04,8.020E-04,8.190E-04,8.386E-04,8.580E-04,8.754E-04,8.960E-04,9.238E-04,&
9.520E-04,9.745E-04,1.000E-03,1.037E-03,1.079E-03,1.119E-03,1.159E-03,1.204E-03,1.253E-03,1.304E-03,&
1.356E-03,1.408E-03,1.459E-03,1.510E-03,1.567E-03,1.635E-03,1.700E-03,1.758E-03,1.860E-03,2.042E-03/
DATA (k_Cw(i),i=201,300)/&
2.224E-03,2.323E-03,2.366E-03,2.400E-03,2.448E-03,2.519E-03,2.587E-03,2.629E-03,2.653E-03,2.674E-03,&
2.691E-03,2.704E-03,2.715E-03,2.727E-03,2.740E-03,2.753E-03,2.764E-03,2.775E-03,2.785E-03,2.797E-03,&
2.810E-03,2.824E-03,2.839E-03,2.854E-03,2.868E-03,2.881E-03,2.893E-03,2.907E-03,2.922E-03,2.938E-03,&
2.955E-03,2.972E-03,2.988E-03,3.000E-03,3.011E-03,3.023E-03,3.038E-03,3.057E-03,3.076E-03,3.094E-03,&
3.111E-03,3.127E-03,3.144E-03,3.162E-03,3.181E-03,3.202E-03,3.223E-03,3.242E-03,3.263E-03,3.289E-03,&
3.315E-03,3.338E-03,3.362E-03,3.390E-03,3.423E-03,3.461E-03,3.508E-03,3.567E-03,3.636E-03,3.712E-03,&
3.791E-03,3.866E-03,3.931E-03,3.981E-03,4.019E-03,4.049E-03,4.072E-03,4.087E-03,4.098E-03,4.109E-03,&
4.122E-03,4.137E-03,4.150E-03,4.160E-03,4.173E-03,4.196E-03,4.223E-03,4.248E-03,4.270E-03,4.293E-03,&
4.318E-03,4.347E-03,4.381E-03,4.418E-03,4.458E-03,4.500E-03,4.545E-03,4.594E-03,4.646E-03,4.701E-03,&
4.760E-03,4.827E-03,4.903E-03,4.986E-03,5.071E-03,5.154E-03,5.244E-03,5.351E-03,5.470E-03,5.594E-03/
DATA (k_Cw(i),i=301,400)/&
5.722E-03,5.855E-03,5.995E-03,6.146E-03,6.303E-03,6.463E-03,6.628E-03,6.804E-03,6.993E-03,7.197E-03,&
7.415E-03,7.647E-03,7.893E-03,8.157E-03,8.445E-03,8.763E-03,9.109E-03,9.479E-03,9.871E-03,1.029E-02,&
1.072E-02,1.119E-02,1.168E-02,1.218E-02,1.268E-02,1.319E-02,1.372E-02,1.428E-02,1.487E-02,1.551E-02,&
1.621E-02,1.699E-02,1.787E-02,1.886E-02,1.992E-02,2.101E-02,2.207E-02,2.306E-02,2.394E-02,2.469E-02,&
2.532E-02,2.583E-02,2.623E-02,2.652E-02,2.672E-02,2.689E-02,2.702E-02,2.713E-02,2.722E-02,2.728E-02,&
2.733E-02,2.738E-02,2.741E-02,2.745E-02,2.748E-02,2.751E-02,2.754E-02,2.758E-02,2.763E-02,2.767E-02,&
2.771E-02,2.773E-02,2.773E-02,2.774E-02,2.774E-02,2.773E-02,2.770E-02,2.766E-02,2.761E-02,2.757E-02,&
2.754E-02,2.752E-02,2.748E-02,2.741E-02,2.731E-02,2.720E-02,2.710E-02,2.701E-02,2.690E-02,2.675E-02,&
2.659E-02,2.645E-02,2.633E-02,2.624E-02,2.613E-02,2.593E-02,2.558E-02,2.523E-02,2.513E-02,2.501E-02,&
2.466E-02,2.447E-02,2.412E-02,2.389E-02,2.374E-02,2.355E-02,2.337E-02,2.318E-02,2.304E-02,2.281E-02/
DATA (k_Cw(i),i=401,500)/&
2.246E-02,2.243E-02,2.238E-02,2.222E-02,2.204E-02,2.201E-02,2.204E-02,2.196E-02,2.177E-02,2.190E-02,&
2.188E-02,2.188E-02,2.198E-02,2.210E-02,2.223E-02,2.233E-02,2.248E-02,2.276E-02,2.304E-02,2.311E-02,&
2.329E-02,2.388E-02,2.446E-02,2.475E-02,2.516E-02,2.620E-02,2.769E-02,2.830E-02,2.914E-02,3.108E-02,&
3.214E-02,3.297E-02,3.459E-02,3.606E-02,3.662E-02,3.702E-02,3.788E-02,3.829E-02,3.854E-02,3.909E-02,&
3.949E-02,3.972E-02,4.000E-02,4.040E-02,4.057E-02,4.075E-02,4.115E-02,4.127E-02,4.149E-02,4.204E-02,&
4.199E-02,4.223E-02,4.254E-02,4.272E-02,4.280E-02,4.306E-02,4.360E-02,4.369E-02,4.379E-02,4.433E-02,&
4.454E-02,4.466E-02,4.505E-02,4.527E-02,4.552E-02,4.605E-02,4.658E-02,4.691E-02,4.705E-02,4.713E-02,&
4.752E-02,4.833E-02,4.867E-02,4.894E-02,4.960E-02,5.006E-02,5.050E-02,5.115E-02,5.153E-02,5.204E-02,&
5.298E-02,5.346E-02,5.386E-02,5.465E-02,5.528E-02,5.566E-02,5.596E-02,5.653E-02,5.745E-02,5.789E-02,&
5.831E-02,5.924E-02,5.982E-02,6.009E-02,6.035E-02,6.094E-02,6.185E-02,6.226E-02,6.269E-02,6.360E-02/
DATA (k_Cw(i),i=501,600)/&
6.407E-02,6.458E-02,6.562E-02,6.636E-02,6.672E-02,6.699E-02,6.769E-02,6.900E-02,6.989E-02,7.037E-02,&
7.085E-02,7.187E-02,7.358E-02,7.486E-02,7.562E-02,7.630E-02,7.792E-02,8.085E-02,8.292E-02,8.410E-02,&
8.528E-02,8.801E-02,9.268E-02,9.584E-02,9.819E-02,1.012E-01,1.042E-01,1.066E-01,1.113E-01,1.194E-01,&
1.246E-01,1.281E-01,1.327E-01,1.374E-01,1.410E-01,1.465E-01,1.557E-01,1.635E-01,1.688E-01,1.732E-01,&
1.818E-01,1.963E-01,2.050E-01,2.106E-01,2.187E-01,2.287E-01,2.386E-01,2.468E-01,2.542E-01,2.701E-01,&
2.976E-01,3.153E-01,3.274E-01,3.438E-01,3.622E-01,3.785E-01,3.930E-01,4.068E-01,4.184E-01,4.273E-01,&
4.385E-01,4.538E-01,4.611E-01,4.633E-01,4.663E-01,4.701E-01,4.733E-01,4.756E-01,4.772E-01,4.785E-01,&
4.800E-01,4.814E-01,4.827E-01,4.843E-01,4.864E-01,4.870E-01,4.867E-01,4.864E-01,4.857E-01,4.841E-01,&
4.821E-01,4.804E-01,4.786E-01,4.764E-01,4.738E-01,4.710E-01,4.677E-01,4.641E-01,4.604E-01,4.570E-01,&
4.532E-01,4.482E-01,4.434E-01,4.397E-01,4.362E-01,4.316E-01,4.265E-01,4.215E-01,4.168E-01,4.121E-01/
DATA (k_Cw(i),i=601,700)/&
4.072E-01,4.017E-01,3.963E-01,3.915E-01,3.868E-01,3.816E-01,3.760E-01,3.701E-01,3.640E-01,3.581E-01,&
3.521E-01,3.461E-01,3.402E-01,3.349E-01,3.297E-01,3.243E-01,3.191E-01,3.141E-01,3.086E-01,3.022E-01,&
2.957E-01,2.897E-01,2.840E-01,2.782E-01,2.724E-01,2.672E-01,2.621E-01,2.566E-01,2.506E-01,2.444E-01,&
2.391E-01,2.357E-01,2.331E-01,2.299E-01,2.251E-01,2.198E-01,2.151E-01,2.109E-01,2.064E-01,2.020E-01,&
1.981E-01,1.944E-01,1.904E-01,1.868E-01,1.841E-01,1.818E-01,1.790E-01,1.752E-01,1.715E-01,1.687E-01,&
1.664E-01,1.639E-01,1.613E-01,1.586E-01,1.562E-01,1.545E-01,1.532E-01,1.522E-01,1.510E-01,1.495E-01,&
1.475E-01,1.457E-01,1.447E-01,1.442E-01,1.438E-01,1.433E-01,1.426E-01,1.418E-01,1.412E-01,1.410E-01,&
1.409E-01,1.408E-01,1.406E-01,1.405E-01,1.408E-01,1.414E-01,1.426E-01,1.435E-01,1.438E-01,1.439E-01,&
1.443E-01,1.456E-01,1.475E-01,1.498E-01,1.519E-01,1.534E-01,1.547E-01,1.561E-01,1.580E-01,1.604E-01,&
1.632E-01,1.659E-01,1.677E-01,1.693E-01,1.712E-01,1.739E-01,1.777E-01,1.824E-01,1.866E-01,1.890E-01/
DATA (k_Cw(i),i=701,800)/&
1.906E-01,1.929E-01,1.967E-01,2.005E-01,2.031E-01,2.051E-01,2.079E-01,2.123E-01,2.166E-01,2.196E-01,&
2.219E-01,2.251E-01,2.298E-01,2.337E-01,2.346E-01,2.342E-01,2.353E-01,2.397E-01,2.450E-01,2.491E-01,&
2.528E-01,2.578E-01,2.650E-01,2.719E-01,2.765E-01,2.811E-01,2.891E-01,3.023E-01,3.164E-01,3.271E-01,&
3.378E-01,3.533E-01,3.770E-01,4.037E-01,4.281E-01,4.502E-01,4.712E-01,4.932E-01,5.202E-01,5.572E-01,&
6.052E-01,6.520E-01,6.863E-01,7.159E-01,7.535E-01,8.064E-01,8.597E-01,8.981E-01,9.253E-01,9.493E-01,&
9.769E-01,1.008E+00,1.041E+00,1.073E+00,1.100E+00,1.119E+00,1.131E+00,1.140E+00,1.150E+00,1.160E+00,&
1.170E+00,1.181E+00,1.190E+00,1.194E+00,1.196E+00,1.197E+00,1.200E+00,1.203E+00,1.205E+00,1.206E+00,&
1.207E+00,1.213E+00,1.223E+00,1.232E+00,1.234E+00,1.232E+00,1.229E+00,1.230E+00,1.233E+00,1.236E+00,&
1.239E+00,1.241E+00,1.244E+00,1.248E+00,1.252E+00,1.256E+00,1.258E+00,1.260E+00,1.262E+00,1.265E+00,&
1.267E+00,1.270E+00,1.272E+00,1.275E+00,1.277E+00,1.280E+00,1.282E+00,1.283E+00,1.283E+00,1.279E+00/
DATA (k_Cw(i),i=801,900)/&
1.272E+00,1.266E+00,1.267E+00,1.271E+00,1.273E+00,1.271E+00,1.265E+00,1.260E+00,1.258E+00,1.258E+00,&
1.257E+00,1.252E+00,1.247E+00,1.243E+00,1.243E+00,1.243E+00,1.240E+00,1.233E+00,1.224E+00,1.216E+00,&
1.214E+00,1.214E+00,1.213E+00,1.210E+00,1.205E+00,1.200E+00,1.199E+00,1.198E+00,1.197E+00,1.194E+00,&
1.189E+00,1.184E+00,1.180E+00,1.176E+00,1.171E+00,1.166E+00,1.161E+00,1.158E+00,1.157E+00,1.157E+00,&
1.155E+00,1.152E+00,1.148E+00,1.142E+00,1.138E+00,1.133E+00,1.130E+00,1.126E+00,1.123E+00,1.120E+00,&
1.116E+00,1.111E+00,1.107E+00,1.103E+00,1.101E+00,1.101E+00,1.101E+00,1.101E+00,1.100E+00,1.098E+00,&
1.094E+00,1.089E+00,1.085E+00,1.084E+00,1.083E+00,1.083E+00,1.082E+00,1.081E+00,1.080E+00,1.079E+00,&
1.080E+00,1.083E+00,1.087E+00,1.093E+00,1.099E+00,1.104E+00,1.107E+00,1.109E+00,1.111E+00,1.115E+00,&
1.121E+00,1.129E+00,1.137E+00,1.147E+00,1.156E+00,1.164E+00,1.170E+00,1.175E+00,1.181E+00,1.188E+00,&
1.196E+00,1.206E+00,1.216E+00,1.227E+00,1.239E+00,1.252E+00,1.267E+00,1.283E+00,1.297E+00,1.310E+00/
DATA (k_Cw(i),i=901,1000)/&
1.323E+00,1.336E+00,1.351E+00,1.370E+00,1.392E+00,1.416E+00,1.440E+00,1.465E+00,1.489E+00,1.511E+00,&
1.532E+00,1.555E+00,1.580E+00,1.610E+00,1.642E+00,1.672E+00,1.701E+00,1.728E+00,1.758E+00,1.791E+00,&
1.831E+00,1.872E+00,1.911E+00,1.943E+00,1.974E+00,2.007E+00,2.047E+00,2.098E+00,2.153E+00,2.203E+00,&
2.243E+00,2.277E+00,2.312E+00,2.357E+00,2.415E+00,2.479E+00,2.540E+00,2.590E+00,2.631E+00,2.666E+00,&
2.701E+00,2.738E+00,2.780E+00,2.829E+00,2.889E+00,2.960E+00,3.033E+00,3.097E+00,3.146E+00,3.181E+00,&
3.226E+00,3.267E+00,3.319E+00,3.363E+00,3.412E+00,3.449E+00,3.504E+00,3.544E+00,3.600E+00,3.648E+00,&
3.701E+00,3.752E+00,3.802E+00,3.871E+00,3.927E+00,3.985E+00,4.064E+00,4.125E+00,4.216E+00,4.302E+00,&
4.389E+00,4.504E+00,4.630E+00,4.737E+00,4.904E+00,5.092E+00,5.260E+00,5.479E+00,5.720E+00,6.006E+00,&
6.242E+00,6.580E+00,6.927E+00,7.313E+00,7.633E+00,8.089E+00,8.545E+00,9.030E+00,9.591E+00,1.002E+01,&
1.063E+01,1.122E+01,1.184E+01,1.245E+01,1.316E+01,1.369E+01,1.434E+01,1.509E+01,1.578E+01,1.646E+01/
DATA (k_Cw(i),i=1001,1100)/&
1.714E+01,1.781E+01,1.854E+01,1.919E+01,1.980E+01,2.029E+01,2.089E+01,2.146E+01,2.202E+01,2.260E+01,&
2.313E+01,2.360E+01,2.407E+01,2.450E+01,2.493E+01,2.533E+01,2.571E+01,2.606E+01,2.641E+01,2.673E+01,&
2.701E+01,2.729E+01,2.756E+01,2.782E+01,2.806E+01,2.835E+01,2.856E+01,2.875E+01,2.892E+01,2.908E+01,&
2.926E+01,2.940E+01,2.956E+01,2.966E+01,2.982E+01,2.993E+01,3.003E+01,3.014E+01,3.023E+01,3.029E+01,&
3.036E+01,3.042E+01,3.046E+01,3.049E+01,3.052E+01,3.053E+01,3.055E+01,3.056E+01,3.056E+01,3.055E+01,&
3.054E+01,3.051E+01,3.049E+01,3.045E+01,3.041E+01,3.035E+01,3.029E+01,3.023E+01,3.014E+01,3.006E+01,&
2.998E+01,2.983E+01,2.971E+01,2.957E+01,2.936E+01,2.917E+01,2.899E+01,2.872E+01,2.851E+01,2.829E+01,&
2.800E+01,2.777E+01,2.754E+01,2.722E+01,2.699E+01,2.664E+01,2.638E+01,2.611E+01,2.581E+01,2.555E+01,&
2.522E+01,2.497E+01,2.468E+01,2.443E+01,2.413E+01,2.388E+01,2.364E+01,2.332E+01,2.307E+01,2.274E+01,&
2.250E+01,2.218E+01,2.193E+01,2.163E+01,2.139E+01,2.107E+01,2.082E+01,2.052E+01,2.025E+01,2.001E+01/
DATA (k_Cw(i),i=1101,1200)/&
1.972E+01,1.951E+01,1.924E+01,1.900E+01,1.874E+01,1.847E+01,1.827E+01,1.802E+01,1.784E+01,1.758E+01,&
1.734E+01,1.712E+01,1.688E+01,1.671E+01,1.647E+01,1.623E+01,1.606E+01,1.583E+01,1.562E+01,1.545E+01,&
1.525E+01,1.504E+01,1.489E+01,1.468E+01,1.447E+01,1.432E+01,1.413E+01,1.395E+01,1.381E+01,1.364E+01,&
1.348E+01,1.329E+01,1.316E+01,1.298E+01,1.282E+01,1.265E+01,1.254E+01,1.238E+01,1.223E+01,1.206E+01,&
1.193E+01,1.181E+01,1.166E+01,1.152E+01,1.137E+01,1.126E+01,1.114E+01,1.100E+01,1.088E+01,1.075E+01,&
1.064E+01,1.054E+01,1.044E+01,1.032E+01,1.022E+01,1.011E+01,1.001E+01,9.912E+00,9.839E+00,9.754E+00,&
9.660E+00,9.563E+00,9.477E+00,9.383E+00,9.305E+00,9.202E+00,9.133E+00,9.047E+00,8.977E+00,8.898E+00,&
8.820E+00,8.742E+00,8.665E+00,8.588E+00,8.509E+00,8.448E+00,8.364E+00,8.295E+00,8.234E+00,8.157E+00,&
8.104E+00,8.036E+00,7.959E+00,7.890E+00,7.834E+00,7.773E+00,7.712E+00,7.654E+00,7.609E+00,7.548E+00,&
7.495E+00,7.432E+00,7.374E+00,7.315E+00,7.252E+00,7.203E+00,7.164E+00,7.124E+00,7.084E+00,7.041E+00/
DATA (k_Cw(i),i=1201,1300)/&
6.987E+00,6.943E+00,6.910E+00,6.865E+00,6.828E+00,6.776E+00,6.742E+00,6.714E+00,6.695E+00,6.654E+00,&
6.630E+00,6.599E+00,6.567E+00,6.526E+00,6.501E+00,6.474E+00,6.449E+00,6.420E+00,6.401E+00,6.363E+00,&
6.345E+00,6.309E+00,6.282E+00,6.250E+00,6.214E+00,6.186E+00,6.163E+00,6.130E+00,6.121E+00,6.091E+00,&
6.076E+00,6.053E+00,6.048E+00,6.016E+00,6.005E+00,5.982E+00,5.973E+00,5.947E+00,5.940E+00,5.919E+00,&
5.911E+00,5.887E+00,5.875E+00,5.846E+00,5.826E+00,5.798E+00,5.787E+00,5.751E+00,5.746E+00,5.718E+00,&
5.705E+00,5.685E+00,5.684E+00,5.657E+00,5.658E+00,5.644E+00,5.648E+00,5.626E+00,5.626E+00,5.619E+00,&
5.618E+00,5.603E+00,5.614E+00,5.597E+00,5.603E+00,5.582E+00,5.584E+00,5.564E+00,5.563E+00,5.547E+00,&
5.545E+00,5.536E+00,5.542E+00,5.529E+00,5.532E+00,5.525E+00,5.533E+00,5.528E+00,5.529E+00,5.516E+00,&
5.524E+00,5.516E+00,5.526E+00,5.520E+00,5.520E+00,5.516E+00,5.522E+00,5.511E+00,5.527E+00,5.511E+00,&
5.519E+00,5.515E+00,5.520E+00,5.510E+00,5.518E+00,5.523E+00,5.538E+00,5.535E+00,5.544E+00,5.557E+00/
DATA (k_Cw(i),i=1301,1400)/&
5.571E+00,5.583E+00,5.606E+00,5.607E+00,5.629E+00,5.636E+00,5.664E+00,5.670E+00,5.693E+00,5.702E+00,&
5.733E+00,5.752E+00,5.766E+00,5.776E+00,5.797E+00,5.811E+00,5.829E+00,5.842E+00,5.877E+00,5.891E+00,&
5.930E+00,5.945E+00,5.972E+00,5.999E+00,6.025E+00,6.051E+00,6.087E+00,6.096E+00,6.136E+00,6.166E+00,&
6.198E+00,6.219E+00,6.256E+00,6.284E+00,6.335E+00,6.369E+00,6.392E+00,6.445E+00,6.493E+00,6.517E+00,&
6.571E+00,6.617E+00,6.658E+00,6.689E+00,6.748E+00,6.796E+00,6.842E+00,6.897E+00,6.955E+00,7.003E+00,&
7.054E+00,7.111E+00,7.179E+00,7.235E+00,7.274E+00,7.339E+00,7.414E+00,7.481E+00,7.536E+00,7.594E+00,&
7.669E+00,7.734E+00,7.776E+00,7.833E+00,7.893E+00,7.952E+00,8.000E+00,8.045E+00,8.103E+00,8.155E+00,&
8.205E+00,8.241E+00,8.264E+00,8.321E+00,8.352E+00,8.394E+00,8.430E+00,8.448E+00,8.477E+00,8.512E+00,&
8.535E+00,8.562E+00,8.593E+00,8.618E+00,8.640E+00,8.670E+00,8.689E+00,8.720E+00,8.738E+00,8.755E+00,&
8.777E+00,8.778E+00,8.778E+00,8.794E+00,8.805E+00,8.807E+00,8.809E+00,8.811E+00,8.799E+00,8.795E+00/
DATA (k_Cw(i),i=1401,1500)/&
8.789E+00,8.779E+00,8.767E+00,8.754E+00,8.750E+00,8.738E+00,8.739E+00,8.735E+00,8.744E+00,8.753E+00,&
8.755E+00,8.780E+00,8.787E+00,8.790E+00,8.798E+00,8.794E+00,8.811E+00,8.820E+00,8.836E+00,8.845E+00,&
8.854E+00,8.858E+00,8.868E+00,8.869E+00,8.884E+00,8.888E+00,8.900E+00,8.922E+00,8.951E+00,8.973E+00,&
9.010E+00,9.034E+00,9.110E+00,9.146E+00,9.195E+00,9.259E+00,9.315E+00,9.380E+00,9.457E+00,9.535E+00,&
9.633E+00,9.723E+00,9.824E+00,9.935E+00,1.005E+01,1.018E+01,1.031E+01,1.042E+01,1.059E+01,1.075E+01,&
1.094E+01,1.110E+01,1.139E+01,1.160E+01,1.184E+01,1.208E+01,1.235E+01,1.266E+01,1.301E+01,1.334E+01,&
1.375E+01,1.412E+01,1.478E+01,1.529E+01,1.586E+01,1.641E+01,1.709E+01,1.774E+01,1.853E+01,1.925E+01,&
2.051E+01,2.148E+01,2.250E+01,2.367E+01,2.483E+01,2.622E+01,2.751E+01,2.972E+01,3.144E+01,3.317E+01,&
3.504E+01,3.725E+01,3.927E+01,4.269E+01,4.530E+01,4.789E+01,5.060E+01,5.360E+01,5.761E+01,6.088E+01,&
6.401E+01,6.720E+01,7.059E+01,7.497E+01,7.841E+01,8.157E+01,8.469E+01,8.752E+01,9.189E+01,9.456E+01/
DATA (k_Cw(i),i=1501,1600)/&
9.722E+01,9.995E+01,1.033E+02,1.057E+02,1.078E+02,1.097E+02,1.123E+02,1.140E+02,1.157E+02,1.171E+02,&
1.190E+02,1.203E+02,1.215E+02,1.226E+02,1.240E+02,1.248E+02,1.257E+02,1.265E+02,1.275E+02,1.281E+02,&
1.286E+02,1.292E+02,1.296E+02,1.299E+02,1.303E+02,1.304E+02,1.306E+02,1.306E+02,1.306E+02,1.305E+02,&
1.304E+02,1.301E+02,1.299E+02,1.296E+02,1.291E+02,1.287E+02,1.282E+02,1.275E+02,1.270E+02,1.264E+02,&
1.256E+02,1.249E+02,1.242E+02,1.232E+02,1.224E+02,1.216E+02,1.206E+02,1.197E+02,1.190E+02,1.178E+02,&
1.170E+02,1.157E+02,1.149E+02,1.140E+02,1.128E+02,1.118E+02,1.110E+02,1.097E+02,1.088E+02,1.076E+02,&
1.066E+02,1.058E+02,1.044E+02,1.036E+02,1.023E+02,1.014E+02,1.005E+02,9.928E+01,9.831E+01,9.711E+01,&
9.631E+01,9.488E+01,9.412E+01,9.341E+01,9.206E+01,9.121E+01,9.009E+01,8.929E+01,8.804E+01,8.725E+01,&
8.611E+01,8.532E+01,8.460E+01,8.336E+01,8.262E+01,8.151E+01,8.076E+01,7.973E+01,7.904E+01,7.800E+01,&
7.723E+01,7.628E+01,7.557E+01,7.463E+01,7.392E+01,7.298E+01,7.234E+01,7.141E+01,7.082E+01,6.986E+01/
DATA (k_Cw(i),i=1601,1700)/&
6.924E+01,6.865E+01,6.779E+01,6.688E+01,6.634E+01,6.548E+01,6.490E+01,6.412E+01,6.358E+01,6.281E+01,&
6.232E+01,6.156E+01,6.105E+01,6.029E+01,5.980E+01,5.907E+01,5.857E+01,5.788E+01,5.746E+01,5.680E+01,&
5.632E+01,5.566E+01,5.503E+01,5.463E+01,5.398E+01,5.356E+01,5.294E+01,5.256E+01,5.197E+01,5.138E+01,&
5.098E+01,5.047E+01,5.006E+01,4.951E+01,4.915E+01,4.860E+01,4.806E+01,4.773E+01,4.718E+01,4.685E+01,&
4.635E+01,4.584E+01,4.553E+01,4.503E+01,4.473E+01,4.426E+01,4.379E+01,4.348E+01,4.302E+01,4.273E+01,&
4.228E+01,4.186E+01,4.155E+01,4.115E+01,4.072E+01,4.046E+01,4.002E+01,3.975E+01,3.934E+01,3.894E+01,&
3.868E+01,3.827E+01,3.790E+01,3.762E+01,3.726E+01,3.687E+01,3.664E+01,3.628E+01,3.592E+01,3.568E+01,&
3.536E+01,3.499E+01,3.479E+01,3.447E+01,3.413E+01,3.392E+01,3.363E+01,3.329E+01,3.309E+01,3.280E+01,&
3.251E+01,3.231E+01,3.200E+01,3.172E+01,3.154E+01,3.127E+01,3.097E+01,3.071E+01,3.052E+01,3.025E+01,&
2.999E+01,2.980E+01,2.958E+01,2.929E+01,2.906E+01,2.888E+01,2.865E+01,2.840E+01,2.822E+01,2.799E+01/
DATA (k_Cw(i),i=1701,1800)/&
2.776E+01,2.751E+01,2.737E+01,2.713E+01,2.692E+01,2.671E+01,2.657E+01,2.637E+01,2.617E+01,2.597E+01,&
2.584E+01,2.565E+01,2.547E+01,2.528E+01,2.518E+01,2.501E+01,2.485E+01,2.466E+01,2.455E+01,2.438E+01,&
2.420E+01,2.401E+01,2.386E+01,2.374E+01,2.358E+01,2.342E+01,2.328E+01,2.318E+01,2.304E+01,2.289E+01,&
2.275E+01,2.262E+01,2.252E+01,2.239E+01,2.227E+01,2.214E+01,2.202E+01,2.194E+01,2.183E+01,2.172E+01,&
2.162E+01,2.150E+01,2.140E+01,2.133E+01,2.123E+01,2.112E+01,2.102E+01,2.091E+01,2.085E+01,2.077E+01,&
2.067E+01,2.058E+01,2.049E+01,2.040E+01,2.033E+01,2.027E+01,2.018E+01,2.010E+01,2.002E+01,1.995E+01,&
1.987E+01,1.983E+01,1.976E+01,1.969E+01,1.963E+01,1.958E+01,1.952E+01,1.946E+01,1.942E+01,1.938E+01,&
1.933E+01,1.928E+01,1.923E+01,1.918E+01,1.913E+01,1.909E+01,1.904E+01,1.900E+01,1.896E+01,1.889E+01,&
1.884E+01,1.880E+01,1.874E+01,1.870E+01,1.866E+01,1.860E+01,1.856E+01,1.852E+01,1.849E+01,1.845E+01,&
1.843E+01,1.839E+01,1.837E+01,1.837E+01,1.838E+01,1.837E+01,1.836E+01,1.835E+01,1.835E+01,1.835E+01/
DATA (k_Cw(i),i=1801,1900)/&
1.834E+01,1.833E+01,1.833E+01,1.833E+01,1.834E+01,1.833E+01,1.834E+01,1.834E+01,1.832E+01,1.831E+01,&
1.829E+01,1.828E+01,1.828E+01,1.829E+01,1.829E+01,1.830E+01,1.832E+01,1.835E+01,1.836E+01,1.837E+01,&
1.837E+01,1.838E+01,1.837E+01,1.840E+01,1.842E+01,1.843E+01,1.846E+01,1.849E+01,1.851E+01,1.854E+01,&
1.857E+01,1.858E+01,1.860E+01,1.864E+01,1.865E+01,1.867E+01,1.870E+01,1.875E+01,1.879E+01,1.883E+01,&
1.888E+01,1.893E+01,1.897E+01,1.903E+01,1.908E+01,1.913E+01,1.919E+01,1.924E+01,1.929E+01,1.934E+01,&
1.940E+01,1.946E+01,1.951E+01,1.961E+01,1.966E+01,1.973E+01,1.980E+01,1.985E+01,1.991E+01,1.997E+01,&
2.004E+01,2.013E+01,2.020E+01,2.027E+01,2.038E+01,2.046E+01,2.054E+01,2.062E+01,2.071E+01,2.079E+01,&
2.087E+01,2.094E+01,2.103E+01,2.111E+01,2.126E+01,2.135E+01,2.145E+01,2.153E+01,2.164E+01,2.174E+01,&
2.183E+01,2.192E+01,2.202E+01,2.212E+01,2.223E+01,2.234E+01,2.245E+01,2.264E+01,2.276E+01,2.287E+01,&
2.301E+01,2.313E+01,2.327E+01,2.338E+01,2.351E+01,2.363E+01,2.377E+01,2.385E+01,2.409E+01,2.418E+01/
DATA (k_Cw(i),i=1901,2000)/&
2.433E+01,2.444E+01,2.459E+01,2.470E+01,2.485E+01,2.495E+01,2.523E+01,2.534E+01,2.549E+01,2.564E+01,&
2.579E+01,2.592E+01,2.611E+01,2.623E+01,2.653E+01,2.664E+01,2.681E+01,2.695E+01,2.712E+01,2.727E+01,&
2.744E+01,2.756E+01,2.789E+01,2.802E+01,2.819E+01,2.838E+01,2.855E+01,2.869E+01,2.903E+01,2.916E+01,&
2.934E+01,2.951E+01,2.969E+01,2.988E+01,3.002E+01,3.038E+01,3.054E+01,3.073E+01,3.092E+01,3.107E+01,&
3.145E+01,3.160E+01,3.180E+01,3.199E+01,3.219E+01,3.238E+01,3.272E+01,3.290E+01,3.311E+01,3.331E+01,&
3.348E+01,3.388E+01,3.404E+01,3.426E+01,3.447E+01,3.468E+01,3.486E+01,3.528E+01,3.547E+01,3.570E+01,&
3.592E+01,3.610E+01,3.656E+01,3.675E+01,3.697E+01,3.716E+01,3.761E+01,3.777E+01,3.801E+01,3.827E+01,&
3.848E+01,3.892E+01,3.913E+01,3.938E+01,3.957E+01,4.007E+01,4.024E+01,4.050E+01,4.078E+01,4.096E+01,&
4.147E+01,4.167E+01,4.196E+01,4.220E+01,4.268E+01,4.293E+01,4.319E+01,4.342E+01,4.388E+01,4.413E+01,&
4.439E+01,4.464E+01,4.513E+01,4.538E+01,4.565E+01,4.590E+01,4.638E+01,4.663E+01,4.690E+01,4.714E+01/
DATA (k_Cw(i),i=2001,2101)/&
4.764E+01,4.787E+01,4.817E+01,4.836E+01,4.894E+01,4.917E+01,4.940E+01,4.997E+01,5.021E+01,5.050E+01,&
5.078E+01,5.131E+01,5.159E+01,5.191E+01,5.246E+01,5.275E+01,5.310E+01,5.339E+01,5.401E+01,5.429E+01,&
5.462E+01,5.523E+01,5.555E+01,5.588E+01,5.618E+01,5.686E+01,5.713E+01,5.746E+01,5.808E+01,5.841E+01,&
5.878E+01,5.946E+01,5.976E+01,6.009E+01,6.039E+01,6.107E+01,6.146E+01,6.180E+01,6.250E+01,6.286E+01,&
6.316E+01,6.392E+01,6.427E+01,6.462E+01,6.539E+01,6.574E+01,6.609E+01,6.685E+01,6.725E+01,6.759E+01,&
6.842E+01,6.881E+01,6.918E+01,7.009E+01,7.046E+01,7.084E+01,7.174E+01,7.212E+01,7.249E+01,7.340E+01,&
7.381E+01,7.423E+01,7.514E+01,7.554E+01,7.591E+01,7.675E+01,7.718E+01,7.801E+01,7.839E+01,7.880E+01,&
7.970E+01,8.005E+01,8.046E+01,8.136E+01,8.173E+01,8.215E+01,8.295E+01,8.338E+01,8.423E+01,8.474E+01,&
8.510E+01,8.584E+01,8.617E+01,8.637E+01,8.708E+01,8.762E+01,8.884E+01,8.904E+01,8.945E+01,9.055E+01,&
9.089E+01,9.134E+01,9.204E+01,9.244E+01,9.308E+01,9.333E+01,9.358E+01,9.416E+01,9.448E+01,9.499E+01,&
9.530E+01/
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!! specific absorption of dry matter !!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
DATA (k_Cm(i),i=1,100)/&
1.097E+02,1.037E+02,9.798E+01,9.244E+01,8.713E+01,8.231E+01,7.806E+01,7.404E+01,7.013E+01,6.654E+01,&
6.300E+01,5.954E+01,5.616E+01,5.301E+01,5.001E+01,4.723E+01,4.463E+01,4.220E+01,3.996E+01,3.780E+01,&
3.567E+01,3.362E+01,3.170E+01,2.993E+01,2.832E+01,2.679E+01,2.535E+01,2.402E+01,2.276E+01,2.150E+01,&
2.024E+01,1.901E+01,1.785E+01,1.676E+01,1.575E+01,1.481E+01,1.392E+01,1.312E+01,1.233E+01,1.161E+01,&
1.096E+01,1.041E+01,9.924E+00,9.410E+00,8.947E+00,8.508E+00,8.087E+00,7.640E+00,7.269E+00,6.939E+00,&
6.660E+00,6.422E+00,6.222E+00,6.010E+00,5.782E+00,5.573E+00,5.370E+00,5.173E+00,4.946E+00,4.761E+00,&
4.575E+00,4.419E+00,4.259E+00,4.117E+00,4.006E+00,3.945E+00,3.853E+00,3.784E+00,3.671E+00,3.554E+00,&
3.462E+00,3.364E+00,3.282E+00,3.184E+00,3.102E+00,3.051E+00,2.983E+00,2.947E+00,2.913E+00,2.869E+00,&
2.803E+00,2.777E+00,2.751E+00,2.726E+00,2.702E+00,2.679E+00,2.656E+00,2.634E+00,2.613E+00,2.593E+00,&
2.573E+00,2.554E+00,2.536E+00,2.519E+00,2.502E+00,2.486E+00,2.471E+00,2.457E+00,2.443E+00,2.430E+00/
DATA (k_Cm(i),i=101,200)/&