view libcruft/slatec-fn/xdbetai.f @ 14610:82429f3c1005

maint: periodic merge of default to jit
author Max Brister <max@2bass.com>
date Mon, 07 May 2012 16:57:57 -0600
parents c0532bbaefd7
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