00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026 #include "stdafx.h"
00027 #include "sh.h"
00028
00029
00030 void SHRotateXMinus(const Spectrum *c_in, Spectrum *c_out, int lmax) {
00031
00032
00033 SHRotateXPlus(c_in, c_out, lmax);
00034
00035
00036 for (int l = 1; l <= lmax; ++l) {
00037 float s = (l & 0x1) ? -1.f : 1.f;
00038 c_out[SHIndex(l, 0)] *= s;
00039 for (int m = 1; m <= l; ++m) {
00040 s = -s;
00041 c_out[SHIndex(l, m)] *= s;
00042 c_out[SHIndex(l, -m)] *= -s;
00043 }
00044 }
00045 }
00046
00047
00048 void SHRotateXPlus(const Spectrum *c_in, Spectrum *c_out, int lmax) {
00049 #define O(l, m) c_in[SHIndex(l, m)]
00050
00051
00052 *c_out++ = c_in[0];
00053
00054 if (lmax < 1) return;
00055 *c_out++ = (O(1,0));
00056 *c_out++ = (-1.*O(1,-1));
00057 *c_out++ = (O(1,1));
00058
00059 if (lmax < 2) return;
00060 *c_out++ = (O(2,1));
00061 *c_out++ = (-1.*O(2,-1));
00062 *c_out++ = (-0.5*O(2,0) - 0.8660254037844386*O(2,2));
00063 *c_out++ = (-1.*O(2,-2));
00064 *c_out++ = (-0.8660254037844386*O(2,0) + 0.5*O(2,2));
00065
00066
00067 if (lmax < 3) return;
00068 *c_out++ = (-0.7905694150420949*O(3,0) + 0.6123724356957945*O(3,2));
00069 *c_out++ = (-1.*O(3,-2));
00070 *c_out++ = (-0.6123724356957945*O(3,0) - 0.7905694150420949*O(3,2));
00071 *c_out++ = (0.7905694150420949*O(3,-3) + 0.6123724356957945*O(3,-1));
00072 *c_out++ = (-0.25*O(3,1) - 0.9682458365518543*O(3,3));
00073 *c_out++ = (-0.6123724356957945*O(3,-3) + 0.7905694150420949*O(3,-1));
00074 *c_out++ = (-0.9682458365518543*O(3,1) + 0.25*O(3,3));
00075
00076 if (lmax < 4) return;
00077 *c_out++ = (-0.9354143466934853*O(4,1) + 0.35355339059327373*O(4,3));
00078 *c_out++ = (-0.75*O(4,-3) + 0.6614378277661477*O(4,-1));
00079 *c_out++ = (-0.35355339059327373*O(4,1) - 0.9354143466934853*O(4,3));
00080 *c_out++ = (0.6614378277661477*O(4,-3) + 0.75*O(4,-1));
00081 *c_out++ = (0.375*O(4,0) + 0.5590169943749475*O(4,2) + 0.739509972887452*O(4,4));
00082 *c_out++ = (0.9354143466934853*O(4,-4) + 0.35355339059327373*O(4,-2));
00083 *c_out++ = (0.5590169943749475*O(4,0) + 0.5*O(4,2) - 0.6614378277661477*O(4,4));
00084 *c_out++ = (-0.35355339059327373*O(4,-4) + 0.9354143466934853*O(4,-2));
00085 *c_out++ = (0.739509972887452*O(4,0) - 0.6614378277661477*O(4,2) + 0.125*O(4,4));
00086
00087 if (lmax < 5) return;
00088 *c_out++ = (0.701560760020114*O(5,0) - 0.6846531968814576*O(5,2) +
00089 0.19764235376052372*O(5,4));
00090 *c_out++ = (-0.5*O(5,-4) + 0.8660254037844386*O(5,-2));
00091 *c_out++ = (0.5229125165837972*O(5,0) + 0.30618621784789724*O(5,2) -
00092 0.795495128834866*O(5,4));
00093 *c_out++ = (0.8660254037844386*O(5,-4) + 0.5*O(5,-2));
00094 *c_out++ = (0.4841229182759271*O(5,0) + 0.6614378277661477*O(5,2) +
00095 0.57282196186948*O(5,4));
00096 *c_out++ = (-0.701560760020114*O(5,-5) - 0.5229125165837972*O(5,-3) -
00097 0.4841229182759271*O(5,-1));
00098 *c_out++ = (0.125*O(5,1) + 0.4050462936504913*O(5,3) + 0.9057110466368399*O(5,5));
00099 *c_out++ = (0.6846531968814576*O(5,-5) - 0.30618621784789724*O(5,-3) -
00100 0.6614378277661477*O(5,-1));
00101 *c_out++ = (0.4050462936504913*O(5,1) + 0.8125*O(5,3) - 0.4192627457812106*O(5,5));
00102 *c_out++ = (-0.19764235376052372*O(5,-5) + 0.795495128834866*O(5,-3) -
00103 0.57282196186948*O(5,-1));
00104 *c_out++ = (0.9057110466368399*O(5,1) - 0.4192627457812106*O(5,3) + 0.0625*O(5,5));
00105
00106 if (lmax < 6) return;
00107 *c_out++ = (0.879452954966893*O(6,1) - 0.46351240544347894*O(6,3) +
00108 0.10825317547305482*O(6,5));
00109 *c_out++ = (-0.3125*O(6,-5) + 0.8028270361665706*O(6,-3) - 0.5077524002897476*O(6,-1));
00110 *c_out++ = (0.4330127018922193*O(6,1) + 0.6846531968814576*O(6,3) -
00111 0.5863019699779287*O(6,5));
00112 *c_out++ = (0.8028270361665706*O(6,-5) - 0.0625*O(6,-3) - 0.5929270612815711*O(6,-1));
00113 *c_out++ = (0.19764235376052372*O(6,1) + 0.5625*O(6,3) + 0.8028270361665706*O(6,5));
00114 *c_out++ = (-0.5077524002897476*O(6,-5) - 0.5929270612815711*O(6,-3) -
00115 0.625*O(6,-1));
00116 *c_out++ = (-0.3125*O(6,0) - 0.45285552331841994*O(6,2) - 0.49607837082461076*O(6,4) -
00117 0.6716932893813962*O(6,6));
00118 *c_out++ = (-0.879452954966893*O(6,-6) - 0.4330127018922193*O(6,-4) -
00119 0.19764235376052372*O(6,-2));
00120 *c_out++ = (-0.45285552331841994*O(6,0) - 0.53125*O(6,2) - 0.1711632992203644*O(6,4) +
00121 0.6952686081652184*O(6,6));
00122 *c_out++ = (0.46351240544347894*O(6,-6) - 0.6846531968814576*O(6,-4) -
00123 0.5625*O(6,-2));
00124 *c_out++ = (-0.49607837082461076*O(6,0) - 0.1711632992203644*O(6,2) +
00125 0.8125*O(6,4) - 0.2538762001448738*O(6,6));
00126 *c_out++ = (-0.10825317547305482*O(6,-6) + 0.5863019699779287*O(6,-4) -
00127 0.8028270361665706*O(6,-2));
00128 *c_out++ = (-0.6716932893813962*O(6,0) + 0.6952686081652184*O(6,2) -
00129 0.2538762001448738*O(6,4) + 0.03125*O(6,6));
00130
00131 if (lmax < 7) return;
00132 *c_out++ = (-0.6472598492877494*O(7,0) + 0.6991205412874092*O(7,2) -
00133 0.2981060004427955*O(7,4) + 0.05846339666834283*O(7,6));
00134 *c_out++ = (-0.1875*O(7,-6) + 0.6373774391990981*O(7,-4) - 0.7473912964438374*O(7,-2));
00135 *c_out++ = (-0.47495887979908324*O(7,0) - 0.07328774624724109*O(7,2) +
00136 0.78125*O(7,4) - 0.3983608994994363*O(7,6));
00137 *c_out++ = (0.6373774391990981*O(7,-6) - 0.5*O(7,-4) - 0.5863019699779287*O(7,-2));
00138 *c_out++ = (-0.42961647140211*O(7,0) - 0.41984465132951254*O(7,2) +
00139 0.10364452469860624*O(7,4) + 0.7927281808728639*O(7,6));
00140 *c_out++ = (-0.7473912964438374*O(7,-6) - 0.5863019699779287*O(7,-4) -
00141 0.3125*O(7,-2));
00142 *c_out++ = (-0.41339864235384227*O(7,0) - 0.5740991584648073*O(7,2) -
00143 0.5385527481129402*O(7,4) - 0.4576818286211503*O(7,6));
00144 *c_out++ = (0.6472598492877494*O(7,-7) + 0.47495887979908324*O(7,-5) +
00145 0.42961647140211*O(7,-3) + 0.41339864235384227*O(7,-1));
00146 *c_out++ = (-0.078125*O(7,1) - 0.24356964481437335*O(7,3) - 0.4487939567607835*O(7,5) -
00147 0.8562442974262661*O(7,7));
00148 *c_out++ = (-0.6991205412874092*O(7,-7) + 0.07328774624724109*O(7,-5) +
00149 0.41984465132951254*O(7,-3) + 0.5740991584648073*O(7,-1));
00150 *c_out++ = (-0.24356964481437335*O(7,1) - 0.609375*O(7,3) - 0.5700448858423344*O(7,5) +
00151 0.4943528756111367*O(7,7));
00152 *c_out++ = (0.2981060004427955*O(7,-7) - 0.78125*O(7,-5) - 0.10364452469860624*O(7,-3) +
00153 0.5385527481129402*O(7,-1));
00154 *c_out++ = (-0.4487939567607835*O(7,1) - 0.5700448858423344*O(7,3) + 0.671875*O(7,5) -
00155 0.14905300022139775*O(7,7));
00156 *c_out++ = (-0.05846339666834283*O(7,-7) + 0.3983608994994363*O(7,-5) -
00157 0.7927281808728639*O(7,-3) + 0.4576818286211503*O(7,-1));
00158 *c_out++ = (-0.8562442974262661*O(7,1) + 0.4943528756111367*O(7,3) -
00159 0.14905300022139775*O(7,5) + 0.015625*O(7,7));
00160
00161 if (lmax < 8) return;
00162 *c_out++ = (-0.8356088723200586*O(8,1) + 0.516334738808072*O(8,3) -
00163 0.184877493221863*O(8,5) + 0.03125*O(8,7));
00164 *c_out++ = (-0.109375*O(8,-7) + 0.4621937330546575*O(8,-5) - 0.774502108212108*O(8,-3) +
00165 0.4178044361600293*O(8,-1));
00166 *c_out++ = (-0.4576818286211503*O(8,1) - 0.47134697278119864*O(8,3) +
00167 0.7088310138883598*O(8,5) - 0.2567449488305466*O(8,7));
00168 *c_out++ = (0.4621937330546575*O(8,-7) - 0.703125*O(8,-5) - 0.2181912506838897*O(8,-3) +
00169 0.4943528756111367*O(8,-1));
00170 *c_out++ = (-0.27421763710600383*O(8,1) - 0.6051536478449089*O(8,3) -
00171 0.33802043207474897*O(8,5) + 0.6665852814906732*O(8,7));
00172 *c_out++ = (-0.774502108212108*O(8,-7) - 0.2181912506838897*O(8,-5) +
00173 0.265625*O(8,-3) + 0.5310201708739509*O(8,-1));
00174 *c_out++ = (-0.1307281291459493*O(8,1) - 0.38081430021731066*O(8,3) -
00175 0.5908647000371574*O(8,5) - 0.6991205412874092*O(8,7));
00176 *c_out++ = (0.4178044361600293*O(8,-7) + 0.4943528756111367*O(8,-5) +
00177 0.5310201708739509*O(8,-3) + 0.546875*O(8,-1));
00178 *c_out++ = (0.2734375*O(8,0) + 0.3921843874378479*O(8,2) + 0.4113264556590057*O(8,4) +
00179 0.4576818286211503*O(8,6) + 0.626706654240044*O(8,8));
00180 *c_out++ = (0.8356088723200586*O(8,-8) + 0.4576818286211503*O(8,-6) +
00181 0.27421763710600383*O(8,-4) + 0.1307281291459493*O(8,-2));
00182 *c_out++ = (0.3921843874378479*O(8,0) + 0.5*O(8,2) + 0.32775276505317236*O(8,4) -
00183 0.6991205412874092*O(8,8));
00184 *c_out++ = (-0.516334738808072*O(8,-8) + 0.47134697278119864*O(8,-6) +
00185 0.6051536478449089*O(8,-4) + 0.38081430021731066*O(8,-2));
00186 *c_out++ = (0.4113264556590057*O(8,0) + 0.32775276505317236*O(8,2) -
00187 0.28125*O(8,4) - 0.7302075903467452*O(8,6) + 0.3332926407453366*O(8,8));
00188 *c_out++ = (0.184877493221863*O(8,-8) - 0.7088310138883598*O(8,-6) +
00189 0.33802043207474897*O(8,-4) + 0.5908647000371574*O(8,-2));
00190 *c_out++ = (0.4576818286211503*O(8,0) - 0.7302075903467452*O(8,4) + 0.5*O(8,6) -
00191 0.0855816496101822*O(8,8));
00192 *c_out++ = (-0.03125*O(8,-8) + 0.2567449488305466*O(8,-6) - 0.6665852814906732*O(8,-4) +
00193 0.6991205412874092*O(8,-2));
00194 *c_out++ = (0.626706654240044*O(8,0) - 0.6991205412874092*O(8,2) +
00195 0.3332926407453366*O(8,4) - 0.0855816496101822*O(8,6) + 0.0078125*O(8,8));
00196
00197 if (lmax < 9) return;
00198 *c_out++ = (0.6090493921755238*O(9,0) - 0.6968469725305549*O(9,2) +
00199 0.3615761395439417*O(9,4) - 0.11158481919598204*O(9,6) + 0.016572815184059706*O(9,8));
00200 *c_out++ = (-0.0625*O(9,-8) + 0.3156095293238149*O(9,-6) - 0.6817945071647321*O(9,-4) +
00201 0.656993626300895*O(9,-2));
00202 *c_out++ = (0.44314852502786806*O(9,0) - 0.05633673867912483*O(9,2) - 0.6723290616859425*O(9,4) +
00203 0.5683291712335379*O(9,6) - 0.1594400908746762*O(9,8));
00204 *c_out++ = (0.3156095293238149*O(9,-8) - 0.71875*O(9,-6) + 0.20252314682524564*O(9,-4) +
00205 0.5854685623498499*O(9,-2));
00206 *c_out++ = (0.39636409043643195*O(9,0) + 0.25194555463432966*O(9,2) - 0.3921843874378479*O(9,4) -
00207 0.6051536478449089*O(9,6) + 0.509312687906457*O(9,8));
00208 *c_out++ = (-0.6817945071647321*O(9,-8) + 0.20252314682524564*O(9,-6) + 0.5625*O(9,-4) +
00209 0.4215855488510013*O(9,-2));
00210 *c_out++ = (0.3754879637718099*O(9,0) + 0.42961647140211*O(9,2) + 0.13799626353637262*O(9,4) -
00211 0.2981060004427955*O(9,6) - 0.7526807559068452*O(9,8));
00212 *c_out++ = (0.656993626300895*O(9,-8) + 0.5854685623498499*O(9,-6) + 0.4215855488510013*O(9,-4) +
00213 0.21875*O(9,-2));
00214 *c_out++ = (0.36685490255855924*O(9,0) + 0.5130142237306876*O(9,2) + 0.4943528756111367*O(9,4) +
00215 0.4576818286211503*O(9,6) + 0.38519665736315783*O(9,8));
00216 *c_out++ = (-0.6090493921755238*O(9,-9) - 0.44314852502786806*O(9,-7) - 0.39636409043643195*O(9,-5) -
00217 0.3754879637718099*O(9,-3) - 0.36685490255855924*O(9,-1));
00218 *c_out++ = (0.0546875*O(9,1) + 0.16792332234534904*O(9,3) + 0.2954323500185787*O(9,5) +
00219 0.4624247721758373*O(9,7) + 0.8171255055356398*O(9,9));
00220 *c_out++ = (0.6968469725305549*O(9,-9) + 0.05633673867912483*O(9,-7) - 0.25194555463432966*O(9,-5) -
00221 0.42961647140211*O(9,-3) - 0.5130142237306876*O(9,-1));
00222 *c_out++ = (0.16792332234534904*O(9,1) + 0.453125*O(9,3) + 0.577279787559724*O(9,5) +
00223 0.387251054106054*O(9,7) - 0.5322256665703469*O(9,9));
00224 *c_out++ = (-0.3615761395439417*O(9,-9) + 0.6723290616859425*O(9,-7) + 0.3921843874378479*O(9,-5) -
00225 0.13799626353637262*O(9,-3) - 0.4943528756111367*O(9,-1));
00226 *c_out++ = (0.2954323500185787*O(9,1) + 0.577279787559724*O(9,3) + 0.140625*O(9,5) -
00227 0.7162405240429014*O(9,7) + 0.21608307321780204*O(9,9));
00228 *c_out++ = (0.11158481919598204*O(9,-9) - 0.5683291712335379*O(9,-7) + 0.6051536478449089*O(9,-5) +
00229 0.2981060004427955*O(9,-3) - 0.4576818286211503*O(9,-1));
00230 *c_out++ = (0.4624247721758373*O(9,1) + 0.387251054106054*O(9,3) - 0.7162405240429014*O(9,5) +
00231 0.34765625*O(9,7) - 0.048317644050206957*O(9,9));
00232 *c_out++ = (-0.016572815184059706*O(9,-9) + 0.1594400908746762*O(9,-7) - 0.509312687906457*O(9,-5) +
00233 0.7526807559068452*O(9,-3) - 0.38519665736315783*O(9,-1));
00234 *c_out++ = (0.8171255055356398*O(9,1) - 0.5322256665703469*O(9,3) + 0.21608307321780204*O(9,5) -
00235 0.048317644050206957*O(9,7) + 0.00390625*O(9,9));
00236 Assert(lmax < 10);
00237
00238 #if 0
00239 if (lmax < 10) return;
00240 *c_out++ = (0.800447720175637*O(10,1) - 0.5437971423529642*O(10,3) + 0.24319347525427157*O(10,5) -
00241 0.06594508990677396*O(10,7) + 0.008734640537108554*O(10,9));
00242 *c_out++ = (-0.03515625*O(10,-9) + 0.20644078533943455*O(10,-7) - 0.5437971423529642*O(10,-5) +
00243 0.7295804257628147*O(10,-3) - 0.35797110294949086*O(10,-1));
00244 *c_out++ = (0.4645646483537033*O(10,1) + 0.3156095293238149*O(10,3) - 0.7057243619147634*O(10,5) +
00245 0.4210060495408587*O(10,7) - 0.09631896879639025*O(10,9));
00246 *c_out++ = (0.20644078533943455*O(10,-9) - 0.62890625*O(10,-7) + 0.5041938375082048*O(10,-5) +
00247 0.3543293897015177*O(10,-3) - 0.4267298778757763*O(10,-1));
00248 *c_out++ = (0.31049159295683837*O(10,1) + 0.5390625*O(10,3) - 0.017469281074217108*O(10,5) -
00249 0.6925528980529664*O(10,7) + 0.36479021288140734*O(10,9));
00250 *c_out++ = (-0.5437971423529642*O(10,-9) + 0.5041938375082048*O(10,-7) + 0.484375*O(10,-5) -
00251 0.034938562148434216*O(10,-3) - 0.46285353886245695*O(10,-1));
00252 *c_out++ = (0.19515618744994995*O(10,1) + 0.48613591206575135*O(10,3) + 0.4941058844013093*O(10,5) +
00253 0.09110862335695782*O(10,7) - 0.6878550219704731*O(10,9));
00254 *c_out++ = (0.7295804257628147*O(10,-9) + 0.3543293897015177*O(10,-7) - 0.034938562148434216*O(10,-5) -
00255 0.328125*O(10,-3) - 0.4829869223773042*O(10,-1));
00256 *c_out++ = (0.09472152853892297*O(10,1) + 0.2788526296496054*O(10,3) + 0.44538102542935076*O(10,5) +
00257 0.5748694230132831*O(10,7) + 0.6200241379499873*O(10,9));
00258 *c_out++ = (-0.35797110294949086*O(10,-9) - 0.4267298778757763*O(10,-7) - 0.46285353886245695*O(10,-5) -
00259 0.4829869223773042*O(10,-3) - 0.4921875*O(10,-1));
00260 *c_out++ = (-0.24609375*O(10,0) - 0.3512368283228746*O(10,2) - 0.3618292555284191*O(10,4) -
00261 0.3837778803237379*O(10,6) - 0.4306629552848579*O(10,8) - 0.5936279171365733*O(10,10));
00262 *c_out++ = (-0.800447720175637*O(10,-10) - 0.4645646483537033*O(10,-8) - 0.31049159295683837*O(10,-6) -
00263 0.19515618744994995*O(10,-4) - 0.09472152853892297*O(10,-2));
00264 *c_out++ = (-0.3512368283228746*O(10,0) - 0.46484375*O(10,2) - 0.36618880141431137*O(10,4) -
00265 0.18922142726223223*O(10,6) + 0.10058119679362292*O(10,8) + 0.6932080600734395*O(10,10));
00266 *c_out++ = (0.5437971423529642*O(10,-10) - 0.3156095293238149*O(10,-8) - 0.5390625*O(10,-6) -
00267 0.48613591206575135*O(10,-4) - 0.2788526296496054*O(10,-2));
00268 *c_out++ = (-0.3618292555284191*O(10,0) - 0.36618880141431137*O(10,2) + 0.015625*O(10,4) +
00269 0.4585145534256519*O(10,6) + 0.6137165055779013*O(10,8) - 0.38452264694764726*O(10,10));
00270 *c_out++ = (-0.24319347525427157*O(10,-10) + 0.7057243619147634*O(10,-8) + 0.017469281074217108*O(10,-6) -
00271 0.4941058844013093*O(10,-4) - 0.44538102542935076*O(10,-2));
00272 *c_out++ = (-0.3837778803237379*O(10,0) - 0.18922142726223223*O(10,2) + 0.4585145534256519*O(10,4) +
00273 0.462890625*O(10,6) - 0.6114934630648914*O(10,8) + 0.13594928558824104*O(10,10));
00274 *c_out++ = (0.06594508990677396*O(10,-10) - 0.4210060495408587*O(10,-8) + 0.6925528980529664*O(10,-6) -
00275 0.09110862335695782*O(10,-4) - 0.5748694230132831*O(10,-2));
00276 *c_out++ = (-0.4306629552848579*O(10,0) + 0.10058119679362292*O(10,2) + 0.6137165055779013*O(10,4) -
00277 0.6114934630648914*O(10,6) + 0.23046875*O(10,8) - 0.026921970218926214*O(10,10));
00278 *c_out++ = (-0.008734640537108554*O(10,-10) + 0.09631896879639025*O(10,-8) - 0.36479021288140734*O(10,-6) +
00279 0.6878550219704731*O(10,-4) - 0.6200241379499873*O(10,-2));
00280 *c_out++ = (-0.5936279171365733*O(10,0) + 0.6932080600734395*O(10,2) - 0.38452264694764726*O(10,4) +
00281 0.13594928558824104*O(10,6) - 0.026921970218926214*O(10,8) + 0.001953125*O(10,10));
00282 #endif
00283 #undef O
00284 }
00285
00286
00287 #if 0
00288 void SHSwapYZ(const Spectrum *c_in, Spectrum *c_out, int lmax) {
00289 for (int i = 0; i < SHTerms(lmax); ++i)
00290 c_out[i] = 0.f;
00291 c_out[SHIndex(0, 0)] += c_in[SHIndex(0, 0)] * 1.;
00292 if (lmax == 0) return;
00293
00294 c_out[SHIndex(1, -1)] += c_in[SHIndex(1, 0)] * -1.;
00295 c_out[SHIndex(1, 0)] += c_in[SHIndex(1, -1)] * -1.;
00296 c_out[SHIndex(1, 1)] += c_in[SHIndex(1, 1)] * 1.;
00297 if (lmax == 1) return;
00298
00299 c_out[SHIndex(2, -2)] += c_in[SHIndex(2, 1)] * -1.;
00300 c_out[SHIndex(2, -1)] += c_in[SHIndex(2, -1)] * 1.;
00301 c_out[SHIndex(2, 0)] += c_in[SHIndex(2, 0)] * -0.5;
00302 c_out[SHIndex(2, 0)] += c_in[SHIndex(2, 2)] * -0.86602540378444;
00303 c_out[SHIndex(2, 1)] += c_in[SHIndex(2, -2)] * -1.;
00304 c_out[SHIndex(2, 2)] += c_in[SHIndex(2, 0)] * -0.86602540378444;
00305 c_out[SHIndex(2, 2)] += c_in[SHIndex(2, 2)] * 0.5;
00306 if (lmax == 2) return;
00307
00308 c_out[SHIndex(3, -3)] += c_in[SHIndex(3, 0)] * 0.79056941504209;
00309 c_out[SHIndex(3, -3)] += c_in[SHIndex(3, 2)] * -0.61237243569579;
00310 c_out[SHIndex(3, -2)] += c_in[SHIndex(3, -2)] * 1.;
00311 c_out[SHIndex(3, -1)] += c_in[SHIndex(3, 0)] * 0.61237243569579;
00312 c_out[SHIndex(3, -1)] += c_in[SHIndex(3, 2)] * 0.79056941504209;
00313 c_out[SHIndex(3, 0)] += c_in[SHIndex(3, -3)] * 0.79056941504209;
00314 c_out[SHIndex(3, 0)] += c_in[SHIndex(3, -1)] * 0.61237243569579;
00315 c_out[SHIndex(3, 1)] += c_in[SHIndex(3, 1)] * -0.25;
00316 c_out[SHIndex(3, 1)] += c_in[SHIndex(3, 3)] * -0.96824583655185;
00317 c_out[SHIndex(3, 2)] += c_in[SHIndex(3, -3)] * -0.61237243569579;
00318 c_out[SHIndex(3, 2)] += c_in[SHIndex(3, -1)] * 0.79056941504209;
00319 c_out[SHIndex(3, 3)] += c_in[SHIndex(3, 1)] * -0.96824583655185;
00320 c_out[SHIndex(3, 3)] += c_in[SHIndex(3, 3)] * 0.25;
00321 if (lmax == 3) return;
00322
00323 c_out[SHIndex(4, -4)] += c_in[SHIndex(4, 1)] * 0.93541434669349;
00324 c_out[SHIndex(4, -4)] += c_in[SHIndex(4, 3)] * -0.35355339059327;
00325 c_out[SHIndex(4, -3)] += c_in[SHIndex(4, -3)] * 0.75;
00326 c_out[SHIndex(4, -3)] += c_in[SHIndex(4, -1)] * -0.66143782776615;
00327 c_out[SHIndex(4, -2)] += c_in[SHIndex(4, 1)] * 0.35355339059327;
00328 c_out[SHIndex(4, -2)] += c_in[SHIndex(4, 3)] * 0.93541434669349;
00329 c_out[SHIndex(4, -1)] += c_in[SHIndex(4, -3)] * -0.66143782776615;
00330 c_out[SHIndex(4, -1)] += c_in[SHIndex(4, -1)] * -0.75;
00331 c_out[SHIndex(4, 0)] += c_in[SHIndex(4, 0)] * 0.375;
00332 c_out[SHIndex(4, 0)] += c_in[SHIndex(4, 2)] * 0.55901699437495;
00333 c_out[SHIndex(4, 0)] += c_in[SHIndex(4, 4)] * 0.73950997288745;
00334 c_out[SHIndex(4, 1)] += c_in[SHIndex(4, -4)] * 0.93541434669349;
00335 c_out[SHIndex(4, 1)] += c_in[SHIndex(4, -2)] * 0.35355339059327;
00336 c_out[SHIndex(4, 2)] += c_in[SHIndex(4, 0)] * 0.55901699437495;
00337 c_out[SHIndex(4, 2)] += c_in[SHIndex(4, 2)] * 0.5;
00338 c_out[SHIndex(4, 2)] += c_in[SHIndex(4, 4)] * -0.66143782776615;
00339 c_out[SHIndex(4, 3)] += c_in[SHIndex(4, -4)] * -0.35355339059327;
00340 c_out[SHIndex(4, 3)] += c_in[SHIndex(4, -2)] * 0.93541434669349;
00341 c_out[SHIndex(4, 4)] += c_in[SHIndex(4, 0)] * 0.73950997288745;
00342 c_out[SHIndex(4, 4)] += c_in[SHIndex(4, 2)] * -0.66143782776615;
00343 c_out[SHIndex(4, 4)] += c_in[SHIndex(4, 4)] * 0.125;
00344 if (lmax == 4) return;
00345
00346
00347 c_out[SHIndex(5, -5)] += c_in[SHIndex(5, 0)] * -0.70156076002011;
00348 c_out[SHIndex(5, -5)] += c_in[SHIndex(5, 2)] * 0.68465319688146;
00349 c_out[SHIndex(5, -5)] += c_in[SHIndex(5, 4)] * -0.19764235376052;
00350 c_out[SHIndex(5, -4)] += c_in[SHIndex(5, -4)] * 0.5;
00351 c_out[SHIndex(5, -4)] += c_in[SHIndex(5, -2)] * -0.86602540378444;
00352 c_out[SHIndex(5, -3)] += c_in[SHIndex(5, 0)] * -0.5229125165838;
00353 c_out[SHIndex(5, -3)] += c_in[SHIndex(5, 2)] * -0.3061862178479;
00354 c_out[SHIndex(5, -3)] += c_in[SHIndex(5, 4)] * 0.79549512883487;
00355 c_out[SHIndex(5, -2)] += c_in[SHIndex(5, -4)] * -0.86602540378444;
00356 c_out[SHIndex(5, -2)] += c_in[SHIndex(5, -2)] * -0.5;
00357 c_out[SHIndex(5, -1)] += c_in[SHIndex(5, 0)] * -0.48412291827593;
00358 c_out[SHIndex(5, -1)] += c_in[SHIndex(5, 2)] * -0.66143782776615;
00359 c_out[SHIndex(5, -1)] += c_in[SHIndex(5, 4)] * -0.57282196186948;
00360 c_out[SHIndex(5, 0)] += c_in[SHIndex(5, -5)] * -0.70156076002011;
00361 c_out[SHIndex(5, 0)] += c_in[SHIndex(5, -3)] * -0.5229125165838;
00362 c_out[SHIndex(5, 0)] += c_in[SHIndex(5, -1)] * -0.48412291827593;
00363 c_out[SHIndex(5, 1)] += c_in[SHIndex(5, 1)] * 0.125;
00364 c_out[SHIndex(5, 1)] += c_in[SHIndex(5, 3)] * 0.40504629365049;
00365 c_out[SHIndex(5, 1)] += c_in[SHIndex(5, 5)] * 0.90571104663684;
00366 c_out[SHIndex(5, 2)] += c_in[SHIndex(5, -5)] * 0.68465319688146;
00367 c_out[SHIndex(5, 2)] += c_in[SHIndex(5, -3)] * -0.3061862178479;
00368 c_out[SHIndex(5, 2)] += c_in[SHIndex(5, -1)] * -0.66143782776615;
00369 c_out[SHIndex(5, 3)] += c_in[SHIndex(5, 1)] * 0.40504629365049;
00370 c_out[SHIndex(5, 3)] += c_in[SHIndex(5, 3)] * 0.8125;
00371 c_out[SHIndex(5, 3)] += c_in[SHIndex(5, 5)] * -0.41926274578121;
00372 c_out[SHIndex(5, 4)] += c_in[SHIndex(5, -5)] * -0.19764235376052;
00373 c_out[SHIndex(5, 4)] += c_in[SHIndex(5, -3)] * 0.79549512883487;
00374 c_out[SHIndex(5, 4)] += c_in[SHIndex(5, -1)] * -0.57282196186948;
00375 c_out[SHIndex(5, 5)] += c_in[SHIndex(5, 1)] * 0.90571104663684;
00376 c_out[SHIndex(5, 5)] += c_in[SHIndex(5, 3)] * -0.41926274578121;
00377 c_out[SHIndex(5, 5)] += c_in[SHIndex(5, 5)] * 0.0625;
00378 if (lmax == 5) return;
00379
00380
00381 c_out[SHIndex(6, -6)] += c_in[SHIndex(6, 1)] * -0.87945295496689;
00382 c_out[SHIndex(6, -6)] += c_in[SHIndex(6, 3)] * 0.46351240544348;
00383 c_out[SHIndex(6, -6)] += c_in[SHIndex(6, 5)] * -0.10825317547305;
00384 c_out[SHIndex(6, -5)] += c_in[SHIndex(6, -5)] * 0.3125;
00385 c_out[SHIndex(6, -5)] += c_in[SHIndex(6, -3)] * -0.80282703616657;
00386 c_out[SHIndex(6, -5)] += c_in[SHIndex(6, -1)] * 0.50775240028975;
00387 c_out[SHIndex(6, -4)] += c_in[SHIndex(6, 1)] * -0.43301270189222;
00388 c_out[SHIndex(6, -4)] += c_in[SHIndex(6, 3)] * -0.68465319688146;
00389 c_out[SHIndex(6, -4)] += c_in[SHIndex(6, 5)] * 0.58630196997793;
00390 c_out[SHIndex(6, -3)] += c_in[SHIndex(6, -5)] * -0.80282703616657;
00391 c_out[SHIndex(6, -3)] += c_in[SHIndex(6, -3)] * 0.0625;
00392 c_out[SHIndex(6, -3)] += c_in[SHIndex(6, -1)] * 0.59292706128157;
00393 c_out[SHIndex(6, -2)] += c_in[SHIndex(6, 1)] * -0.19764235376052;
00394 c_out[SHIndex(6, -2)] += c_in[SHIndex(6, 3)] * -0.5625;
00395 c_out[SHIndex(6, -2)] += c_in[SHIndex(6, 5)] * -0.80282703616657;
00396 c_out[SHIndex(6, -1)] += c_in[SHIndex(6, -5)] * 0.50775240028975;
00397 c_out[SHIndex(6, -1)] += c_in[SHIndex(6, -3)] * 0.59292706128157;
00398 c_out[SHIndex(6, -1)] += c_in[SHIndex(6, -1)] * 0.625;
00399 c_out[SHIndex(6, 0)] += c_in[SHIndex(6, 0)] * -0.3125;
00400 c_out[SHIndex(6, 0)] += c_in[SHIndex(6, 2)] * -0.45285552331842;
00401 c_out[SHIndex(6, 0)] += c_in[SHIndex(6, 4)] * -0.49607837082461;
00402 c_out[SHIndex(6, 0)] += c_in[SHIndex(6, 6)] * -0.6716932893814;
00403 c_out[SHIndex(6, 1)] += c_in[SHIndex(6, -6)] * -0.87945295496689;
00404 c_out[SHIndex(6, 1)] += c_in[SHIndex(6, -4)] * -0.43301270189222;
00405 c_out[SHIndex(6, 1)] += c_in[SHIndex(6, -2)] * -0.19764235376052;
00406 c_out[SHIndex(6, 2)] += c_in[SHIndex(6, 0)] * -0.45285552331842;
00407 c_out[SHIndex(6, 2)] += c_in[SHIndex(6, 2)] * -0.53125;
00408 c_out[SHIndex(6, 2)] += c_in[SHIndex(6, 4)] * -0.17116329922036;
00409 c_out[SHIndex(6, 2)] += c_in[SHIndex(6, 6)] * 0.69526860816522;
00410 c_out[SHIndex(6, 3)] += c_in[SHIndex(6, -6)] * 0.46351240544348;
00411 c_out[SHIndex(6, 3)] += c_in[SHIndex(6, -4)] * -0.68465319688146;
00412 c_out[SHIndex(6, 3)] += c_in[SHIndex(6, -2)] * -0.5625;
00413 c_out[SHIndex(6, 4)] += c_in[SHIndex(6, 0)] * -0.49607837082461;
00414 c_out[SHIndex(6, 4)] += c_in[SHIndex(6, 2)] * -0.17116329922036;
00415 c_out[SHIndex(6, 4)] += c_in[SHIndex(6, 4)] * 0.8125;
00416 c_out[SHIndex(6, 4)] += c_in[SHIndex(6, 6)] * -0.25387620014487;
00417 c_out[SHIndex(6, 5)] += c_in[SHIndex(6, -6)] * -0.10825317547305;
00418 c_out[SHIndex(6, 5)] += c_in[SHIndex(6, -4)] * 0.58630196997793;
00419 c_out[SHIndex(6, 5)] += c_in[SHIndex(6, -2)] * -0.80282703616657;
00420 c_out[SHIndex(6, 6)] += c_in[SHIndex(6, 0)] * -0.6716932893814;
00421 c_out[SHIndex(6, 6)] += c_in[SHIndex(6, 2)] * 0.69526860816522;
00422 c_out[SHIndex(6, 6)] += c_in[SHIndex(6, 4)] * -0.25387620014487;
00423 c_out[SHIndex(6, 6)] += c_in[SHIndex(6, 6)] * 0.03125;
00424 if (lmax == 6) return;
00425
00426
00427 c_out[SHIndex(7, -7)] += c_in[SHIndex(7, 0)] * 0.64725984928775;
00428 c_out[SHIndex(7, -7)] += c_in[SHIndex(7, 2)] * -0.69912054128741;
00429 c_out[SHIndex(7, -7)] += c_in[SHIndex(7, 4)] * 0.2981060004428;
00430 c_out[SHIndex(7, -7)] += c_in[SHIndex(7, 6)] * -0.058463396668343;
00431 c_out[SHIndex(7, -6)] += c_in[SHIndex(7, -6)] * 0.1875;
00432 c_out[SHIndex(7, -6)] += c_in[SHIndex(7, -4)] * -0.6373774391991;
00433 c_out[SHIndex(7, -6)] += c_in[SHIndex(7, -2)] * 0.74739129644384;
00434 c_out[SHIndex(7, -5)] += c_in[SHIndex(7, 0)] * 0.47495887979908;
00435 c_out[SHIndex(7, -5)] += c_in[SHIndex(7, 2)] * 0.073287746247241;
00436 c_out[SHIndex(7, -5)] += c_in[SHIndex(7, 4)] * -0.78125;
00437 c_out[SHIndex(7, -5)] += c_in[SHIndex(7, 6)] * 0.39836089949944;
00438 c_out[SHIndex(7, -4)] += c_in[SHIndex(7, -6)] * -0.6373774391991;
00439 c_out[SHIndex(7, -4)] += c_in[SHIndex(7, -4)] * 0.5;
00440 c_out[SHIndex(7, -4)] += c_in[SHIndex(7, -2)] * 0.58630196997793;
00441 c_out[SHIndex(7, -3)] += c_in[SHIndex(7, 0)] * 0.42961647140211;
00442 c_out[SHIndex(7, -3)] += c_in[SHIndex(7, 2)] * 0.41984465132951;
00443 c_out[SHIndex(7, -3)] += c_in[SHIndex(7, 4)] * -0.10364452469861;
00444 c_out[SHIndex(7, -3)] += c_in[SHIndex(7, 6)] * -0.79272818087286;
00445 c_out[SHIndex(7, -2)] += c_in[SHIndex(7, -6)] * 0.74739129644384;
00446 c_out[SHIndex(7, -2)] += c_in[SHIndex(7, -4)] * 0.58630196997793;
00447 c_out[SHIndex(7, -2)] += c_in[SHIndex(7, -2)] * 0.3125;
00448 c_out[SHIndex(7, -1)] += c_in[SHIndex(7, 0)] * 0.41339864235384;
00449 c_out[SHIndex(7, -1)] += c_in[SHIndex(7, 2)] * 0.57409915846481;
00450 c_out[SHIndex(7, -1)] += c_in[SHIndex(7, 4)] * 0.53855274811294;
00451 c_out[SHIndex(7, -1)] += c_in[SHIndex(7, 6)] * 0.45768182862115;
00452 c_out[SHIndex(7, 0)] += c_in[SHIndex(7, -7)] * 0.64725984928775;
00453 c_out[SHIndex(7, 0)] += c_in[SHIndex(7, -5)] * 0.47495887979908;
00454 c_out[SHIndex(7, 0)] += c_in[SHIndex(7, -3)] * 0.42961647140211;
00455 c_out[SHIndex(7, 0)] += c_in[SHIndex(7, -1)] * 0.41339864235384;
00456 c_out[SHIndex(7, 1)] += c_in[SHIndex(7, 1)] * -0.078125;
00457 c_out[SHIndex(7, 1)] += c_in[SHIndex(7, 3)] * -0.24356964481437;
00458 c_out[SHIndex(7, 1)] += c_in[SHIndex(7, 5)] * -0.44879395676078;
00459 c_out[SHIndex(7, 1)] += c_in[SHIndex(7, 7)] * -0.85624429742627;
00460 c_out[SHIndex(7, 2)] += c_in[SHIndex(7, -7)] * -0.69912054128741;
00461 c_out[SHIndex(7, 2)] += c_in[SHIndex(7, -5)] * 0.073287746247241;
00462 c_out[SHIndex(7, 2)] += c_in[SHIndex(7, -3)] * 0.41984465132951;
00463 c_out[SHIndex(7, 2)] += c_in[SHIndex(7, -1)] * 0.57409915846481;
00464 c_out[SHIndex(7, 3)] += c_in[SHIndex(7, 1)] * -0.24356964481437;
00465 c_out[SHIndex(7, 3)] += c_in[SHIndex(7, 3)] * -0.609375;
00466 c_out[SHIndex(7, 3)] += c_in[SHIndex(7, 5)] * -0.57004488584233;
00467 c_out[SHIndex(7, 3)] += c_in[SHIndex(7, 7)] * 0.49435287561114;
00468 c_out[SHIndex(7, 4)] += c_in[SHIndex(7, -7)] * 0.2981060004428;
00469 c_out[SHIndex(7, 4)] += c_in[SHIndex(7, -5)] * -0.78125;
00470 c_out[SHIndex(7, 4)] += c_in[SHIndex(7, -3)] * -0.10364452469861;
00471 c_out[SHIndex(7, 4)] += c_in[SHIndex(7, -1)] * 0.53855274811294;
00472 c_out[SHIndex(7, 5)] += c_in[SHIndex(7, 1)] * -0.44879395676078;
00473 c_out[SHIndex(7, 5)] += c_in[SHIndex(7, 3)] * -0.57004488584233;
00474 c_out[SHIndex(7, 5)] += c_in[SHIndex(7, 5)] * 0.671875;
00475 c_out[SHIndex(7, 5)] += c_in[SHIndex(7, 7)] * -0.1490530002214;
00476 c_out[SHIndex(7, 6)] += c_in[SHIndex(7, -7)] * -0.058463396668343;
00477 c_out[SHIndex(7, 6)] += c_in[SHIndex(7, -5)] * 0.39836089949944;
00478 c_out[SHIndex(7, 6)] += c_in[SHIndex(7, -3)] * -0.79272818087286;
00479 c_out[SHIndex(7, 6)] += c_in[SHIndex(7, -1)] * 0.45768182862115;
00480 c_out[SHIndex(7, 7)] += c_in[SHIndex(7, 1)] * -0.85624429742627;
00481 c_out[SHIndex(7, 7)] += c_in[SHIndex(7, 3)] * 0.49435287561114;
00482 c_out[SHIndex(7, 7)] += c_in[SHIndex(7, 5)] * -0.1490530002214;
00483 c_out[SHIndex(7, 7)] += c_in[SHIndex(7, 7)] * 0.015625;
00484 if (lmax == 7) return;
00485
00486
00487 c_out[SHIndex(8, -8)] += c_in[SHIndex(8, 1)] * 0.83560887232006;
00488 c_out[SHIndex(8, -8)] += c_in[SHIndex(8, 3)] * -0.51633473880807;
00489 c_out[SHIndex(8, -8)] += c_in[SHIndex(8, 5)] * 0.18487749322186;
00490 c_out[SHIndex(8, -8)] += c_in[SHIndex(8, 7)] * -0.03125;
00491 c_out[SHIndex(8, -7)] += c_in[SHIndex(8, -7)] * 0.109375;
00492 c_out[SHIndex(8, -7)] += c_in[SHIndex(8, -5)] * -0.46219373305466;
00493 c_out[SHIndex(8, -7)] += c_in[SHIndex(8, -3)] * 0.77450210821211;
00494 c_out[SHIndex(8, -7)] += c_in[SHIndex(8, -1)] * -0.41780443616003;
00495 c_out[SHIndex(8, -6)] += c_in[SHIndex(8, 1)] * 0.45768182862115;
00496 c_out[SHIndex(8, -6)] += c_in[SHIndex(8, 3)] * 0.4713469727812;
00497 c_out[SHIndex(8, -6)] += c_in[SHIndex(8, 5)] * -0.70883101388836;
00498 c_out[SHIndex(8, -6)] += c_in[SHIndex(8, 7)] * 0.25674494883055;
00499 c_out[SHIndex(8, -5)] += c_in[SHIndex(8, -7)] * -0.46219373305466;
00500 c_out[SHIndex(8, -5)] += c_in[SHIndex(8, -5)] * 0.703125;
00501 c_out[SHIndex(8, -5)] += c_in[SHIndex(8, -3)] * 0.21819125068389;
00502 c_out[SHIndex(8, -5)] += c_in[SHIndex(8, -1)] * -0.49435287561114;
00503 c_out[SHIndex(8, -4)] += c_in[SHIndex(8, 1)] * 0.274217637106;
00504 c_out[SHIndex(8, -4)] += c_in[SHIndex(8, 3)] * 0.60515364784491;
00505 c_out[SHIndex(8, -4)] += c_in[SHIndex(8, 5)] * 0.33802043207475;
00506 c_out[SHIndex(8, -4)] += c_in[SHIndex(8, 7)] * -0.66658528149067;
00507 c_out[SHIndex(8, -3)] += c_in[SHIndex(8, -7)] * 0.77450210821211;
00508 c_out[SHIndex(8, -3)] += c_in[SHIndex(8, -5)] * 0.21819125068389;
00509 c_out[SHIndex(8, -3)] += c_in[SHIndex(8, -3)] * -0.265625;
00510 c_out[SHIndex(8, -3)] += c_in[SHIndex(8, -1)] * -0.53102017087395;
00511 c_out[SHIndex(8, -2)] += c_in[SHIndex(8, 1)] * 0.13072812914595;
00512 c_out[SHIndex(8, -2)] += c_in[SHIndex(8, 3)] * 0.38081430021731;
00513 c_out[SHIndex(8, -2)] += c_in[SHIndex(8, 5)] * 0.59086470003716;
00514 c_out[SHIndex(8, -2)] += c_in[SHIndex(8, 7)] * 0.69912054128741;
00515 c_out[SHIndex(8, -1)] += c_in[SHIndex(8, -7)] * -0.41780443616003;
00516 c_out[SHIndex(8, -1)] += c_in[SHIndex(8, -5)] * -0.49435287561114;
00517 c_out[SHIndex(8, -1)] += c_in[SHIndex(8, -3)] * -0.53102017087395;
00518 c_out[SHIndex(8, -1)] += c_in[SHIndex(8, -1)] * -0.546875;
00519 c_out[SHIndex(8, 0)] += c_in[SHIndex(8, 0)] * 0.2734375;
00520 c_out[SHIndex(8, 0)] += c_in[SHIndex(8, 2)] * 0.39218438743785;
00521 c_out[SHIndex(8, 0)] += c_in[SHIndex(8, 4)] * 0.41132645565901;
00522 c_out[SHIndex(8, 0)] += c_in[SHIndex(8, 6)] * 0.45768182862115;
00523 c_out[SHIndex(8, 0)] += c_in[SHIndex(8, 8)] * 0.62670665424004;
00524 c_out[SHIndex(8, 1)] += c_in[SHIndex(8, -8)] * 0.83560887232006;
00525 c_out[SHIndex(8, 1)] += c_in[SHIndex(8, -6)] * 0.45768182862115;
00526 c_out[SHIndex(8, 1)] += c_in[SHIndex(8, -4)] * 0.274217637106;
00527 c_out[SHIndex(8, 1)] += c_in[SHIndex(8, -2)] * 0.13072812914595;
00528 c_out[SHIndex(8, 2)] += c_in[SHIndex(8, 0)] * 0.39218438743785;
00529 c_out[SHIndex(8, 2)] += c_in[SHIndex(8, 2)] * 0.5;
00530 c_out[SHIndex(8, 2)] += c_in[SHIndex(8, 4)] * 0.32775276505317;
00531 c_out[SHIndex(8, 2)] += c_in[SHIndex(8, 8)] * -0.69912054128741;
00532 c_out[SHIndex(8, 3)] += c_in[SHIndex(8, -8)] * -0.51633473880807;
00533 c_out[SHIndex(8, 3)] += c_in[SHIndex(8, -6)] * 0.4713469727812;
00534 c_out[SHIndex(8, 3)] += c_in[SHIndex(8, -4)] * 0.60515364784491;
00535 c_out[SHIndex(8, 3)] += c_in[SHIndex(8, -2)] * 0.38081430021731;
00536 c_out[SHIndex(8, 4)] += c_in[SHIndex(8, 0)] * 0.41132645565901;
00537 c_out[SHIndex(8, 4)] += c_in[SHIndex(8, 2)] * 0.32775276505317;
00538 c_out[SHIndex(8, 4)] += c_in[SHIndex(8, 4)] * -0.28125;
00539 c_out[SHIndex(8, 4)] += c_in[SHIndex(8, 6)] * -0.73020759034675;
00540 c_out[SHIndex(8, 4)] += c_in[SHIndex(8, 8)] * 0.33329264074534;
00541 c_out[SHIndex(8, 5)] += c_in[SHIndex(8, -8)] * 0.18487749322186;
00542 c_out[SHIndex(8, 5)] += c_in[SHIndex(8, -6)] * -0.70883101388836;
00543 c_out[SHIndex(8, 5)] += c_in[SHIndex(8, -4)] * 0.33802043207475;
00544 c_out[SHIndex(8, 5)] += c_in[SHIndex(8, -2)] * 0.59086470003716;
00545 c_out[SHIndex(8, 6)] += c_in[SHIndex(8, 0)] * 0.45768182862115;
00546 c_out[SHIndex(8, 6)] += c_in[SHIndex(8, 4)] * -0.73020759034675;
00547 c_out[SHIndex(8, 6)] += c_in[SHIndex(8, 6)] * 0.5;
00548 c_out[SHIndex(8, 6)] += c_in[SHIndex(8, 8)] * -0.085581649610182;
00549 c_out[SHIndex(8, 7)] += c_in[SHIndex(8, -8)] * -0.03125;
00550 c_out[SHIndex(8, 7)] += c_in[SHIndex(8, -6)] * 0.25674494883055;
00551 c_out[SHIndex(8, 7)] += c_in[SHIndex(8, -4)] * -0.66658528149067;
00552 c_out[SHIndex(8, 7)] += c_in[SHIndex(8, -2)] * 0.69912054128741;
00553 c_out[SHIndex(8, 8)] += c_in[SHIndex(8, 0)] * 0.62670665424004;
00554 c_out[SHIndex(8, 8)] += c_in[SHIndex(8, 2)] * -0.69912054128741;
00555 c_out[SHIndex(8, 8)] += c_in[SHIndex(8, 4)] * 0.33329264074534;
00556 c_out[SHIndex(8, 8)] += c_in[SHIndex(8, 6)] * -0.085581649610182;
00557 c_out[SHIndex(8, 8)] += c_in[SHIndex(8, 8)] * 0.0078125;
00558 if (lmax == 8) return;
00559
00560
00561 c_out[SHIndex(9, -9)] += c_in[SHIndex(9, 0)] * -0.60904939217552;
00562 c_out[SHIndex(9, -9)] += c_in[SHIndex(9, 2)] * 0.69684697253055;
00563 c_out[SHIndex(9, -9)] += c_in[SHIndex(9, 4)] * -0.36157613954394;
00564 c_out[SHIndex(9, -9)] += c_in[SHIndex(9, 6)] * 0.11158481919598;
00565 c_out[SHIndex(9, -9)] += c_in[SHIndex(9, 8)] * -0.01657281518406;
00566 c_out[SHIndex(9, -8)] += c_in[SHIndex(9, -8)] * 0.0625;
00567 c_out[SHIndex(9, -8)] += c_in[SHIndex(9, -6)] * -0.31560952932381;
00568 c_out[SHIndex(9, -8)] += c_in[SHIndex(9, -4)] * 0.68179450716473;
00569 c_out[SHIndex(9, -8)] += c_in[SHIndex(9, -2)] * -0.65699362630089;
00570 c_out[SHIndex(9, -7)] += c_in[SHIndex(9, 0)] * -0.44314852502787;
00571 c_out[SHIndex(9, -7)] += c_in[SHIndex(9, 2)] * 0.056336738679125;
00572 c_out[SHIndex(9, -7)] += c_in[SHIndex(9, 4)] * 0.67232906168594;
00573 c_out[SHIndex(9, -7)] += c_in[SHIndex(9, 6)] * -0.56832917123354;
00574 c_out[SHIndex(9, -7)] += c_in[SHIndex(9, 8)] * 0.15944009087468;
00575 c_out[SHIndex(9, -6)] += c_in[SHIndex(9, -8)] * -0.31560952932381;
00576 c_out[SHIndex(9, -6)] += c_in[SHIndex(9, -6)] * 0.71875;
00577 c_out[SHIndex(9, -6)] += c_in[SHIndex(9, -4)] * -0.20252314682525;
00578 c_out[SHIndex(9, -6)] += c_in[SHIndex(9, -2)] * -0.58546856234985;
00579 c_out[SHIndex(9, -5)] += c_in[SHIndex(9, 0)] * -0.39636409043643;
00580 c_out[SHIndex(9, -5)] += c_in[SHIndex(9, 2)] * -0.25194555463433;
00581 c_out[SHIndex(9, -5)] += c_in[SHIndex(9, 4)] * 0.39218438743785;
00582 c_out[SHIndex(9, -5)] += c_in[SHIndex(9, 6)] * 0.60515364784491;
00583 c_out[SHIndex(9, -5)] += c_in[SHIndex(9, 8)] * -0.50931268790646;
00584 c_out[SHIndex(9, -4)] += c_in[SHIndex(9, -8)] * 0.68179450716473;
00585 c_out[SHIndex(9, -4)] += c_in[SHIndex(9, -6)] * -0.20252314682525;
00586 c_out[SHIndex(9, -4)] += c_in[SHIndex(9, -4)] * -0.5625;
00587 c_out[SHIndex(9, -4)] += c_in[SHIndex(9, -2)] * -0.421585548851;
00588 c_out[SHIndex(9, -3)] += c_in[SHIndex(9, 0)] * -0.37548796377181;
00589 c_out[SHIndex(9, -3)] += c_in[SHIndex(9, 2)] * -0.42961647140211;
00590 c_out[SHIndex(9, -3)] += c_in[SHIndex(9, 4)] * -0.13799626353637;
00591 c_out[SHIndex(9, -3)] += c_in[SHIndex(9, 6)] * 0.2981060004428;
00592 c_out[SHIndex(9, -3)] += c_in[SHIndex(9, 8)] * 0.75268075590685;
00593 c_out[SHIndex(9, -2)] += c_in[SHIndex(9, -8)] * -0.65699362630089;
00594 c_out[SHIndex(9, -2)] += c_in[SHIndex(9, -6)] * -0.58546856234985;
00595 c_out[SHIndex(9, -2)] += c_in[SHIndex(9, -4)] * -0.421585548851;
00596 c_out[SHIndex(9, -2)] += c_in[SHIndex(9, -2)] * -0.21875;
00597 c_out[SHIndex(9, -1)] += c_in[SHIndex(9, 0)] * -0.36685490255856;
00598 c_out[SHIndex(9, -1)] += c_in[SHIndex(9, 2)] * -0.51301422373069;
00599 c_out[SHIndex(9, -1)] += c_in[SHIndex(9, 4)] * -0.49435287561114;
00600 c_out[SHIndex(9, -1)] += c_in[SHIndex(9, 6)] * -0.45768182862115;
00601 c_out[SHIndex(9, -1)] += c_in[SHIndex(9, 8)] * -0.38519665736316;
00602 c_out[SHIndex(9, 0)] += c_in[SHIndex(9, -9)] * -0.60904939217552;
00603 c_out[SHIndex(9, 0)] += c_in[SHIndex(9, -7)] * -0.44314852502787;
00604 c_out[SHIndex(9, 0)] += c_in[SHIndex(9, -5)] * -0.39636409043643;
00605 c_out[SHIndex(9, 0)] += c_in[SHIndex(9, -3)] * -0.37548796377181;
00606 c_out[SHIndex(9, 0)] += c_in[SHIndex(9, -1)] * -0.36685490255856;
00607 c_out[SHIndex(9, 1)] += c_in[SHIndex(9, 1)] * 0.0546875;
00608 c_out[SHIndex(9, 1)] += c_in[SHIndex(9, 3)] * 0.16792332234535;
00609 c_out[SHIndex(9, 1)] += c_in[SHIndex(9, 5)] * 0.29543235001858;
00610 c_out[SHIndex(9, 1)] += c_in[SHIndex(9, 7)] * 0.46242477217584;
00611 c_out[SHIndex(9, 1)] += c_in[SHIndex(9, 9)] * 0.81712550553564;
00612 c_out[SHIndex(9, 2)] += c_in[SHIndex(9, -9)] * 0.69684697253055;
00613 c_out[SHIndex(9, 2)] += c_in[SHIndex(9, -7)] * 0.056336738679125;
00614 c_out[SHIndex(9, 2)] += c_in[SHIndex(9, -5)] * -0.25194555463433;
00615 c_out[SHIndex(9, 2)] += c_in[SHIndex(9, -3)] * -0.42961647140211;
00616 c_out[SHIndex(9, 2)] += c_in[SHIndex(9, -1)] * -0.51301422373069;
00617 c_out[SHIndex(9, 3)] += c_in[SHIndex(9, 1)] * 0.16792332234535;
00618 c_out[SHIndex(9, 3)] += c_in[SHIndex(9, 3)] * 0.453125;
00619 c_out[SHIndex(9, 3)] += c_in[SHIndex(9, 5)] * 0.57727978755972;
00620 c_out[SHIndex(9, 3)] += c_in[SHIndex(9, 7)] * 0.38725105410605;
00621 c_out[SHIndex(9, 3)] += c_in[SHIndex(9, 9)] * -0.53222566657035;
00622 c_out[SHIndex(9, 4)] += c_in[SHIndex(9, -9)] * -0.36157613954394;
00623 c_out[SHIndex(9, 4)] += c_in[SHIndex(9, -7)] * 0.67232906168594;
00624 c_out[SHIndex(9, 4)] += c_in[SHIndex(9, -5)] * 0.39218438743785;
00625 c_out[SHIndex(9, 4)] += c_in[SHIndex(9, -3)] * -0.13799626353637;
00626 c_out[SHIndex(9, 4)] += c_in[SHIndex(9, -1)] * -0.49435287561114;
00627 c_out[SHIndex(9, 5)] += c_in[SHIndex(9, 1)] * 0.29543235001858;
00628 c_out[SHIndex(9, 5)] += c_in[SHIndex(9, 3)] * 0.57727978755972;
00629 c_out[SHIndex(9, 5)] += c_in[SHIndex(9, 5)] * 0.140625;
00630 c_out[SHIndex(9, 5)] += c_in[SHIndex(9, 7)] * -0.7162405240429;
00631 c_out[SHIndex(9, 5)] += c_in[SHIndex(9, 9)] * 0.2160830732178;
00632 c_out[SHIndex(9, 6)] += c_in[SHIndex(9, -9)] * 0.11158481919598;
00633 c_out[SHIndex(9, 6)] += c_in[SHIndex(9, -7)] * -0.56832917123354;
00634 c_out[SHIndex(9, 6)] += c_in[SHIndex(9, -5)] * 0.60515364784491;
00635 c_out[SHIndex(9, 6)] += c_in[SHIndex(9, -3)] * 0.2981060004428;
00636 c_out[SHIndex(9, 6)] += c_in[SHIndex(9, -1)] * -0.45768182862115;
00637 c_out[SHIndex(9, 7)] += c_in[SHIndex(9, 1)] * 0.46242477217584;
00638 c_out[SHIndex(9, 7)] += c_in[SHIndex(9, 3)] * 0.38725105410605;
00639 c_out[SHIndex(9, 7)] += c_in[SHIndex(9, 5)] * -0.7162405240429;
00640 c_out[SHIndex(9, 7)] += c_in[SHIndex(9, 7)] * 0.34765625;
00641 c_out[SHIndex(9, 7)] += c_in[SHIndex(9, 9)] * -0.048317644050207;
00642 c_out[SHIndex(9, 8)] += c_in[SHIndex(9, -9)] * -0.01657281518406;
00643 c_out[SHIndex(9, 8)] += c_in[SHIndex(9, -7)] * 0.15944009087468;
00644 c_out[SHIndex(9, 8)] += c_in[SHIndex(9, -5)] * -0.50931268790646;
00645 c_out[SHIndex(9, 8)] += c_in[SHIndex(9, -3)] * 0.75268075590685;
00646 c_out[SHIndex(9, 8)] += c_in[SHIndex(9, -1)] * -0.38519665736316;
00647 c_out[SHIndex(9, 9)] += c_in[SHIndex(9, 1)] * 0.81712550553564;
00648 c_out[SHIndex(9, 9)] += c_in[SHIndex(9, 3)] * -0.53222566657035;
00649 c_out[SHIndex(9, 9)] += c_in[SHIndex(9, 5)] * 0.2160830732178;
00650 c_out[SHIndex(9, 9)] += c_in[SHIndex(9, 7)] * -0.048317644050207;
00651 c_out[SHIndex(9, 9)] += c_in[SHIndex(9, 9)] * 0.00390625;
00652 if (lmax == 9) return;
00653
00654
00655 c_out[SHIndex(10, -10)] += c_in[SHIndex(10, 1)] * -0.80044772017564;
00656 c_out[SHIndex(10, -10)] += c_in[SHIndex(10, 3)] * 0.54379714235296;
00657 c_out[SHIndex(10, -10)] += c_in[SHIndex(10, 5)] * -0.24319347525427;
00658 c_out[SHIndex(10, -10)] += c_in[SHIndex(10, 7)] * 0.065945089906774;
00659 c_out[SHIndex(10, -10)] += c_in[SHIndex(10, 9)] * -0.0087346405371086;
00660 c_out[SHIndex(10, -9)] += c_in[SHIndex(10, -9)] * 0.03515625;
00661 c_out[SHIndex(10, -9)] += c_in[SHIndex(10, -7)] * -0.20644078533943;
00662 c_out[SHIndex(10, -9)] += c_in[SHIndex(10, -5)] * 0.54379714235296;
00663 c_out[SHIndex(10, -9)] += c_in[SHIndex(10, -3)] * -0.72958042576281;
00664 c_out[SHIndex(10, -9)] += c_in[SHIndex(10, -1)] * 0.35797110294949;
00665 c_out[SHIndex(10, -8)] += c_in[SHIndex(10, 1)] * -0.4645646483537;
00666 c_out[SHIndex(10, -8)] += c_in[SHIndex(10, 3)] * -0.31560952932381;
00667 c_out[SHIndex(10, -8)] += c_in[SHIndex(10, 5)] * 0.70572436191476;
00668 c_out[SHIndex(10, -8)] += c_in[SHIndex(10, 7)] * -0.42100604954086;
00669 c_out[SHIndex(10, -8)] += c_in[SHIndex(10, 9)] * 0.09631896879639;
00670 c_out[SHIndex(10, -7)] += c_in[SHIndex(10, -9)] * -0.20644078533943;
00671 c_out[SHIndex(10, -7)] += c_in[SHIndex(10, -7)] * 0.62890625;
00672 c_out[SHIndex(10, -7)] += c_in[SHIndex(10, -5)] * -0.5041938375082;
00673 c_out[SHIndex(10, -7)] += c_in[SHIndex(10, -3)] * -0.35432938970152;
00674 c_out[SHIndex(10, -7)] += c_in[SHIndex(10, -1)] * 0.42672987787578;
00675 c_out[SHIndex(10, -6)] += c_in[SHIndex(10, 1)] * -0.31049159295684;
00676 c_out[SHIndex(10, -6)] += c_in[SHIndex(10, 3)] * -0.5390625;
00677 c_out[SHIndex(10, -6)] += c_in[SHIndex(10, 5)] * 0.017469281074217;
00678 c_out[SHIndex(10, -6)] += c_in[SHIndex(10, 7)] * 0.69255289805297;
00679 c_out[SHIndex(10, -6)] += c_in[SHIndex(10, 9)] * -0.36479021288141;
00680 c_out[SHIndex(10, -5)] += c_in[SHIndex(10, -9)] * 0.54379714235296;
00681 c_out[SHIndex(10, -5)] += c_in[SHIndex(10, -7)] * -0.5041938375082;
00682 c_out[SHIndex(10, -5)] += c_in[SHIndex(10, -5)] * -0.484375;
00683 c_out[SHIndex(10, -5)] += c_in[SHIndex(10, -3)] * 0.034938562148434;
00684 c_out[SHIndex(10, -5)] += c_in[SHIndex(10, -1)] * 0.46285353886246;
00685 c_out[SHIndex(10, -4)] += c_in[SHIndex(10, 1)] * -0.19515618744995;
00686 c_out[SHIndex(10, -4)] += c_in[SHIndex(10, 3)] * -0.48613591206575;
00687 c_out[SHIndex(10, -4)] += c_in[SHIndex(10, 5)] * -0.49410588440131;
00688 c_out[SHIndex(10, -4)] += c_in[SHIndex(10, 7)] * -0.091108623356958;
00689 c_out[SHIndex(10, -4)] += c_in[SHIndex(10, 9)] * 0.68785502197047;
00690 c_out[SHIndex(10, -3)] += c_in[SHIndex(10, -9)] * -0.72958042576281;
00691 c_out[SHIndex(10, -3)] += c_in[SHIndex(10, -7)] * -0.35432938970152;
00692 c_out[SHIndex(10, -3)] += c_in[SHIndex(10, -5)] * 0.034938562148434;
00693 c_out[SHIndex(10, -3)] += c_in[SHIndex(10, -3)] * 0.328125;
00694 c_out[SHIndex(10, -3)] += c_in[SHIndex(10, -1)] * 0.4829869223773;
00695 c_out[SHIndex(10, -2)] += c_in[SHIndex(10, 1)] * -0.094721528538923;
00696 c_out[SHIndex(10, -2)] += c_in[SHIndex(10, 3)] * -0.27885262964961;
00697 c_out[SHIndex(10, -2)] += c_in[SHIndex(10, 5)] * -0.44538102542935;
00698 c_out[SHIndex(10, -2)] += c_in[SHIndex(10, 7)] * -0.57486942301328;
00699 c_out[SHIndex(10, -2)] += c_in[SHIndex(10, 9)] * -0.62002413794999;
00700 c_out[SHIndex(10, -1)] += c_in[SHIndex(10, -9)] * 0.35797110294949;
00701 c_out[SHIndex(10, -1)] += c_in[SHIndex(10, -7)] * 0.42672987787578;
00702 c_out[SHIndex(10, -1)] += c_in[SHIndex(10, -5)] * 0.46285353886246;
00703 c_out[SHIndex(10, -1)] += c_in[SHIndex(10, -3)] * 0.4829869223773;
00704 c_out[SHIndex(10, -1)] += c_in[SHIndex(10, -1)] * 0.4921875;
00705 c_out[SHIndex(10, 0)] += c_in[SHIndex(10, 0)] * -0.24609375;
00706 c_out[SHIndex(10, 0)] += c_in[SHIndex(10, 2)] * -0.35123682832287;
00707 c_out[SHIndex(10, 0)] += c_in[SHIndex(10, 4)] * -0.36182925552842;
00708 c_out[SHIndex(10, 0)] += c_in[SHIndex(10, 6)] * -0.38377788032374;
00709 c_out[SHIndex(10, 0)] += c_in[SHIndex(10, 8)] * -0.43066295528486;
00710 c_out[SHIndex(10, 0)] += c_in[SHIndex(10, 10)] * -0.59362791713657;
00711 c_out[SHIndex(10, 1)] += c_in[SHIndex(10, -10)] * -0.80044772017564;
00712 c_out[SHIndex(10, 1)] += c_in[SHIndex(10, -8)] * -0.4645646483537;
00713 c_out[SHIndex(10, 1)] += c_in[SHIndex(10, -6)] * -0.31049159295684;
00714 c_out[SHIndex(10, 1)] += c_in[SHIndex(10, -4)] * -0.19515618744995;
00715 c_out[SHIndex(10, 1)] += c_in[SHIndex(10, -2)] * -0.094721528538923;
00716 c_out[SHIndex(10, 2)] += c_in[SHIndex(10, 0)] * -0.35123682832287;
00717 c_out[SHIndex(10, 2)] += c_in[SHIndex(10, 2)] * -0.46484375;
00718 c_out[SHIndex(10, 2)] += c_in[SHIndex(10, 4)] * -0.36618880141431;
00719 c_out[SHIndex(10, 2)] += c_in[SHIndex(10, 6)] * -0.18922142726223;
00720 c_out[SHIndex(10, 2)] += c_in[SHIndex(10, 8)] * 0.10058119679362;
00721 c_out[SHIndex(10, 2)] += c_in[SHIndex(10, 10)] * 0.69320806007344;
00722 c_out[SHIndex(10, 3)] += c_in[SHIndex(10, -10)] * 0.54379714235296;
00723 c_out[SHIndex(10, 3)] += c_in[SHIndex(10, -8)] * -0.31560952932381;
00724 c_out[SHIndex(10, 3)] += c_in[SHIndex(10, -6)] * -0.5390625;
00725 c_out[SHIndex(10, 3)] += c_in[SHIndex(10, -4)] * -0.48613591206575;
00726 c_out[SHIndex(10, 3)] += c_in[SHIndex(10, -2)] * -0.27885262964961;
00727 c_out[SHIndex(10, 4)] += c_in[SHIndex(10, 0)] * -0.36182925552842;
00728 c_out[SHIndex(10, 4)] += c_in[SHIndex(10, 2)] * -0.36618880141431;
00729 c_out[SHIndex(10, 4)] += c_in[SHIndex(10, 4)] * 0.015625;
00730 c_out[SHIndex(10, 4)] += c_in[SHIndex(10, 6)] * 0.45851455342565;
00731 c_out[SHIndex(10, 4)] += c_in[SHIndex(10, 8)] * 0.6137165055779;
00732 c_out[SHIndex(10, 4)] += c_in[SHIndex(10, 10)] * -0.38452264694765;
00733 c_out[SHIndex(10, 5)] += c_in[SHIndex(10, -10)] * -0.24319347525427;
00734 c_out[SHIndex(10, 5)] += c_in[SHIndex(10, -8)] * 0.70572436191476;
00735 c_out[SHIndex(10, 5)] += c_in[SHIndex(10, -6)] * 0.017469281074217;
00736 c_out[SHIndex(10, 5)] += c_in[SHIndex(10, -4)] * -0.49410588440131;
00737 c_out[SHIndex(10, 5)] += c_in[SHIndex(10, -2)] * -0.44538102542935;
00738 c_out[SHIndex(10, 6)] += c_in[SHIndex(10, 0)] * -0.38377788032374;
00739 c_out[SHIndex(10, 6)] += c_in[SHIndex(10, 2)] * -0.18922142726223;
00740 c_out[SHIndex(10, 6)] += c_in[SHIndex(10, 4)] * 0.45851455342565;
00741 c_out[SHIndex(10, 6)] += c_in[SHIndex(10, 6)] * 0.462890625;
00742 c_out[SHIndex(10, 6)] += c_in[SHIndex(10, 8)] * -0.61149346306489;
00743 c_out[SHIndex(10, 6)] += c_in[SHIndex(10, 10)] * 0.13594928558824;
00744 c_out[SHIndex(10, 7)] += c_in[SHIndex(10, -10)] * 0.065945089906774;
00745 c_out[SHIndex(10, 7)] += c_in[SHIndex(10, -8)] * -0.42100604954086;
00746 c_out[SHIndex(10, 7)] += c_in[SHIndex(10, -6)] * 0.69255289805297;
00747 c_out[SHIndex(10, 7)] += c_in[SHIndex(10, -4)] * -0.091108623356958;
00748 c_out[SHIndex(10, 7)] += c_in[SHIndex(10, -2)] * -0.57486942301328;
00749 c_out[SHIndex(10, 8)] += c_in[SHIndex(10, 0)] * -0.43066295528486;
00750 c_out[SHIndex(10, 8)] += c_in[SHIndex(10, 2)] * 0.10058119679362;
00751 c_out[SHIndex(10, 8)] += c_in[SHIndex(10, 4)] * 0.6137165055779;
00752 c_out[SHIndex(10, 8)] += c_in[SHIndex(10, 6)] * -0.61149346306489;
00753 c_out[SHIndex(10, 8)] += c_in[SHIndex(10, 8)] * 0.23046875;
00754 c_out[SHIndex(10, 8)] += c_in[SHIndex(10, 10)] * -0.026921970218926;
00755 c_out[SHIndex(10, 9)] += c_in[SHIndex(10, -10)] * -0.0087346405371086;
00756 c_out[SHIndex(10, 9)] += c_in[SHIndex(10, -8)] * 0.09631896879639;
00757 c_out[SHIndex(10, 9)] += c_in[SHIndex(10, -6)] * -0.36479021288141;
00758 c_out[SHIndex(10, 9)] += c_in[SHIndex(10, -4)] * 0.68785502197047;
00759 c_out[SHIndex(10, 9)] += c_in[SHIndex(10, -2)] * -0.62002413794999;
00760 c_out[SHIndex(10, 10)] += c_in[SHIndex(10, 0)] * -0.59362791713657;
00761 c_out[SHIndex(10, 10)] += c_in[SHIndex(10, 2)] * 0.69320806007344;
00762 c_out[SHIndex(10, 10)] += c_in[SHIndex(10, 4)] * -0.38452264694765;
00763 c_out[SHIndex(10, 10)] += c_in[SHIndex(10, 6)] * 0.13594928558824;
00764 c_out[SHIndex(10, 10)] += c_in[SHIndex(10, 8)] * -0.026921970218926;
00765 c_out[SHIndex(10, 10)] += c_in[SHIndex(10, 10)] * 0.001953125;
00766 if (lmax == 10) return;
00767
00768
00769 c_out[SHIndex(11, -11)] += c_in[SHIndex(11, 0)] * 0.57997947393468;
00770 c_out[SHIndex(11, -11)] += c_in[SHIndex(11, 2)] * -0.68875008418642;
00771 c_out[SHIndex(11, -11)] += c_in[SHIndex(11, 4)] * 0.4032907544405;
00772 c_out[SHIndex(11, -11)] += c_in[SHIndex(11, 6)] * -0.158474160191;
00773 c_out[SHIndex(11, -11)] += c_in[SHIndex(11, 8)] * 0.0383230798249;
00774 c_out[SHIndex(11, -11)] += c_in[SHIndex(11, 10)] * -0.0045804841404526;
00775 c_out[SHIndex(11, -10)] += c_in[SHIndex(11, -10)] * 0.01953125;
00776 c_out[SHIndex(11, -10)] += c_in[SHIndex(11, -8)] * -0.13072812914595;
00777 c_out[SHIndex(11, -10)] += c_in[SHIndex(11, -6)] * 0.4054416537189;
00778 c_out[SHIndex(11, -10)] += c_in[SHIndex(11, -4)] * -0.68785502197047;
00779 c_out[SHIndex(11, -10)] += c_in[SHIndex(11, -2)] * 0.58736804535412;
00780 c_out[SHIndex(11, -9)] += c_in[SHIndex(11, 0)] * 0.41975832570892;
00781 c_out[SHIndex(11, -9)] += c_in[SHIndex(11, 2)] * -0.13594928558824;
00782 c_out[SHIndex(11, -9)] += c_in[SHIndex(11, 4)] * -0.55722625443603;
00783 c_out[SHIndex(11, -9)] += c_in[SHIndex(11, 6)] * 0.63603688806046;
00784 c_out[SHIndex(11, -9)] += c_in[SHIndex(11, 8)] * -0.29501240332439;
00785 c_out[SHIndex(11, -9)] += c_in[SHIndex(11, 10)] * 0.0569596350446;
00786 c_out[SHIndex(11, -8)] += c_in[SHIndex(11, -10)] * -0.13072812914595;
00787 c_out[SHIndex(11, -8)] += c_in[SHIndex(11, -8)] * 0.5;
00788 c_out[SHIndex(11, -8)] += c_in[SHIndex(11, -6)] * -0.64612728525423;
00789 c_out[SHIndex(11, -8)] += c_in[SHIndex(11, -2)] * 0.56163127361286;
00790 c_out[SHIndex(11, -7)] += c_in[SHIndex(11, 0)] * 0.37296505974557;
00791 c_out[SHIndex(11, -7)] += c_in[SHIndex(11, 2)] * 0.13689999147559;
00792 c_out[SHIndex(11, -7)] += c_in[SHIndex(11, 4)] * -0.49510851970963;
00793 c_out[SHIndex(11, -7)] += c_in[SHIndex(11, 6)] * -0.32425698663836;
00794 c_out[SHIndex(11, -7)] += c_in[SHIndex(11, 8)] * 0.65553753643092;
00795 c_out[SHIndex(11, -7)] += c_in[SHIndex(11, 10)] * -0.24930093301108;
00796 c_out[SHIndex(11, -6)] += c_in[SHIndex(11, -10)] * 0.4054416537189;
00797 c_out[SHIndex(11, -6)] += c_in[SHIndex(11, -8)] * -0.64612728525423;
00798 c_out[SHIndex(11, -6)] += c_in[SHIndex(11, -6)] * -0.18359375;
00799 c_out[SHIndex(11, -6)] += c_in[SHIndex(11, -4)] * 0.41751216299648;
00800 c_out[SHIndex(11, -6)] += c_in[SHIndex(11, -2)] * 0.45838141911581;
00801 c_out[SHIndex(11, -5)] += c_in[SHIndex(11, 0)] * 0.35033967020805;
00802 c_out[SHIndex(11, -5)] += c_in[SHIndex(11, 2)] * 0.31014124452052;
00803 c_out[SHIndex(11, -5)] += c_in[SHIndex(11, 4)] * -0.134354558765;
00804 c_out[SHIndex(11, -5)] += c_in[SHIndex(11, 6)] * -0.52272828294257;
00805 c_out[SHIndex(11, -5)] += c_in[SHIndex(11, 8)] * -0.40784785676472;
00806 c_out[SHIndex(11, -5)] += c_in[SHIndex(11, 10)] * 0.56871666443773;
00807 c_out[SHIndex(11, -4)] += c_in[SHIndex(11, -10)] * -0.68785502197047;
00808 c_out[SHIndex(11, -4)] += c_in[SHIndex(11, -6)] * 0.41751216299648;
00809 c_out[SHIndex(11, -4)] += c_in[SHIndex(11, -4)] * 0.5;
00810 c_out[SHIndex(11, -4)] += c_in[SHIndex(11, -2)] * 0.32021721143624;
00811 c_out[SHIndex(11, -3)] += c_in[SHIndex(11, 0)] * 0.33846027667471;
00812 c_out[SHIndex(11, -3)] += c_in[SHIndex(11, 2)] * 0.41655170126194;
00813 c_out[SHIndex(11, -3)] += c_in[SHIndex(11, 4)] * 0.235349536428;
00814 c_out[SHIndex(11, -3)] += c_in[SHIndex(11, 6)] * -0.047641839522072;
00815 c_out[SHIndex(11, -3)] += c_in[SHIndex(11, 8)] * -0.3940184631669;
00816 c_out[SHIndex(11, -3)] += c_in[SHIndex(11, 10)] * -0.70641320967457;
00817 c_out[SHIndex(11, -2)] += c_in[SHIndex(11, -10)] * 0.58736804535412;
00818 c_out[SHIndex(11, -2)] += c_in[SHIndex(11, -8)] * 0.56163127361286;
00819 c_out[SHIndex(11, -2)] += c_in[SHIndex(11, -6)] * 0.45838141911581;
00820 c_out[SHIndex(11, -2)] += c_in[SHIndex(11, -4)] * 0.32021721143624;
00821 c_out[SHIndex(11, -2)] += c_in[SHIndex(11, -2)] * 0.1640625;
00822 c_out[SHIndex(11, -1)] += c_in[SHIndex(11, 0)] * 0.33321251269015;
00823 c_out[SHIndex(11, -1)] += c_in[SHIndex(11, 2)] * 0.46765007670082;
00824 c_out[SHIndex(11, -1)] += c_in[SHIndex(11, 4)] * 0.45637974396672;
00825 c_out[SHIndex(11, -1)] += c_in[SHIndex(11, 6)] * 0.4355293578316;
00826 c_out[SHIndex(11, -1)] += c_in[SHIndex(11, 8)] * 0.40022386008782;
00827 c_out[SHIndex(11, -1)] += c_in[SHIndex(11, 10)] * 0.33485130540064;
00828 c_out[SHIndex(11, 0)] += c_in[SHIndex(11, -11)] * 0.57997947393468;
00829 c_out[SHIndex(11, 0)] += c_in[SHIndex(11, -9)] * 0.41975832570892;
00830 c_out[SHIndex(11, 0)] += c_in[SHIndex(11, -7)] * 0.37296505974557;
00831 c_out[SHIndex(11, 0)] += c_in[SHIndex(11, -5)] * 0.35033967020805;
00832 c_out[SHIndex(11, 0)] += c_in[SHIndex(11, -3)] * 0.33846027667471;
00833 c_out[SHIndex(11, 0)] += c_in[SHIndex(11, -1)] * 0.33321251269015;
00834 c_out[SHIndex(11, 1)] += c_in[SHIndex(11, 1)] * -0.041015625;
00835 c_out[SHIndex(11, 1)] += c_in[SHIndex(11, 3)] * -0.1249847402795;
00836 c_out[SHIndex(11, 1)] += c_in[SHIndex(11, 5)] * -0.21561916177558;
00837 c_out[SHIndex(11, 1)] += c_in[SHIndex(11, 7)] * -0.32136177701095;
00838 c_out[SHIndex(11, 1)] += c_in[SHIndex(11, 9)] * -0.46501810346249;
00839 c_out[SHIndex(11, 1)] += c_in[SHIndex(11, 11)] * -0.78529592002432;
00840 c_out[SHIndex(11, 2)] += c_in[SHIndex(11, -11)] * -0.68875008418642;
00841 c_out[SHIndex(11, 2)] += c_in[SHIndex(11, -9)] * -0.13594928558824;
00842 c_out[SHIndex(11, 2)] += c_in[SHIndex(11, -7)] * 0.13689999147559;
00843 c_out[SHIndex(11, 2)] += c_in[SHIndex(11, -5)] * 0.31014124452052;
00844 c_out[SHIndex(11, 2)] += c_in[SHIndex(11, -3)] * 0.41655170126194;
00845 c_out[SHIndex(11, 2)] += c_in[SHIndex(11, -1)] * 0.46765007670082;
00846 c_out[SHIndex(11, 3)] += c_in[SHIndex(11, 1)] * -0.1249847402795;
00847 c_out[SHIndex(11, 3)] += c_in[SHIndex(11, 3)] * -0.349609375;
00848 c_out[SHIndex(11, 3)] += c_in[SHIndex(11, 5)] * -0.49531072862952;
00849 c_out[SHIndex(11, 3)] += c_in[SHIndex(11, 7)] * -0.49716719187292;
00850 c_out[SHIndex(11, 3)] += c_in[SHIndex(11, 9)] * -0.25433782432394;
00851 c_out[SHIndex(11, 3)] += c_in[SHIndex(11, 11)] * 0.55222860860085;
00852 c_out[SHIndex(11, 4)] += c_in[SHIndex(11, -11)] * 0.4032907544405;
00853 c_out[SHIndex(11, 4)] += c_in[SHIndex(11, -9)] * -0.55722625443603;
00854 c_out[SHIndex(11, 4)] += c_in[SHIndex(11, -7)] * -0.49510851970963;
00855 c_out[SHIndex(11, 4)] += c_in[SHIndex(11, -5)] * -0.134354558765;
00856 c_out[SHIndex(11, 4)] += c_in[SHIndex(11, -3)] * 0.235349536428;
00857 c_out[SHIndex(11, 4)] += c_in[SHIndex(11, -1)] * 0.45637974396672;
00858 c_out[SHIndex(11, 5)] += c_in[SHIndex(11, 1)] * -0.21561916177558;
00859 c_out[SHIndex(11, 5)] += c_in[SHIndex(11, 3)] * -0.49531072862952;
00860 c_out[SHIndex(11, 5)] += c_in[SHIndex(11, 5)] * -0.3857421875;
00861 c_out[SHIndex(11, 5)] += c_in[SHIndex(11, 7)] * 0.14035007305082;
00862 c_out[SHIndex(11, 5)] += c_in[SHIndex(11, 9)] * 0.68448811471567;
00863 c_out[SHIndex(11, 5)] += c_in[SHIndex(11, 11)] * -0.2667517605753;
00864 c_out[SHIndex(11, 6)] += c_in[SHIndex(11, -11)] * -0.158474160191;
00865 c_out[SHIndex(11, 6)] += c_in[SHIndex(11, -9)] * 0.63603688806046;
00866 c_out[SHIndex(11, 6)] += c_in[SHIndex(11, -7)] * -0.32425698663836;
00867 c_out[SHIndex(11, 6)] += c_in[SHIndex(11, -5)] * -0.52272828294257;
00868 c_out[SHIndex(11, 6)] += c_in[SHIndex(11, -3)] * -0.047641839522072;
00869 c_out[SHIndex(11, 6)] += c_in[SHIndex(11, -1)] * 0.4355293578316;
00870 c_out[SHIndex(11, 7)] += c_in[SHIndex(11, 1)] * -0.32136177701095;
00871 c_out[SHIndex(11, 7)] += c_in[SHIndex(11, 3)] * -0.49716719187292;
00872 c_out[SHIndex(11, 7)] += c_in[SHIndex(11, 5)] * 0.14035007305082;
00873 c_out[SHIndex(11, 7)] += c_in[SHIndex(11, 7)] * 0.6279296875;
00874 c_out[SHIndex(11, 7)] += c_in[SHIndex(11, 9)] * -0.47810190182411;
00875 c_out[SHIndex(11, 7)] += c_in[SHIndex(11, 11)] * 0.08352321608099;
00876 c_out[SHIndex(11, 8)] += c_in[SHIndex(11, -11)] * 0.0383230798249;
00877 c_out[SHIndex(11, 8)] += c_in[SHIndex(11, -9)] * -0.29501240332439;
00878 c_out[SHIndex(11, 8)] += c_in[SHIndex(11, -7)] * 0.65553753643092;
00879 c_out[SHIndex(11, 8)] += c_in[SHIndex(11, -5)] * -0.40784785676472;
00880 c_out[SHIndex(11, 8)] += c_in[SHIndex(11, -3)] * -0.3940184631669;
00881 c_out[SHIndex(11, 8)] += c_in[SHIndex(11, -1)] * 0.40022386008782;
00882 c_out[SHIndex(11, 9)] += c_in[SHIndex(11, 1)] * -0.46501810346249;
00883 c_out[SHIndex(11, 9)] += c_in[SHIndex(11, 3)] * -0.25433782432394;
00884 c_out[SHIndex(11, 9)] += c_in[SHIndex(11, 5)] * 0.68448811471567;
00885 c_out[SHIndex(11, 9)] += c_in[SHIndex(11, 7)] * -0.47810190182411;
00886 c_out[SHIndex(11, 9)] += c_in[SHIndex(11, 9)] * 0.1474609375;
00887 c_out[SHIndex(11, 9)] += c_in[SHIndex(11, 11)] * -0.014842464993721;
00888 c_out[SHIndex(11, 10)] += c_in[SHIndex(11, -11)] * -0.0045804841404526;
00889 c_out[SHIndex(11, 10)] += c_in[SHIndex(11, -9)] * 0.0569596350446;
00890 c_out[SHIndex(11, 10)] += c_in[SHIndex(11, -7)] * -0.24930093301108;
00891 c_out[SHIndex(11, 10)] += c_in[SHIndex(11, -5)] * 0.56871666443773;
00892 c_out[SHIndex(11, 10)] += c_in[SHIndex(11, -3)] * -0.70641320967457;
00893 c_out[SHIndex(11, 10)] += c_in[SHIndex(11, -1)] * 0.33485130540064;
00894 c_out[SHIndex(11, 11)] += c_in[SHIndex(11, 1)] * -0.78529592002432;
00895 c_out[SHIndex(11, 11)] += c_in[SHIndex(11, 3)] * 0.55222860860085;
00896 c_out[SHIndex(11, 11)] += c_in[SHIndex(11, 5)] * -0.2667517605753;
00897 c_out[SHIndex(11, 11)] += c_in[SHIndex(11, 7)] * 0.08352321608099;
00898 c_out[SHIndex(11, 11)] += c_in[SHIndex(11, 9)] * -0.014842464993721;
00899 c_out[SHIndex(11, 11)] += c_in[SHIndex(11, 11)] * 0.0009765625;
00900 if (lmax == 11) return;
00901
00902
00903 c_out[SHIndex(12, -12)] += c_in[SHIndex(12, 1)] * 0.7714448170238;
00904 c_out[SHIndex(12, -12)] += c_in[SHIndex(12, 3)] * -0.55833076742161;
00905 c_out[SHIndex(12, -12)] += c_in[SHIndex(12, 5)] * 0.28725880996301;
00906 c_out[SHIndex(12, -12)] += c_in[SHIndex(12, 7)] * -0.1006664953504;
00907 c_out[SHIndex(12, -12)] += c_in[SHIndex(12, 9)] * 0.021967230232816;
00908 c_out[SHIndex(12, -12)] += c_in[SHIndex(12, 11)] * -0.0023920798269367;
00909 c_out[SHIndex(12, -11)] += c_in[SHIndex(12, -11)] * 0.0107421875;
00910 c_out[SHIndex(12, -11)] += c_in[SHIndex(12, -9)] * -0.08071275769896;
00911 c_out[SHIndex(12, -11)] += c_in[SHIndex(12, -7)] * 0.28767847243653;
00912 c_out[SHIndex(12, -11)] += c_in[SHIndex(12, -5)] * -0.58636459044042;
00913 c_out[SHIndex(12, -11)] += c_in[SHIndex(12, -3)] * 0.68381274393975;
00914 c_out[SHIndex(12, -11)] += c_in[SHIndex(12, -1)] * -0.31494102773718;
00915 c_out[SHIndex(12, -10)] += c_in[SHIndex(12, 1)] * 0.46435521203003;
00916 c_out[SHIndex(12, -10)] += c_in[SHIndex(12, 3)] * 0.20164537722025;
00917 c_out[SHIndex(12, -10)] += c_in[SHIndex(12, 5)] * -0.65705604098221;
00918 c_out[SHIndex(12, -10)] += c_in[SHIndex(12, 7)] * 0.52110934255626;
00919 c_out[SHIndex(12, -10)] += c_in[SHIndex(12, 9)] * -0.19834078136318;
00920 c_out[SHIndex(12, -10)] += c_in[SHIndex(12, 11)] * 0.033116845620729;
00921 c_out[SHIndex(12, -9)] += c_in[SHIndex(12, -11)] * -0.08071275769896;
00922 c_out[SHIndex(12, -9)] += c_in[SHIndex(12, -9)] * 0.3720703125;
00923 c_out[SHIndex(12, -9)] += c_in[SHIndex(12, -7)] * -0.65785022183448;
00924 c_out[SHIndex(12, -9)] += c_in[SHIndex(12, -5)] * 0.31925529371636;
00925 c_out[SHIndex(12, -9)] += c_in[SHIndex(12, -3)] * 0.42195411222922;
00926 c_out[SHIndex(12, -9)] += c_in[SHIndex(12, -1)] * -0.37724395759248;
00927 c_out[SHIndex(12, -8)] += c_in[SHIndex(12, 1)] * 0.32928552212043;
00928 c_out[SHIndex(12, -8)] += c_in[SHIndex(12, 3)] * 0.45497333155019;
00929 c_out[SHIndex(12, -8)] += c_in[SHIndex(12, 5)] * -0.23408184791529;
00930 c_out[SHIndex(12, -8)] += c_in[SHIndex(12, 7)] * -0.54296875;
00931 c_out[SHIndex(12, -8)] += c_in[SHIndex(12, 9)] * 0.55492127556106;
00932 c_out[SHIndex(12, -8)] += c_in[SHIndex(12, 11)] * -0.16438769853516;
00933 c_out[SHIndex(12, -7)] += c_in[SHIndex(12, -11)] * 0.28767847243653;
00934 c_out[SHIndex(12, -7)] += c_in[SHIndex(12, -9)] * -0.65785022183448;
00935 c_out[SHIndex(12, -7)] += c_in[SHIndex(12, -7)] * 0.1572265625;
00936 c_out[SHIndex(12, -7)] += c_in[SHIndex(12, -5)] * 0.52668415780941;
00937 c_out[SHIndex(12, -7)] += c_in[SHIndex(12, -3)] * 0.11374333288755;
00938 c_out[SHIndex(12, -7)] += c_in[SHIndex(12, -1)] * -0.41160690265054;
00939 c_out[SHIndex(12, -6)] += c_in[SHIndex(12, 1)] * 0.23130311098295;
00940 c_out[SHIndex(12, -6)] += c_in[SHIndex(12, 3)] * 0.49003980202465;
00941 c_out[SHIndex(12, -6)] += c_in[SHIndex(12, 5)] * 0.27404717188286;
00942 c_out[SHIndex(12, -6)] += c_in[SHIndex(12, 7)] * -0.30237819268448;
00943 c_out[SHIndex(12, -6)] += c_in[SHIndex(12, 9)] * -0.58930833781358;
00944 c_out[SHIndex(12, -6)] += c_in[SHIndex(12, 11)] * 0.43879508023282;
00945 c_out[SHIndex(12, -5)] += c_in[SHIndex(12, -11)] * -0.58636459044042;
00946 c_out[SHIndex(12, -5)] += c_in[SHIndex(12, -9)] * 0.31925529371636;
00947 c_out[SHIndex(12, -5)] += c_in[SHIndex(12, -7)] * 0.52668415780941;
00948 c_out[SHIndex(12, -5)] += c_in[SHIndex(12, -5)] * 0.2568359375;
00949 c_out[SHIndex(12, -5)] += c_in[SHIndex(12, -3)] * -0.15374580191487;
00950 c_out[SHIndex(12, -5)] += c_in[SHIndex(12, -1)] * -0.43272849689657;
00951 c_out[SHIndex(12, -4)] += c_in[SHIndex(12, 1)] * 0.14842464993721;
00952 c_out[SHIndex(12, -4)] += c_in[SHIndex(12, 3)] * 0.392578125;
00953 c_out[SHIndex(12, -4)] += c_in[SHIndex(12, 5)] * 0.48401456158384;
00954 c_out[SHIndex(12, -4)] += c_in[SHIndex(12, 7)] * 0.34122999866264;
00955 c_out[SHIndex(12, -4)] += c_in[SHIndex(12, 9)] * -0.074462490393392;
00956 c_out[SHIndex(12, -4)] += c_in[SHIndex(12, 11)] * -0.68381274393975;
00957 c_out[SHIndex(12, -3)] += c_in[SHIndex(12, -11)] * 0.68381274393975;
00958 c_out[SHIndex(12, -3)] += c_in[SHIndex(12, -9)] * 0.42195411222922;
00959 c_out[SHIndex(12, -3)] += c_in[SHIndex(12, -7)] * 0.11374333288755;
00960 c_out[SHIndex(12, -3)] += c_in[SHIndex(12, -5)] * -0.15374580191487;
00961 c_out[SHIndex(12, -3)] += c_in[SHIndex(12, -3)] * -0.345703125;
00962 c_out[SHIndex(12, -3)] += c_in[SHIndex(12, -1)] * -0.44527394981164;
00963 c_out[SHIndex(12, -2)] += c_in[SHIndex(12, 1)] * 0.072712931519478;
00964 c_out[SHIndex(12, -2)] += c_in[SHIndex(12, 3)] * 0.2152871844243;
00965 c_out[SHIndex(12, -2)] += c_in[SHIndex(12, 5)] * 0.34870255998744;
00966 c_out[SHIndex(12, -2)] += c_in[SHIndex(12, 7)] * 0.46435521203003;
00967 c_out[SHIndex(12, -2)] += c_in[SHIndex(12, 9)] * 0.54718531932211;
00968 c_out[SHIndex(12, -2)] += c_in[SHIndex(12, 11)] * 0.55833076742161;
00969 c_out[SHIndex(12, -1)] += c_in[SHIndex(12, -11)] * -0.31494102773718;
00970 c_out[SHIndex(12, -1)] += c_in[SHIndex(12, -9)] * -0.37724395759248;
00971 c_out[SHIndex(12, -1)] += c_in[SHIndex(12, -7)] * -0.41160690265054;
00972 c_out[SHIndex(12, -1)] += c_in[SHIndex(12, -5)] * -0.43272849689657;
00973 c_out[SHIndex(12, -1)] += c_in[SHIndex(12, -3)] * -0.44527394981164;
00974 c_out[SHIndex(12, -1)] += c_in[SHIndex(12, -1)] * -0.451171875;
00975 c_out[SHIndex(12, 0)] += c_in[SHIndex(12, 0)] * 0.2255859375;
00976 c_out[SHIndex(12, 0)] += c_in[SHIndex(12, 2)] * 0.32109161153485;
00977 c_out[SHIndex(12, 0)] += c_in[SHIndex(12, 4)] * 0.32771275372847;
00978 c_out[SHIndex(12, 0)] += c_in[SHIndex(12, 6)] * 0.34046896063985;
00979 c_out[SHIndex(12, 0)] += c_in[SHIndex(12, 8)] * 0.36352137351394;
00980 c_out[SHIndex(12, 0)] += c_in[SHIndex(12, 10)] * 0.41010741896822;
00981 c_out[SHIndex(12, 0)] += c_in[SHIndex(12, 12)] * 0.56776801212686;
00982 c_out[SHIndex(12, 1)] += c_in[SHIndex(12, -12)] * 0.7714448170238;
00983 c_out[SHIndex(12, 1)] += c_in[SHIndex(12, -10)] * 0.46435521203003;
00984 c_out[SHIndex(12, 1)] += c_in[SHIndex(12, -8)] * 0.32928552212043;
00985 c_out[SHIndex(12, 1)] += c_in[SHIndex(12, -6)] * 0.23130311098295;
00986 c_out[SHIndex(12, 1)] += c_in[SHIndex(12, -4)] * 0.14842464993721;
00987 c_out[SHIndex(12, 1)] += c_in[SHIndex(12, -2)] * 0.072712931519478;
00988 c_out[SHIndex(12, 2)] += c_in[SHIndex(12, 0)] * 0.32109161153485;
00989 c_out[SHIndex(12, 2)] += c_in[SHIndex(12, 2)] * 0.43359375;
00990 c_out[SHIndex(12, 2)] += c_in[SHIndex(12, 4)] * 0.37077237317519;
00991 c_out[SHIndex(12, 2)] += c_in[SHIndex(12, 6)] * 0.2609451018728;
00992 c_out[SHIndex(12, 2)] += c_in[SHIndex(12, 8)] * 0.092871042406006;
00993 c_out[SHIndex(12, 2)] += c_in[SHIndex(12, 10)] * -0.16464276106022;
00994 c_out[SHIndex(12, 2)] += c_in[SHIndex(12, 12)] * -0.68381274393975;
00995 c_out[SHIndex(12, 3)] += c_in[SHIndex(12, -12)] * -0.55833076742161;
00996 c_out[SHIndex(12, 3)] += c_in[SHIndex(12, -10)] * 0.20164537722025;
00997 c_out[SHIndex(12, 3)] += c_in[SHIndex(12, -8)] * 0.45497333155019;
00998 c_out[SHIndex(12, 3)] += c_in[SHIndex(12, -6)] * 0.49003980202465;
00999 c_out[SHIndex(12, 3)] += c_in[SHIndex(12, -4)] * 0.392578125;
01000 c_out[SHIndex(12, 3)] += c_in[SHIndex(12, -2)] * 0.2152871844243;
01001 c_out[SHIndex(12, 4)] += c_in[SHIndex(12, 0)] * 0.32771275372847;
01002 c_out[SHIndex(12, 4)] += c_in[SHIndex(12, 2)] * 0.37077237317519;
01003 c_out[SHIndex(12, 4)] += c_in[SHIndex(12, 4)] * 0.11669921875;
01004 c_out[SHIndex(12, 4)] += c_in[SHIndex(12, 6)] * -0.22371382266343;
01005 c_out[SHIndex(12, 4)] += c_in[SHIndex(12, 8)] * -0.51184499799396;
01006 c_out[SHIndex(12, 4)] += c_in[SHIndex(12, 10)] * -0.50411344305062;
01007 c_out[SHIndex(12, 4)] += c_in[SHIndex(12, 12)] * 0.41874807556621;
01008 c_out[SHIndex(12, 5)] += c_in[SHIndex(12, -12)] * 0.28725880996301;
01009 c_out[SHIndex(12, 5)] += c_in[SHIndex(12, -10)] * -0.65705604098221;
01010 c_out[SHIndex(12, 5)] += c_in[SHIndex(12, -8)] * -0.23408184791529;
01011 c_out[SHIndex(12, 5)] += c_in[SHIndex(12, -6)] * 0.27404717188286;
01012 c_out[SHIndex(12, 5)] += c_in[SHIndex(12, -4)] * 0.48401456158384;
01013 c_out[SHIndex(12, 5)] += c_in[SHIndex(12, -2)] * 0.34870255998744;
01014 c_out[SHIndex(12, 6)] += c_in[SHIndex(12, 0)] * 0.34046896063985;
01015 c_out[SHIndex(12, 6)] += c_in[SHIndex(12, 2)] * 0.2609451018728;
01016 c_out[SHIndex(12, 6)] += c_in[SHIndex(12, 4)] * -0.22371382266343;
01017 c_out[SHIndex(12, 6)] += c_in[SHIndex(12, 6)] * -0.525390625;
01018 c_out[SHIndex(12, 6)] += c_in[SHIndex(12, 8)] * -0.19810985037949;
01019 c_out[SHIndex(12, 6)] += c_in[SHIndex(12, 10)] * 0.64696804980671;
01020 c_out[SHIndex(12, 6)] += c_in[SHIndex(12, 12)] * -0.179137341369;
01021 c_out[SHIndex(12, 7)] += c_in[SHIndex(12, -12)] * -0.1006664953504;
01022 c_out[SHIndex(12, 7)] += c_in[SHIndex(12, -10)] * 0.52110934255626;
01023 c_out[SHIndex(12, 7)] += c_in[SHIndex(12, -8)] * -0.54296875;
01024 c_out[SHIndex(12, 7)] += c_in[SHIndex(12, -6)] * -0.30237819268448;
01025 c_out[SHIndex(12, 7)] += c_in[SHIndex(12, -4)] * 0.34122999866264;
01026 c_out[SHIndex(12, 7)] += c_in[SHIndex(12, -2)] * 0.46435521203003;
01027 c_out[SHIndex(12, 8)] += c_in[SHIndex(12, 0)] * 0.36352137351394;
01028 c_out[SHIndex(12, 8)] += c_in[SHIndex(12, 2)] * 0.092871042406006;
01029 c_out[SHIndex(12, 8)] += c_in[SHIndex(12, 4)] * -0.51184499799396;
01030 c_out[SHIndex(12, 8)] += c_in[SHIndex(12, 6)] * -0.19810985037949;
01031 c_out[SHIndex(12, 8)] += c_in[SHIndex(12, 8)] * 0.6572265625;
01032 c_out[SHIndex(12, 8)] += c_in[SHIndex(12, 10)] * -0.35144583567748;
01033 c_out[SHIndex(12, 8)] += c_in[SHIndex(12, 12)] * 0.050333247675202;
01034 c_out[SHIndex(12, 9)] += c_in[SHIndex(12, -12)] * 0.021967230232816;
01035 c_out[SHIndex(12, 9)] += c_in[SHIndex(12, -10)] * -0.19834078136318;
01036 c_out[SHIndex(12, 9)] += c_in[SHIndex(12, -8)] * 0.55492127556106;
01037 c_out[SHIndex(12, 9)] += c_in[SHIndex(12, -6)] * -0.58930833781358;
01038 c_out[SHIndex(12, 9)] += c_in[SHIndex(12, -4)] * -0.074462490393392;
01039 c_out[SHIndex(12, 9)] += c_in[SHIndex(12, -2)] * 0.54718531932211;
01040 c_out[SHIndex(12, 10)] += c_in[SHIndex(12, 0)] * 0.41010741896822;
01041 c_out[SHIndex(12, 10)] += c_in[SHIndex(12, 2)] * -0.16464276106022;
01042 c_out[SHIndex(12, 10)] += c_in[SHIndex(12, 4)] * -0.50411344305062;
01043 c_out[SHIndex(12, 10)] += c_in[SHIndex(12, 6)] * 0.64696804980671;
01044 c_out[SHIndex(12, 10)] += c_in[SHIndex(12, 8)] * -0.35144583567748;
01045 c_out[SHIndex(12, 10)] += c_in[SHIndex(12, 10)] * 0.091796875;
01046 c_out[SHIndex(12, 10)] += c_in[SHIndex(12, 12)] * -0.0081119373661309;
01047 c_out[SHIndex(12, 11)] += c_in[SHIndex(12, -12)] * -0.0023920798269367;
01048 c_out[SHIndex(12, 11)] += c_in[SHIndex(12, -10)] * 0.033116845620729;
01049 c_out[SHIndex(12, 11)] += c_in[SHIndex(12, -8)] * -0.16438769853516;
01050 c_out[SHIndex(12, 11)] += c_in[SHIndex(12, -6)] * 0.43879508023282;
01051 c_out[SHIndex(12, 11)] += c_in[SHIndex(12, -4)] * -0.68381274393975;
01052 c_out[SHIndex(12, 11)] += c_in[SHIndex(12, -2)] * 0.55833076742161;
01053 c_out[SHIndex(12, 12)] += c_in[SHIndex(12, 0)] * 0.56776801212686;
01054 c_out[SHIndex(12, 12)] += c_in[SHIndex(12, 2)] * -0.68381274393975;
01055 c_out[SHIndex(12, 12)] += c_in[SHIndex(12, 4)] * 0.41874807556621;
01056 c_out[SHIndex(12, 12)] += c_in[SHIndex(12, 6)] * -0.179137341369;
01057 c_out[SHIndex(12, 12)] += c_in[SHIndex(12, 8)] * 0.050333247675202;
01058 c_out[SHIndex(12, 12)] += c_in[SHIndex(12, 10)] * -0.0081119373661309;
01059 c_out[SHIndex(12, 12)] += c_in[SHIndex(12, 12)] * 0.00048828125;
01060 if (lmax == 12) return;
01061
01062
01063 c_out[SHIndex(13, -13)] += c_in[SHIndex(13, 0)] * -0.55674234096704;
01064 c_out[SHIndex(13, -13)] += c_in[SHIndex(13, 2)] * 0.67861257155894;
01065 c_out[SHIndex(13, -13)] += c_in[SHIndex(13, 4)] * -0.43155265360434;
01066 c_out[SHIndex(13, -13)] += c_in[SHIndex(13, 6)] * 0.19800993746086;
01067 c_out[SHIndex(13, -13)] += c_in[SHIndex(13, 8)] * -0.06261624017238;
01068 c_out[SHIndex(13, -13)] += c_in[SHIndex(13, 10)] * 0.012448778109357;
01069 c_out[SHIndex(13, -13)] += c_in[SHIndex(13, 12)] * -0.0012448778109357;
01070 c_out[SHIndex(13, -12)] += c_in[SHIndex(13, -12)] * 0.005859375;
01071 c_out[SHIndex(13, -12)] += c_in[SHIndex(13, -10)] * -0.048828125;
01072 c_out[SHIndex(13, -12)] += c_in[SHIndex(13, -8)] * 0.19648088031186;
01073 c_out[SHIndex(13, -12)] += c_in[SHIndex(13, -6)] * -0.46599532384532;
01074 c_out[SHIndex(13, -12)] += c_in[SHIndex(13, -4)] * 0.67707550826808;
01075 c_out[SHIndex(13, -12)] += c_in[SHIndex(13, -2)] * -0.53234749916129;
01076 c_out[SHIndex(13, -11)] += c_in[SHIndex(13, 0)] * -0.40147261151571;
01077 c_out[SHIndex(13, -11)] += c_in[SHIndex(13, 2)] * 0.18821326330232;
01078 c_out[SHIndex(13, -11)] += c_in[SHIndex(13, 4)] * 0.45482644910811;
01079 c_out[SHIndex(13, -11)] += c_in[SHIndex(13, 6)] * -0.64803329186808;
01080 c_out[SHIndex(13, -11)] += c_in[SHIndex(13, 8)] * 0.39943226817081;
01081 c_out[SHIndex(13, -11)] += c_in[SHIndex(13, 10)] * -0.12912985164247;
01082 c_out[SHIndex(13, -11)] += c_in[SHIndex(13, 12)] * 0.018989684065068;
01083 c_out[SHIndex(13, -10)] += c_in[SHIndex(13, -12)] * -0.048828125;
01084 c_out[SHIndex(13, -10)] += c_in[SHIndex(13, -10)] * 0.263671875;
01085 c_out[SHIndex(13, -10)] += c_in[SHIndex(13, -8)] * -0.58944264093559;
01086 c_out[SHIndex(13, -10)] += c_in[SHIndex(13, -6)] * 0.52812803369136;
01087 c_out[SHIndex(13, -10)] += c_in[SHIndex(13, -4)] * 0.13541510165362;
01088 c_out[SHIndex(13, -10)] += c_in[SHIndex(13, -2)] * -0.53234749916129;
01089 c_out[SHIndex(13, -9)] += c_in[SHIndex(13, 0)] * -0.35516344310694;
01090 c_out[SHIndex(13, -9)] += c_in[SHIndex(13, 2)] * -0.055501063431183;
01091 c_out[SHIndex(13, -9)] += c_in[SHIndex(13, 4)] * 0.51530701050804;
01092 c_out[SHIndex(13, -9)] += c_in[SHIndex(13, 6)] * 0.087450067714449;
01093 c_out[SHIndex(13, -9)] += c_in[SHIndex(13, 8)] * -0.62989984533657;
01094 c_out[SHIndex(13, -9)] += c_in[SHIndex(13, 10)] * 0.43555891764461;
01095 c_out[SHIndex(13, -9)] += c_in[SHIndex(13, 12)] * -0.10537715749466;
01096 c_out[SHIndex(13, -8)] += c_in[SHIndex(13, -12)] * 0.19648088031186;
01097 c_out[SHIndex(13, -8)] += c_in[SHIndex(13, -10)] * -0.58944264093559;
01098 c_out[SHIndex(13, -8)] += c_in[SHIndex(13, -8)] * 0.421875;
01099 c_out[SHIndex(13, -8)] += c_in[SHIndex(13, -6)] * 0.38293206041101;
01100 c_out[SHIndex(13, -8)] += c_in[SHIndex(13, -4)] * -0.26921970218926;
01101 c_out[SHIndex(13, -8)] += c_in[SHIndex(13, -2)] * -0.46568005127582;
01102 c_out[SHIndex(13, -7)] += c_in[SHIndex(13, 0)] * -0.33184809401475;
01103 c_out[SHIndex(13, -7)] += c_in[SHIndex(13, 2)] * -0.21780190046618;
01104 c_out[SHIndex(13, -7)] += c_in[SHIndex(13, 4)] * 0.28960676761644;
01105 c_out[SHIndex(13, -7)] += c_in[SHIndex(13, 6)] * 0.49108084137057;
01106 c_out[SHIndex(13, -7)] += c_in[SHIndex(13, 8)] * 0.0127888680212;
01107 c_out[SHIndex(13, -7)] += c_in[SHIndex(13, 10)] * -0.64326862003139;
01108 c_out[SHIndex(13, -7)] += c_in[SHIndex(13, 12)] * 0.3216343100157;
01109 c_out[SHIndex(13, -6)] += c_in[SHIndex(13, -12)] * -0.46599532384532;
01110 c_out[SHIndex(13, -6)] += c_in[SHIndex(13, -10)] * 0.52812803369136;
01111 c_out[SHIndex(13, -6)] += c_in[SHIndex(13, -8)] * 0.38293206041101;
01112 c_out[SHIndex(13, -6)] += c_in[SHIndex(13, -6)] * -0.134765625;
01113 c_out[SHIndex(13, -6)] += c_in[SHIndex(13, -4)] * -0.45121414845245;
01114 c_out[SHIndex(13, -6)] += c_in[SHIndex(13, -2)] * -0.3681524057339;
01115 c_out[SHIndex(13, -5)] += c_in[SHIndex(13, 0)] * -0.31847955038634;
01116 c_out[SHIndex(13, -5)] += c_in[SHIndex(13, 2)] * -0.32847213547974;
01117 c_out[SHIndex(13, -5)] += c_in[SHIndex(13, 4)] * -0.014846480269053;
01118 c_out[SHIndex(13, -5)] += c_in[SHIndex(13, 6)] * 0.34012635856225;
01119 c_out[SHIndex(13, -5)] += c_in[SHIndex(13, 8)] * 0.50923193110086;
01120 c_out[SHIndex(13, -5)] += c_in[SHIndex(13, 10)] * 0.23938234163585;
01121 c_out[SHIndex(13, -5)] += c_in[SHIndex(13, 12)] * -0.59845585408961;
01122 c_out[SHIndex(13, -4)] += c_in[SHIndex(13, -12)] * 0.67707550826808;
01123 c_out[SHIndex(13, -4)] += c_in[SHIndex(13, -10)] * 0.13541510165362;
01124 c_out[SHIndex(13, -4)] += c_in[SHIndex(13, -8)] * -0.26921970218926;
01125 c_out[SHIndex(13, -4)] += c_in[SHIndex(13, -6)] * -0.45121414845245;
01126 c_out[SHIndex(13, -4)] += c_in[SHIndex(13, -4)] * -0.427734375;
01127 c_out[SHIndex(13, -4)] += c_in[SHIndex(13, -2)] * -0.25337986301296;
01128 c_out[SHIndex(13, -3)] += c_in[SHIndex(13, 0)] * -0.31089561602034;
01129 c_out[SHIndex(13, -3)] += c_in[SHIndex(13, 2)] * -0.39838364181027;
01130 c_out[SHIndex(13, -3)] += c_in[SHIndex(13, 4)] * -0.27693877404914;
01131 c_out[SHIndex(13, -3)] += c_in[SHIndex(13, 6)] * -0.083251595146774;
01132 c_out[SHIndex(13, -3)] += c_in[SHIndex(13, 8)] * 0.16673428435382;
01133 c_out[SHIndex(13, -3)] += c_in[SHIndex(13, 10)] * 0.44139922820051;
01134 c_out[SHIndex(13, -3)] += c_in[SHIndex(13, 12)] * 0.66209884230076;
01135 c_out[SHIndex(13, -2)] += c_in[SHIndex(13, -12)] * -0.53234749916129;
01136 c_out[SHIndex(13, -2)] += c_in[SHIndex(13, -10)] * -0.53234749916129;
01137 c_out[SHIndex(13, -2)] += c_in[SHIndex(13, -8)] * -0.46568005127582;
01138 c_out[SHIndex(13, -2)] += c_in[SHIndex(13, -6)] * -0.3681524057339;
01139 c_out[SHIndex(13, -2)] += c_in[SHIndex(13, -4)] * -0.25337986301296;
01140 c_out[SHIndex(13, -2)] += c_in[SHIndex(13, -2)] * -0.12890625;
01141 c_out[SHIndex(13, -1)] += c_in[SHIndex(13, 0)] * -0.30742181295663;
01142 c_out[SHIndex(13, -1)] += c_in[SHIndex(13, 2)] * -0.43236470658687;
01143 c_out[SHIndex(13, -1)] += c_in[SHIndex(13, 4)] * -0.42493094836993;
01144 c_out[SHIndex(13, -1)] += c_in[SHIndex(13, 6)] * -0.41160690265054;
01145 c_out[SHIndex(13, -1)] += c_in[SHIndex(13, 8)] * -0.39048459390687;
01146 c_out[SHIndex(13, -1)] += c_in[SHIndex(13, 10)] * -0.357109558733;
01147 c_out[SHIndex(13, -1)] += c_in[SHIndex(13, 12)] * -0.29759129894417;
01148 c_out[SHIndex(13, 0)] += c_in[SHIndex(13, -13)] * -0.55674234096704;
01149 c_out[SHIndex(13, 0)] += c_in[SHIndex(13, -11)] * -0.40147261151571;
01150 c_out[SHIndex(13, 0)] += c_in[SHIndex(13, -9)] * -0.35516344310694;
01151 c_out[SHIndex(13, 0)] += c_in[SHIndex(13, -7)] * -0.33184809401475;
01152 c_out[SHIndex(13, 0)] += c_in[SHIndex(13, -5)] * -0.31847955038634;
01153 c_out[SHIndex(13, 0)] += c_in[SHIndex(13, -3)] * -0.31089561602034;
01154 c_out[SHIndex(13, 0)] += c_in[SHIndex(13, -1)] * -0.30742181295663;
01155 c_out[SHIndex(13, 1)] += c_in[SHIndex(13, 1)] * 0.0322265625;
01156 c_out[SHIndex(13, 1)] += c_in[SHIndex(13, 3)] * 0.097772148023234;
01157 c_out[SHIndex(13, 1)] += c_in[SHIndex(13, 5)] * 0.166928641738;
01158 c_out[SHIndex(13, 1)] += c_in[SHIndex(13, 7)] * 0.24350992753551;
01159 c_out[SHIndex(13, 1)] += c_in[SHIndex(13, 9)] * 0.33508120677026;
01160 c_out[SHIndex(13, 1)] += c_in[SHIndex(13, 11)] * 0.46294341611217;
01161 c_out[SHIndex(13, 1)] += c_in[SHIndex(13, 13)] * 0.75871192019586;
01162 c_out[SHIndex(13, 2)] += c_in[SHIndex(13, -13)] * 0.67861257155894;
01163 c_out[SHIndex(13, 2)] += c_in[SHIndex(13, -11)] * 0.18821326330232;
01164 c_out[SHIndex(13, 2)] += c_in[SHIndex(13, -9)] * -0.055501063431183;
01165 c_out[SHIndex(13, 2)] += c_in[SHIndex(13, -7)] * -0.21780190046618;
01166 c_out[SHIndex(13, 2)] += c_in[SHIndex(13, -5)] * -0.32847213547974;
01167 c_out[SHIndex(13, 2)] += c_in[SHIndex(13, -3)] * -0.39838364181027;
01168 c_out[SHIndex(13, 2)] += c_in[SHIndex(13, -1)] * -0.43236470658687;
01169 c_out[SHIndex(13, 3)] += c_in[SHIndex(13, 1)] * 0.097772148023234;
01170 c_out[SHIndex(13, 3)] += c_in[SHIndex(13, 3)] * 0.279052734375;
01171 c_out[SHIndex(13, 3)] += c_in[SHIndex(13, 5)] * 0.41641008901347;
01172 c_out[SHIndex(13, 3)] += c_in[SHIndex(13, 7)] * 0.47610564299334;
01173 c_out[SHIndex(13, 3)] += c_in[SHIndex(13, 9)] * 0.41417145645063;
01174 c_out[SHIndex(13, 3)] += c_in[SHIndex(13, 11)] * 0.15605819373554;
01175 c_out[SHIndex(13, 3)] += c_in[SHIndex(13, 13)] * -0.5626758194698;
01176 c_out[SHIndex(13, 4)] += c_in[SHIndex(13, -13)] * -0.43155265360434;
01177 c_out[SHIndex(13, 4)] += c_in[SHIndex(13, -11)] * 0.45482644910811;
01178 c_out[SHIndex(13, 4)] += c_in[SHIndex(13, -9)] * 0.51530701050804;
01179 c_out[SHIndex(13, 4)] += c_in[SHIndex(13, -7)] * 0.28960676761644;
01180 c_out[SHIndex(13, 4)] += c_in[SHIndex(13, -5)] * -0.014846480269053;
01181 c_out[SHIndex(13, 4)] += c_in[SHIndex(13, -3)] * -0.27693877404914;
01182 c_out[SHIndex(13, 4)] += c_in[SHIndex(13, -1)] * -0.42493094836993;
01183 c_out[SHIndex(13, 5)] += c_in[SHIndex(13, 1)] * 0.166928641738;
01184 c_out[SHIndex(13, 5)] += c_in[SHIndex(13, 3)] * 0.41641008901347;
01185 c_out[SHIndex(13, 5)] += c_in[SHIndex(13, 5)] * 0.438232421875;
01186 c_out[SHIndex(13, 5)] += c_in[SHIndex(13, 7)] * 0.16916849025752;
01187 c_out[SHIndex(13, 5)] += c_in[SHIndex(13, 9)] * -0.30447947908103;
01188 c_out[SHIndex(13, 5)] += c_in[SHIndex(13, 11)] * -0.62629484514798;
01189 c_out[SHIndex(13, 5)] += c_in[SHIndex(13, 13)] * 0.30515380780268;
01190 c_out[SHIndex(13, 6)] += c_in[SHIndex(13, -13)] * 0.19800993746086;
01191 c_out[SHIndex(13, 6)] += c_in[SHIndex(13, -11)] * -0.64803329186808;
01192 c_out[SHIndex(13, 6)] += c_in[SHIndex(13, -9)] * 0.087450067714449;
01193 c_out[SHIndex(13, 6)] += c_in[SHIndex(13, -7)] * 0.49108084137057;
01194 c_out[SHIndex(13, 6)] += c_in[SHIndex(13, -5)] * 0.34012635856225;
01195 c_out[SHIndex(13, 6)] += c_in[SHIndex(13, -3)] * -0.083251595146774;
01196 c_out[SHIndex(13, 6)] += c_in[SHIndex(13, -1)] * -0.41160690265054;
01197 c_out[SHIndex(13, 7)] += c_in[SHIndex(13, 1)] * 0.24350992753551;
01198 c_out[SHIndex(13, 7)] += c_in[SHIndex(13, 3)] * 0.47610564299334;
01199 c_out[SHIndex(13, 7)] += c_in[SHIndex(13, 5)] * 0.16916849025752;
01200 c_out[SHIndex(13, 7)] += c_in[SHIndex(13, 7)] * -0.40478515625;
01201 c_out[SHIndex(13, 7)] += c_in[SHIndex(13, 9)] * -0.45029618794257;
01202 c_out[SHIndex(13, 7)] += c_in[SHIndex(13, 11)] * 0.552329518352;
01203 c_out[SHIndex(13, 7)] += c_in[SHIndex(13, 13)] * -0.1171442587865;
01204 c_out[SHIndex(13, 8)] += c_in[SHIndex(13, -13)] * -0.06261624017238;
01205 c_out[SHIndex(13, 8)] += c_in[SHIndex(13, -11)] * 0.39943226817081;
01206 c_out[SHIndex(13, 8)] += c_in[SHIndex(13, -9)] * -0.62989984533657;
01207 c_out[SHIndex(13, 8)] += c_in[SHIndex(13, -7)] * 0.0127888680212;
01208 c_out[SHIndex(13, 8)] += c_in[SHIndex(13, -5)] * 0.50923193110086;
01209 c_out[SHIndex(13, 8)] += c_in[SHIndex(13, -3)] * 0.16673428435382;
01210 c_out[SHIndex(13, 8)] += c_in[SHIndex(13, -1)] * -0.39048459390687;
01211 c_out[SHIndex(13, 9)] += c_in[SHIndex(13, 1)] * 0.33508120677026;
01212 c_out[SHIndex(13, 9)] += c_in[SHIndex(13, 3)] * 0.41417145645063;
01213 c_out[SHIndex(13, 9)] += c_in[SHIndex(13, 5)] * -0.30447947908103;
01214 c_out[SHIndex(13, 9)] += c_in[SHIndex(13, 7)] * -0.45029618794257;
01215 c_out[SHIndex(13, 9)] += c_in[SHIndex(13, 9)] * 0.59912109375;
01216 c_out[SHIndex(13, 9)] += c_in[SHIndex(13, 11)] * -0.24672049987443;
01217 c_out[SHIndex(13, 9)] += c_in[SHIndex(13, 13)] * 0.029851121241791;
01218 c_out[SHIndex(13, 10)] += c_in[SHIndex(13, -13)] * 0.012448778109357;
01219 c_out[SHIndex(13, 10)] += c_in[SHIndex(13, -11)] * -0.12912985164247;
01220 c_out[SHIndex(13, 10)] += c_in[SHIndex(13, -9)] * 0.43555891764461;
01221 c_out[SHIndex(13, 10)] += c_in[SHIndex(13, -7)] * -0.64326862003139;
01222 c_out[SHIndex(13, 10)] += c_in[SHIndex(13, -5)] * 0.23938234163585;
01223 c_out[SHIndex(13, 10)] += c_in[SHIndex(13, -3)] * 0.44139922820051;
01224 c_out[SHIndex(13, 10)] += c_in[SHIndex(13, -1)] * -0.357109558733;
01225 c_out[SHIndex(13, 11)] += c_in[SHIndex(13, 1)] * 0.46294341611217;
01226 c_out[SHIndex(13, 11)] += c_in[SHIndex(13, 3)] * 0.15605819373554;
01227 c_out[SHIndex(13, 11)] += c_in[SHIndex(13, 5)] * -0.62629484514798;
01228 c_out[SHIndex(13, 11)] += c_in[SHIndex(13, 7)] * 0.552329518352;
01229 c_out[SHIndex(13, 11)] += c_in[SHIndex(13, 9)] * -0.24672049987443;
01230 c_out[SHIndex(13, 11)] += c_in[SHIndex(13, 11)] * 0.055908203125;
01231 c_out[SHIndex(13, 11)] += c_in[SHIndex(13, 13)] * -0.0044013077093066;
01232 c_out[SHIndex(13, 12)] += c_in[SHIndex(13, -13)] * -0.0012448778109357;
01233 c_out[SHIndex(13, 12)] += c_in[SHIndex(13, -11)] * 0.018989684065068;
01234 c_out[SHIndex(13, 12)] += c_in[SHIndex(13, -9)] * -0.10537715749466;
01235 c_out[SHIndex(13, 12)] += c_in[SHIndex(13, -7)] * 0.3216343100157;
01236 c_out[SHIndex(13, 12)] += c_in[SHIndex(13, -5)] * -0.59845585408961;
01237 c_out[SHIndex(13, 12)] += c_in[SHIndex(13, -3)] * 0.66209884230076;
01238 c_out[SHIndex(13, 12)] += c_in[SHIndex(13, -1)] * -0.29759129894417;
01239 c_out[SHIndex(13, 13)] += c_in[SHIndex(13, 1)] * 0.75871192019586;
01240 c_out[SHIndex(13, 13)] += c_in[SHIndex(13, 3)] * -0.5626758194698;
01241 c_out[SHIndex(13, 13)] += c_in[SHIndex(13, 5)] * 0.30515380780268;
01242 c_out[SHIndex(13, 13)] += c_in[SHIndex(13, 7)] * -0.1171442587865;
01243 c_out[SHIndex(13, 13)] += c_in[SHIndex(13, 9)] * 0.029851121241791;
01244 c_out[SHIndex(13, 13)] += c_in[SHIndex(13, 11)] * -0.0044013077093066;
01245 c_out[SHIndex(13, 13)] += c_in[SHIndex(13, 13)] * 0.000244140625;
01246 if (lmax == 13) return;
01247
01248 c_out[SHIndex(14, -14)] += c_in[SHIndex(14, 1)] * -0.74694823221281;
01249 c_out[SHIndex(14, -14)] += c_in[SHIndex(14, 3)] * 0.56567677845719;
01250 c_out[SHIndex(14, -14)] += c_in[SHIndex(14, 5)] * -0.32081276509794;
01251 c_out[SHIndex(14, -14)] += c_in[SHIndex(14, 7)] * 0.13282910411489;
01252 c_out[SHIndex(14, -14)] += c_in[SHIndex(14, 9)] * -0.038268604914882;
01253 c_out[SHIndex(14, -14)] += c_in[SHIndex(14, 11)] * 0.006986859385378;
01254 c_out[SHIndex(14, -14)] += c_in[SHIndex(14, 13)] * -0.00064593537867788;
01255 c_out[SHIndex(14, -13)] += c_in[SHIndex(14, -13)] * 0.003173828125;
01256 c_out[SHIndex(14, -13)] += c_in[SHIndex(14, -11)] * -0.029048630881424;
01257 c_out[SHIndex(14, -13)] += c_in[SHIndex(14, -9)] * 0.13017755780507;
01258 c_out[SHIndex(14, -13)] += c_in[SHIndex(14, -7)] * -0.3514327763595;
01259 c_out[SHIndex(14, -13)] += c_in[SHIndex(14, -5)] * 0.60627913847438;
01260 c_out[SHIndex(14, -13)] += c_in[SHIndex(14, -3)] * -0.64141717638938;
01261 c_out[SHIndex(14, -13)] += c_in[SHIndex(14, -1)] * 0.28231989495349;
01262 c_out[SHIndex(14, -12)] += c_in[SHIndex(14, 1)] * -0.46102645791479;
01263 c_out[SHIndex(14, -12)] += c_in[SHIndex(14, 3)] * -0.11638109588228;
01264 c_out[SHIndex(14, -12)] += c_in[SHIndex(14, 5)] * 0.59402981238257;
01265 c_out[SHIndex(14, -12)] += c_in[SHIndex(14, 7)] * -0.57388732064693;
01266 c_out[SHIndex(14, -12)] += c_in[SHIndex(14, 9)] * 0.29131204754594;
01267 c_out[SHIndex(14, -12)] += c_in[SHIndex(14, 11)] * -0.081935281474721;
01268 c_out[SHIndex(14, -12)] += c_in[SHIndex(14, 13)] * 0.010764359221215;
01269 c_out[SHIndex(14, -11)] += c_in[SHIndex(14, -13)] * -0.029048630881424;
01270 c_out[SHIndex(14, -11)] += c_in[SHIndex(14, -11)] * 0.179931640625;
01271 c_out[SHIndex(14, -11)] += c_in[SHIndex(14, -9)] * -0.48540841888275;
01272 c_out[SHIndex(14, -11)] += c_in[SHIndex(14, -7)] * 0.61730946168753;
01273 c_out[SHIndex(14, -11)] += c_in[SHIndex(14, -5)] * -0.1681515785395;
01274 c_out[SHIndex(14, -11)] += c_in[SHIndex(14, -3)] * -0.45462596516248;
01275 c_out[SHIndex(14, -11)] += c_in[SHIndex(14, -1)] * 0.33930628577947;
01276 c_out[SHIndex(14, -10)] += c_in[SHIndex(14, 1)] * -0.33930628577947;
01277 c_out[SHIndex(14, -10)] += c_in[SHIndex(14, 3)] * -0.37556057991684;
01278 c_out[SHIndex(14, -10)] += c_in[SHIndex(14, 5)] * 0.35648134650374;
01279 c_out[SHIndex(14, -10)] += c_in[SHIndex(14, 7)] * 0.35738968834541;
01280 c_out[SHIndex(14, -10)] += c_in[SHIndex(14, 9)] * -0.61645531984834;
01281 c_out[SHIndex(14, -10)] += c_in[SHIndex(14, 11)] * 0.323486328125;
01282 c_out[SHIndex(14, -10)] += c_in[SHIndex(14, 13)] * -0.066019615639599;
01283 c_out[SHIndex(14, -9)] += c_in[SHIndex(14, -13)] * 0.13017755780507;
01284 c_out[SHIndex(14, -9)] += c_in[SHIndex(14, -11)] * -0.48540841888275;
01285 c_out[SHIndex(14, -9)] += c_in[SHIndex(14, -9)] * 0.56982421875;
01286 c_out[SHIndex(14, -9)] += c_in[SHIndex(14, -7)] * 0.10677294225083;
01287 c_out[SHIndex(14, -9)] += c_in[SHIndex(14, -5)] * -0.47892214576017;
01288 c_out[SHIndex(14, -9)] += c_in[SHIndex(14, -3)] * -0.20931182591491;
01289 c_out[SHIndex(14, -9)] += c_in[SHIndex(14, -1)] * 0.37169141324942;
01290 c_out[SHIndex(14, -8)] += c_in[SHIndex(14, 1)] * -0.25312379436441;
01291 c_out[SHIndex(14, -8)] += c_in[SHIndex(14, 3)] * -0.45711888182303;
01292 c_out[SHIndex(14, -8)] += c_in[SHIndex(14, 5)] * -0.075265034640616;
01293 c_out[SHIndex(14, -8)] += c_in[SHIndex(14, 7)] * 0.46051523295669;
01294 c_out[SHIndex(14, -8)] += c_in[SHIndex(14, 9)] * 0.29827230784789;
01295 c_out[SHIndex(14, -8)] += c_in[SHIndex(14, 11)] * -0.60740303427372;
01296 c_out[SHIndex(14, -8)] += c_in[SHIndex(14, 13)] * 0.22655408120134;
01297 c_out[SHIndex(14, -7)] += c_in[SHIndex(14, -13)] * -0.3514327763595;
01298 c_out[SHIndex(14, -7)] += c_in[SHIndex(14, -11)] * 0.61730946168753;
01299 c_out[SHIndex(14, -7)] += c_in[SHIndex(14, -9)] * 0.10677294225083;
01300 c_out[SHIndex(14, -7)] += c_in[SHIndex(14, -7)] * -0.41845703125;
01301 c_out[SHIndex(14, -7)] += c_in[SHIndex(14, -5)] * -0.39271064912769;
01302 c_out[SHIndex(14, -7)] += c_in[SHIndex(14, -3)] * 0.022873774761468;
01303 c_out[SHIndex(14, -7)] += c_in[SHIndex(14, -1)] * 0.39264796001216;
01304 c_out[SHIndex(14, -6)] += c_in[SHIndex(14, 1)] * -0.18176068675697;
01305 c_out[SHIndex(14, -6)] += c_in[SHIndex(14, 3)] * -0.42706950870872;
01306 c_out[SHIndex(14, -6)] += c_in[SHIndex(14, 5)] * -0.3750436280621;
01307 c_out[SHIndex(14, -6)] += c_in[SHIndex(14, 7)] * -0.011075484592006;
01308 c_out[SHIndex(14, -6)] += c_in[SHIndex(14, 9)] * 0.43385279709812;
01309 c_out[SHIndex(14, -6)] += c_in[SHIndex(14, 11)] * 0.46623796657139;
01310 c_out[SHIndex(14, -6)] += c_in[SHIndex(14, 13)] * -0.48804529210874;
01311 c_out[SHIndex(14, -5)] += c_in[SHIndex(14, -13)] * 0.60627913847438;
01312 c_out[SHIndex(14, -5)] += c_in[SHIndex(14, -11)] * -0.1681515785395;
01313 c_out[SHIndex(14, -5)] += c_in[SHIndex(14, -9)] * -0.47892214576017;
01314 c_out[SHIndex(14, -5)] += c_in[SHIndex(14, -7)] * -0.39271064912769;
01315 c_out[SHIndex(14, -5)] += c_in[SHIndex(14, -5)] * -0.099853515625;
01316 c_out[SHIndex(14, -5)] += c_in[SHIndex(14, -3)] * 0.21308945636309;
01317 c_out[SHIndex(14, -5)] += c_in[SHIndex(14, -1)] * 0.40642925122564;
01318 c_out[SHIndex(14, -4)] += c_in[SHIndex(14, 1)] * -0.11794190764568;
01319 c_out[SHIndex(14, -4)] += c_in[SHIndex(14, 3)] * -0.32292413190191;
01320 c_out[SHIndex(14, -4)] += c_in[SHIndex(14, 5)] * -0.43748201605755;
01321 c_out[SHIndex(14, -4)] += c_in[SHIndex(14, 7)] * -0.40964323385176;
01322 c_out[SHIndex(14, -4)] += c_in[SHIndex(14, 9)] * -0.20312265248043;
01323 c_out[SHIndex(14, -4)] += c_in[SHIndex(14, 11)] * 0.18542476450635;
01324 c_out[SHIndex(14, -4)] += c_in[SHIndex(14, 13)] * 0.66855849616849;
01325 c_out[SHIndex(14, -3)] += c_in[SHIndex(14, -13)] * -0.64141717638938;
01326 c_out[SHIndex(14, -3)] += c_in[SHIndex(14, -11)] * -0.45462596516248;
01327 c_out[SHIndex(14, -3)] += c_in[SHIndex(14, -9)] * -0.20931182591491;
01328 c_out[SHIndex(14, -3)] += c_in[SHIndex(14, -7)] * 0.022873774761468;
01329 c_out[SHIndex(14, -3)] += c_in[SHIndex(14, -5)] * 0.21308945636309;
01330 c_out[SHIndex(14, -3)] += c_in[SHIndex(14, -3)] * 0.346435546875;
01331 c_out[SHIndex(14, -3)] += c_in[SHIndex(14, -1)] * 0.41489743677369;
01332 c_out[SHIndex(14, -2)] += c_in[SHIndex(14, 1)] * -0.058097261762847;
01333 c_out[SHIndex(14, -2)] += c_in[SHIndex(14, 3)] * -0.17260776719378;
01334 c_out[SHIndex(14, -2)] += c_in[SHIndex(14, 5)] * -0.28180798175817;
01335 c_out[SHIndex(14, -2)] += c_in[SHIndex(14, 7)] * -0.38115332581581;
01336 c_out[SHIndex(14, -2)] += c_in[SHIndex(14, 9)] * -0.46389892469554;
01337 c_out[SHIndex(14, -2)] += c_in[SHIndex(14, 11)] * -0.51758647408139;
01338 c_out[SHIndex(14, -2)] += c_in[SHIndex(14, 13)] * -0.5089594286692;
01339 c_out[SHIndex(14, -1)] += c_in[SHIndex(14, -13)] * 0.28231989495349;
01340 c_out[SHIndex(14, -1)] += c_in[SHIndex(14, -11)] * 0.33930628577947;
01341 c_out[SHIndex(14, -1)] += c_in[SHIndex(14, -9)] * 0.37169141324942;
01342 c_out[SHIndex(14, -1)] += c_in[SHIndex(14, -7)] * 0.39264796001216;
01343 c_out[SHIndex(14, -1)] += c_in[SHIndex(14, -5)] * 0.40642925122564;
01344 c_out[SHIndex(14, -1)] += c_in[SHIndex(14, -3)] * 0.41489743677369;
01345 c_out[SHIndex(14, -1)] += c_in[SHIndex(14, -1)] * 0.4189453125;
01346 c_out[SHIndex(14, 0)] += c_in[SHIndex(14, 0)] * -0.20947265625;
01347 c_out[SHIndex(14, 0)] += c_in[SHIndex(14, 2)] * -0.29765989046048;
01348 c_out[SHIndex(14, 0)] += c_in[SHIndex(14, 4)] * -0.30213623022215;
01349 c_out[SHIndex(14, 0)] += c_in[SHIndex(14, 6)] * -0.31041546806428;
01350 c_out[SHIndex(14, 0)] += c_in[SHIndex(14, 8)] * -0.32421838231813;
01351 c_out[SHIndex(14, 0)] += c_in[SHIndex(14, 10)] * -0.34768548049628;
01352 c_out[SHIndex(14, 0)] += c_in[SHIndex(14, 12)] * -0.39367628467147;
01353 c_out[SHIndex(14, 0)] += c_in[SHIndex(14, 14)] * -0.54671012572894;
01354 c_out[SHIndex(14, 1)] += c_in[SHIndex(14, -14)] * -0.74694823221281;
01355 c_out[SHIndex(14, 1)] += c_in[SHIndex(14, -12)] * -0.46102645791479;
01356 c_out[SHIndex(14, 1)] += c_in[SHIndex(14, -10)] * -0.33930628577947;
01357 c_out[SHIndex(14, 1)] += c_in[SHIndex(14, -8)] * -0.25312379436441;
01358 c_out[SHIndex(14, 1)] += c_in[SHIndex(14, -6)] * -0.18176068675697;
01359 c_out[SHIndex(14, 1)] += c_in[SHIndex(14, -4)] * -0.11794190764568;
01360 c_out[SHIndex(14, 1)] += c_in[SHIndex(14, -2)] * -0.058097261762847;
01361 c_out[SHIndex(14, 2)] += c_in[SHIndex(14, 0)] * -0.29765989046048;
01362 c_out[SHIndex(14, 2)] += c_in[SHIndex(14, 2)] * -0.4068603515625;
01363 c_out[SHIndex(14, 2)] += c_in[SHIndex(14, 4)] * -0.36391209618543;
01364 c_out[SHIndex(14, 2)] += c_in[SHIndex(14, 6)] * -0.28986522975411;
01365 c_out[SHIndex(14, 2)] += c_in[SHIndex(14, 8)] * -0.17989751732912;
01366 c_out[SHIndex(14, 2)] += c_in[SHIndex(14, 10)] * -0.023526657912791;
01367 c_out[SHIndex(14, 2)] += c_in[SHIndex(14, 12)] * 0.20778181666967;
01368 c_out[SHIndex(14, 2)] += c_in[SHIndex(14, 14)] * 0.67329003784011;
01369 c_out[SHIndex(14, 3)] += c_in[SHIndex(14, -14)] * 0.56567677845719;
01370 c_out[SHIndex(14, 3)] += c_in[SHIndex(14, -12)] * -0.11638109588228;
01371 c_out[SHIndex(14, 3)] += c_in[SHIndex(14, -10)] * -0.37556057991684;
01372 c_out[SHIndex(14, 3)] += c_in[SHIndex(14, -8)] * -0.45711888182303;
01373 c_out[SHIndex(14, 3)] += c_in[SHIndex(14, -6)] * -0.42706950870872;
01374 c_out[SHIndex(14, 3)] += c_in[SHIndex(14, -4)] * -0.32292413190191;
01375 c_out[SHIndex(14, 3)] += c_in[SHIndex(14, -2)] * -0.17260776719378;
01376 c_out[SHIndex(14, 4)] += c_in[SHIndex(14, 0)] * -0.30213623022215;
01377 c_out[SHIndex(14, 4)] += c_in[SHIndex(14, 2)] * -0.36391209618543;
01378 c_out[SHIndex(14, 4)] += c_in[SHIndex(14, 4)] * -0.185791015625;
01379 c_out[SHIndex(14, 4)] += c_in[SHIndex(14, 6)] * 0.069981750766127;
01380 c_out[SHIndex(14, 4)] += c_in[SHIndex(14, 8)] * 0.33717349471455;
01381 c_out[SHIndex(14, 4)] += c_in[SHIndex(14, 10)] * 0.50991810239247;
01382 c_out[SHIndex(14, 4)] += c_in[SHIndex(14, 12)] * 0.40940679470382;
01383 c_out[SHIndex(14, 4)] += c_in[SHIndex(14, 14)] * -0.44220987944029;
01384 c_out[SHIndex(14, 5)] += c_in[SHIndex(14, -14)] * -0.32081276509794;
01385 c_out[SHIndex(14, 5)] += c_in[SHIndex(14, -12)] * 0.59402981238257;
01386 c_out[SHIndex(14, 5)] += c_in[SHIndex(14, -10)] * 0.35648134650374;
01387 c_out[SHIndex(14, 5)] += c_in[SHIndex(14, -8)] * -0.075265034640616;
01388 c_out[SHIndex(14, 5)] += c_in[SHIndex(14, -6)] * -0.3750436280621;
01389 c_out[SHIndex(14, 5)] += c_in[SHIndex(14, -4)] * -0.43748201605755;
01390 c_out[SHIndex(14, 5)] += c_in[SHIndex(14, -2)] * -0.28180798175817;
01391 c_out[SHIndex(14, 6)] += c_in[SHIndex(14, 0)] * -0.31041546806428;
01392 c_out[SHIndex(14, 6)] += c_in[SHIndex(14, 2)] * -0.28986522975411;
01393 c_out[SHIndex(14, 6)] += c_in[SHIndex(14, 4)] * 0.069981750766127;
01394 c_out[SHIndex(14, 6)] += c_in[SHIndex(14, 6)] * 0.4073486328125;
01395 c_out[SHIndex(14, 6)] += c_in[SHIndex(14, 8)] * 0.43617162672689;
01396 c_out[SHIndex(14, 6)] += c_in[SHIndex(14, 10)] * -0.0075199672027644;
01397 c_out[SHIndex(14, 6)] += c_in[SHIndex(14, 12)] * -0.64200733655529;
01398 c_out[SHIndex(14, 6)] += c_in[SHIndex(14, 14)] * 0.2152077452426;
01399 c_out[SHIndex(14, 7)] += c_in[SHIndex(14, -14)] * 0.13282910411489;
01400 c_out[SHIndex(14, 7)] += c_in[SHIndex(14, -12)] * -0.57388732064693;
01401 c_out[SHIndex(14, 7)] += c_in[SHIndex(14, -10)] * 0.35738968834541;
01402 c_out[SHIndex(14, 7)] += c_in[SHIndex(14, -8)] * 0.46051523295669;
01403 c_out[SHIndex(14, 7)] += c_in[SHIndex(14, -6)] * -0.011075484592006;
01404 c_out[SHIndex(14, 7)] += c_in[SHIndex(14, -4)] * -0.40964323385176;
01405 c_out[SHIndex(14, 7)] += c_in[SHIndex(14, -2)] * -0.38115332581581;
01406 c_out[SHIndex(14, 8)] += c_in[SHIndex(14, 0)] * -0.32421838231813;
01407 c_out[SHIndex(14, 8)] += c_in[SHIndex(14, 2)] * -0.17989751732912;
01408 c_out[SHIndex(14, 8)] += c_in[SHIndex(14, 4)] * 0.33717349471455;
01409 c_out[SHIndex(14, 8)] += c_in[SHIndex(14, 6)] * 0.43617162672689;
01410 c_out[SHIndex(14, 8)] += c_in[SHIndex(14, 8)] * -0.13818359375;
01411 c_out[SHIndex(14, 8)] += c_in[SHIndex(14, 10)] * -0.58383998553034;
01412 c_out[SHIndex(14, 8)] += c_in[SHIndex(14, 12)] * 0.43932900265328;
01413 c_out[SHIndex(14, 8)] += c_in[SHIndex(14, 14)] * -0.074925719670686;
01414 c_out[SHIndex(14, 9)] += c_in[SHIndex(14, -14)] * -0.038268604914882;
01415 c_out[SHIndex(14, 9)] += c_in[SHIndex(14, -12)] * 0.29131204754594;
01416 c_out[SHIndex(14, 9)] += c_in[SHIndex(14, -10)] * -0.61645531984834;
01417 c_out[SHIndex(14, 9)] += c_in[SHIndex(14, -8)] * 0.29827230784789;
01418 c_out[SHIndex(14, 9)] += c_in[SHIndex(14, -6)] * 0.43385279709812;
01419 c_out[SHIndex(14, 9)] += c_in[SHIndex(14, -4)] * -0.20312265248043;
01420 c_out[SHIndex(14, 9)] += c_in[SHIndex(14, -2)] * -0.46389892469554;
01421 c_out[SHIndex(14, 10)] += c_in[SHIndex(14, 0)] * -0.34768548049628;
01422 c_out[SHIndex(14, 10)] += c_in[SHIndex(14, 2)] * -0.023526657912791;
01423 c_out[SHIndex(14, 10)] += c_in[SHIndex(14, 4)] * 0.50991810239247;
01424 c_out[SHIndex(14, 10)] += c_in[SHIndex(14, 6)] * -0.0075199672027644;
01425 c_out[SHIndex(14, 10)] += c_in[SHIndex(14, 8)] * -0.58383998553034;
01426 c_out[SHIndex(14, 10)] += c_in[SHIndex(14, 10)] * 0.4993896484375;
01427 c_out[SHIndex(14, 10)] += c_in[SHIndex(14, 12)] * -0.16710485037608;
01428 c_out[SHIndex(14, 10)] += c_in[SHIndex(14, 14)] * 0.017467148463445;
01429 c_out[SHIndex(14, 11)] += c_in[SHIndex(14, -14)] * 0.006986859385378;
01430 c_out[SHIndex(14, 11)] += c_in[SHIndex(14, -12)] * -0.081935281474721;
01431 c_out[SHIndex(14, 11)] += c_in[SHIndex(14, -10)] * 0.323486328125;
01432 c_out[SHIndex(14, 11)] += c_in[SHIndex(14, -8)] * -0.60740303427372;
01433 c_out[SHIndex(14, 11)] += c_in[SHIndex(14, -6)] * 0.46623796657139;
01434 c_out[SHIndex(14, 11)] += c_in[SHIndex(14, -4)] * 0.18542476450635;
01435 c_out[SHIndex(14, 11)] += c_in[SHIndex(14, -2)] * -0.51758647408139;
01436 c_out[SHIndex(14, 12)] += c_in[SHIndex(14, 0)] * -0.39367628467147;
01437 c_out[SHIndex(14, 12)] += c_in[SHIndex(14, 2)] * 0.20778181666967;
01438 c_out[SHIndex(14, 12)] += c_in[SHIndex(14, 4)] * 0.40940679470382;
01439 c_out[SHIndex(14, 12)] += c_in[SHIndex(14, 6)] * -0.64200733655529;
01440 c_out[SHIndex(14, 12)] += c_in[SHIndex(14, 8)] * 0.43932900265328;
01441 c_out[SHIndex(14, 12)] += c_in[SHIndex(14, 10)] * -0.16710485037608;
01442 c_out[SHIndex(14, 12)] += c_in[SHIndex(14, 12)] * 0.033447265625;
01443 c_out[SHIndex(14, 12)] += c_in[SHIndex(14, 14)] * -0.0023733181268583;
01444 c_out[SHIndex(14, 13)] += c_in[SHIndex(14, -14)] * -0.00064593537867788;
01445 c_out[SHIndex(14, 13)] += c_in[SHIndex(14, -12)] * 0.010764359221215;
01446 c_out[SHIndex(14, 13)] += c_in[SHIndex(14, -10)] * -0.066019615639599;
01447 c_out[SHIndex(14, 13)] += c_in[SHIndex(14, -8)] * 0.22655408120134;
01448 c_out[SHIndex(14, 13)] += c_in[SHIndex(14, -6)] * -0.48804529210874;
01449 c_out[SHIndex(14, 13)] += c_in[SHIndex(14, -4)] * 0.66855849616849;
01450 c_out[SHIndex(14, 13)] += c_in[SHIndex(14, -2)] * -0.5089594286692;
01451 c_out[SHIndex(14, 14)] += c_in[SHIndex(14, 0)] * -0.54671012572894;
01452 c_out[SHIndex(14, 14)] += c_in[SHIndex(14, 2)] * 0.67329003784011;
01453 c_out[SHIndex(14, 14)] += c_in[SHIndex(14, 4)] * -0.44220987944029;
01454 c_out[SHIndex(14, 14)] += c_in[SHIndex(14, 6)] * 0.2152077452426;
01455 c_out[SHIndex(14, 14)] += c_in[SHIndex(14, 8)] * -0.074925719670686;
01456 c_out[SHIndex(14, 14)] += c_in[SHIndex(14, 10)] * 0.017467148463445;
01457 c_out[SHIndex(14, 14)] += c_in[SHIndex(14, 12)] * -0.0023733181268583;
01458 c_out[SHIndex(14, 14)] += c_in[SHIndex(14, 14)] * 0.0001220703125;
01459 Assert(lmax == 14);
01460 }
01461
01462
01463 #endif