00001 subroutine xderfc (x, result) 00002 external derfc 00003 double precision x, result, derfc 00004 result = derfc (x) 00005 return 00006 end