real*8 function dconst(name)
      implicit real*8(a-h,o-z)
      character*15 name
      dconst=3.1415926535898d0
      return
      end