tie( 
  %NCAR::COMMON::STR01, 
  'NCAR::COMMON',
  -id      => 1,
  -name    => 'STR01',
  -vars    => {'JEND' => ['12','i',1,[]],'JEND1' => ['20','i',1,[]],'IMSG1' => ['52','i',1,[]],'ICYC1' => ['48','i',1,[]],'DELX' => ['40','f',1,[]],'DELY' => ['44','f',1,[]],'IS' => [0,'i',1,[]],'X' => ['32','f',1,[]],'Y' => ['36','f',1,[]],'JS' => ['8','i',1,[]],'I' => ['24','i',1,[]],'IEND' => ['4','i',1,[]],'J' => ['28','i',1,[]],'IGFL1' => ['56','i',1,[]],'IEND1' => ['16','i',1,[]]},
);