00001 subroutine xerfc (x, result) 00002 external erfc 00003 real x, result, erfc 00004 result = erfc (x) 00005 return 00006 end