REAL function, the
KIND= value of the type being that of argument X.
REAL; scalar; INTENT(IN).
Returns the complementary error function of X:
ERFC(R) = 1 - ERF(R) (except that the result might be more
accurate than explicitly evaluating that formulae would give).
erfc(3m), which provides the implementation.