tie( 
  %NCAR::COMMON::DDFLAG, 
  'NCAR::COMMON',
  -id      => 83,
  -name    => 'DDFLAG',
  -vars    => {'IFCFLG' => [0,'i',1,[]]},
);