00001 subroutine xbetai (x, a, b, result) 00002 external betai 00003 real x, a, b, result, betai 00004 result = betai (x, a, b) 00005 return 00006 end