Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Open sidebar
McMule
handyG
Commits
d2070230
Commit
d2070230
authored
Aug 21, 2019
by
ulrich_y
Browse files
Follow-up to
a7004f12
parent
a7004f12
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
3 deletions
+3
-3
src/maths_functions.f90
src/maths_functions.f90
+3
-3
No files found.
src/maths_functions.f90
View file @
d2070230
...
...
@@ -255,8 +255,8 @@ CONTAINS
FUNCTION
BERNOULLI_POLYNOMIAL
(
n
,
x
)
result
(
res
)
integer
,
parameter
::
maxn
=
15
integer
n
restype
::
x
,
res
restype
::
xpow
(
maxn
+1
)
complex
(
kind
=
prec
)
::
x
,
res
complex
(
kind
=
prec
)
::
xpow
(
maxn
+1
)
integer
,
parameter
::
coeffN
(
maxn
+1
,
maxn
)
=
reshape
((/
&
-
1
,
+
1
,
0
,
0
,
0
,
0
,
0
,
0
,
0
,
0
,
0
,
0
,
0
,
0
,
0
,
0
,
&
+
1
,
-
1
,
+
1
,
0
,
0
,
0
,
0
,
0
,
0
,
0
,
0
,
0
,
0
,
0
,
0
,
0
,
&
...
...
@@ -292,7 +292,7 @@ CONTAINS
+
1
,
+
2
,
+
1
,
+
6
,
+
1
,
+
2
,
+
1
,
+
2
,
+
1
,
+
6
,
+
1
,
+
2
,
+
1
,
+
2
,
+
2
,
+
1
/),
&
(/
maxn
+1
,
maxn
/))
real
(
kind
=
prec
),
parameter
::
coeff
(
maxn
+1
,
maxn
)
=
coeffN
/
real
(
coeffD
)
real
(
kind
=
prec
),
parameter
::
coeff
(
maxn
+1
,
maxn
)
=
coeffN
/
real
(
coeffD
,
kind
=
prec
)
integer
i
if
(
n
>
maxn
)
then
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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