Just wanted to roughly time my run time. All I can get is zero from either timcpu, cpu_time, system_clock, or clock. Using PGI VF in Visual Studio 2008 on Win7 64-bit. Code is below and the call to submain typically takes a couple minutes for the case being exercised. I wonder if I have a setting wrong in VS2008.
program macro3d
implicit none
real start_time, end_time, cputime, conversion
c integer(kind=8) count, count_rate, count_max
data conversion/1.e-9/
c
c call timcpu(start_time)
call cpu_time(start_time)
write(6,20) start_time
c
call submain
c
c call timcpu(end_time)
call cpu_time(end_time)
write(6,30) end_time
c
cputime = (end_time - start_time)
write(6,100) cputime, cputime/60., cputime/3600.
write(74,100) cputime, cputime/60., cputime/3600.
c
20 format(’ start time =‘,e16.9)
30 format(’ end time =‘,e16.9)
100 format(//,’ Total CPU time is’,1pe16.9,’ sec =‘,1pe14.7,
& ’ min =’,1pe12.5,’ hr’)
stop
end