lxsd / fvn

Download as
Browse Code ยป

Commit e80b2ec787b1e4e1a6c894f2c274e6814d46fd81

Authored by wdaniau
1 parent 8d883e8a1a
Exists in master and in 3 other branches geevx, geevx_2020, multi

Increase factor default value from 40 to 150 in dbesin.f90 and dbesjn.f90 

to increase accuracy of computed values compared to dbesri and dbesrj

git-svn-id: https://lxsd.femto-st.fr/svn/fvn@60 b657c933-2333-4658-acf2-d3c7c2708721

Showing 2 changed files with 6 additions and 2 deletions Side-by-side Diff

fvn_fnlib/dbesin.f90
Diff comments   View file @ e80b2ec
... ... @@ -12,6 +12,8 @@
12 12 ! big : a real that determine the threshold for taking anti overflow counter measure
13 13 ! default value is 1e10
14 14 !
  15 + ! 2009 : increasing factor defult value to 150
  16 + !
15 17 real(dp_kind) :: dbesin
16 18 integer :: n
17 19 real(dp_kind) :: x
... ... @@ -25,7 +27,7 @@
25 27 real(dp_kind), external :: dbesi0,dbesi1
26 28  
27 29 ! Initialization of optional parameters
28   - tfactor=40
  30 + tfactor=150
29 31 if(present(factor)) tfactor=factor
30 32 tbig=1e10
31 33 if(present(big)) tbig=big
fvn_fnlib/dbesjn.f90
Diff comments   View file @ e80b2ec
... ... @@ -12,6 +12,8 @@
12 12 ! big : a real that determine the threshold for taking anti overflow counter measure
13 13 ! default value is 1e10
14 14 !
  15 + ! 2009 : increasing factor defult value to 150
  16 + !
15 17 real(dp_kind) :: dbesjn
16 18 integer :: n
17 19 real(dp_kind) :: x
... ... @@ -26,7 +28,7 @@
26 28 logical :: iseven
27 29  
28 30 ! Initialization of optional parameters
29   - tfactor=40
  31 + tfactor=150
30 32 if(present(factor)) tfactor=factor
31 33 tbig=1d10
32 34 if(present(big)) tbig=big