subroutine findtime_global(first)
USE Numeric_Kinds_Module
USE CommonInfo_Module
implicit none

! Put 'initcount' into a  module
! what = what is being timed: limited to 20 characters
! time = in seconds

logical first
!character(len=*) what
integer count,count_rate,count_max
real(kind=dp) timesec,timemin,timehr

call system_clock(count,count_rate,count_max)

if (first) then
initcount_global=count
end if


if (.not.first) then
  
  If (count.lt.initcount_global) Then
    timesec=(Real(count_max-initcount_global)/count_rate)+(Real(count)/count_rate)
  Else
    timesec=Real(count-initcount_global)/count_rate
  EndIf 

  timemin=timesec/60.d0
  timehr=timemin/60.d0

  write(Out_Unit,*) ' '
  write(Out_Unit,*) 'Timing for : Total Program td_prop '
  write(Out_Unit,*) 'Time in sec = ',timesec
  write(Out_Unit,*) 'Time in min = ',timemin
  write(Out_Unit,*) 'Time in hr  = ',timehr

  print*,' '
  print*,'Timing for : Total Program td_prop '
  print*,'timesec = ',timesec
  print*,'timemin = ',timemin
  print*,'timehr  = ',timehr

end if

end subroutine findtime_global