
  CONST
    pfc$log_contraction_count = 2 * pfc$log_expansion_count;

*copyc pfc$log_expansion_count
