tie( 
  %NCAR::COMMON::GACHAR, 
  'NCAR::COMMON',
  -id      => 98,
  -name    => 'GACHAR',
  -vars    => {'FNLX' => [0,'c','10',[]],'FNLY' => ['40','c','10',[]]},
);