block data theta c c*********************************************************************72 c cc THETA is a block data routine. c real x common / samantha / x save / samantha / data x / 1.0 / end