LCPQ/eplf
10
0
Fork 0
mirror of https://gitlab.com/scemama/eplf synced 2025-01-08 20:33:28 +01:00
Code Issues Releases Wiki Activity

Bug in density

Browse Source
This commit is contained in:
Anthony Scemama 2010-06-10 16:53:46 +02:00
parent e2ba2c91ab
commit 70da3da1cc
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/density.irp.f
View File

@ -53,6 +53,8 @@ BEGIN_PROVIDER [ real, density_alpha_value_p ]
exc(4) = exc(1)*exc(2) exc(4) = exc(1)*exc(2)
if (exc(4) /= 0) then if (exc(4) /= 0) then
exc(4) = exc(4)/abs(exc(4)) exc(4) = exc(4)/abs(exc(4))
else
exc(4) = 1
endif endif
phase = dble(exc(4)) phase = dble(exc(4))
@ -100,6 +102,8 @@ BEGIN_PROVIDER [ real, density_beta_value_p ]
exc(4) = exc(1)*exc(2) exc(4) = exc(1)*exc(2)
if (exc(4) /= 0) then if (exc(4) /= 0) then
exc(4) = exc(4)/abs(exc(4)) exc(4) = exc(4)/abs(exc(4))
else
exc(4) = 1
endif endif
phase = dble(exc(4)) phase = dble(exc(4))

3
src/test_1d.irp.f
View File

@ -13,6 +13,7 @@ subroutine run
do i=-40,40 do i=-40,40
point(3) = real(i)/20. point(3) = real(i)/20.
TOUCH point TOUCH point
print *, point(3), eplf_value_p, eplf_up_up, eplf_up_dn ! print *, point(3), eplf_value_p, eplf_up_up, eplf_up_dn
print *, point(3), density_alpha_value_p
enddo enddo
end end