character*8 tim,ebctim
      dimension i(2),j(2)
      equivalence(tim,i),(ebctim,j)
      call ctime(tim)
      print *,tim
      call icl9cetime(ebctim)
      print *,ebctim
      print *,i,j
      end