tie( 
  %NCAR::COMMON::MAPCM1, 
  'NCAR::COMMON',
  -id      => 59,
  -name    => 'MAPCM1',
  -vars    => {'PHOC' => ['8','d',1,[]],'IROD' => ['24','i',1,[]],'COSO' => [0,'d',1,[]],'COSR' => ['4','d',1,[]],'SINO' => ['12','d',1,[]],'IPRJ' => ['20','i',1,[]],'SINR' => ['16','d',1,[]]},
);