
  TYPE
    pft$p_internal_cycle_path = ^pft$internal_cycle_path;

*copyc pft$internal_cycle_path
