subroutine beta ( y )
!
!*****************************************************************************80
!
!! BETA is a subroutine
!
  y = 3.14159265

  return
end