INTEGER kdlon, kflev
      PARAMETER (kdlon=1621,kflev=klev)