File: sec0.f90

package info (click to toggle)
wsjtx 2.3.0%2Brepack-2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 63,524 kB
  • sloc: cpp: 59,051; f90: 34,130; python: 27,241; ansic: 11,205; fortran: 2,051; sh: 132; makefile: 109
file content (21 lines) | stat: -rw-r--r-- 377 bytes parent folder | download | duplicates (2) 
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