log.c

Go to the documentation of this file.

/* HPhi  -  Quantum Lattice Model Simulator */
/* Copyright (C) 2015 The University of Tokyo */

/* This program is free software: you can redistribute it and/or modify */
/* it under the terms of the GNU General Public License as published by */
/* the Free Software Foundation, either version 3 of the License, or */
/* (at your option) any later version. */

/* This program is distributed in the hope that it will be useful, */
/* but WITHOUT ANY WARRANTY; without even the implied warranty of */
/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the */
/* GNU General Public License for more details. */

/* You should have received a copy of the GNU General Public License */
/* along with this program.  If not, see <http://www.gnu.org/licenses/>. */

#include <time.h>
#include "Common.h"
#include "log.h"
#include "FileIO.h"

int TimeKeeper
(
 struct BindStruct *X,
 const char *cFileName,
 const char *cTimeKeeper_Message,
 const char *cWriteType
 )
{
  FILE *fp;
  char sdt[D_FileNameMax];
  struct tm *area;
  time_t tx;
  
  sprintf(sdt, cFileName, X->Def.CDataFileHead);
  tx   = time(NULL);
  area = localtime(&tx);
  if(childfopenMPI(sdt, cWriteType, &fp)!=0){
    return -1;
  }
  fprintf(fp, cTimeKeeper_Message, asctime(area));
  fclose(fp);
  return 0;
}

int TimeKeeperWithStep
(
 struct BindStruct *X,
 const char *cFileName,
 const char *cTimeKeeper_Message,
 const char *cWriteType,
 const int istep
 )
{
  FILE *fp;
  char sdt[D_FileNameMax];
  struct tm *area;
  time_t tx;
  
  sprintf(sdt, cFileName, X->Def.CDataFileHead);
  tx   = time(NULL);
  area = localtime(&tx);
  if(childfopenMPI(sdt, cWriteType, &fp)!=0){
    return -1;
  }
  fprintf(fp, cTimeKeeper_Message, istep, asctime(area));
  fclose(fp);
  return 0;
}


int TimeKeeperWithRandAndStep
(
 struct BindStruct *X,
 const char *cFileName,
 const char *cTimeKeeper_Message,
 const char *cWriteType,
 const int irand,
 const int istep
 ){
  FILE *fp;
  char sdt[D_FileNameMax];
  struct tm *area;
  time_t tx;
  
  sprintf(sdt, cFileName, X->Def.CDataFileHead);
  tx   = time(NULL);
  area = localtime(&tx);
  if(childfopenMPI(sdt, cWriteType, &fp)!=0){
    return -1;
  }
  fprintf(fp, cTimeKeeper_Message, irand, istep, asctime(area));
  fclose(fp);
  return 0;
  
}