This is the mail archive of the
cygwin@cygwin.com
mailing list for the Cygwin project.
[bug?] g77 intrinsic ETIME
- To: <cygwin at cygwin dot com>
- Subject: [bug?] g77 intrinsic ETIME
- From: "Jong B. Lee" <jbdoll at kepri dot re dot kr>
- Date: 2001年7月18日 15:19:24 +0900
Dear list,
The following sample code, e_time.f, is to calculate program running time.
It uses g77 runtime library, etime.
On win9x (including winME), it returns 0.
On win2k, it returns correct running time.
Please guide me how to use etime on win9x.
Thanks.
=============================================
program e_time
c
implicit double precision (a-h,o-z)
call secnd(time1)
write(*,*) "time1 = ", time1
c
isum=0
do j=1, 10
do i=1, 10000000
isum = isum + i
enddo
enddo
c
call secnd(time2)
write(*,*) "time2 = ", time2
c
write(*,10) (time2 - time1)
10 format(1x, "computer time =", f12.2, " seconds")
c
stop
end
subroutine secnd(t)
c return the time consumed so far in this run, in seconds.
implicit double precision (a-h,o-z)
real a2(2)
c
t=0.
t=etime(a2)
return
end
==================================