C*DATTIM -- return current date and time
C+
      SUBROUTINE DATTIM (STRING)
      CHARACTER*(*) STRING
C
C Return the current date and time in a character string in standard
C format: 'dd-MMM-yyyy hh:mm:ss'. The caller can request the full
C string, by supplying a string of length 20 characters, or just the
C date, by supplying a string of length 11 characters.
C
C Argument:
C  STRING  (output) : receives the date and time, or string '<unknown>'
C                    if the information is not available; should be
C                    either 11 characters or 20 characters.
C
C Subroutines required:
C  FDATE
C
C History:
C  1988 Apr 2 - TJP.
C  1995 Oct 4 - CAH: modified for use with HP-UX
C-----------------------------------------------------------------------
      CHARACTER*24 D
C
C     CALL FDATE(D) ! HP-UX
C     Ddd Mmm dd hh:mm:ss yyyy
C     123456789012345678901234
C     STRING = D(9:10)//'-'//D(5:7)//'-'//D(21:24)//' '//D(12:19)
C
      string='dd-MMM-yyyy hh:mm:ss'
      END