59 double ReturnedSpectrum[] )
78 else if( nOption == 2 )
85 else if( nOption == 3 )
91 else if( nOption == 4 )
104 else if( nOption == 5 )
116 else if( nOption == 6 )
131 else if( nOption == 7 )
155 fprintf(
ioQQQ,
" cdSPEC called with impossible nOption (%i)\n", nOption);
163 for( ncell = 0; ncell < nEnergy-1; ++ncell )
166 Elo = EnergyLow[ncell];
167 Ehi = EnergyLow[ncell+1];
168 ReturnedSpectrum[ncell] =
Spec_cont( cont );
263 double Emiddle = (
Elo +
Ehi)/2.;
264 double f1 , f2 ,finterp;
360 else if( nOption == 2 )
367 else if( nOption == 3 )
373 else if( nOption == 4 )
385 else if( nOption == 5 )
396 else if( nOption == 6 )
409 else if( nOption == 7 )
431 else if( nOption == 8 )
447 else if( nOption == 9 )
461 else if( nOption == 10 )
467 for( j=0; j<nEnergy; ++j)
476 fprintf(
ioQQQ,
" cdSPEC called with impossible nOption (%i)\n", nOption);
481 for( ncell = 0; ncell < nEnergy; ++ncell )
489 ReturnedSpectrum[ncell] = cont[ncell];
491 ASSERT( ReturnedSpectrum[ncell] >=0.f );