/usr/share/gnudatalanguage/lib/imsl_erf.pro is in libgnudatalanguage0 0.9.7-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 | ; by Sylwester Arabas <slayoo@igf.fuw.edu.pl>
function imsl_erf, x, double=dbl, inverse=inv
on_error, 2
if ~keyword_set(inv) then return, erf(x, double=dbl)
if total([x] ge 1 or [x] le -1) gt 0 then $
message, 'The inverse error function is defined only for -1 < x < 1'
return, gdl_erfinv(x, double=dbl)
end
|