00001 subroutine xdbetai (x, a, b, result) 00002 external dbetai 00003 double precision x, a, b, result, dbetai 00004 result = dbetai (x, a, b) 00005 return 00006 end