Commit 8edecdf1 by Jefferson Stafusa E. Portela

### Improved but not final Exercise 2 of part 2 (tv model).

parent a98834b5
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
 ... @@ -482,12 +482,9 @@ ... @@ -482,12 +482,9 @@ !!!!! Modifications for Exercise 2 !!!!! Modifications for Exercise 2 Integer :: i2 Integer :: i2 !!!!! !!!!! Allocate(Op_V(Ndim,N_FL)) Allocate(Op_V(Ndim,N_FL)) ham_U = Ham_Vint ! for testing do nf = 1,N_FL do nf = 1,N_FL do i = 1, Ndim do i = 1, Ndim !!!!! Modifications for Exercise 2 !!!!! Modifications for Exercise 2 ... @@ -560,7 +557,10 @@ ... @@ -560,7 +557,10 @@ enddo enddo ! Equal time correlators ! Equal time correlators Allocate ( Obs_eq(5) ) !!!!! Modifications for Exercise 2 !Allocate ( Obs_eq(5) ) Allocate ( Obs_eq(3) ) !!!!! Do I = 1,Size(Obs_eq,1) Do I = 1,Size(Obs_eq,1) select case (I) select case (I) case (1) case (1) ... @@ -568,11 +568,13 @@ ... @@ -568,11 +568,13 @@ case (2) case (2) Ns = Latt%N; No = 1; Filename ="SpinZ" Ns = Latt%N; No = 1; Filename ="SpinZ" case (3) case (3) Ns = Latt%N; No = 1; Filename ="SpinXY" !!!!! Modifications for Exercise 2 case (4) ! Ns = Latt%N; No = 1; Filename ="SpinXY" Ns = Latt%N; No = 1; Filename ="SpinT" !case (4) case (5) ! Ns = Latt%N; No = 1; Filename ="SpinT" !case (5) Ns = Latt%N; No = 1; Filename ="Den" Ns = Latt%N; No = 1; Filename ="Den" !!!!! case default case default Write(6,*) ' Error in Alloc_obs ' Write(6,*) ' Error in Alloc_obs ' end select end select ... @@ -582,7 +584,10 @@ ... @@ -582,7 +584,10 @@ If (Ltau == 1) then If (Ltau == 1) then ! Equal time correlators ! Equal time correlators Allocate ( Obs_tau(5) ) !!!!! Modifications for Exercise 2 !Allocate ( Obs_tau(5) ) Allocate ( Obs_tau(3) ) !!!!! Do I = 1,Size(Obs_tau,1) Do I = 1,Size(Obs_tau,1) select case (I) select case (I) case (1) case (1) ... @@ -590,11 +595,13 @@ ... @@ -590,11 +595,13 @@ case (2) case (2) Ns = Latt%N; No = 1; Filename ="SpinZ" Ns = Latt%N; No = 1; Filename ="SpinZ" case (3) case (3) Ns = Latt%N; No = 1; Filename ="SpinXY" !!!!! Modifications for Exercise 2 case (4) ! Ns = Latt%N; No = 1; Filename ="SpinXY" Ns = Latt%N; No = 1; Filename ="SpinT" !case (4) case (5) ! Ns = Latt%N; No = 1; Filename ="SpinT" !case (5) Ns = Latt%N; No = 1; Filename ="Den" Ns = Latt%N; No = 1; Filename ="Den" !!!!! case default case default Write(6,*) ' Error in Alloc_obs ' Write(6,*) ' Error in Alloc_obs ' end select end select ... @@ -692,9 +699,10 @@ ... @@ -692,9 +699,10 @@ !ZPot = ZPot + Grc(i,i,1) * Grc(i,i, 2) !ZPot = ZPot + Grc(i,i,1) * Grc(i,i, 2) i1 = Latt%nnlist(i,1,0) i1 = Latt%nnlist(i,1,0) ZPot = ZPot + Grc(i,i,1) * Grc(i1,i1, 1) + Grc(i,i1,1)*Gr(i,i1,1) ZPot = ZPot + Grc(i,i,1) * Grc(i1,i1, 1) + Grc(i,i1,1)*Gr(i,i1,1) !!!!! Enddo Enddo Zpot = Zpot*ham_U !Zpot = Zpot*ham_U Zpot = Zpot*Ham_Vint !!!!! Obs_scal(2)%Obs_vec(1) = Obs_scal(2)%Obs_vec(1) + Zpot * ZP*ZS Obs_scal(2)%Obs_vec(1) = Obs_scal(2)%Obs_vec(1) + Zpot * ZP*ZS ... @@ -745,13 +753,13 @@ ... @@ -745,13 +753,13 @@ & Z * GRC(I1,J1,1) * ZP*ZS ! Green & Z * GRC(I1,J1,1) * ZP*ZS ! Green Obs_eq(2)%Obs_Latt(imj,1,no_I,no_J) = Obs_eq(2)%Obs_Latt(imj,1,no_I,no_J) + & Obs_eq(2)%Obs_Latt(imj,1,no_I,no_J) = Obs_eq(2)%Obs_Latt(imj,1,no_I,no_J) + & & Z * GRC(I1,J1,1) * GR(I1,J1,1) * ZP*ZS! SpinZ & Z * GRC(I1,J1,1) * GR(I1,J1,1) * ZP*ZS! SpinZ !Obs_eq(3)%Obs_Latt(imj,1,no_I,no_J) = Obs_eq(3)%Obs_Latt(imj,1,no_I,no_J) + & ! & Z * GRC(I1,J1,1) * GR(I1,J1,1) * ZP*ZS ! SpinXY Obs_eq(3)%Obs_Latt(imj,1,no_I,no_J) = Obs_eq(3)%Obs_Latt(imj,1,no_I,no_J) + & Obs_eq(3)%Obs_Latt(imj,1,no_I,no_J) = Obs_eq(3)%Obs_Latt(imj,1,no_I,no_J) + & & Z * GRC(I1,J1,1) * GR(I1,J1,1) * ZP*ZS ! SpinXY Obs_eq(4)%Obs_Latt(imj,1,no_I,no_J) = Obs_eq(4)%Obs_Latt(imj,1,no_I,no_J) + & & ( GRC(I1,I1,1) * GRC(J1,J1,1) * Z + & & ( GRC(I1,I1,1) * GRC(J1,J1,1) * Z + & & GRC(I1,J1,1) * GR(I1,J1,1 ) ) * Z * ZP*ZS ! Den & GRC(I1,J1,1) * GR(I1,J1,1 ) ) * Z * ZP*ZS ! Den enddo enddo Obs_eq(4)%Obs_Latt0(no_I) = Obs_eq(4)%Obs_Latt0(no_I) + Z * GRC(I1,I1,1) * ZP * ZS Obs_eq(3)%Obs_Latt0(no_I) = Obs_eq(3)%Obs_Latt0(no_I) + Z * GRC(I1,I1,1) * ZP * ZS enddo enddo !!!!! !!!!! ... @@ -843,14 +851,14 @@ ... @@ -843,14 +851,14 @@ & + Z * GT0(I1,J1,1) * ZP*ZS ! Green & + Z * GT0(I1,J1,1) * ZP*ZS ! Green Obs_tau(2)%Obs_Latt(imj,nt+1,no_I,no_J) = Obs_tau(2)%Obs_Latt(imj,nt+1,no_I,no_J) & Obs_tau(2)%Obs_Latt(imj,nt+1,no_I,no_J) = Obs_tau(2)%Obs_Latt(imj,nt+1,no_I,no_J) & & - Z * G0T(J1,I1,1) * GT0(I1,J1,1) *ZP*ZS ! SpinZ & - Z * G0T(J1,I1,1) * GT0(I1,J1,1) *ZP*ZS ! SpinZ !Obs_tau(3)%Obs_Latt(imj,nt+1,no_I,no_J) = Obs_tau(3)%Obs_Latt(imj,nt+1,no_I,no_J) & ! & - Z * G0T(J1,I1,1) * GT0(I1,J1,1) *ZP*ZS ! SpinXY Obs_tau(3)%Obs_Latt(imj,nt+1,no_I,no_J) = Obs_tau(3)%Obs_Latt(imj,nt+1,no_I,no_J) & Obs_tau(3)%Obs_Latt(imj,nt+1,no_I,no_J) = Obs_tau(3)%Obs_Latt(imj,nt+1,no_I,no_J) & & - Z * G0T(J1,I1,1) * GT0(I1,J1,1) *ZP*ZS ! SpinXY Obs_tau(4)%Obs_Latt(imj,nt+1,no_I,no_J) = Obs_tau(4)%Obs_Latt(imj,nt+1,no_I,no_J) & & + ( Z*Z*(cmplx(1.d0,0.d0,kind(0.d0)) - GTT(I1,I1,1))* & & + ( Z*Z*(cmplx(1.d0,0.d0,kind(0.d0)) - GTT(I1,I1,1))* & & (cmplx(1.d0,0.d0,kind(0.d0)) - G00(J1,J1,1)) - & & (cmplx(1.d0,0.d0,kind(0.d0)) - G00(J1,J1,1)) - & & Z * GT0(I1,J1,1)*G0T(J1,I1,1) ) * ZP * ZS ! Den & Z * GT0(I1,J1,1)*G0T(J1,I1,1) ) * ZP * ZS ! Den Enddo Enddo Obs_tau(4)%Obs_Latt0(no_I) = Obs_tau(4)%Obs_Latt0(no_I) + & Obs_tau(3)%Obs_Latt0(no_I) = Obs_tau(3)%Obs_Latt0(no_I) + & & Z*(cmplx(1.d0,0.d0,kind(0.d0)) - GTT(I1,I1,1)) * ZP * ZS & Z*(cmplx(1.d0,0.d0,kind(0.d0)) - GTT(I1,I1,1)) * ZP * ZS Enddo Enddo !!!!! !!!!! ... ...
 ... @@ -482,12 +482,9 @@ ... @@ -482,12 +482,9 @@ !!!!! Modifications for Exercise 2 !!!!! Modifications for Exercise 2 Integer :: i2 Integer :: i2 !!!!! !!!!! Allocate(Op_V(Ndim,N_FL)) Allocate(Op_V(Ndim,N_FL)) ham_U = Ham_Vint ! for testing do nf = 1,N_FL do nf = 1,N_FL do i = 1, Ndim do i = 1, Ndim !!!!! Modifications for Exercise 2 !!!!! Modifications for Exercise 2 ... @@ -560,7 +557,10 @@ ... @@ -560,7 +557,10 @@ enddo enddo ! Equal time correlators ! Equal time correlators Allocate ( Obs_eq(5) ) !!!!! Modifications for Exercise 2 !Allocate ( Obs_eq(5) ) Allocate ( Obs_eq(3) ) !!!!! Do I = 1,Size(Obs_eq,1) Do I = 1,Size(Obs_eq,1) select case (I) select case (I) case (1) case (1) ... @@ -568,11 +568,13 @@ ... @@ -568,11 +568,13 @@ case (2) case (2) Ns = Latt%N; No = 1; Filename ="SpinZ" Ns = Latt%N; No = 1; Filename ="SpinZ" case (3) case (3) Ns = Latt%N; No = 1; Filename ="SpinXY" !!!!! Modifications for Exercise 2 case (4) ! Ns = Latt%N; No = 1; Filename ="SpinXY" Ns = Latt%N; No = 1; Filename ="SpinT" !case (4) case (5) ! Ns = Latt%N; No = 1; Filename ="SpinT" !case (5) Ns = Latt%N; No = 1; Filename ="Den" Ns = Latt%N; No = 1; Filename ="Den" !!!!! case default case default Write(6,*) ' Error in Alloc_obs ' Write(6,*) ' Error in Alloc_obs ' end select end select ... @@ -582,7 +584,10 @@ ... @@ -582,7 +584,10 @@ If (Ltau == 1) then If (Ltau == 1) then ! Equal time correlators ! Equal time correlators Allocate ( Obs_tau(5) ) !!!!! Modifications for Exercise 2 !Allocate ( Obs_tau(5) ) Allocate ( Obs_tau(3) ) !!!!! Do I = 1,Size(Obs_tau,1) Do I = 1,Size(Obs_tau,1) select case (I) select case (I) case (1) case (1) ... @@ -590,11 +595,13 @@ ... @@ -590,11 +595,13 @@ case (2) case (2) Ns = Latt%N; No = 1; Filename ="SpinZ" Ns = Latt%N; No = 1; Filename ="SpinZ" case (3) case (3) Ns = Latt%N; No = 1; Filename ="SpinXY" !!!!! Modifications for Exercise 2 case (4) ! Ns = Latt%N; No = 1; Filename ="SpinXY" Ns = Latt%N; No = 1; Filename ="SpinT" !case (4) case (5) ! Ns = Latt%N; No = 1; Filename ="SpinT" !case (5) Ns = Latt%N; No = 1; Filename ="Den" Ns = Latt%N; No = 1; Filename ="Den" !!!!! case default case default Write(6,*) ' Error in Alloc_obs ' Write(6,*) ' Error in Alloc_obs ' end select end select ... @@ -692,9 +699,10 @@ ... @@ -692,9 +699,10 @@ !ZPot = ZPot + Grc(i,i,1) * Grc(i,i, 2) !ZPot = ZPot + Grc(i,i,1) * Grc(i,i, 2) i1 = Latt%nnlist(i,1,0) i1 = Latt%nnlist(i,1,0) ZPot = ZPot + Grc(i,i,1) * Grc(i1,i1, 1) + Grc(i,i1,1)*Gr(i,i1,1) ZPot = ZPot + Grc(i,i,1) * Grc(i1,i1, 1) + Grc(i,i1,1)*Gr(i,i1,1) !!!!! Enddo Enddo Zpot = Zpot*ham_U !Zpot = Zpot*ham_U Zpot = Zpot*Ham_Vint !!!!! Obs_scal(2)%Obs_vec(1) = Obs_scal(2)%Obs_vec(1) + Zpot * ZP*ZS Obs_scal(2)%Obs_vec(1) = Obs_scal(2)%Obs_vec(1) + Zpot * ZP*ZS ... @@ -745,13 +753,13 @@ ... @@ -745,13 +753,13 @@ & Z * GRC(I1,J1,1) * ZP*ZS ! Green & Z * GRC(I1,J1,1) * ZP*ZS ! Green Obs_eq(2)%Obs_Latt(imj,1,no_I,no_J) = Obs_eq(2)%Obs_Latt(imj,1,no_I,no_J) + & Obs_eq(2)%Obs_Latt(imj,1,no_I,no_J) = Obs_eq(2)%Obs_Latt(imj,1,no_I,no_J) + & & Z * GRC(I1,J1,1) * GR(I1,J1,1) * ZP*ZS! SpinZ & Z * GRC(I1,J1,1) * GR(I1,J1,1) * ZP*ZS! SpinZ !Obs_eq(3)%Obs_Latt(imj,1,no_I,no_J) = Obs_eq(3)%Obs_Latt(imj,1,no_I,no_J) + & ! & Z * GRC(I1,J1,1) * GR(I1,J1,1) * ZP*ZS ! SpinXY Obs_eq(3)%Obs_Latt(imj,1,no_I,no_J) = Obs_eq(3)%Obs_Latt(imj,1,no_I,no_J) + & Obs_eq(3)%Obs_Latt(imj,1,no_I,no_J) = Obs_eq(3)%Obs_Latt(imj,1,no_I,no_J) + & & Z * GRC(I1,J1,1) * GR(I1,J1,1) * ZP*ZS ! SpinXY Obs_eq(4)%Obs_Latt(imj,1,no_I,no_J) = Obs_eq(4)%Obs_Latt(imj,1,no_I,no_J) + & & ( GRC(I1,I1,1) * GRC(J1,J1,1) * Z + & & ( GRC(I1,I1,1) * GRC(J1,J1,1) * Z + & & GRC(I1,J1,1) * GR(I1,J1,1 ) ) * Z * ZP*ZS ! Den & GRC(I1,J1,1) * GR(I1,J1,1 ) ) * Z * ZP*ZS ! Den enddo enddo Obs_eq(4)%Obs_Latt0(no_I) = Obs_eq(4)%Obs_Latt0(no_I) + Z * GRC(I1,I1,1) * ZP * ZS Obs_eq(3)%Obs_Latt0(no_I) = Obs_eq(3)%Obs_Latt0(no_I) + Z * GRC(I1,I1,1) * ZP * ZS enddo enddo !!!!! !!!!! ... @@ -843,14 +851,14 @@ ... @@ -843,14 +851,14 @@ & + Z * GT0(I1,J1,1) * ZP*ZS ! Green & + Z * GT0(I1,J1,1) * ZP*ZS ! Green Obs_tau(2)%Obs_Latt(imj,nt+1,no_I,no_J) = Obs_tau(2)%Obs_Latt(imj,nt+1,no_I,no_J) & Obs_tau(2)%Obs_Latt(imj,nt+1,no_I,no_J) = Obs_tau(2)%Obs_Latt(imj,nt+1,no_I,no_J) & & - Z * G0T(J1,I1,1) * GT0(I1,J1,1) *ZP*ZS ! SpinZ & - Z * G0T(J1,I1,1) * GT0(I1,J1,1) *ZP*ZS ! SpinZ !Obs_tau(3)%Obs_Latt(imj,nt+1,no_I,no_J) = Obs_tau(3)%Obs_Latt(imj,nt+1,no_I,no_J) & ! & - Z * G0T(J1,I1,1) * GT0(I1,J1,1) *ZP*ZS ! SpinXY Obs_tau(3)%Obs_Latt(imj,nt+1,no_I,no_J) = Obs_tau(3)%Obs_Latt(imj,nt+1,no_I,no_J) & Obs_tau(3)%Obs_Latt(imj,nt+1,no_I,no_J) = Obs_tau(3)%Obs_Latt(imj,nt+1,no_I,no_J) & & - Z * G0T(J1,I1,1) * GT0(I1,J1,1) *ZP*ZS ! SpinXY Obs_tau(4)%Obs_Latt(imj,nt+1,no_I,no_J) = Obs_tau(4)%Obs_Latt(imj,nt+1,no_I,no_J) & & + ( Z*Z*(cmplx(1.d0,0.d0,kind(0.d0)) - GTT(I1,I1,1))* & & + ( Z*Z*(cmplx(1.d0,0.d0,kind(0.d0)) - GTT(I1,I1,1))* & & (cmplx(1.d0,0.d0,kind(0.d0)) - G00(J1,J1,1)) - & & (cmplx(1.d0,0.d0,kind(0.d0)) - G00(J1,J1,1)) - & & Z * GT0(I1,J1,1)*G0T(J1,I1,1) ) * ZP * ZS ! Den & Z * GT0(I1,J1,1)*G0T(J1,I1,1) ) * ZP * ZS ! Den Enddo Enddo Obs_tau(4)%Obs_Latt0(no_I) = Obs_tau(4)%Obs_Latt0(no_I) + & Obs_tau(3)%Obs_Latt0(no_I) = Obs_tau(3)%Obs_Latt0(no_I) + & & Z*(cmplx(1.d0,0.d0,kind(0.d0)) - GTT(I1,I1,1)) * ZP * ZS & Z*(cmplx(1.d0,0.d0,kind(0.d0)) - GTT(I1,I1,1)) * ZP * ZS Enddo Enddo !!!!! !!!!! ... ...
File deleted
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!