mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-23 04:43:45 +01:00
removed a floating point exception in routines_exc_sr_lda.irp.f
This commit is contained in:
parent
7648010331
commit
408257dbfd
@ -254,7 +254,11 @@ end
|
|||||||
double precision derf
|
double precision derf
|
||||||
|
|
||||||
eta=19.0d0
|
eta=19.0d0
|
||||||
fak=2.540118935556d0*dexp(-eta*a*a)
|
if(dabs(eta*a*a).lt.50.d0)then
|
||||||
|
fak=2.540118935556d0*dexp(-eta*a*a)
|
||||||
|
else
|
||||||
|
fak=0.d0
|
||||||
|
endif
|
||||||
|
|
||||||
if(a .lt. 0.075d0) then
|
if(a .lt. 0.075d0) then
|
||||||
! expansion for small mu to avoid numerical problems
|
! expansion for small mu to avoid numerical problems
|
||||||
|
Loading…
Reference in New Issue
Block a user