Subversion Repositories svnkaklik

Rev

Rev 261 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log

Rev 261 Rev 262
Line 302... Line 302...
302
   if( !spectrum_file[0]) return;     // Spectrum file not wanted.
302
   if( !spectrum_file[0]) return;     // Spectrum file not wanted.
303
 
303
 
304
   if( (f=fopen( spectrum_file, "w+")) == NULL)
304
   if( (f=fopen( spectrum_file, "w+")) == NULL)
305
      bailout( "cannot open spectrum file %s, %s", strerror( errno));
305
      bailout( "cannot open spectrum file %s, %s", strerror( errno));
306
 
306
 
307
   if( mode == 1)
307
   if( mode == 1){
-
 
308
      fprintf( f, "Frequency PowerL \n");
308
      for( i=0; i<BINS; i++) fprintf( f, "%.5e %.5e\n", 
309
      for( i=0; i<BINS; i++) fprintf( f, "%.5e %.5e\n", 
309
             (i+0.5) * DF, left.signal_avg[i]/spec_max);
310
             (i+0.5) * DF, left.signal_avg[i]/spec_max);}
310
   else
311
   else{
-
 
312
      fprintf( f, "Frequncy PowerL PowerR \n");
311
      for( i=0; i<BINS; i++) fprintf( f, "%.5e %.5e %.5e\n", 
313
      for( i=0; i<BINS; i++) fprintf( f, "%.5e %.5e %.5e\n", 
312
             (i+0.5) * DF, left.signal_avg[i]/spec_max,
314
             (i+0.5) * DF, left.signal_avg[i]/spec_max,
313
                          right.signal_avg[i]/spec_max);
315
                          right.signal_avg[i]/spec_max);}
314
   fclose( f);
316
   fclose( f);
315
 
317
 
316
   for( i=0; i<BINS; i++) left.signal_avg[i] = 0;
318
   for( i=0; i<BINS; i++) left.signal_avg[i] = 0;
317
   if( mode == 2) for( i=0; i<BINS; i++) right.signal_avg[i] = 0;
319
   if( mode == 2) for( i=0; i<BINS; i++) right.signal_avg[i] = 0;
318
}
320
}