Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
fomosto-backends
fomosto-qssp
Commits
1c4219a9
Commit
1c4219a9
authored
Nov 24, 2016
by
Rongjiang Wang
Committed by
Sebastian Heimann
Nov 24, 2016
Browse files
fixes a numerical issue
parent
b19c2fac
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/spbdphy.f
View file @
1c4219a9
...
...
@@ -38,9 +38,16 @@ c
fn
=
ca
cy
=
fn
100
i
=
i
+1
ca
=
(
1.d0
,
0.d0
)/
dcmplx
(
dble
((
2
*
(
n
-
i
)
+1
)
*
i
),
0.d0
)
gn
=
gn
*
cxb2
*
ca
fn
=
gn
+
fn
*
cxa2
*
ca
c
c
ca
=
(
1.d0
,
0.d0
)/
dcmplx
(
dble
((
2
*
(
n
-
i
)
+1
)
*
i
),
0.d0
)
c
gn
=
gn
*
cxb2
*
ca
c
fn
=
gn
+
fn
*
cxa2
*
ca
c
c
corrected
by
R
.
Wang
on
24.11.2016
c
ca
=
(
1.d0
,
0.d0
)/
dcmplx
(
dble
((
2
*
(
i
-
n
)
+1
)
*
i
),
0.d0
)
gn
=-
gn
*
cxb2
*
ca
fn
=
gn
-
fn
*
cxa2
*
ca
cy
=
cy
+
fn
if
(
cdabs
(
fn
)
.gt.
eps
*
cdabs
(
cy
))
goto
100
spbdphy
=
cy
...
...
Sebastian Heimann
@heimann
Mentioned in commit
fa71a00e
·
Nov 24, 2016
Mentioned in commit
fa71a00e
Mentioned in commit fa71a00e2927e63319f436e774fb8cfe9b192b26
Toggle commit list
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment