From bd4c9a82059619644f7479d9510488deb9a774e7 Mon Sep 17 00:00:00 2001 From: Luca Naterop Date: Fri, 5 Apr 2019 00:30:12 +0200 Subject: [PATCH] minor note --- mpl_module.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/mpl_module.f90 b/mpl_module.f90 index 9910e29..117ca8a 100644 --- a/mpl_module.f90 +++ b/mpl_module.f90 @@ -66,7 +66,8 @@ CONTAINS ! a nicer way to do it would be but problem is i ! i = (/(j, j=1,n, 1)/) - ! res = sum( x(1)**i / i**m(1) * multiple_polylog(m(2:), x(2:), i(1) - 1) ) + ! res = sum( x(1)**i / i**m(1) * MPL(m(2:), x(2:), i(1) - 1) ) + ! we could get around this problem by rewriting MPL to operate on each i and returning an array end if END FUNCTION MPL -- GitLab