mirror of
https://github.com/LCPQ/quantum_package
synced 2024-06-30 00:44:28 +02:00
Remove warning print for convergance
This commit is contained in:
parent
2ec05fd08d
commit
8147c04a21
|
@ -1932,10 +1932,6 @@ double precision function int_prod_bessel(l,gam,n,m,a,b,arg)
|
||||||
|
|
||||||
int_prod_bessel=int*freal
|
int_prod_bessel=int*freal
|
||||||
|
|
||||||
if(q.gt.100)then
|
|
||||||
print*,'**WARNING** bad convergence in int_prod_bessel'
|
|
||||||
endif
|
|
||||||
|
|
||||||
return
|
return
|
||||||
endif
|
endif
|
||||||
|
|
||||||
|
@ -2065,8 +2061,6 @@ double precision function int_prod_bessel_loc(l,gam,n,a)
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
int_prod_bessel_loc=int
|
int_prod_bessel_loc=int
|
||||||
if(k.gt.100)print*,'**WARNING** bad convergence in int_prod_bessel'
|
|
||||||
|
|
||||||
end
|
end
|
||||||
|
|
||||||
double precision function int_prod_bessel_num(l,gam,n,m,a,b)
|
double precision function int_prod_bessel_num(l,gam,n,m,a,b)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user