00001
00002
00003
00004
00005
00006 #include "cddefines.h"
00007 #include "lines.h"
00008 #include "prt.h"
00009
00010
00011 void prt_wl( FILE *ioOUT , float wl )
00012 {
00013 char chUnits;
00014
00015 DEBUG_ENTRY( "prt_wl()" );
00016
00017
00018 if( wl > 1e8 )
00019 {
00020
00021 chUnits = 'c';
00022 wl /= 1e8;
00023 }
00024 else if( wl > 1e4 )
00025 {
00026
00027 chUnits = 'm';
00028 wl /= 1e4;
00029 }
00030 else if( wl == 0. )
00031 {
00032 chUnits = ' ';
00033 }
00034 else
00035 {
00036
00037 chUnits = 'A';
00038 }
00039
00040
00041 if( LineSave.sig_figs == 4 )
00042 {
00043 if( wl==0. )
00044 {
00045 fprintf(ioOUT, "%5i", 0 );
00046 }
00047 else if( wl<10. )
00048 {
00049 fprintf(ioOUT, "%5.3f", wl );
00050 }
00051 else if( wl<100. )
00052 {
00053 fprintf(ioOUT, "%5.2f", wl );
00054 }
00055 else if( wl < 1e3 )
00056 {
00057 fprintf(ioOUT, "%5.1f", wl );
00058 }
00059 else if( wl < 1e4 )
00060 {
00061 fprintf(ioOUT, "%5.0f", wl );
00062 }
00063 else if( wl < 1e5 )
00064 {
00065 fprintf(ioOUT, "%5i", (int)wl );
00066 }
00067 else
00068 {
00069 TotalInsanity();
00070 }
00071 }
00072 else if( LineSave.sig_figs == 5 )
00073 {
00074
00075 if( wl==0. )
00076 {
00077 fprintf(ioOUT, "%5i", 0 );
00078 }
00079 else if( wl<10. )
00080 {
00081 fprintf(ioOUT, "%5.4f", wl );
00082 }
00083 else if( wl<100. )
00084 {
00085 fprintf(ioOUT, "%5.3f", wl );
00086 }
00087 else if( wl < 1e3 )
00088 {
00089 fprintf(ioOUT, "%5.2f", wl );
00090 }
00091 else if( wl < 1e4 )
00092 {
00093 fprintf(ioOUT, "%5.1f", wl );
00094 }
00095 else if( wl < 1e5 )
00096 {
00097 fprintf(ioOUT, "%5.0f", wl );
00098 }
00099 else if( wl < 1e6 )
00100 {
00101 fprintf(ioOUT, "%5i", (int)wl );
00102 }
00103 else
00104 {
00105 TotalInsanity();
00106 }
00107 }
00108 else
00109 {
00110 ASSERT( LineSave.sig_figs == 6 );
00111
00112 if( wl==0. )
00113 {
00114 fprintf(ioOUT, "%6i", 0 );
00115 }
00116 else if( wl<10. )
00117 {
00118 fprintf(ioOUT, "%6.5f", wl );
00119 }
00120 else if( wl<100. )
00121 {
00122 fprintf(ioOUT, "%6.4f", wl );
00123 }
00124 else if( wl < 1e3 )
00125 {
00126 fprintf(ioOUT, "%6.3f", wl );
00127 }
00128 else if( wl < 1e4 )
00129 {
00130 fprintf(ioOUT, "%6.2f", wl );
00131 }
00132 else if( wl < 1e5 )
00133 {
00134 fprintf(ioOUT, "%6.1f", wl );
00135 }
00136 else if( wl < 1e6 )
00137 {
00138 fprintf(ioOUT, "%6.0f", wl );
00139 }
00140 else if( wl < 1e7 )
00141 {
00142 fprintf(ioOUT, "%6i", (int)wl );
00143 }
00144 else
00145 {
00146 TotalInsanity();
00147 }
00148 }
00149 fprintf(ioOUT, "%c", chUnits );
00150
00151 DEBUG_EXIT( "prt_wl()" );
00152
00153 return;
00154 }
00155
00156
00157 void sprt_wl( char *chString , float wl )
00158 {
00159 char chUnits;
00160
00161 DEBUG_ENTRY( "sprt_wl()" );
00162
00163
00164 if( wl > 1e8 )
00165 {
00166
00167 chUnits = 'c';
00168 wl /= 1e8;
00169 }
00170 else if( wl > 1e4 )
00171 {
00172
00173 chUnits = 'm';
00174 wl /= 1e4;
00175 }
00176 else if( wl == 0. )
00177 {
00178 chUnits = ' ';
00179 }
00180 else
00181 {
00182
00183 chUnits = 'A';
00184 }
00185
00186
00187 if( LineSave.sig_figs == 4 )
00188 {
00189 if( wl==0. )
00190 {
00191 sprintf(chString, "%5i", 0 );
00192 }
00193 else if( wl<10. )
00194 {
00195 sprintf(chString, "%5.3f", wl );
00196 }
00197 else if( wl<100. )
00198 {
00199 sprintf(chString, "%5.2f", wl );
00200 }
00201 else if( wl < 1e3 )
00202 {
00203 sprintf(chString, "%5.1f", wl );
00204 }
00205 else if( wl < 1e4 )
00206 {
00207 sprintf(chString, "%5.0f", wl );
00208 }
00209 else if( wl < 1e5 )
00210 {
00211 sprintf(chString, "%5i", (int)wl );
00212 }
00213 else
00214 {
00215 TotalInsanity();
00216 }
00217 chString[6] = chUnits;
00218 }
00219 else if( LineSave.sig_figs == 5 )
00220 {
00221
00222 if( wl==0. )
00223 {
00224 sprintf(chString, "%5i", 0 );
00225 }
00226 else if( wl<10. )
00227 {
00228 sprintf(chString, "%5.4f", wl );
00229 }
00230 else if( wl<100. )
00231 {
00232 sprintf(chString, "%5.3f", wl );
00233 }
00234 else if( wl < 1e3 )
00235 {
00236 sprintf(chString, "%5.2f", wl );
00237 }
00238 else if( wl < 1e4 )
00239 {
00240 sprintf(chString, "%5.1f", wl );
00241 }
00242 else if( wl < 1e5 )
00243 {
00244 sprintf(chString, "%5.0f", wl );
00245 }
00246 else if( wl < 1e6 )
00247 {
00248 sprintf(chString, "%5i", (int)wl );
00249 }
00250 else
00251 {
00252 TotalInsanity();
00253 }
00254 chString[6] = chUnits;
00255 }
00256 else
00257 {
00258 ASSERT( LineSave.sig_figs == 6 );
00259
00260 if( wl==0. )
00261 {
00262 sprintf(chString, "%6i", 0 );
00263 }
00264 else if( wl<10. )
00265 {
00266 sprintf(chString, "%6.5f", wl );
00267 }
00268 else if( wl<100. )
00269 {
00270 sprintf(chString, "%6.4f", wl );
00271 }
00272 else if( wl < 1e3 )
00273 {
00274 sprintf(chString, "%6.3f", wl );
00275 }
00276 else if( wl < 1e4 )
00277 {
00278 sprintf(chString, "%6.2f", wl );
00279 }
00280 else if( wl < 1e5 )
00281 {
00282 sprintf(chString, "%6.1f", wl );
00283 }
00284 else if( wl < 1e6 )
00285 {
00286 sprintf(chString, "%6.0f", wl );
00287 }
00288 else if( wl < 1e7 )
00289 {
00290 sprintf(chString, "%6i", (int)wl );
00291 }
00292 else
00293 {
00294 TotalInsanity();
00295 }
00296 chString[7] = chUnits;
00297 }
00298
00299
00300 DEBUG_EXIT( "sprt_wl()" );
00301
00302 return;
00303 }
00304
00305
00306 void prt_LineLabels(FILE * ioOUT)
00307 {
00308 long int i;
00309
00310 DEBUG_ENTRY( "prt_LineLabels()" );
00311
00312 for( i=0; i < LineSave.nsum; i++ )
00313 {
00314
00315 # if 0
00316
00317 if( !strcmp( LineSv[i].chALab , "Inwd" ) ||
00318 !strcmp( LineSv[i].chALab , "Coll" ) ||
00319 !strcmp( LineSv[i].chALab , "Pump" ) ||
00320 !strcmp( LineSv[i].chALab , "Heat" ) )
00321 continue;
00322 # endif
00323 if( strcmp( LineSv[i].chALab , "####" )==0 )
00324 {
00325
00326 fprintf( ioOUT, "####\t%s",LineSave.chHoldComments[(int)LineSv[i].wavelength] );
00327 }
00328 else
00329 {
00330
00331 fprintf( ioOUT, "%li\t%s\t",
00332 i,
00333 LineSv[i].chALab );
00334 prt_wl( ioOUT, LineSv[i].wavelength );
00335 }
00336 fprintf( ioOUT, "\n" );
00337 }
00338
00339 DEBUG_EXIT( "sprt_wl()" );
00340 return;
00341 }
00342