tie( 
  %NCAR::COMMON::HAFTO4, 
  'NCAR::COMMON',
  -id      => 13,
  -name    => 'HAFTO4',
  -vars    => {'NPOINT' => ['4','i',1,[]],'XPNT' => ['8','f',1,['50']],'NPTMAX' => [0,'i',1,[]],'YPNT' => ['208','f',1,['50']]},
);