
  TYPE
    pft$cycle_directory_array = array [1 .. * ] of
          pft$cycle_directory_array_entry;

*copyc pft$cycle_directory_array_entry
