Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
H
handyG
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Analytics
Analytics
Repository
Value Stream
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Commits
Open sidebar
McMule
handyG
Commits
ce2bbf7a
Commit
ce2bbf7a
authored
Apr 09, 2019
by
Luca
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
zero arguments and zeta function
parent
0e52465a
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
25 additions
and
18 deletions
+25
-18
gpl_module.f90
gpl_module.f90
+11
-1
test.f90
test.f90
+14
-17
No files found.
gpl_module.f90
View file @
ce2bbf7a
...
...
@@ -12,6 +12,15 @@ CONTAINS
res
=
merge
(
1
,
n
*
factorial
(
n
-1
),
n
==
1
)
END
FUNCTION
factorial
FUNCTION
zeta
(
n
)
real
(
kind
=
prec
)
::
values
(
9
),
zeta
integer
::
n
values
=
(/
1.6449340668482262
,
1.2020569031595942
,
1.0823232337111381
,
&
1.03692775514337
,
1.0173430619844488
,
1.008349277381923
,
&
1.0040773561979441
,
1.0020083928260821
,
1.000994575127818
/)
zeta
=
values
(
n
-1
)
END
FUNCTION
zeta
FUNCTION
GPL_has_convergent_series
(
m
,
z
,
y
,
k
)
! tests if GPL has a convergent series representation
integer
::
m
(:),
k
...
...
@@ -34,6 +43,7 @@ CONTAINS
! used to compute the value of GPL when all zi are zero
integer
::
l
complex
(
kind
=
prec
)
::
y
,
GPL_zero_zi
GPL_zero_zi
=
1.0d0
/
factorial
(
l
)
*
log
(
y
)
**
l
END
FUNCTION
GPL_zero_zi
...
...
@@ -48,7 +58,7 @@ CONTAINS
! are all z_i = 0 ?
if
(
k
==
1
.and.
z
(
1
)
==
0
)
then
! for that we assume that only one argument was passed, the rest through m1
GPL
=
GPL_zero_zi
(
m
(
1
)
-1
,
y
)
GPL
=
GPL_zero_zi
(
m
(
1
),
y
)
return
end
if
...
...
test.f90
View file @
ce2bbf7a
...
...
@@ -6,21 +6,22 @@ PROGRAM TEST
use
mpl_module
use
gpl_module
implicit
none
complex
(
kind
=
prec
)
::
res
real
,
parameter
::
tol
=
1.0e-14
logical
::
tests_successful
=
.true.
call
do_MPL_tests
()
!
call do_MPL_tests()
call
do_GPL_tests
()
if
(
tests_successful
)
then
print
*
,
'All tests passed. '
else
print
*
,
'Some tests failed. '
stop
1
end
if
CONTAINS
subroutine
check
(
res
,
ref
)
...
...
@@ -40,22 +41,19 @@ CONTAINS
integer
::
m
(:)
complex
(
kind
=
prec
)
::
x
(:),
ref
character
(
len
=*
)
::
test_id
print
*
,
' '
,
'testing MPL '
,
test_id
,
' ...'
res
=
MPL
(
m
,
x
)
call
check
(
res
,
ref
)
end
subroutine
test_one_MPL
subroutine
do_MPL_tests
()
integer
::
m2
(
2
),
m3
(
3
)
integer
::
bla
complex
(
kind
=
prec
)
::
x2
(
2
),
x3
(
3
)
complex
(
kind
=
prec
)
::
res
,
ref
complex
(
kind
=
prec
)
::
ref
print
*
,
'doing MPL tests...'
ref
=
dcmplx
(
0.022696600480693277651633
)
call
test_one_MPL
((/
1
,
1
/),
cmplx
((/
0.3156498673740053
,
0.3431255827785649
/)),
ref
,
'1.1'
)
ref
=
dcmplx
(
0.00023134615630308335448329926098409
)
call
test_one_MPL
((/
1
,
1
/),
cmplx
((/
0.03
,
0.5012562893380046
/)),
ref
,
'1.2'
)
...
...
@@ -75,19 +73,18 @@ CONTAINS
end
subroutine
test_one_GPL
subroutine
do_GPL_tests
()
integer
::
m2
(
2
),
m1
(
1
),
k
complex
(
kind
=
prec
)
::
z2
(
2
),
z1
(
1
),
y
,
res
,
ref
complex
(
kind
=
prec
)
::
ref
print
*
,
'doing GPL tests...'
ref
=
dcmplx
(
0.0819393734128676
)
call
test_one_GPL
((/
1
,
1
/),
cmplx
((/
1.3d0
,
1.1d0
/)),
cmplx
(
0.4
),
2
,
ref
,
'2.1'
)
ref
=
dcmplx
(
0.01592795952537145
)
call
test_one_GPL
((/
3
,
2
/),
cmplx
((/
1.3d0
,
1.1d0
/)),
cmplx
(
0.4
),
2
,
ref
,
'2.2'
)
ref
=
dcmplx
(
0.0
173042341866201179
)
ref
=
dcmplx
(
0.0
020332632172573974
)
call
test_one_GPL
((/
4
/),
cmplx
((/
0
/)),
cmplx
(
1.6
),
1
,
ref
,
'2.3'
)
end
subroutine
do_GPL_tests
END
PROGRAM
TEST
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