mirror of
https://github.com/LCPQ/quantum_package
synced 2024-12-23 04:43:50 +01:00
solve overflow error in int.f90 for the pseudo
This commit is contained in:
parent
8dc7ea8481
commit
eeb60de46d
@ -1879,13 +1879,18 @@ end
|
|||||||
RETURN
|
RETURN
|
||||||
END
|
END
|
||||||
|
|
||||||
double precision function coef_nk(n,k)
|
double precision function coef_nk(n,k)
|
||||||
implicit none
|
implicit none
|
||||||
integer n,k
|
integer n,k
|
||||||
double precision gam,dblefact,fact
|
double precision gam,dblefact,fact
|
||||||
gam=dblefact(2*(n+k)+1)
|
|
||||||
coef_nk=1.d0/(2.d0**k*fact(k)*gam)
|
if(k.GE.80) then
|
||||||
end
|
coef_nk = 0.d0
|
||||||
|
else
|
||||||
|
gam=dblefact(2*(n+k)+1)
|
||||||
|
coef_nk=1.d0/(2.d0**k*fact(k)*gam)
|
||||||
|
endif
|
||||||
|
end
|
||||||
|
|
||||||
!! Calculation of
|
!! Calculation of
|
||||||
!!
|
!!
|
||||||
|
Loading…
Reference in New Issue
Block a user