aboutsummaryrefslogtreecommitdiff
path: root/noao/imred/vtel/trnsfrm.inc
blob: b916b126dd9a8c6b6da8a13370f0765bf9fdca6b (plain) (blame)
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
data (trnsfrm[i], i = 1, 10) /56,56,56,56,57,57,57,57,58,58/
data (trnsfrm[i], i = 11, 20) /58,58,59,59,59,59,60,60,60,60/
data (trnsfrm[i], i = 21, 30) /61,61,61,61,62,62,62,63,63,63/
data (trnsfrm[i], i = 31, 40) /63,64,64,64,64,65,65,65,65,66/
data (trnsfrm[i], i = 41, 50) /66,66,67,67,67,67,68,68,68,68/
data (trnsfrm[i], i = 51, 60) /69,69,69,70,70,70,70,71,71,71/
data (trnsfrm[i], i = 61, 70) /71,72,72,72,73,73,73,73,74,74/
data (trnsfrm[i], i = 71, 80) /74,75,75,75,75,76,76,76,77,77/
data (trnsfrm[i], i = 81, 90) /77,77,78,78,78,79,79,79,79,80/
data (trnsfrm[i], i = 91, 100) /80,80,81,81,81,82,82,82,82,83/
data (trnsfrm[i], i = 101, 110) /83,83,84,84,84,85,85,85,85,86/
data (trnsfrm[i], i = 111, 120) /86,86,87,87,87,88,88,88,89,89/
data (trnsfrm[i], i = 121, 130) /89,90,90,90,90,91,91,91,92,92/
data (trnsfrm[i], i = 131, 140) /92,93,93,93,94,94,94,95,95,95/
data (trnsfrm[i], i = 141, 150) /96,96,96,97,97,97,98,98,98,99/
data (trnsfrm[i], i = 151, 160) /99,99,100,100,101,101,101,102,102,102/
data (trnsfrm[i], i = 161, 170) /103,103,103,104,104,104,105,105,106,106/
data (trnsfrm[i], i = 171, 180) /106,107,107,107,108,108,109,109,109,110/
data (trnsfrm[i], i = 181, 190) /110,110,111,111,112,112,112,113,113,114/
data (trnsfrm[i], i = 191, 200) /114,114,115,115,116,116,117,117,117,118/
data (trnsfrm[i], i = 201, 210) /118,119,119,120,120,120,121,121,122,122/
data (trnsfrm[i], i = 211, 220) /123,123,124,124,125,125,126,126,127,127/
data (trnsfrm[i], i = 221, 230) /128,128,129,129,130,130,131,131,132,132/
data (trnsfrm[i], i = 231, 240) /133,133,134,135,135,136,136,137,138,138/
data (trnsfrm[i], i = 241, 250) /139,140,140,141,142,143,143,144,145,146/
data (trnsfrm[i], i = 251, 260) /147,148,149,150,151,153,156,158,160,161/
data (trnsfrm[i], i = 261, 270) /162,163,164,165,166,167,168,168,169,170/
data (trnsfrm[i], i = 271, 280) /171,171,172,173,173,174,175,175,176,176/
data (trnsfrm[i], i = 281, 290) /177,178,178,179,179,180,180,181,181,182/
data (trnsfrm[i], i = 291, 300) /182,183,183,184,184,185,185,186,186,187/
data (trnsfrm[i], i = 301, 310) /187,188,188,189,189,190,190,191,191,191/
data (trnsfrm[i], i = 311, 320) /192,192,193,193,194,194,194,195,195,196/
data (trnsfrm[i], i = 321, 330) /196,197,197,197,198,198,199,199,199,200/
data (trnsfrm[i], i = 331, 340) /200,201,201,201,202,202,202,203,203,204/
data (trnsfrm[i], i = 341, 350) /204,204,205,205,205,206,206,207,207,207/
data (trnsfrm[i], i = 351, 360) /208,208,208,209,209,209,210,210,210,211/
data (trnsfrm[i], i = 361, 370) /211,212,212,212,213,213,213,214,214,214/
data (trnsfrm[i], i = 371, 380) /215,215,215,216,216,216,217,217,217,218/
data (trnsfrm[i], i = 381, 390) /218,218,219,219,219,220,220,220,221,221/
data (trnsfrm[i], i = 391, 400) /221,221,222,222,222,223,223,223,224,224/
data (trnsfrm[i], i = 401, 410) /224,225,225,225,226,226,226,226,227,227/
data (trnsfrm[i], i = 411, 420) /227,228,228,228,229,229,229,229,230,230/
data (trnsfrm[i], i = 421, 430) /230,231,231,231,232,232,232,232,233,233/
data (trnsfrm[i], i = 431, 440) /233,234,234,234,234,235,235,235,236,236/
data (trnsfrm[i], i = 441, 450) /236,236,237,237,237,238,238,238,238,239/
data (trnsfrm[i], i = 451, 460) /239,239,240,240,240,240,241,241,241,241/
data (trnsfrm[i], i = 461, 470) /242,242,242,243,243,243,243,244,244,244/
data (trnsfrm[i], i = 471, 480) /244,245,245,245,246,246,246,246,247,247/
data (trnsfrm[i], i = 481, 490) /247,247,248,248,248,248,249,249,249,250/
data (trnsfrm[i], i = 491, 500) /250,250,250,251,251,251,251,252,252,252/
data (trnsfrm[i], i = 501, 510) /252,253,253,253,253,254,254,254,254,255/
data (trnsfrm[i], i = 511, 513) /255,255,255/

data (lkup10830[i], i = 1, 10) /50,50,50,50,50,50,50,50,50,50/
data (lkup10830[i], i = 11, 20) /50,50,50,50,50,50,50,50,50,50/
data (lkup10830[i], i = 21, 30) /50,50,50,50,50,50,50,50,50,50/
data (lkup10830[i], i = 31, 40) /51,51,51,51,51,51,51,51,51,51/
data (lkup10830[i], i = 41, 50) /51,51,51,51,51,51,51,51,51,51/
data (lkup10830[i], i = 51, 60) /51,51,51,51,51,51,51,51,51,51/
data (lkup10830[i], i = 61, 70) /51,51,51,51,51,51,51,51,51,51/
data (lkup10830[i], i = 71, 80) /51,51,51,51,51,51,51,51,51,51/
data (lkup10830[i], i = 81, 90) /51,51,51,51,51,51,51,51,51,51/
data (lkup10830[i], i = 91, 100) /51,51,51,51,51,51,51,51,51,51/
data (lkup10830[i], i = 101, 110) /51,51,51,51,51,51,51,51,51,51/
data (lkup10830[i], i = 111, 120) /51,51,51,51,51,51,51,51,51,51/
data (lkup10830[i], i = 121, 130) /51,51,51,51,51,51,51,51,51,51/
data (lkup10830[i], i = 131, 140) /51,51,51,51,51,51,51,51,51,51/
data (lkup10830[i], i = 141, 150) /51,51,51,51,51,51,51,51,51,51/
data (lkup10830[i], i = 151, 160) /51,51,51,51,51,51,51,51,51,51/
data (lkup10830[i], i = 161, 170) /51,51,51,51,51,51,51,51,51,51/
data (lkup10830[i], i = 171, 180) /51,51,51,51,51,51,51,51,51,51/
data (lkup10830[i], i = 181, 190) /51,51,51,51,51,51,51,51,51,51/
data (lkup10830[i], i = 191, 200) /51,51,51,51,51,51,51,51,51,51/
data (lkup10830[i], i = 201, 210) /51,51,51,51,51,51,51,51,51,51/
data (lkup10830[i], i = 211, 220) /51,51,51,51,51,51,51,51,51,51/
data (lkup10830[i], i = 221, 230) /51,51,51,51,51,51,51,51,51,51/
data (lkup10830[i], i = 231, 240) /51,51,52,52,52,52,52,52,52,52/
data (lkup10830[i], i = 241, 250) /52,52,52,52,52,52,52,52,52,52/
data (lkup10830[i], i = 251, 260) /52,52,52,52,52,52,52,52,52,52/
data (lkup10830[i], i = 261, 270) /52,52,52,52,52,52,52,52,52,52/
data (lkup10830[i], i = 271, 280) /52,52,52,52,52,52,52,52,52,52/
data (lkup10830[i], i = 281, 290) /52,52,52,52,52,52,52,52,52,52/
data (lkup10830[i], i = 291, 300) /52,52,52,52,52,52,52,52,52,52/
data (lkup10830[i], i = 301, 310) /52,52,52,53,53,53,53,53,53,53/
data (lkup10830[i], i = 311, 320) /53,53,53,53,53,53,53,53,53,53/
data (lkup10830[i], i = 321, 330) /53,53,53,53,53,53,53,53,53,53/
data (lkup10830[i], i = 331, 340) /53,53,53,53,53,53,53,53,53,54/
data (lkup10830[i], i = 341, 350) /54,54,54,54,54,54,54,54,54,54/
data (lkup10830[i], i = 351, 360) /54,54,54,54,54,54,54,54,54,54/
data (lkup10830[i], i = 361, 370) /54,54,54,54,54,55,55,55,55,55/
data (lkup10830[i], i = 371, 380) /55,55,55,55,55,55,55,55,55,55/
data (lkup10830[i], i = 381, 390) /55,55,55,55,55,55,55,56,56,56/
data (lkup10830[i], i = 391, 400) /56,56,56,56,56,56,56,56,56,56/
data (lkup10830[i], i = 401, 410) /56,56,56,56,56,57,57,57,57,57/
data (lkup10830[i], i = 411, 420) /57,57,57,57,57,57,57,57,57,57/
data (lkup10830[i], i = 421, 430) /57,57,58,58,58,58,58,58,58,58/
data (lkup10830[i], i = 431, 440) /58,58,58,58,58,58,58,59,59,59/
data (lkup10830[i], i = 441, 450) /59,59,59,59,59,59,59,59,59,59/
data (lkup10830[i], i = 451, 460) /59,60,60,60,60,60,60,60,60,60/
data (lkup10830[i], i = 461, 470) /60,60,60,60,60,61,61,61,61,61/
data (lkup10830[i], i = 471, 480) /61,61,61,61,61,61,61,62,62,62/
data (lkup10830[i], i = 481, 490) /62,62,62,62,62,62,62,62,62,63/
data (lkup10830[i], i = 491, 500) /63,63,63,63,63,63,63,63,63,63/
data (lkup10830[i], i = 501, 510) /63,64,64,64,64,64,64,64,64,64/
data (lkup10830[i], i = 511, 520) /64,64,65,65,65,65,65,65,65,65/
data (lkup10830[i], i = 521, 530) /65,65,65,66,66,66,66,66,66,66/
data (lkup10830[i], i = 531, 540) /66,66,66,67,67,67,67,67,67,67/
data (lkup10830[i], i = 541, 550) /67,67,67,67,68,68,68,68,68,68/
data (lkup10830[i], i = 551, 560) /68,68,68,68,69,69,69,69,69,69/
data (lkup10830[i], i = 561, 570) /69,69,69,70,70,70,70,70,70,70/
data (lkup10830[i], i = 571, 580) /70,70,70,71,71,71,71,71,71,71/
data (lkup10830[i], i = 581, 590) /71,71,72,72,72,72,72,72,72,72/
data (lkup10830[i], i = 591, 600) /72,73,73,73,73,73,73,73,73,73/
data (lkup10830[i], i = 601, 610) /74,74,74,74,74,74,74,74,74,75/
data (lkup10830[i], i = 611, 620) /75,75,75,75,75,75,75,75,76,76/
data (lkup10830[i], i = 621, 630) /76,76,76,76,76,76,77,77,77,77/
data (lkup10830[i], i = 631, 640) /77,77,77,77,78,78,78,78,78,78/
data (lkup10830[i], i = 641, 650) /78,78,78,79,79,79,79,79,79,79/
data (lkup10830[i], i = 651, 660) /79,80,80,80,80,80,80,80,80,81/
data (lkup10830[i], i = 661, 670) /81,81,81,81,81,81,81,82,82,82/
data (lkup10830[i], i = 671, 680) /82,82,82,82,82,83,83,83,83,83/
data (lkup10830[i], i = 681, 690) /83,83,83,84,84,84,84,84,84,84/
data (lkup10830[i], i = 691, 700) /85,85,85,85,85,85,85,85,86,86/
data (lkup10830[i], i = 701, 710) /86,86,86,86,86,86,87,87,87,87/
data (lkup10830[i], i = 711, 720) /87,87,87,88,88,88,88,88,88,88/
data (lkup10830[i], i = 721, 730) /88,89,89,89,89,89,89,89,90,90/
data (lkup10830[i], i = 731, 740) /90,90,90,90,90,91,91,91,91,91/
data (lkup10830[i], i = 741, 750) /91,91,91,92,92,92,92,92,92,92/
data (lkup10830[i], i = 751, 760) /93,93,93,93,93,93,93,94,94,94/
data (lkup10830[i], i = 761, 770) /94,94,94,95,95,95,95,95,95,95/
data (lkup10830[i], i = 771, 780) /96,96,96,96,96,96,97,97,97,97/
data (lkup10830[i], i = 781, 790) /97,97,98,98,98,98,98,98,99,99/
data (lkup10830[i], i = 791, 800) /99,99,99,99,100,100,100,100,100,101/
data (lkup10830[i], i = 801, 810) /101,101,101,101,101,102,102,102,102,102/
data (lkup10830[i], i = 811, 820) /103,103,103,103,103,104,104,104,104,104/
data (lkup10830[i], i = 821, 830) /105,105,105,105,106,106,106,106,106,107/
data (lkup10830[i], i = 831, 840) /107,107,107,108,108,108,108,108,109,109/
data (lkup10830[i], i = 841, 850) /109,109,110,110,110,110,111,111,111,111/
data (lkup10830[i], i = 851, 860) /112,112,112,113,113,113,113,114,114,114/
data (lkup10830[i], i = 861, 870) /114,115,115,115,116,116,116,116,117,117/
data (lkup10830[i], i = 871, 880) /117,118,118,118,118,119,119,119,120,120/
data (lkup10830[i], i = 881, 890) /120,121,121,121,122,122,122,123,123,123/
data (lkup10830[i], i = 891, 900) /124,124,124,125,125,125,126,126,126,127/
data (lkup10830[i], i = 901, 910) /127,128,128,128,129,129,129,130,130,131/
data (lkup10830[i], i = 911, 920) /131,131,132,132,132,133,133,134,134,135/
data (lkup10830[i], i = 921, 930) /135,135,136,136,137,137,137,138,138,139/
data (lkup10830[i], i = 931, 940) /139,140,140,141,141,141,142,142,143,143/
data (lkup10830[i], i = 941, 950) /144,144,145,145,146,146,147,147,148,148/
data (lkup10830[i], i = 951, 960) /149,149,150,150,151,151,152,152,153,153/
data (lkup10830[i], i = 961, 970) /154,154,155,155,156,156,157,158,158,159/
data (lkup10830[i], i = 971, 980) /159,160,160,161,162,162,163,163,164,164/
data (lkup10830[i], i = 981, 990) /165,166,166,167,167,168,169,169,170,171/
data (lkup10830[i], i = 991, 1000) /171,172,173,173,174,174,175,176,176,177/
data (lkup10830[i], i = 1001, 1010) /178,178,179,180,180,181,182,183,183,184/
data (lkup10830[i], i = 1011, 1020) /185,185,186,187,187,188,189,190,190,191/
data (lkup10830[i], i = 1021, 1030) /192,193,193,194,195,196,196,197,198,199/
data (lkup10830[i], i = 1031, 1040) /200,200,201,202,203,203,204,205,206,207/
data (lkup10830[i], i = 1041, 1050) /208,208,209,210,211,212,213,213,214,215/
data (lkup10830[i], i = 1051, 1060) /216,217,218,219,220,220,221,222,223,224/
data (lkup10830[i], i = 1061, 1070) /225,226,227,228,229,230,230,231,232,233/
data (lkup10830[i], i = 1071, 1080) /234,235,236,237,238,239,240,241,242,243/
data (lkup10830[i], i = 1081, 1090) /244,245,246,247,248,249,250,251,252,253/
data (lkup10830[i], i = 1091, 1091) /254/