File: sec0.f90

package info (click to toggle)
wsjtx 2.6.1%2Brepack-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 69,664 kB
  • sloc: cpp: 86,977; f90: 42,417; python: 27,241; ansic: 12,510; fortran: 2,382; makefile: 197; sh: 134
file content (21 lines) | stat: -rwxr-xr-x 398 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
subroutine sec0(n,t)

  ! Simple execution timer.
  ! call sec0(0,t)
  ! ... statements to be timed ...
  ! call sec0(1,t)
  ! print*,'Execution time:',t

  integer*8 count0,count1,clkfreq
  save count0

  call system_clock(count1,clkfreq)
  if(n.eq.0) then
     count0=count1
     return
  else
     t=float(count1-count0)/float(clkfreq)
  endif

  return
end subroutine sec0