From 8147c04a21f21e61c4f0e8a48230712e04b22c8b Mon Sep 17 00:00:00 2001 From: Thomas Applencourt Date: Thu, 7 May 2015 15:41:59 +0200 Subject: [PATCH] Remove warning print for convergance --- src/Pseudo_integrals/int.f90 | 6 ------ 1 file changed, 6 deletions(-) diff --git a/src/Pseudo_integrals/int.f90 b/src/Pseudo_integrals/int.f90 index 7db0dcd8..3c247918 100644 --- a/src/Pseudo_integrals/int.f90 +++ b/src/Pseudo_integrals/int.f90 @@ -1932,10 +1932,6 @@ double precision function int_prod_bessel(l,gam,n,m,a,b,arg) int_prod_bessel=int*freal - if(q.gt.100)then - print*,'**WARNING** bad convergence in int_prod_bessel' - endif - return endif @@ -2065,8 +2061,6 @@ double precision function int_prod_bessel_loc(l,gam,n,a) enddo int_prod_bessel_loc=int - if(k.gt.100)print*,'**WARNING** bad convergence in int_prod_bessel' - end double precision function int_prod_bessel_num(l,gam,n,m,a,b)