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