
  TYPE
    pft$file_information = (pfc$catalog_names, pfc$file_names,
          pfc$cycle_numbers);

