TREX/irpjast
1
0
Fork 0
mirror of https://github.com/TREX-CoE/irpjast.git synced 2024-07-22 18:57:41 +02:00
Code Issues Projects Releases Wiki Activity

Fix double summation

Browse Source
This commit is contained in:
Panadestein 2020-11-25 18:09:13 +01:00
parent 0af276cfc5
commit 900bf125e6
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
el_nuc_el.irp.f
View File

@ -29,4 +29,6 @@ BEGIN_PROVIDER [double precision, factor_een]
end do end do
end do end do
factor_een = 0.5d0 * factor_een
END_PROVIDER END_PROVIDER

2
nuclei.irp.f
View File

@ -56,4 +56,6 @@ BEGIN_PROVIDER [double precision, factor_en]
/ (1 + aord_vect(2) * rescale_en(i, j)) + pow_ser / (1 + aord_vect(2) * rescale_en(i, j)) + pow_ser
end do end do
end do end do
factor_en = 0.5d0 * factor_en
END_PROVIDER END_PROVIDER