      SUBROUTINE TIMER(T)
C   ==================================================================
C   ===                                                            ===
C   ===    This subroutine returns the elapsed time since its      ===
C   ===                         first CALL                         ===
C   ===                                                            ===
C   ===    ATTENTION - non-standard intrinsic function RTC         ===
C   ===                     CRAY Y-MPI version                     ===
C   ===                                                            ===
C   ===                      vsg - March, 93                       ===
C   ==================================================================
 
      REAL T

CC-cray
      T = RTC() * 6.E-9

      END
