C
C     Common variables
C
      DOUBLE PRECISION    THETA
C
      COMMON / PSTEPS /   THETA
C