@@ -24,7 +24,9 @@ for f in (:erf, :erfc, :erfcx, :erfi, :Dawson)
24
24
@eval begin
25
25
($ fname)(z:: Complex{Float64} ) = Complex {Float64} (ccall (($ (string (" Faddeeva_" ,f)),openspecfun), Complex{Float64}, (Complex{Float64}, Float64), z, zero (Float64)))
26
26
($ fname)(z:: Complex{Float32} ) = Complex {Float32} (ccall (($ (string (" Faddeeva_" ,f)),openspecfun), Complex{Float64}, (Complex{Float64}, Float64), Complex {Float64} (z), Float64 (eps (Float32))))
27
- ($ fname)(z:: Complex ) = ($ fname)(Complex {Float64} (z))
27
+
28
+ ($ fname)(z:: Complex ) = ($ fname)(float (z))
29
+ ($ fname)(z:: Complex{<:AbstractFloat} ) = throw (MethodError ($ fname,(z,)))
28
30
end
29
31
end
30
32
@@ -33,7 +35,9 @@ for f in (:erfcx, :erfi, :Dawson)
33
35
@eval begin
34
36
($ fname)(x:: Float64 ) = ccall (($ (string (" Faddeeva_" ,f," _re" )),openspecfun), Float64, (Float64,), x)
35
37
($ fname)(x:: Float32 ) = Float32 (ccall (($ (string (" Faddeeva_" ,f," _re" )),openspecfun), Float64, (Float64,), Float64 (x)))
36
- ($ fname)(x:: Integer ) = ($ fname)(float (x))
38
+
39
+ ($ fname)(x:: Real ) = ($ fname)(float (x))
40
+ ($ fname)(x:: AbstractFloat ) = throw (MethodError ($ fname,(x,)))
37
41
end
38
42
end
39
43
0 commit comments