      subroutine beta ( y )
c
c*********************************************************************72
c
cc BETA is a subroutine
c
      y = 3.14159265

      return
      end
