      SUBROUTINE TIMER(T)
C   ==================================================================
C   ===                                                            ===
C   ===    This subroutine returns the elapsed time in seconds     ===
C   ===                    since its first CALL                    ===
C   ===                                                            ===
C   ===                     Fortran90 version                      ===
C   ===                                                            ===
C   ===                     vsg - October, 92                      ===
C   ==================================================================
 
      INTEGER VAL(8)
      DOUBLE PRECISION T

      CALL DATE_AND_TIME(VALUES=VAL)

      T = DBLE(VAL(8))*1D-3 + DBLE(VAL(7)) +
     *    DBLE(VAL(6))*60D0 + DBLE(VAL(5))*3600D0

      END
