
  TYPE
    pft$cycle_array = array [1 .. * ] of pft$cycle_array_entry;

*copyc pft$array_index
*copyc pft$cycle_array_entry
