
      SUBROUTINE TIMER(T)
C   ==================================================================
C   ===                                                            ===
C   ===    This subroutine returns the elapsed time since its      ===
C   ===                         first CALL                         ===
C   ===                                                            ===
C   ===    ATTENTION - non-standard intrinsic function MCLOCK      ===
C   ===                       iPSC version                         ===
C   ===                                                            ===
C   ===                    vsg - October, 92                       ===
C   ==================================================================
 
CC-iPSC
      INTEGER MCLOCK

      DOUBLE PRECISION T

CC-iPSC
      T = DBLE(MCLOCK()) * 1.D-3

      END
