C
C $Id: etimer.F,v 1.6 1998/07/16 16:39:45 jjv5 Exp arjan $
C
C------------------------------------------------------------------------
      SUBROUTINE ETIMER(T)
C
C     RETURNS THE ELAPSED CPU TIME IN SECONDS
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
#ifdef MPI
#include "mpif.h"
#endif


      LOGICAL FIRST
      DATA FIRST /.TRUE./
      SAVE T0,FIRST
#ifdef MPI 
      TNOW = MPI_WTIME()
#else
#  ifdef CRAY
      TNOW = second()
#  else
#     if (__GNUC__ == 4 && __GNUC_MINOR__ <= 1)
      TNOW = second()
#     else
      TNOW = 0.01*MCLOCK()
#     endif
#  endif
#endif
      IF(FIRST)THEN
         T0 = TNOW
         FIRST = .FALSE.
      ENDIF
      T = TNOW - T0
      RETURN
      END