tie( 
  %NCAR::COMMON::CFFLAG, 
  'NCAR::COMMON',
  -id      => 3,
  -name    => 'CFFLAG',
  -vars    => {'IVCTFG' => [0,'i',1,[]]},
);