c  Warning... don't change these
      parameter (max_toke=80,max_line=255)
      common / kparse / il, ll, iunit, toke, line
      character*(max_line) line
      character toke*(max_toke)