10
0
mirror of https://gitlab.com/scemama/eplf synced 2024-12-22 20:35:30 +01:00

Bug in density

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

View File

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

View File

@ -13,6 +13,7 @@ subroutine run
do i=-40,40
point(3) = real(i)/20.
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
end