19 lines
491 B
Fortran
19 lines
491 B
Fortran
c The subroutine to analyze
|
|
subroutine do_something()
|
|
c For testing we just do nothing for 3 seconds
|
|
call sleep(3)
|
|
return
|
|
end
|
|
|
|
c Main Program
|
|
program timing
|
|
integer(kind=8) start,finish,rate
|
|
call system_clock(count_rate=rate)
|
|
call system_clock(start)
|
|
c Here comes the function we want to time
|
|
call do_something()
|
|
call system_clock(finish)
|
|
write(6,*) 'Elapsed Time in seconds:',float(finish-start)/rate
|
|
return
|
|
end
|