tie( 
  %NCAR::COMMON::DCFLAG, 
  'NCAR::COMMON',
  -id      => 18,
  -name    => 'DCFLAG',
  -vars    => {'IFSTFL' => [0,'i',1,[]]},
);