lattice/latticegpu.jl
1
0
Fork 0
mirror of https://igit.ific.uv.es/alramos/latticegpu.jl.git synced 2025-05-14 19:23:42 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Bugs corrected

Browse source
This commit is contained in:
Alberto Ramos 2021-10-27 18:01:40 +02:00
parent 64bc28c112
commit 6b42a168ee
2 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/YM/YMhmc.jl
View file

@ -86,7 +86,7 @@ function HMC!(U, int::IntrScheme, lp::SpaceParm, gp::GaugeParm, ymws::YMworkspac
end end
return dh, acc return dh, acc
end end
HMC!(U, eps, ns, lp::SpaceParm, gp::GaugeParm, ymws::YMworkspace{T}; noacc=false) where T = HMC!(U, omf4(T, int.eps, int.ns), lp, gp, ymws; noacc=noacc) HMC!(U, eps, ns, lp::SpaceParm, gp::GaugeParm, ymws::YMworkspace{T}; noacc=false) where T = HMC!(U, omf4(T, eps, ns), lp, gp, ymws; noacc=noacc)
function MD!(mom, U, int::IntrScheme{NI, T}, lp::SpaceParm, gp::GaugeParm{T}, ymws::YMworkspace{T}) where {NI, T <: AbstractFloat} function MD!(mom, U, int::IntrScheme{NI, T}, lp::SpaceParm, gp::GaugeParm{T}, ymws::YMworkspace{T}) where {NI, T <: AbstractFloat}

9
src/YM/YMsf.jl
View file

@ -25,7 +25,9 @@ function sfcoupling(U, lp::SpaceParm{N,M,B,D}, gp::GaugeParm, ymws::YMworkspace)
end end
@timeit "SF coupling measurement" begin @timeit "SF coupling measurement" begin
tmp = zeros(eltype(ymws.rm),lp.iL[end]) T = eltype(ymws.rm)
tmp = zeros(T,lp.iL[end])
fill!(ymws.rm, zero(T))
CUDA.@sync begin CUDA.@sync begin
CUDA.@cuda threads=lp.bsz blocks=lp.rsz krnl_sfcoupling!(ymws.rm, U, gp.Ubnd, lp) CUDA.@cuda threads=lp.bsz blocks=lp.rsz krnl_sfcoupling!(ymws.rm, U, gp.Ubnd, lp)
end end
@ -47,10 +49,9 @@ function krnl_sfcoupling!(rm, U::AbstractArray{T}, Ubnd::T, lp::SpaceParm{N,M,B,
I = point_coord((b,r), lp) I = point_coord((b,r), lp)
it = I[N] it = I[N]
SR3::eltype(rm) = 1.73205080756887729352744634151 SR3::eltype(rm) = 1.73205080756887729352744634151
SR3x2::type(rm) = 3.46410161513775458705489268302 SR3x2::eltype(rm) = 3.46410161513775458705489268302
rm[I] = zero(eltype(rm))
if (it == 1) if (it == 1)
but, rut = up((b,r), N, lp) but, rut = up((b,r), N, lp)
IU = point_coord((but,rut), lp) IU = point_coord((but,rut), lp)