File: utils.c

package info (click to toggle)
libcgns 2.5.4-3
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 2,740 kB
  • ctags: 4,493
  • sloc: ansic: 46,717; fortran: 1,341; sh: 368; makefile: 259
file content (34 lines) | stat: -rw-r--r-- 693 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#include <sys/types.h>
#if !defined(_WIN32) || defined(__NUTC__)
#include <sys/times.h>
#endif
#include <sys/stat.h>
#include <time.h>
#ifndef CLK_TCK
# define CLK_TCK CLOCKS_PER_SEC
#endif

double elapsed_time (void)
{
#if defined(_WIN32) && !defined(__NUTC__)
    return (double)clock() / (double)CLK_TCK;
#else
    struct tms clock;
    double usrtime;
    double systime;

    times(&clock);
    usrtime = (double) clock.tms_utime / (double)CLK_TCK;
    systime = (double) clock.tms_stime / (double)CLK_TCK;
    return (usrtime + systime);
#endif
}

double file_size (char *fname)
{
    struct stat st;

    if (stat (fname, &st)) return 0.0;
    return (double)st.st_size / 1048576.0;
}