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