tie( 
  %NCAR::COMMON::ARCOM1, 
  'NCAR::COMMON',
  -id      => 170,
  -name    => 'ARCOM1',
  -vars    => {'DT' => [0,'f',1,[]]},
);