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
522fa0b7
Commit
522fa0b7
authored
Jul 09, 2019
by
ulrich_y
Browse files
Function neg instead of imone
parent
95e4dadb
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
8 additions
and
3 deletions
+8
-3
src/gpl_module.f90
src/gpl_module.f90
+1
-1
src/ieps.f90
src/ieps.f90
+6
-0
src/maths_functions.f90
src/maths_functions.f90
+1
-2
No files found.
src/gpl_module.f90
View file @
522fa0b7
...
...
@@ -103,7 +103,7 @@ CONTAINS
!res = pending_integral(p,2,[sub_ieps(g(1))]) - pending_integral(p,2,[cmplx(0.0)]) &
! + G_flat(p(2:size(p)), p(1)) * log(-sub_ieps(g(1)))
res
=
pending_integral
(
p
,
2
,[
g
(
1
)])
-
pending_integral
(
p
,
2
,[
izero
])
&
+
G_flat
(
p
(
2
:
size
(
p
)),
p
(
1
))
*
log
(
imone
*
g
(
1
))
+
G_flat
(
p
(
2
:
size
(
p
)),
p
(
1
))
*
log
(
neg
(
g
(
1
))
)
return
end
if
...
...
src/ieps.f90
View file @
522fa0b7
...
...
@@ -48,6 +48,12 @@ MODULE ieps
end
interface
real
CONTAINS
FUNCTION
NEG
(
n1
)
implicit
none
type
(
inum
),
intent
(
in
)
::
n1
type
(
inum
)
::
neg
neg
=
inum
(
-
n1
%
c
,
-
n1
%
i0
)
END
FUNCTION
FUNCTION
MULTINUMSS
(
n1
,
n2
)
implicit
none
...
...
src/maths_functions.f90
View file @
522fa0b7
...
...
@@ -312,9 +312,8 @@ CONTAINS
res
=
-
(
1.
-
2.
**
(
1
-
m
))
*
zeta
(
m
)
return
else
if
(
abs
(
x
)
.gt.
1
)
then
print
*
,
imone
*
x
res
=
(
-1
)
**
(
m
-1
)
*
polylog
(
m
,
ione
/
x
)
&
-
cmplx
(
0
,
2
*
pi
)
**
m
*
bernoulli_polynomial
(
m
,
0.5
-
cmplx
(
0.
,
1.
)
*
log
(
imone
*
x
)/
2
/
pi
)
/
factorial
(
m
)
-
cmplx
(
0
,
2
*
pi
)
**
m
*
bernoulli_polynomial
(
m
,
0.5
-
cmplx
(
0.
,
1.
)
*
log
(
neg
(
x
)
)/
2
/
pi
)
/
factorial
(
m
)
return
endif
...
...
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