
  TYPE
    pft$p_physical_amd = ^pft$physical_amd;

*copyc pft$physical_amd
