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