tie( 
  %NCAR::COMMON::DSAVE3, 
  'NCAR::COMMON',
  -id      => 187,
  -name    => 'DSAVE3',
  -vars    => {'IYSTOR' => ['4','i',1,[]],'IXSTOR' => [0,'i',1,[]]},
);