istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

src/dispersion.f90: mark zetac as pure

Browse Source
This commit is contained in:
Michele Guerini Rocco 2022-04-26 17:40:22 +02:00
parent c3f8cb1921
commit 3cee84690c
Signed by: rnhmjoj
GPG Key ID: BFBAF4C975F76450
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/dispersion.f90
View File

@ -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),