INTEGER             MAXTOK
      PARAMETER           (MAXTOK = 10)
      CHARACTER*(MAXTOK)  TOKLMX
      CHARACTER*10        TOKL10
      END