lxsd / fvn

Download as
Browse Code ยป

Commit 6afbb16eea83b7812e398d65a3981c9cbdc43ad5

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

Correction d'un bug de condition dans ze1 

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

Showing 1 changed file with 1 additions and 2 deletions Side-by-side Diff

... ... @@ -32,7 +32,7 @@
32 32 ze1 = dcmplx(1.0D0,0.0D0)
33 33 cr = dcmplx(1.0D0,0.0D0)
34 34 k=0
35   - do while (cdabs(cr)<=cdabs(ze1)*1.0D-15)
  35 + do while (cdabs(cr)>=cdabs(ze1)*1.0D-15)
36 36 k = k+1
37 37 cr = -cr*k*z/(k+1.0D0)**2
38 38 ze1 = ze1+cr