erfc_scaled(x) computes the exponentially-scaled complementary error function of x:
Fortran 2008 and later
result = erfc_scaled(x)
x - The type shall be real.The return value is of type real and of the same kind as x.
program test_erfc_scaled
real(kind(0.0d0)) :: x = 0.17_8
x = erfc_scaled(x)
print *, x ! prints approx. 0.83375830214998126
end program test_erfc_scaled