LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-21 11:03:29 +01:00
Code Releases Activity

erf -> derf

Browse Source
This commit is contained in:
Anthony Scemama 2021-03-21 21:06:41 +01:00
parent 2465b1b91d
commit 1d148f84bb
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/utils/integration.irp.f
View File

@ -447,7 +447,7 @@ double precision function rint(n,rho)
else else
u_inv=1.d0/dsqrt(rho) u_inv=1.d0/dsqrt(rho)
u=rho*u_inv u=rho*u_inv
rint=0.5d0*u_inv*sqpi*erf(u) rint=0.5d0*u_inv*sqpi*derf(u)
endif endif
return return
endif endif
@ -463,7 +463,7 @@ double precision function rint(n,rho)
endif endif
u=rho*u_inv u=rho*u_inv
two_rho_inv = 0.5d0*u_inv*u_inv two_rho_inv = 0.5d0*u_inv*u_inv
val0=0.5d0*u_inv*sqpi*erf(u) val0=0.5d0*u_inv*sqpi*derf(u)
rint=(val0-v)*two_rho_inv rint=(val0-v)*two_rho_inv
do k=2,n do k=2,n
rint=(rint*dfloat(k+k-1)-v)*two_rho_inv rint=(rint*dfloat(k+k-1)-v)*two_rho_inv
@ -496,7 +496,7 @@ double precision function rint_sum(n_pt_out,rho,d1)
else else
u_inv=1.d0/dsqrt(rho) u_inv=1.d0/dsqrt(rho)
u=rho*u_inv u=rho*u_inv
rint_sum=0.5d0*u_inv*sqpi*erf(u) *d1(0) rint_sum=0.5d0*u_inv*sqpi*derf(u) *d1(0)
endif endif
do i=2,n_pt_out,2 do i=2,n_pt_out,2
@ -515,7 +515,7 @@ double precision function rint_sum(n_pt_out,rho,d1)
u_inv=1.d0/dsqrt(rho) u_inv=1.d0/dsqrt(rho)
u=rho*u_inv u=rho*u_inv
two_rho_inv = 0.5d0*u_inv*u_inv two_rho_inv = 0.5d0*u_inv*u_inv
val0=0.5d0*u_inv*sqpi*erf(u) val0=0.5d0*u_inv*sqpi*derf(u)
rint_sum=val0*d1(0) rint_sum=val0*d1(0)
rint_tmp=(val0-v)*two_rho_inv rint_tmp=(val0-v)*two_rho_inv
di = 3.d0 di = 3.d0