
  TYPE
    pft$p_cycle_array = ^pft$cycle_array;

*copyc pft$cycle_array
