From 92258bb7a3226d5cd37fefc763ab673a5779db6e Mon Sep 17 00:00:00 2001 From: Thomas Applencourt Date: Tue, 5 May 2015 16:00:35 +0200 Subject: [PATCH] Remove test_int useless function --- src/Pseudo_integrals/int.f90 | 18 ------------------ 1 file changed, 18 deletions(-) diff --git a/src/Pseudo_integrals/int.f90 b/src/Pseudo_integrals/int.f90 index 1fdb2c4d..f634c510 100644 --- a/src/Pseudo_integrals/int.f90 +++ b/src/Pseudo_integrals/int.f90 @@ -1835,24 +1835,6 @@ double precision function binom_gen(alpha,n) enddo end -double precision function test_int(g_a,g_b,g_c,ac,bc) -implicit none -double precision factor,g_a,g_b,g_c,ac,bc,x,dx,sum,alpha,beta,pi -integer i,npts -pi=dacos(-1.d0) -factor=0.5d0*pi/(g_a*g_b*ac*bc*dsqrt(g_a+g_b+g_c))*dexp(-g_a*ac**2-g_b*bc**2) -npts=2000 -dx=20.d0/npts -sum=0.d0 -alpha=(2.d0*g_a*ac+2.d0*g_b*bc)/dsqrt(g_c+g_a+g_b) -beta=(2.d0*g_b*bc-2.d0*g_b*bc)/dsqrt(g_c+g_a+g_b) -do i=1,npts - x=(i-1)*dx+0.5d0*dx - sum=sum+dx*dexp(-x**2)*(dcosh(alpha*x)-dcosh(beta*x)) -enddo -test_int=factor*sum -end - recursive function fact1(n,a) result(x) implicit none integer n