logical readin,writeout
      character*72 ingridfile,outgridfile
      common/gridinfo_logic/readin,writeout
      common/gridinfo_char/ingridfile,outgridfile