output_list.cpp File Reference

Output list_1 for canonical ensembles obtained in sz.cpp. More...

#include "output_list.hpp"
#include "FileIO.hpp"
#include "wrapperMPI.hpp"

Go to the source code of this file.

Functions
int	output_list (struct BindStruct *X)
	Output list_1 for canonical ensembles. More...

Detailed Description

Output list_1 for canonical ensembles obtained in sz.cpp.

Author

Takahiro Misawa (The University of Tokyo)

Kazuyoshi Yoshimi (The University of Tokyo)

Definition in file output_list.cpp.

Function Documentation

output_list()

int output_list

(

struct BindStruct *

X

)

Output list_1 for canonical ensembles.

Parameters

X	[in] Struct to get the dimension of the target Hilbert space and the information for making the output file name.

Return values

-1	fail to output the list.
0	success to output the list.

Author

Takahiro Misawa (The University of Tokyo)

Kazuyoshi Yoshimi (The University of Tokyo)

Definition at line 40 of file output_list.cpp.

References BindStruct::Check, childfopenMPI(), BindStruct::Def, DefineList::iCalcModel, CheckList::idim_max, list_1, DefineList::Ndown, DefineList::Ne, DefineList::Nsite, DefineList::Nup, and stdoutMPI.

Referenced by main().

                                     {
  
  FILE *fp;
  char sdt[D_FileNameMax];
  int i,i_max;
  
  fprintf(stdoutMPI, "%s", "  Start: output list. \n");
  i_max=X->Check.idim_max;
  switch(X->Def.iCalcModel){
  case HubbardGC:
  case Hubbard:
  case Spin:
  case SpinGC:
    sprintf(sdt, "ListForModel_Ns%d_Nup%dNdown%d.dat", X->Def.Nsite,X->Def.Nup,X->Def.Ndown);
  break;
  case Kondo:
  case KondoGC:
    sprintf(sdt, "ListForKondo_Ns%d_Ncond%d", X->Def.Nsite,X->Def.Ne);
    break;
  default:
    return -1;
  }
  if(childfopenMPI(sdt,"w",&fp)!=0){
    return -1;
  }
  for(i=1;i<=i_max;i++){
    fprintf(fp," %lu \n",list_1[i]);
  }
  fclose(fp);
  
  fprintf(stdoutMPI, "%s", "  End  : output list. \n");
  return 0;
}