subroutine datimh(id,it)
      external date,clock
      character*8 id,it
      character*2 ch
      call date(id)
      call clock(it)
      ch=id(1:2)
      id(1:2)=id(4:5)
      id(4:5)=ch
      it(3:3)='.'
      it(6:6)='.'
      return
      end