C*******************************************************************************
C
C       Copyright (C) 1993, California Institute of Technology.  U.S.
C       Government Sponsorhip under NASA Contract NAS7-918 is
C       acknowledged.
C
C*******************************************************************************
      subroutine gettim(curtim)
      character curtim*(*)
      character adate*9,atime*8
      call date(adate)
      call time(atime)
      curtim = adate//' '//atime
      return
      end