Exemplo n.º 1
0
void DumpSpectrum(const dCVector* pEnergy, const dCVector* pEnergyWidth,
		  const Spectrum* pSpectrum, const char* filename) {
  FILE* dumpFile;
  char f1[80] = "datafiles/";
  
  if ((pEnergy->dimension != pEnergyWidth->dimension) ||
      (pEnergyWidth->dimension != pSpectrum->numberOfMainBins))
    Error("DumpSpectrum: inconsistent dimensions", PROGRAM_ERROR);
  
  strncat(f1, filename, 79 - strlen(filename));
  dumpFile = SafeFOpen(f1, "w");
  // this is to send the dump file to a different directory (datafiles)
  //   by Guenter (7/20/1998)
  
  for (int i=0; i<NUM_SPECIES; i++) {
    for (int j=0; j<pSpectrum->numberOfMainBins; j++) {
      fprintf(dumpFile, "%15.4E %15.4E\n", 
	      ELECTRON_MASS*(pEnergy->vector)[j], 
	      (pSpectrum->spectrum)[i][j]/(pEnergyWidth->vector)[j]*
	      (pEnergy->vector)[j]*(pEnergy->vector)[j]);
      // proper unit conversion for energy
    }
  }
  fclose(dumpFile);
}
Exemplo n.º 2
0
char* _load_text_file(const char* _file_name)
{
    FILE* fp = SafeFOpen(_file_name, "r");
    euint len = _file_length( fp );
    char* buffer = (char*)SMalloc(len);
    fread(buffer, len, 1, fp);
    fclose(fp);
    return buffer;
}
Exemplo n.º 3
0
void ELog_Init()
{
    ELock_lock(&g_elog_lock);
#ifdef USE_LOG_SYSTEM
    if (!g_elog_file) {
#if defined(_WIN32) || defined(_WIN64)
        g_elog_file = SafeFOpen("log.log", "w+");
#elif defined(__APPLE__)
        char homeDir[256];
        GetHomeDirectory(homeDir, 255);
        char logFilename[256];
        snprintf(logFilename, 255, "%s/Documents/log.log", homeDir);
        g_elog_file = SafeFOpen(logFilename, "w+");
#endif
    }
#endif
    
    ELock_unlock(&g_elog_lock);

}
Exemplo n.º 4
0
void LoadSyncTable(dCVector* syncTable, string aDirTables)
{
  FILE* syncData;
  double temporary;
  int i;
  
  syncData = SafeFOpen((aDirTables+"/syncTable.dat").c_str(), "r");
  for (i = 0; i < syncTable->dimension; i++) {
    fscanf(syncData, "%lf %lf", &temporary, &((syncTable->vector)[i]));
  }
  fclose(syncData) ; // added June 2005 - E.A.

}