output_list.c File Reference

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

#include "output_list.h"
#include "FileIO.h"
#include "wrapperMPI.h"

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.c.

Author

Takahiro Misawa (The University of Tokyo)

Kazuyoshi Yoshimi (The University of Tokyo)

Definition in file output_list.c.

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.c.

References cFileNameListModel, childfopenMPI(), cProEndOutputList, cProStartOutputList, D_FileNameMax, list_1, stdoutMPI, and X.

Referenced by main().

                                     {
  
  FILE *fp;
  char sdt[D_FileNameMax];
  int i,i_max;
  
  fprintf(stdoutMPI, "%s", cProStartOutputList);
  i_max=X->Check.idim_max;
  switch(X->Def.iCalcModel){
  case HubbardGC:
  case Hubbard:
  case Spin:
  case SpinGC:
    sprintf(sdt, cFileNameListModel, 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", cProEndOutputList);
  return 0;
}