      SUBROUTINE SETDAT(IO)
C   ==================================================================
C   ===                                                            ===
C   ===            This subroutine finds time and date             ===
C   ===                                                            ===
C   ===                     Fortran90 version                      ===
C   ===                                                            ===
C   ===                       vsg - May, 92                        ===
C   ==================================================================

      CHARACTER(8) DATE
      CHARACTER(10) TIME

      DATE = '        '
      TIME = '          '
      CALL DATE_AND_TIME(DATE,TIME)

      WRITE(IO,*)'   This run started ',DATE(7:8),'-',DATE(5:6),'-',
     1           DATE(3:4),' ',TIME(1:2),':',TIME(3:4),':',TIME(5:6)

      END
