subroutine timer(timnum,timact)
C ****************************************************************** wjr
C
C Provides benchmark data
C
C       Edit History
C       05-Feb-99       wjr     Original coding
C
      include 'timer.fi'
C      
      integer		timnum			!# of timer being used
	  integer		timact			!action: 1==start, 2==end, 3==print, 4==reset
      integer		idx
C
      real*8        timarr(0:10)
      real*8        tim
      integer		lsttim
      real          time(2)
      real          rtntim

      real          etime    

      data timarr /11*0.0/
      data lsttim / 0 /

      save timarr

      rtntim = etime(time)
      if (rtntim.eq.-1.0) rtntim = etime(time)

      tim = time(1)

      select case (timact)
      case (1)									! start a timer
        timarr(0) = timarr(0) + tim
        timarr(timnum) = timarr(timnum) - tim
      case (2)									! stop a timer
        timarr(0) = timarr(0) - tim
        timarr(timnum) = timarr(timnum) + tim
      case (3)
        timarr(0) = timarr(0) + tim
        do idx = 0,10
          write(*,fmt="(' ',a8,2x,f6.2)") timnam(idx),timarr(idx)
        end do
        timarr(0) = timarr(0) - tim
      case (4)
        timarr(timnum) = 0.0
      end select
      end