REAL(Kind=WP_Kind) FUNCTION second(dummy)
USE Numeric_Kinds_Module
!
!   $RCSfile: second.f,v $ $Revision: 1.3 $
!   $Date: 89/07/28 09:57:40 $
!   $State: Stable $
!
!
!    Suggested by Hans Jxrgen Aagaard Jensen 880126
!
INTEGER :: Dummy
REAL(KIND=WP_Kind) etime, tarr(2)
second = etime(tarr)
RETURN
END FUNCTION second