Removed the extra power of ionization number in |gchimp|^2.

nakib · Sep 20, 2023 · 8c46e49 · 8c46e49
1 parent 0eaafa9
commit 8c46e49
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/interactions.f90 b/src/interactions.f90
@@ -108,7 +108,7 @@ pure real(r64) function gchimp2(el, crys, q)
     real(r64), intent(in) :: q
 
     gchimp2 = 1.0e-3_r64/crys%volume/((perm0*crys%epsilon0)*(q**2 + crys%qTF**2))**2*&
-         (el%chimp_conc_n*(qe*el%Zn**2)**2 + el%chimp_conc_p*(qe*el%Zp**2)**2) !ev^2
+         (el%chimp_conc_n*(qe*el%Zn)**2 + el%chimp_conc_p*(qe*el%Zp)**2) !ev^2
   end function gchimp2
 
   pure real(r64) function Vm2_3ph(ev1_s1, ev2_s2, ev3_s3, &