integer kd
      parameter (kd=64)