Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=dp), | intent(in) | :: | argument |
function error_function_c(argument) result(res)
real(dp), intent(in) :: argument
real(dp) :: res
res = erfc_local(real(argument, c_double))
end function error_function_c