block data theta

!*****************************************************************************80
!
!! theta() is a block data routine.
!
  real x
  common / samantha / x
  save / samantha /
  data x / 1.0 /

end