
  CONST
    pfc$cycle_contraction_count = 2 * pfc$cycle_expansion_count;

*copyc pfc$cycle_expansion_count
