1 #include "astro.h" 2 3 double sunfp[] = 4 { 5 -.265, 0, 6 3.760, 0, 7 .200, 0, 8 0, 9 10 -.021, 0, 11 5.180, 0, 12 1.882, 3.8991, 13 -.030, 0, 14 0, 15 16 0.075, 5.1766, 17 4.838, 5.2203, 18 0.074, 3.6285, 19 0.116, 2.5988, 20 5.526, 2.5885, 21 2.497, 5.5143, 22 0.044, 5.4350, 23 0.666, 3.1016, 24 1.559, 6.0258, 25 1.024, 5.5527, 26 0.210, 3.5989, 27 0.144, 3.4104, 28 0.152, 6.0004, 29 0.084, 4.1120, 30 0.037, 3.8711, 31 0.123, 3.4086, 32 0.154, 6.2762, 33 0.038, 4.6094, 34 0.020, 5.1313, 35 0.042, 4.5239, 36 0.032, 0.8517, 37 0.273, 3.7996, 38 0.048, 4.5431, 39 0.041, 6.0388, 40 2.043, 6.0020, 41 1.770, 3.4977, 42 0.028, 2.5831, 43 0.129, 5.1348, 44 0.425, 5.9146, 45 0.034, 1.2391, 46 0.500, 1.8357, 47 0.585, 5.8304, 48 0.085, 0.9529, 49 0.204, 1.7593, 50 0.020, 3.2463, 51 0.154, 3.9689, 52 0.101, 1.6808, 53 0.049, 3.0805, 54 0.106, 3.8868, 55 0.052, 6.0895, 56 0.021, 3.7559, 57 0.028, 5.2011, 58 0.062, 6.0388, 59 0.044, 1.8483, 60 0.045, 3.9759, 61 0.021, 5.3931, 62 0.026, 1.9722, 63 0.163, 3.4662, 64 7.208, 3.1334, 65 2.600, 4.5940, 66 0.073, 4.8223, 67 0.069, 1.4102, 68 2.731, 1.5210, 69 1.610, 1.9110, 70 0.073, 4.4087, 71 0.164, 2.9758, 72 0.556, 1.4425, 73 0.210, 1.7261, 74 0.044, 2.9356, 75 0.080, 1.3561, 76 0.419, 1.7555, 77 0.320, 4.7030, 78 0.108, 5.0719, 79 0.112, 5.1243, 80 0.021, 5.0440, 81 0, 82 83 6.454, 0, 84 0.177, 0, 85 -.424, 0, 86 0.039, 0, 87 -.064, 0, 88 0.172, 0, 89 0, 90 91 -.092, 1.6354, 92 -.067, 2.1468, 93 -.210, 2.6494, 94 -.166, 4.6338, 95 0, 96 97 0.576, 0, 98 -.047, 0, 99 0.021, 0, 100 0, 101 102 2.359e-6, 3.6607, 103 6.842e-6, 1.0180, 104 0.869e-6, 3.9567, 105 1.045e-6, 1.5332, 106 1.497e-6, 4.4691, 107 0.376e-6, 2.0295, 108 2.057e-6, 4.0941, 109 0.215e-6, 4.3459, 110 0.478e-6, 0.2648, 111 0.208e-6, 1.9548, 112 7.067e-6, 1.5630, 113 0.244e-6, 5.9097, 114 4.026e-6, 6.2526, 115 1.459e-6, 0.3409, 116 0.281e-6, 1.4172, 117 0.803e-6, 6.1533, 118 0.429e-6, 0.1850, 119 0, 120 121 13.36e-6, 0, 122 -1.33e-6, 0, 123 0.37e-6, 0, 124 0.36e-6, 0, 125 0, 126 }; 127 char suncp[] = 128 { 129 4, -7, 3, 0, 130 -8, 4, 0, 3, 131 15, -8, 0, 0, 132 133 4, -7, 3, 0, 0, 134 -8, 4, 0, 3, 0, 135 0, 13, -8, 0, 1, 136 15, -8, 0, 0, 0, 137 138 0,0,1,0,0, 139 0,-1,1,0,0, 140 0,-2,1,0,0, 141 0,-1,2,0,0, 142 0,-2,2,0,0, 143 0,-3,2,0,0, 144 0,-4,2,0,0, 145 0,-3,3,0,0, 146 0,-4,3,0,0, 147 0,-5,3,0,0, 148 0,-4,4,0,0, 149 0,-5,4,0,0, 150 0,-6,4,0,0, 151 0,-5,5,0,0, 152 0,-6,5,0,0, 153 0,-7,5,0,0, 154 0,-8,5,0,0, 155 0,-6,6,0,0, 156 0,-7,7,0,0, 157 0,-12,8,0,0, 158 0,-14,8,0,0, 159 -1,1,0,0,0, 160 -1,0,0,0,0, 161 -2,3,0,0,0, 162 -2,2,0,0,0, 163 -2,1,0,0,0, 164 -2,0,0,0,0, 165 -3,3,0,0,0, 166 -3,2,0,0,0, 167 -4,4,0,0,0, 168 -4,3,0,0,0, 169 -4,2,0,0,0, 170 -5,4,0,0,0, 171 -5,3,0,0,0, 172 -6,5,0,0,0, 173 -6,4,0,0,0, 174 -6,3,0,0,0, 175 -7,5,0,0,0, 176 -7,4,0,0,0, 177 -8,5,0,0,0, 178 -8,4,0,0,0, 179 -9,6,0,0,0, 180 -9,5,0,0,0, 181 -11,6,0,0,0, 182 -13,7,0,0,0, 183 -15,9,0,0,0, 184 -17,9,0,0,0, 185 0,2,0,-1,0, 186 0,1,0,-1,0, 187 0,0,0,-1,0, 188 0,-1,0,-1,0, 189 0,3,0,-2,0, 190 0,2,0,-2,0, 191 0,1,0,-2,0, 192 0,0,0,-2,0, 193 0,3,0,-3,0, 194 0,2,0,-3,0, 195 0,1,0,-3,0, 196 0,3,0,-4,0, 197 0,2,0,-4,0, 198 0,1,0,0,-1, 199 0,0,0,0,-1, 200 0,2,0,0,-2, 201 0,1,0,0,-2, 202 0,2,0,0,-3, 203 204 1,0,0, 205 1,1,0, 206 1,-1,0, 207 3,-1,0, 208 1,0,1, 209 1,0,-1, 210 211 -2,1,0, 212 -3,2,0, 213 -4,2,0, 214 1,0,-2, 215 216 1,0,0, 217 1,-1,0, 218 -1,0,2, 219 220 0,-1,1,0,0, 221 0,-2,2,0,0, 222 0,-3,2,0,0, 223 0,-3,3,0,0, 224 0,-4,3,0,0, 225 0,-4,4,0,0, 226 -2,2,0,0,0, 227 -3,2,0,0,0, 228 -4,3,0,0,0, 229 0,2,0,-1,0, 230 0,1,0,-1,0, 231 0,0,0,-1,0, 232 0,2,0,-2,0, 233 0,1,0,-2,0, 234 0,3,0,-3,0, 235 0,2,0,-3,0, 236 0,1,0,0,-1, 237 238 1,0,0, 239 1,-1,0, 240 1,1,0, 241 1,0,-1, 242 }; 243