.\" @(#)secnds.3f 1.5 92/01/28 SMI; from UCB 4.2 .TH SECNDS 3F "07 July 1995" .SH NAME secnds \- return system time in seconds since midnight .SH SYNOPSIS .\" .IX secnds "" \fLsecnds\fP .IX system time .\" .B real function secnds (t0) .br .B real t0 .\" .SH DESCRIPTION .\" .LP The function .B "secnds( t0 )" returns the system time as the number of seconds since midnight, minus .BR t0 , as in VMS. .\" .SH NOTES .\" .PP .sp Usage: .in +2 .sp .nf .ft 3 real t, t0, secnds ... t = secnds(t0) .fi .in -2 .sp .ft 1 Example: .sp demo% .B "cat sec1.f" .br .nf .ft 3 real elapsed, t0, t1, x, y t0 = 0.0 t1 = secnds( t0 ) y = 0.1 do i = 1, 1000 x = asin( y ) end do elapsed = secnds( t1 ) write ( *, 1 ) elapsed 1 format ( ' 1000 arcsines: ', f12.6, ' sec' ) end .ft 1 .fi .br demo% .B "f77 \-silent sec1.f" .br demo% .B a.out .br \ 1000 arcsines: 6.699141 sec .br demo% .\" .SH FILES .\" .B libF77.a .\" .SH "SEE ALSO" .\" .BR ctime (3) , .BR itime (3F), .BR idate (3F), .BR fdate (3F) .br .I "FORTRAN 77 Reference Manual"