@@ -16,7 +16,14 @@ Arguments
1616
1717It automatically calls the correct *_step! function.
1818"""
19- function step! (algorithm:: String , wigner:: WignerDistribution{T} , my_dt :: T , tot_for :: Vector{T} , d2v_dr2 :: Matrix{T} , part :: Int ) where {T <: AbstractFloat }
19+ function step! (
20+ algorithm:: String ,
21+ wigner:: WignerDistribution{T} ,
22+ my_dt:: T ,
23+ tot_for:: Vector{T} ,
24+ d2v_dr2:: Matrix{T} ,
25+ part:: Int ,
26+ ) where {T<: AbstractFloat }
2027
2128 if part == 1
2229 if " euler" == lowercase (algorithm)
@@ -30,7 +37,7 @@ function step!(algorithm:: String, wigner:: WignerDistribution{T}, my_dt :: T,
3037 elseif " generalized-verlet" == lowercase (algorithm)
3138 generalized_verlet_step! (wigner, my_dt, tot_for, d2v_dr2, 1 )
3239 elseif " none" == lowercase (algorithm)
33- nothing
40+ nothing
3441 else
3542 throw (ArgumentError ("""
3643 Error, the selected algorithm $(algorithm)
@@ -45,7 +52,7 @@ function step!(algorithm:: String, wigner:: WignerDistribution{T}, my_dt :: T,
4552 elseif " generalized-verlet" == lowercase (algorithm)
4653 generalized_verlet_step! (wigner, my_dt, tot_for, d2v_dr2, 2 )
4754 end
48- end
55+ end
4956end
5057
5158"""
@@ -201,10 +208,10 @@ function generalized_verlet_step!(
201208 B1_ = copy (B0p)
202209 BLAS. syr2k! (' U' , ' T' , - dt/ 2.0 , d2V_dr2, C1, 1.0 , B1_)
203210 LinearAlgebra. copytri! (B1_, ' U' )
204-
211+
205212 err_B = norm ((B1_ .- B1) .^ 2 )
206213 err_C = norm ((C1_ .- C1) .^ 2 )
207- err = err_B + err_C
214+ err = err_B + err_C
208215
209216 return B1_, C1_, err
210217
@@ -216,8 +223,8 @@ function generalized_verlet_step!(
216223 dthalf = dt / 2.0
217224 BLAS. gemm! (' N' , ' N' , - dthalf, rho. RR_corr, d2V_dr2, 1.0 , rho. RP_corr)
218225
219- thr = 1e-12
220- err = 1
226+ thr = 1e-12
227+ err = 1
221228 while err > thr
222229 B1, C1, err = obj (B1, C1, d2V_dr2, rho. PP_corr, rho. RP_corr)
223230 end
0 commit comments