mirror of
https://github.com/TREX-CoE/irpjast.git
synced 2024-08-25 06:31:46 +02:00
Fix double summation
This commit is contained in:
parent
0af276cfc5
commit
900bf125e6
@ -29,4 +29,6 @@ BEGIN_PROVIDER [double precision, factor_een]
|
||||
end do
|
||||
end do
|
||||
|
||||
factor_een = 0.5d0 * factor_een
|
||||
|
||||
END_PROVIDER
|
||||
|
@ -56,4 +56,6 @@ BEGIN_PROVIDER [double precision, factor_en]
|
||||
/ (1 + aord_vect(2) * rescale_en(i, j)) + pow_ser
|
||||
end do
|
||||
end do
|
||||
|
||||
factor_en = 0.5d0 * factor_en
|
||||
END_PROVIDER
|
||||
|
Loading…
Reference in New Issue
Block a user