Power-Programmierung/CD1.mdf/fortran/library/whets/second.c

C/C++ Source or Header | 1994-07-05 | 176b | 10 lines

#include <sys/types.h>
#include <sys/times.h>
float
second_()
{
    struct tms buf;
    times(&buf);
    return(buf.tms_utime*0.02);         /* 1 tick = 1/50 sec */
}