
  TYPE
    pft$p_cycle = ^pft$physical_cycle;

*copyc pft$physical_cycle
