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

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

      save timarr

      call cpu_time(tim)

      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