00001 subroutine xdgamit (a, x, result) 00002 external dgamit 00003 double precision a, x, result, dgamit 00004 result = dgamit (a, x) 00005 return 00006 end