lattice/latticegpu.jl
1
0
Fork 0
mirror of https://igit.ific.uv.es/alramos/latticegpu.jl.git synced 2025-09-18 20:27:15 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added OR spwwes for Wilson action

Browse source
This commit is contained in:
Alberto Ramos 2025-09-04 14:37:11 +02:00
commit bfa9ab69d1
5 changed files with 580 additions and 168 deletions
Download patch file Download diff file Expand all files Collapse all files

41
test/update/test1.jl Normal file
View file

@ -0,0 +1,41 @@
###
### "THE BEER-WARE LICENSE":
### Alberto Ramos wrote this file. As long as you retain this
### notice you can do whatever you want with this stuff. If we meet some
### day, and you think this stuff is worth it, you can buy me a beer in
### return. <alberto.ramos@cern.ch>
###
### file: test1.jl
### created: Tue Sep 2 16:29:48 2025
###
using LatticeGPU, Test, CUDA
T = Float64
lp = SpaceParm{4}((4,4,4,4), (4,4,4,4), BC_PERIODIC, (0,0,0,0,0,1))
gp = GaugeParm{T}(SU3{T}, 6.5, 1.0)
ymws = YMworkspace(SU3, T, lp)
randomize!(ymws.mom, lp, ymws)
U = exp.(ymws.mom)
act = gauge_action(U, lp, gp, ymws)
plq = plaquette(U, lp, gp, ymws)
pl_exact = Eoft_plaq(U, gp, lp, ymws)
cl_exact = Eoft_clover(U, gp, lp, ymws)
println("## Random config: ")
println(" - act: ", act)
println(" - plq: ", plq)
println(" - Epl: ", pl_exact)
println(" - Ecl: ", cl_exact)
updt_or_wilson!(U, gp, lp)
plq = plaquette(U, lp, gp, ymws)
act = gauge_action(U, lp, gp, ymws)
pl_exact = Eoft_plaq(U, gp, lp, ymws)
cl_exact = Eoft_clover(U, gp, lp, ymws)
println("## After OR: ")
println(" - act: ", act)
println(" - plq: ", plq)
println(" - Epl: ", pl_exact)
println(" - Ecl: ", cl_exact)