aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Just another update

Browse source
This commit is contained in:
Ingy döt Net 2015-02-20 00:35:01 -05:00
parent a25938f123
commit 00a190b0a6
6591 changed files with 94363 additions and 23227 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Task/Time-a-function/Fortran/time-a-function.f
View file

@ -7,11 +7,12 @@ c For testing we just do nothing for 3 seconds
c Main Program
program timing
integer(kind=8) start,finish,rate,max
call system_clock(start,rate,max)
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,rate,max)
write(6,*) 'Elapsed Time in seconds:',(finish-start)/rate
call system_clock(finish)
write(6,*) 'Elapsed Time in seconds:',float(finish-start)/rate
return
end