*** UTIL/second.f.orig	Sat Jun  6 15:36:46 2009
--- UTIL/second.f	Sat Jun  6 15:37:30 2009
***************
*** 21,32 ****
  *     ..
  *     .. External Functions ..
!       REAL               ETIME
!       EXTERNAL           ETIME
  *     ..
  *     .. Executable Statements ..
  *
  
!       T1 = ETIME( TARRAY )
!       T  = TARRAY( 1 )
  
        RETURN
--- 21,32 ----
  *     ..
  *     .. External Functions ..
! *      REAL               ETIME
! *      EXTERNAL           ETIME
  *     ..
  *     .. Executable Statements ..
  *
  
! *      T1 = ETIME( TARRAY )
! *      T  = TARRAY( 1 )
  
        RETURN