tie( 
  %NCAR::COMMON::HAFTO1, 
  'NCAR::COMMON',
  -id      => 9,
  -name    => 'HAFTO1',
  -vars    => {'I' => [0,'i',1,[]],'INTEN' => ['8','i',1,[]],'J' => ['4','i',1,[]]},
);