LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-26 15:12:14 +02:00
Code Issues Releases Wiki Activity

Remove warning print for convergance

Browse Source
This commit is contained in:
Thomas Applencourt 2015-05-07 15:41:59 +02:00
parent 2ec05fd08d
commit 8147c04a21
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Pseudo_integrals/int.f90
View File

@ -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)