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
c74ee500
Commit
c74ee500
authored
May 16, 2019
by
Luca Naterop
Browse files
get simply a log if two args but not convergent
parent
5fd2633a
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
9 additions
and
1 deletion
+9
-1
gpl_module.f90
gpl_module.f90
+8
-0
test.f90
test.f90
+1
-1
No files found.
gpl_module.f90
View file @
c74ee500
...
...
@@ -104,9 +104,17 @@ CONTAINS
call
print_G
(
z_flat
,
y
)
! only two arguments? -> we get a logarithm
! need make convergent?
if
(
.not.
is_convergent
(
z_flat
,
y
))
then
print
*
,
'need to make convergent'
if
(
size
(
z_flat
)
==
1
)
then
print
*
,
'we get simply a log'
res
=
log
(
y
-
z_flat
(
1
))
-
log
(
-
z_flat
(
1
))
return
end
if
res
=
reduce_to_convergent
(
z_flat
,
y
)
return
end
if
...
...
test.f90
View file @
c74ee500
...
...
@@ -18,7 +18,7 @@ PROGRAM TEST
! call do_GPL_tests()
! call do_shuffle_tests() ! put this somewhere else
res
=
G_flat
(
cmplx
((/
1.0
,
10
.0
/)),
cmplx
(
2.0
))
res
=
G_flat
(
cmplx
((/
1.0
,
3
.0
/)),
cmplx
(
2.0
))
print
*
,
res
! if(tests_successful) 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