From 3cee84690c347af852c8506c67f3c59ccca8e337 Mon Sep 17 00:00:00 2001 From: Michele Guerini Rocco Date: Tue, 26 Apr 2022 17:40:22 +0200 Subject: [PATCH] src/dispersion.f90: mark zetac as pure --- src/dispersion.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/dispersion.f90 b/src/dispersion.f90 index 9081bbe..8ef76ea 100644 --- a/src/dispersion.f90 +++ b/src/dispersion.f90 @@ -1190,7 +1190,7 @@ end subroutine fsup ! this work published in transactions on mathematical software, ! vol. 16, no. 1, pp. 47. ! - subroutine zetac (xi, yi, zr, zi, iflag) + pure subroutine zetac (xi, yi, zr, zi, iflag) ! ! given a complex number z = (xi,yi), this subroutine computes ! the value of the faddeeva-function w(z) = exp(-z**2)*erfc(-i*z),