Blob
1 #include "astro.h"3 double sunfp[] =4 {5 -.265, 0,6 3.760, 0,7 .200, 0,8 0,10 -.021, 0,11 5.180, 0,12 1.882, 3.8991,13 -.030, 0,14 0,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,83 6.454, 0,84 0.177, 0,85 -.424, 0,86 0.039, 0,87 -.064, 0,88 0.172, 0,89 0,91 -.092, 1.6354,92 -.067, 2.1468,93 -.210, 2.6494,94 -.166, 4.6338,95 0,97 0.576, 0,98 -.047, 0,99 0.021, 0,100 0,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,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,133 4, -7, 3, 0, 0,134 -8, 4, 0, 3, 0,135 0, 13, -8, 0, 1,136 15, -8, 0, 0, 0,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,204 1,0,0,205 1,1,0,206 1,-1,0,207 3,-1,0,208 1,0,1,209 1,0,-1,211 -2,1,0,212 -3,2,0,213 -4,2,0,214 1,0,-2,216 1,0,0,217 1,-1,0,218 -1,0,2,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,238 1,0,0,239 1,-1,0,240 1,1,0,241 1,0,-1,242 };