
  TYPE
    pft$cycle_array_index = 0 .. pfc$maximum_cycle_number;

*copyc pfc$maximum_cycle_number
