Fixed the compatibility of the tests and the improvement

test/dirac/test_fp_fa.jl

@@ -35,7 +35,7 @@ function bndpropagator(U, dpar::DiracParam{T}, dws::DiracWorkspace,lp::SpaceParm
        
     g5Dw!(pro,U,src,dpar,lp)
     
-    CG!(pro,U,DwdagDw!,dpar,lp,dws,maxiter,tol)
+    CG!(pro,U,DwdagDw!,dpar,lp,dws,"ymws","gp",maxiter,tol)
     return pro
 end
 
@@ -45,7 +45,7 @@ function fP_test(;theta = (0.5,0.7,1.0,0.0), m = 1.3, size = (8,8,8,16),prec = 1
 lp = SpaceParm{4}(size,(4,4,4,4),1,(0,0,0,0,0,0));
 exptheta = exp.(im.*theta./lp.iL);
 
-dpar = DiracParam{Float64}(SU3fund,m,1.0,exptheta,1.0);
+dpar = DiracParam{Float64}(SU3fund,m,0.0,exptheta,1.0);
 dws = DiracWorkspace(SU3fund{Float64},Float64,lp);
 
 U = fill!(vector_field(SU3{Float64},lp),one(SU3{Float64}));
@@ -93,7 +93,7 @@ function fA_test(;theta = (0.5,0.7,1.0,0.0), m = 1.3, size = (8,8,8,16),prec = 1
     lp = SpaceParm{4}(size,(4,4,4,4),1,(0,0,0,0,0,0));
     exptheta = exp.(im.*theta./lp.iL);
     
-    dpar = DiracParam{Float64}(SU3fund,m,1.0,exptheta,1.0);
+    dpar = DiracParam{Float64}(SU3fund,m,0.0,exptheta,1.0);
     dws = DiracWorkspace(SU3fund{Float64},Float64,lp);
     
     U = fill!(vector_field(SU3{Float64},lp),one(SU3{Float64}));
@@ -145,4 +145,4 @@ elseif difP > 1.0e-15
     error("fP test failed with error ", difP)
 else
     print("fA & fP tests passed with errors: ", difA," and ",difP,"!\n")
-end
\ No newline at end of file
+end

test/dirac/test_solver_plw.jl

@@ -6,7 +6,7 @@ function Dwpw_test(;p=0,s=1,c=1)
 lp = SpaceParm{4}((16,16,16,16), (4,4,4,4), 0, (0,0,0,0,0,0))
 gp = GaugeParm{Float64}(SU3{Float64}, 6.0, 1.0)
 ymws = YMworkspace(SU3, Float64, lp)
-dpar = DiracParam{Float64}(SU3fund,1.3,1.0,(1.0,1.0,1.0,1.0),0.0)
+dpar = DiracParam{Float64}(SU3fund,1.3,0.0,(1.0,1.0,1.0,1.0),0.0)
 dws = DiracWorkspace(SU3fund{Float64},Float64,lp);
 
 p==0 ? p = Int.(round.(lp.iL.*rand(4),RoundUp)) : nothing
@@ -66,7 +66,7 @@ CUDA.@sync begin
         CUDA.@cuda threads=lp.bsz blocks=lp.rsz krnlg5!(pwave)
 end
 g5Dw!(prop,U,pwave,dpar,lp)
-CG!(prop,U,DwdagDw!,dpar,lp,dws,10000,1.0e-14)
+CG!(prop,U,DwdagDw!,dpar,lp,dws,ymws,gp,10000,1.0e-14)
 
 
 dif = sum(norm2.(prop - prop_th))

test/dirac/test_solver_rand.jl

@@ -33,7 +33,7 @@ end
 lp = SpaceParm{4}((16,16,16,16), (4,4,4,4), 0, (0,0,0,0,0,0))
 gp = GaugeParm{Float64}(SU3{Float64}, 6.0, 1.0)
 ymws = YMworkspace(SU3, Float64, lp)
-dpar = DiracParam{Float64}(SU3fund,2.3,1.0,(1.0,1.0,1.0,1.0),0.0)
+dpar = DiracParam{Float64}(SU3fund,2.3,0.0,(1.0,1.0,1.0,1.0),0.0)
 dws = DiracWorkspace(SU3fund{Float64},Float64,lp);
 
 
@@ -57,7 +57,7 @@ CUDA.@sync begin
         CUDA.@cuda threads=lp.bsz blocks=lp.rsz krnlg5!(rpsi)
 end
 g5Dw!(prop,U,rpsi,dpar,lp)
-CG!(prop,U,DwdagDw!,dpar,lp,dws,10000,1.0e-14)
+CG!(prop,U,DwdagDw!,dpar,lp,dws,ymws,gp,10000,1.0e-14)
 
 Dw!(dws.sp,U,prop,dpar,lp)