NRG Ljubljana  (c) Rok Zitko, rok.zitko@ijs.si, 2005-2010
initial $Id: initial.m,v 1.4 2010/06/16 14:19:33 rok Exp rok $
Mathematica version: 8.0 for Mac OS X x86 (64-bit) (November 6, 2010)
sneg version: 1.230
Loading module initialparse.m
Discretization: Z
U=0.27 Gamma=0.01 delta=0 t=0.
epsilon=-0.135
SPSU2 SIAM 
Options:
Options: {}
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]]) + 
   coefdelta[1, 0]*(-nc[f[0, 0, 0], f[0, 0, 1]] + nc[f[1, 0, 0], 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.1 2011/03/14 12:52:49 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]] - 
   coefdelta[1, 0]*nc[f[0, 0, 0], f[0, 0, 1]] + 
   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]] + 
   coefdelta[1, 0]*nc[f[1, 0, 0], 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.0820212806667224
faktor=1.8483924814931878
Generating basis
Basis states generated.
BASIS NR=16
Saving basis to basis.SIAM..SPSU2
PREC=1000
Tmin=1.*^-12
Tmin=1.*^-12 ==> Nmax=39
DISCNMAX=39
mMAX=80
Diagonalisation.
Discretization checksum [-1] (channel 1): \
1.71056941445900521352994333897694840244172600327`10.*^-49
BAND="flat" thetaCh={"2."}
Discretization (channel 1)
"xitable" (channel 1)
0.8728715609
0.9453729031
0.984886061
0.9961260497
0.9990254621
0.999755986
0.9999389728
0.9999847417
0.9999961853
0.9999990463
0.9999997616
0.9999999404
0.9999999851
0.9999999963
0.9999999991
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-998
0.e-997
0.e-996
0.e-995
0.e-994
0.e-993
0.e-992
0.e-991
0.e-990
0.e-989
0.e-989
0.e-988
0.e-987
0.e-986
0.e-985
0.e-984
0.e-983
0.e-982
0.e-981
0.e-980
0.e-979
0.e-978
0.e-978
0.e-977
0.e-976
0.e-975
0.e-974
0.e-973
0.e-972
0.e-971
0.e-970
0.e-969
0.e-968
0.e-967
0.e-967
0.e-966
0.e-965
0.e-964
Precision last xi:951.8379403796525
Precision last zeta: 0.
"scdeltatable" (channel 1)
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
0.01
"sckappatable" (channel 1)
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
Discretization done.
--EOF--

           {{# Input file for NRG Ljubljana, Rok Zitko, rok.zitko@ijs.si, \

maketable[]

2005-2010}, {# symtype , SPSU2}, 
   {# $Id: initial.m,v 1.4 2010/06/16 14:19:33 rok Exp rok $}, 
   {# Using sneg version , 1.230}, 
   {# Model: , SIAM,  Variant: , ,  Channels: , 1}, 
   {# U=, 0.27,  Gamma=, 0.01,  Delta=, 0,  t=, 0.}, {#}, 
   {# Gamma^(1/2)=, Sqrt[theta0]/Sqrt[Pi]}, {# Lambda=, 4.,  BAND=, flat}, 
   {# DISCRETIZATION=, Z,  z=, 1.}, {# ops=, q_d q_d^2 pair_d A_d Ac_d}, 
   {#!7}, {# Number of channels, impurities, subspaces: }, {1, 1, 3}}
exnames={an1x, an1y, an1z, an2x, an2y, an2z, anB2, anB4, anB6, anD, anE, 
   anodelta, B, beta, Borb, Bx, By, Bz, delta1, delta2, delta3, deltaeps, 
   eps, eps0, eps1, eps2, eps3, epsilon, F0, F2, F4, g, g1, g2, Gamma1, 
   Gamma2, Gamma2to2, Gamma3, gammaa, gch, gl, gs, J0, J1, J12, J2, Jad, 
   Jcharge, Jcharge1, Jcharge2, JH, jhop, Jkondo, Jkondo1, Jkondo1ch2, 
   Jkondo1P, Jkondo1Z, Jkondo2, Jkondo2ch2, Jkondo2P, Jkondo2Z, Jkondo3, 
   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, Uprime, V, V1, V2, V3}
theta0Ch={"0.02"}
checkdefinitions[] -> -0.08584617567885389
calcgsenergy[]
diagvc[{1}]
Generating matrix and saving to ham.SIAM..SPSU2_1
hamil={{(U - 2*coefzeta[1, 0])/2, -coefdelta[1, 0], 0, 0, 0}, 
   {-coefdelta[1, 0], U/2 + coefzeta[1, 0], Sqrt[2]*gammaPolCh[1], 0, 0}, 
   {0, Sqrt[2]*gammaPolCh[1], delta, Sqrt[2]*gammaPolCh[1], 0}, 
   {0, 0, Sqrt[2]*gammaPolCh[1], (4*delta + U - 2*coefzeta[1, 0])/2, 
    -coefdelta[1, 0]}, {0, 0, 0, -coefdelta[1, 0], 
    2*delta + U/2 + coefzeta[1, 0]}}
dim={5, 5}
det[vec]=-1.0000000000000004 1-abs=-4.440892098500626*^-16
orthogonality check=1.0652069504235584*^-14
diagvc[{2}]
Generating matrix and saving to ham.SIAM..SPSU2_2
hamil={{U/2, gammaPolCh[1], 0, 0}, 
   {gammaPolCh[1], delta - coefzeta[1, 0], -coefdelta[1, 0], 0}, 
   {0, -coefdelta[1, 0], delta + coefzeta[1, 0], -gammaPolCh[1]}, 
   {0, 0, -gammaPolCh[1], (4*delta + U)/2}}
dim={4, 4}
det[vec]=-1.0000000000000004 1-abs=-4.440892098500626*^-16
orthogonality check=9.686695889854491*^-15
diagvc[{3}]
Generating matrix and saving to ham.SIAM..SPSU2_3
hamil={{delta}}
dim={1, 1}
det[vec]=1. 1-abs=0.
orthogonality check=0.
Lowest energies (absolute):{-0.1058926161242196, -0.045307456716480426, 
   -0.028853084430992076, 0., 0.12500000000000017, 0.13447338869435937, 
   0.14500000000000013, 0.1703074567164805, 0.1738530844309921, 
   0.24141922742986077}
Lowest energies (GS shifted):{0., 0.060585159407739175, 0.07703953169322753, 
   0.1058926161242196, 0.23089261612421977, 0.24036600481857898, 
   0.25089261612421976, 0.27620007284070014, 0.2797457005552117, 
   0.3473118435540804}
Scale factor SCALE(Ninit):1.0820212806667224
Lowest energies (shifted and scaled):
  {0., 0.055992576569665685, 0.07119964557975896, 0.09786555774482592, 
   0.2133900878381503, 0.22214535805660837, 0.23187401265308216, 
   0.2552630690133105, 0.25853992481814897, 0.32098430017945023}
ireducTable: f[0]
Loading module operators.m
"operators.m $Id: operators.m 877 2009-12-16 16:34:11Z zitko $"
q_d op.SIAM..SPSU2.q_d -1 + nc[d[0, 0], d[1, 0]] + nc[d[0, 1], d[1, 1]]
q_d^2 op.SIAM..SPSU2.q_d^2 1 - 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]]
pair_d op.SIAM..SPSU2.pair_d -nc[d[0, 0], d[0, 1]]
ireducTable: d[#1, #2] & 
ireducTable: (-1)^#2*d[1 - #1, 1 - #2] & 
$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
Can't load modeloperators.m. Continuing.
-- maketable[] done --
Timing report
{basis, 0.018306`4.714138451522028}
{ham, 0.04881`4.6629325464328275}
{maketable, 1.732088`6.6901149463872}
{xi, 1.41462`6.602184787372634}
{_, 0}
data
gammaPol=0.07978845608028654

"Success!"


