ADAS Subroutine xxtoday

      subroutine xxtoday(str_today)

C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: xxtoday ********************
C
C PURPOSE: To return today's date.
C
C CALLING PROGRAM: General use
C
C OUTPUT: (C*10)  str_today    = Today's data in DD-MM-YYYY format.
C
C ROUTINES:
C          ROUTINE    SOURCE    BRIEF DESCRIPTION
C          ------------------------------------------------------------
C          TODAY      ADAS      Wrapper to C library routine localtime
C
C
C AUTHOR   : Martin O'Mullane
C DATE     : 19-04-2005
C
C
C VERSION  : 1.1
C DATE     : 19-04-2005
C MODIFIED : Martin O'Mullane
C               - First version.
C
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
      external      today
C-----------------------------------------------------------------------
      CHARACTER*10        STR_TODAY