      SUBROUTINE TIMER(T)
C   ==================================================================
C   ===                                                            ===
C   ===    This subroutine returns the elapsed time since its      ===
C   ===                         first CALL                         ===
C   ===                                                            ===
C   ===    ATTENTION - non-standard intrinsic function SECOND      ===
C   ===                     CS Tools version                       ===
C   ===                                                            ===
C   ===                       vsg - May, 92                        ===
C   ==================================================================
 
CC-cstools

      DOUBLE PRECISION T, SECOND

CC-cstools
      T = SECOND()

      END
