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