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