SUBROUTINE PHASE_CLEAR(phase)
      
#include "dyna.inc"
#include "signal.inc"
      
      RECORD /Phase_Data/ phase
      
      INTEGER i,j
      
      phase.number = 0
      phase.offset = 0
      phase.time   = 0
      phase.min    = 0
      phase.max    = 0
      phase.change = 0
      phase.numapp = 0
      DO i = 1,MAX_IN
         phase.nummove(i) = 0
         DO j = 1,MAX_MOVE_TYPE
            phase.movelist(i,j) = 0
            phase.movevol(i,j)  = 0.D0
            ENDDO
         ENDDO
      phase.active = 0
      phase.start  = 0
      phase.end    = 0

      RETURN
      END

      SUBROUTINE PLAN_CLEAR(plan)
      
#include "dyna.inc"
#include "signal.inc"
      
      RECORD /Plan_Data/ plan
      
      INTEGER i

      plan.number    = 0
      plan.type      = 0
      plan.offset    = 0
      plan.numphases = 0
      DO i = 1,MAX_PLAN_PHASE
         plan.phaselist(i) = 0
         ENDDO
      plan.cycle     = 0
      plan.active    = 0
      
      RETURN
      END