
      SUBROUTINE SETDAT(IO)
C   ==================================================================
C   ===                                                            ===
C   ===    This subroutine finds time and date and stores in       ===
C   ===                  character variable BUF                    ===
C   ===                                                            ===
C   ===     ATTENTION - non-standard functions DATE & TIME         ===
C   ===                       iPSC version                         ===
C   ===                                                            ===
C   ===                     vsg - April, 92                        ===
C   ==================================================================

      CHARACTER*18 BUF
      DATA BUF(10:10)/' '/

CC-non-standard
      CALL DATE(BUF(1:9))
      CALL TIME(BUF(11:18))

      WRITE(IO,*)'   This run started ',BUF

      END
