*
* $Id: kidate.F,v 1.1.1.1 1996/03/08 15:32:53 mclareni Exp $
*
* $Log: kidate.F,v $
* Revision 1.1.1.1  1996/03/08 15:32:53  mclareni
* Kuip
*
*
#include "kuip/pilot.h"
*CMZ :  1.61/01 22/06/89  17.34.30  by
*-- Author :
      SUBROUTINE KIDATE(CHDATE,CHTIME)
*
********************************************************************************
*
* Get the current date and time
*
* (taken from the CMZ routine DPDATE written by Marthe Brun)
*
*     Output :
*
      CHARACTER*(*) CHDATE
      CHARACTER*(*) CHTIME
*
********************************************************************************
*
      INTEGER IDATE(2), IHOUR(2)
*
      CALL DATIMH(IDATE,IHOUR)
#if defined(CERNLIB_DOUBLE)
      CALL UHTOC(IDATE,4,CHDATE,8)
      CALL UHTOC(IHOUR,4,CHTIME,8)
#endif
#if !defined(CERNLIB_DOUBLE)
      CALL UHTOC(IDATE,8,CHDATE,8)
      CALL UHTOC(IHOUR,8,CHTIME,8)
#endif

      END