"Testing erfc"

clear

check(erfc((x,y)) == (erfc(x),erfc(y)))

check(erfc(0) == 1)
check(erfc(0.0) == 1)
check(erfc(1000.0) == 0)
check(erfc(-1000.0) == 2)
