c
c...  to time a portion of your code call seconds before and after
c     the block and calculate the difference
c
c     note that hpcwall.c has to be compiled and linked with this code
c
c
      real tbefore, tafter, time, seconds
      
      tbefore = seconds()
      call dummy ()
      tafter = seconds ()
      time = tafter - tbefore

      stop
      end


c     ------------------------
      real function seconds ()
c     ------------------------
c
c     purpose: returns elapsed time in seconds
c
      real*8 dummy
      real tarray(2)
      real*8 WCTime
c
      call HPCWALL ( WCTime )
      seconds = sngl(WCTime) 

      return
      end

c     -------------------
      subroutine dummy ()
c     -------------------

      return
      end