mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-29 20:23:40 +02:00
erf -> derf
This commit is contained in:
parent
2465b1b91d
commit
1d148f84bb
@ -447,7 +447,7 @@ double precision function rint(n,rho)
|
||||
else
|
||||
u_inv=1.d0/dsqrt(rho)
|
||||
u=rho*u_inv
|
||||
rint=0.5d0*u_inv*sqpi*erf(u)
|
||||
rint=0.5d0*u_inv*sqpi*derf(u)
|
||||
endif
|
||||
return
|
||||
endif
|
||||
@ -463,7 +463,7 @@ double precision function rint(n,rho)
|
||||
endif
|
||||
u=rho*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
|
||||
do k=2,n
|
||||
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
|
||||
u_inv=1.d0/dsqrt(rho)
|
||||
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
|
||||
|
||||
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=rho*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_tmp=(val0-v)*two_rho_inv
|
||||
di = 3.d0
|
||||
|
Loading…
Reference in New Issue
Block a user