NRG Ljubljana  (c) Rok Zitko, rok.zitko@ijs.si, 2005-2012
initial $Id: initial.m,v 1.1 2012/05/15 09:58:19 rokzitko Exp rokzitko $
Mathematica version: 9.0 for Mac OS X x86 (64-bit) (November 20, 2012)
sneg version: 1.233
Loading module initialparse.m
Discretization: Z
U=0.01 Gamma=0.0006 delta=0.001 t=0.
epsilon=-0.004
QS SIAM 
Options:TEMPLATE WRITE
Options: {TEMPLATE, WRITE}
def1ch, NRDOTS=1
COEFCHANNELS:1
Hc=gammaPolCh[1]*(nc[d[0, 0], f[1, 0, 0]] + nc[d[0, 1], f[1, 0, 1]] + 
     nc[f[0, 0, 0], d[1, 0]] + nc[f[0, 0, 1], d[1, 1]])
H0=coefzeta[1, 0]*(-1 + nc[f[0, 0, 0], f[1, 0, 0]] + 
     nc[f[0, 0, 1], f[1, 0, 1]])
adddots, nrdots=1
Loading module models.m
"models $Id: models.m 877 2009-12-16 16:34:11Z zitko $"
Loading module custommodels.m
models $Id: custommodels.m,v 1.2 2011/10/21 16:59:38 rokzitko Exp rokzitko $
custommodels.m done
NRDOTS:1
CHANNELS:1
basis:{d[], f[0]}
lrchain:{}
lrextrarule:{}
NROPS:2
Hamiltonian generated. U/2 - coefzeta[1, 0] + delta*nc[d[0, 0], d[1, 0]] - 
   (U*nc[d[0, 0], d[1, 0]])/2 + gammaPolCh[1]*nc[d[0, 0], f[1, 0, 0]] + 
   delta*nc[d[0, 1], d[1, 1]] - (U*nc[d[0, 1], d[1, 1]])/2 + 
   gammaPolCh[1]*nc[d[0, 1], f[1, 0, 1]] + 
   gammaPolCh[1]*nc[f[0, 0, 0], d[1, 0]] + 
   coefzeta[1, 0]*nc[f[0, 0, 0], f[1, 0, 0]] + 
   gammaPolCh[1]*nc[f[0, 0, 1], d[1, 1]] + 
   coefzeta[1, 0]*nc[f[0, 0, 1], f[1, 0, 1]] - 
   U*nc[d[0, 0], d[0, 1], d[1, 0], d[1, 1]]
H-conj[H]=0
SCALE[0]=1.0201394465967895
faktor=1.3862943611198906
Generating basis
Basis states generated.
BASIS NR=16
Saving basis to basis.SIAM..QS
PREC=1000
Tmin=1.*^-10
Tmin=1.*^-10 ==> Nmax=66
DISCNMAX=66
mMAX=132
Diagonalisation.
Discretization checksum [-1] (channel 1): \
9.183549615799121156005754197048794358`10.*^-41
BAND="flat" thetaCh={"2."}
Discretization (channel 1)
"xitable" (channel 1)
0.755928946
0.81461308
0.8924940297
0.942104181
0.9699342623
0.9846755156
0.9922632047
0.9961127494
0.9980516341
0.9990246284
0.9995120166
0.9997559339
0.9998779483
0.9999389695
0.9999694836
0.9999847415
0.9999923707
0.9999961853
0.9999980927
0.9999990463
0.9999995232
0.9999997616
0.9999998808
0.9999999404
0.9999999702
0.9999999851
0.9999999925
0.9999999963
0.9999999981
0.9999999991
0.9999999995
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
1.
"zetatable" (channel 1)
0.e-999
0.e-998
0.e-997
0.e-996
0.e-996
0.e-995
0.e-994
0.e-993
0.e-992
0.e-991
0.e-991
0.e-990
0.e-989
0.e-988
0.e-987
0.e-986
0.e-986
0.e-985
0.e-984
0.e-983
0.e-982
0.e-981
0.e-980
0.e-980
0.e-979
0.e-978
0.e-977
0.e-976
0.e-975
0.e-975
0.e-974
0.e-973
0.e-972
0.e-971
0.e-970
0.e-969
0.e-969
0.e-968
0.e-967
0.e-966
0.e-965
0.e-964
0.e-964
0.e-963
0.e-962
0.e-961
0.e-960
0.e-959
0.e-958
0.e-958
0.e-957
0.e-956
0.e-955
0.e-954
0.e-953
0.e-953
0.e-952
0.e-951
0.e-950
0.e-949
0.e-948
0.e-947
0.e-947
0.e-946
0.e-945
0.e-944
0.e-943
Precision last xi:933.5204393616123
Precision last zeta: 0.
Discretization done.
--EOF--
           {{# Input file for NRG Ljubljana, Rok Zitko, rok.zitko@ijs.si, \

maketable[]

2005-2012}, {# symtype , QS}, {# $Id: initial.m,v 1.1 2012/05/15 09:58:19 \
rokzitko Exp rokzitko $}, {# Using sneg version , 1.233}, 
   {# Model: , SIAM,  Variant: , ,  Channels: , 1}, 
   {# U=, 0.01,  Gamma=, 0.0006,  Delta=, 0.001,  t=, 0.}, {#}, 
   {# Gamma^(1/2)=, Sqrt[theta0]/Sqrt[Pi]}, {# Lambda=, 2.,  BAND=, flat}, 
   {# DISCRETIZATION=, Z,  z=, 1.}, {# ops=, n_d n_d^2}, {#!7}, 
   {# Number of channels, impurities, subspaces: }, {1, 1, 6}}
exnames={an1x, an1y, an1z, an2x, an2y, an2z, anB2, anB4, anB6, anD, anE, 
   anodelta, B, beta, Bf, Borb, Bx, By, Bz, d, delta1, delta2, delta3, 
   deltaeps, eps, eps0, eps1, eps2, eps3, epsilon, F0, F2, F4, g, g1, g2, 
   Gamma1, Gamma2, Gamma2to2, Gamma3, gammaa, gch, ggg, gl, gs, J0, J1, J12, 
   J2, Jad, Jcharge, Jcharge1, Jcharge2, JH, jhop, Jhund, Jkondo, Jkondo1, 
   Jkondo1ch2, Jkondo1P, Jkondo1Z, Jkondo2, Jkondo2ch2, Jkondo2P, Jkondo2Z, 
   Jkondo3, JkondoDM, JkondoP, JkondoZ, Jspin, k, kappa, kFR, lr, lslambda, 
   maj1do, maj1up, maj2do, maj2up, majdelta, majdeltado, majdeltaup, n0, 
   omega, pairdelta, phi, Pl, Pr, Ra, t0, t12, ta, tab, tad, Tad, tb, tpp, 
   tpp12, tpp13, tpp23, U1, U12, U2, U3, Uad, Uf, Uprime, V, V1, V2, V3}
thetaCh={"2."}
theta0Ch={"0.0012"}
gammaPolCh={"0.019544100476116797"}
checkdefinitions[] -> 0.06517640190446719
calcgsenergy[]
diagvc[{-2, 1}]
Generating matrix and saving to ham.SIAM..QS_-2.1
hamil={{(U - 2*coefzeta[1, 0])/2}}
dim={1, 1}
diagvc[{-1, 2}]
Generating matrix and saving to ham.SIAM..QS_-1.2
hamil={{U/2, gammaPolCh[1]}, {gammaPolCh[1], delta - coefzeta[1, 0]}}
dim={2, 2}
diagvc[{0, 1}]
Generating matrix and saving to ham.SIAM..QS_0.1
hamil={{U/2 + coefzeta[1, 0], Sqrt[2]*gammaPolCh[1], 0}, 
   {Sqrt[2]*gammaPolCh[1], delta, Sqrt[2]*gammaPolCh[1]}, 
   {0, Sqrt[2]*gammaPolCh[1], (4*delta + U - 2*coefzeta[1, 0])/2}}
dim={3, 3}
diagvc[{0, 3}]
Generating matrix and saving to ham.SIAM..QS_0.3
hamil={{delta}}
dim={1, 1}
diagvc[{1, 2}]
Generating matrix and saving to ham.SIAM..QS_1.2
hamil={{delta + coefzeta[1, 0], -gammaPolCh[1]}, 
   {-gammaPolCh[1], (4*delta + U)/2}}
dim={2, 2}
diagvc[{2, 1}]
Generating matrix and saving to ham.SIAM..QS_2.1
hamil={{2*delta + U/2 + coefzeta[1, 0]}}
dim={1, 1}
Lowest energies (absolute):{1, 1, 1, 1, 1, 1, 2, 2, 2, 3}
Lowest energies (GS shifted):{0, 0, 0, 0, 0, 0, 1, 1, 1, 2}
Scale factor SCALE(Ninit):1.0201394465967895
Lowest energies (shifted and scaled):
  {0., 0., 0., 0., 0., 0., 0.9802581434685472, 0.9802581434685472, 
   0.9802581434685472, 1.9605162869370945}
ireducTable: f[0]
Loading module operators.m
"operators.m $Id: operators.m 877 2009-12-16 16:34:11Z zitko $"
n_d op.SIAM..QS.n_d nc[d[0, 0], d[1, 0]] + nc[d[0, 1], d[1, 1]]
n_d^2 op.SIAM..QS.n_d^2 nc[d[0, 0], d[1, 0]] + nc[d[0, 1], d[1, 1]] - 
   2*nc[d[0, 0], d[0, 1], d[1, 0], d[1, 1]]
$Id: operators.m 877 2009-12-16 16:34:11Z zitko $ DONE
Loading module customoperators.m
"customoperators $Id: customoperators.m,v 1.3 2010/04/07 09:12:36 rok Exp rok \
$"
Customoperators done.
Loading module modeloperators.m
-- maketable[] done --
Timing report
{basis, 0.016014`4.6560448176671265}
{ham, 0.052442`4.393072989295912}
{maketable, 0.647123`6.262531829256322}
{xi, 3.322839`6.973054292612332}
{_, 0}
data.in
gammaPol=0.019544100476116797
"Success!"
