c     common block to carry old info from initial read to output
        common /info/ old_run_name, old_runinfo, old_go, old_rings,
     $     old_sw, old_const, old_ion,
     $     new_run_name, new_runinfo, new_go, new_rings,
     $     new_sw, new_const, new_ion
        character*2048  old_run_name, old_runinfo, old_go, old_rings,
     $     old_sw, old_const, old_ion,
     $     new_run_name, new_runinfo, new_go, new_rings,
     $     new_sw, new_const, new_ion