view libcruft/slatec-fn/xdbetai.f @ 4079:c0532bbaefd7

[project @ 2002-09-30 19:08:09 by jwe]
author jwe
date Mon, 30 Sep 2002 19:08:09 +0000
parents a2371c4a1d50
children
line wrap: on
line source

      subroutine xdbetai (x, a, b, result)
      external dbetai
      double precision x, a, b, result, dbetai
      result = dbetai (x, a, b)
      return
      end