Commit 06987d4d authored by Jefferson Stafusa E. Portela's avatar Jefferson Stafusa E. Portela
Browse files

New unsuccessful attempt at Exercise 2 of part 2 (tv model).

parent 605795f6
......@@ -239,6 +239,7 @@
CLOSE(5)
Ltrot = nint(beta/dtau)
Thtrot = 0
if (Projector) Thtrot = nint(theta/dtau)
Ltrot = Ltrot+2*Thtrot
N_SUN = 1
......@@ -339,6 +340,9 @@
Write(6,*) 'The plain vanilla Hubbard model is only defined for the square lattice'
stop
Endif
Latt_Unit%Norb = 1
Allocate (Latt_unit%Orb_pos_p(1,2))
Latt_Unit%Orb_pos_p(1,:) = 0.d0
a1_p(1) = 1.0 ; a1_p(2) = 0.d0
a2_p(1) = 0.0 ; a2_p(2) = 1.d0
L1_p = dble(L1)*a1_p
......
......@@ -239,6 +239,7 @@
CLOSE(5)
Ltrot = nint(beta/dtau)
Thtrot = 0
if (Projector) Thtrot = nint(theta/dtau)
Ltrot = Ltrot+2*Thtrot
N_SUN = 1
......@@ -339,6 +340,9 @@
Write(6,*) 'The plain vanilla Hubbard model is only defined for the square lattice'
stop
Endif
Latt_Unit%Norb = 1
Allocate (Latt_unit%Orb_pos_p(1,2))
Latt_Unit%Orb_pos_p(1,:) = 0.d0
a1_p(1) = 1.0 ; a1_p(2) = 0.d0
a2_p(1) = 0.0 ; a2_p(2) = 1.d0
L1_p = dble(L1)*a1_p
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment