Setup a Hamiltonian for the Simple Orthorhombic lattice.
(4) Compute the upper limit of the number of Transfer & Interaction and malloc them.
37 int isite, jsite, ntransMax, nintrMax;
38 int iL, iW, iH, kCell;
40 double complex Cphase;
46 fp = fopen(
"lattice.xsf",
"w");
50 fprintf(stdout,
" @ Lattice Size & Shape\n\n");
71 StdI->
tau[0][0] = 0.0; StdI->
tau[0][1] = 0.0; ; StdI->
tau[0][2] = 0.0;
75 fprintf(stdout,
"\n @ Hamiltonian \n\n");
80 if (strcmp(StdI->
model,
"spin") == 0 ) {
136 if (strcmp(StdI->
model,
"hubbard") == 0 ) {
146 fprintf(stdout,
"\n @ Numerical conditions\n\n");
152 if (strcmp(StdI->
model,
"kondo") == 0 ) StdI->
nsite *= 2;
155 if(strcmp(StdI->
model,
"spin") == 0 )
157 else if(strcmp(StdI->
model,
"hubbard") == 0 )
160 for (iL = 0; iL < StdI->
nsite / 2; iL++) {
167 if (strcmp(StdI->
model,
"spin") == 0 ) {
168 ntransMax = StdI->
nsite * (StdI->
S2 + 1 + 2 * StdI->
S2);
170 * (3 * StdI->
S2 + 1) * (3 * StdI->
S2 + 1);
173 ntransMax = StdI->
NCell * 2 * (2 * StdI->
NsiteUC + 6 + 12 + 8);
174 nintrMax = StdI->
NCell * (StdI->
NsiteUC + 4 * (3 + 6 + 4));
176 if (strcmp(StdI->
model,
"kondo") == 0) {
177 ntransMax += StdI->
nsite / 2 * (StdI->
S2 + 1 + 2 * StdI->
S2);
178 nintrMax += StdI->
nsite / 2 * (3 * StdI->
S2 + 1) * (3 * StdI->
S2 + 1);
186 for (kCell = 0; kCell < StdI->
NCell; kCell++){
188 iW = StdI->
Cell[kCell][0];
189 iL = StdI->
Cell[kCell][1];
190 iH = StdI->
Cell[kCell][2];
195 if (strcmp(StdI->
model,
"kondo") == 0 ) isite += StdI->
NCell;
197 if (strcmp(StdI->
model,
"spin") == 0 ) {
203 if (strcmp(StdI->
model,
"kondo") == 0 ) {
212 StdFace_FindSite(StdI, iW, iL, iH, 1, 0, 0, 0, 0, &isite, &jsite, &Cphase, dR);
214 if (strcmp(StdI->
model,
"spin") == 0 ) {
224 StdFace_FindSite(StdI, iW, iL, iH, 0, 1, 0, 0, 0, &isite, &jsite, &Cphase, dR);
226 if (strcmp(StdI->
model,
"spin") == 0) {
236 StdFace_FindSite(StdI, iW, iL, iH, 0, 0, 1, 0, 0, &isite, &jsite, &Cphase, dR);
238 if (strcmp(StdI->
model,
"spin") == 0) {
248 StdFace_FindSite(StdI, iW, iL, iH, 0, 1, 1, 0, 0, &isite, &jsite, &Cphase, dR);
250 if (strcmp(StdI->
model,
"spin") == 0 ) {
260 StdFace_FindSite(StdI, iW, iL, iH, 0, 1, -1, 0, 0, &isite, &jsite, &Cphase, dR);
262 if (strcmp(StdI->
model,
"spin") == 0) {
272 StdFace_FindSite(StdI, iW, iL, iH, 1, 0, 1, 0, 0, &isite, &jsite, &Cphase, dR);
274 if (strcmp(StdI->
model,
"spin") == 0) {
284 StdFace_FindSite(StdI, iW, iL, iH, -1, 0, 1, 0, 0, &isite, &jsite, &Cphase, dR);
286 if (strcmp(StdI->
model,
"spin") == 0) {
296 StdFace_FindSite(StdI, iW, iL, iH, 1, 1, 0, 0, 0, &isite, &jsite, &Cphase, dR);
298 if (strcmp(StdI->
model,
"spin") == 0) {
308 StdFace_FindSite(StdI, iW, iL, iH, 1, -1, 0, 0, 0, &isite, &jsite, &Cphase, dR);
310 if (strcmp(StdI->
model,
"spin") == 0) {
320 StdFace_FindSite(StdI, iW, iL, iH, 1, 1, 1, 0, 0, &isite, &jsite, &Cphase, dR);
322 if (strcmp(StdI->
model,
"spin") == 0) {
332 StdFace_FindSite(StdI, iW, iL, iH, -1, 1, 1, 0, 0, &isite, &jsite, &Cphase, dR);
334 if (strcmp(StdI->
model,
"spin") == 0) {
344 StdFace_FindSite(StdI, iW, iL, iH, 1, -1, 1, 0, 0, &isite, &jsite, &Cphase, dR);
346 if (strcmp(StdI->
model,
"spin") == 0) {
356 StdFace_FindSite(StdI, iW, iL, iH, 1, 1, -1, 0, 0, &isite, &jsite, &Cphase, dR);
358 if (strcmp(StdI->
model,
"spin") == 0) {
void StdFace_PrintVal_i(char *valname, int *val, int val0)
Print a valiable (integer) read from the input file if it is not specified in the input file (=214748...
double V2
Anisotropic Coulomb potential (1st), input parameter.
double J0pp[3][3]
Isotropic, diagonal/off-diagonal spin coupling (3rd Near.), input parameter J0''x, J0''y, J0''z, J0''xy, etc. or set in StdFace_InputSpin().
double Jp[3][3]
Isotropic, diagonal/off-diagonal spin coupling (2nd Near.), input parameter J'x, J'y, J'z, J'xy, etc.
double complex t2p
Anisotropic hopping (2nd), input parameter.
double J[3][3]
Isotropic, diagonal/off-diagonal spin coupling (1st Near.), input parameter Jx, Jy, Jz, Jxy, etc.
void StdFace_GeneralJ(struct StdIntList *StdI, double J[3][3], int Si2, int Sj2, int isite, int jsite)
Treat J as a 3*3 matrix [(6S + 1)*(6S' + 1) interactions].
void StdFace_HubbardLocal(struct StdIntList *StdI, double mu0, double h0, double Gamma0, double U0, int isite)
Add intra-Coulomb, magnetic field, chemical potential for the itenerant electron. ...
double D[3][3]
Coefficient for input parameter D. Only D[2][2] is used.
double J1p[3][3]
Isotropic, diagonal/off-diagonal spin coupling (2nd Near.), input parameter J1'x, J1'y...
void StdFace_PrintGeometry(struct StdIntList *StdI)
Print geometry of sites for the pos-process of correlation function.
double J1ppAll
Anisotropic, diagonal spin coupling (3rd Near), input parameter J1''.
double J2pp[3][3]
Isotropic, diagonal/off-diagonal spin coupling (3rd Near.), input parameter J2''x, J2''y, J2''z, J2''xy, etc. or set in StdFace_InputSpin().
double JpAll
Isotropic, diagonal spin coupling (2nd Near), input parameter Jp.
void StdFace_InputHopp(double complex t, double complex *t0, char *t0name)
Input hopping integral from the input file, if it is not specified, use the default value(0 or the is...
double J1[3][3]
Isotropic, diagonal/off-diagonal spin coupling (1st Near.), input parameter J1x, J1y, J1z, J1xy, etc. or set in StdFace_InputSpinNN().
double J2p[3][3]
Isotropic, diagonal/off-diagonal spin coupling (2nd Near.), input parameter J2'x, J2'y...
void StdFace_Hopping(struct StdIntList *StdI, double complex trans0, int isite, int jsite, double *dR)
Add Hopping for the both spin.
double complex t
Nearest-neighbor hopping, input parameter.
void StdFace_MallocInteractions(struct StdIntList *StdI, int ntransMax, int nintrMax)
Malloc Arrays for interactions.
double JAll
Isotropic, diagonal spin coupling (1st Near.), input parameter J.
int S2
Total spin |S| of a local spin, input from file.
int NsiteUC
Number of sites in the unit cell. Defined in the beginning of each lattice function.
void StdFace_InputSpin(double Jp[3][3], double JpAll, char *Jpname)
Input spin-spin interaction other than nearest-neighbor.
double J1All
Anisotropic, diagonal spin coupling (1st Near), input parameter J1.
double V0p
Anisotropic Coulomb potential (2nd), input parameter.
double J1pp[3][3]
Isotropic, diagonal/off-diagonal spin coupling (3rd Near.), input parameter J1''x, J1''y, J1''z, J1''xy, etc. or set in StdFace_InputSpin().
void StdFace_InitSite(struct StdIntList *StdI, FILE *fp, int dim)
Initialize the super-cell where simulation is performed.
double V2p
Anisotropic Coulomb potential (2nd), input parameter.
double J2ppAll
Anisotropic, diagonal spin coupling (3rd Near), input parameter J2''.
double complex tpp
3rd-nearest hopping, input parameter
char model[256]
Name of model, input parameter.
void StdFace_NotUsed_J(char *valname, double JAll, double J[3][3])
Stop HPhi if variables (real) not used is specified in the input file (!=NaN).
double Gamma
Transvars magnetic field, input parameter.
double JppAll
Isotropic, diagonal spin coupling (3rd Near), input parameter J''.
double V1
Anisotropic Coulomb potential (1st), input parameter.
double J0All
Anisotropic, diagonal spin coupling (1st Near), input parameter J0.
double J0[3][3]
Isotropic, diagonal/off-diagonal spin coupling (1st Near.), input parameter J0x, J0y, J0z, J0xy, etc. or set in StdFace_InputSpinNN().
double J0ppAll
Anisotropic, diagonal spin coupling (3rd Near), input parameter J0''.
double U
On-site Coulomb potential, input parameter.
double complex t0p
Anisotropic hopping (2nd), input parameter.
int ** Cell
[StdIntList][3] The cell position in the fractional coordinate. Malloc and Set in StdFace_InitSite()...
double phase[3]
Boundary phase, input parameter phase0, etc.
double J0pAll
Anisotropic, diagonal spin coupling (2nd Near), input parameter J0'.
double length[3]
Anisotropic lattice constant, input parameter wlength, llength, hlength.
int * locspinflag
[StdIntList::nsite] LocSpin in Expert mode, malloc and set in each lattice file.
double complex tp
2nd-nearest hopping, input parameter
double Jpp[3][3]
Isotropic, diagonal/off-diagonal spin coupling (3rd Near.), input parameter J''x, J''y...
double complex t1
Anisotropic hopping (1st), input parameter.
double V
Off-site Coulomb potential (1st), input parameter.
double complex t0
Anisotropic hopping (1st), input parameter.
double direct[3][3]
The unit direct lattice vector. Set in StdFace_InitSite().
void StdFace_MagField(struct StdIntList *StdI, int S2, double h, double Gamma, int isite)
Add longitudinal and transvars magnetic field to the list.
void StdFace_NotUsed_d(char *valname, double val)
Stop HPhi if a variable (real) not used is specified in the input file (!=NaN).
double V0
Anisotropic Coulomb potential (1st), input parameter.
void StdFace_Coulomb(struct StdIntList *StdI, double V, int isite, int jsite)
Add onsite/offsite Coulomb term to the list StdIntList::Cinter and StdIntList::CinterIndx, and increase the number of them (StdIntList::NCinter).
void StdFace_InputCoulombV(double V, double *V0, char *V0name)
Input off-site Coulomb interaction from the input file, if it is not specified, use the default value...
double Vpp
Off-site Coulomb potential (3rd), input parameter.
double complex t1p
Anisotropic hopping (2nd), input parameter.
double complex t2
Anisotropic hopping (1st), input parameter.
double mu
Chemical potential, input parameter.
void StdFace_PrintVal_d(char *valname, double *val, double val0)
Print a valiable (real) read from the input file if it is not specified in the input file (=NaN)...
int NCell
The number of the unit cell in the super-cell (determinant of StdIntList::box). Set in StdFace_InitSi...
double Vp
Off-site Coulomb potential (2nd), input parameter.
double J1pAll
Anisotropic, diagonal spin coupling (2nd Near), input parameter J1'.
void StdFace_NotUsed_c(char *valname, double complex val)
Stop HPhi if a variable (complex) not used is specified in the input file (!=NaN).
void StdFace_PrintVal_c(char *valname, double complex *val, double complex val0)
Print a valiable (complex) read from the input file if it is not specified in the input file (=NaN)...
int nsite
Number of sites, set in the each lattice file.
double J2All
Anisotropic, diagonal spin coupling (1st Near), input parameter J2.
void StdFace_NotUsed_i(char *valname, int val)
Stop HPhi if a variable (integer) not used is specified in the input file (!=2147483647, the upper limt of Int).
void StdFace_PrintXSF(struct StdIntList *StdI)
Print lattice.xsf (XCrysDen format)
double h
Longitudinal magnetic field, input parameter.
double a
The lattice constant. Input parameter.
void StdFace_FindSite(struct StdIntList *StdI, int iW, int iL, int iH, int diW, int diL, int diH, int isiteUC, int jsiteUC, int *isite, int *jsite, double complex *Cphase, double *dR)
Find the index of transfer and interaction.
double J2[3][3]
Isotropic, diagonal/off-diagonal spin coupling (1st Near.), input parameter J2x, J2y, J2z, J2xy, etc. or set in StdFace_InputSpinNN().
double J2pAll
Anisotropic, diagonal spin coupling (2nd Near), input parameter J2'.
double ** tau
Cell-internal site position in the fractional coordinate. Defined in the beginning of each lattice fu...
double J0p[3][3]
Isotropic, diagonal/off-diagonal spin coupling (2nd Near.), input parameter J0'x, J0'y...
void StdFace_InputSpinNN(double J[3][3], double JAll, double J0[3][3], double J0All, char *J0name)
Input nearest-neighbor spin-spin interaction.
double V1p
Anisotropic Coulomb potential (2nd), input parameter.
double K
4-spin term. Not used.