]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | /* |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.2 1997/02/04 17:34:21 mclareni | |
6 | * Merge Winnt and 97a versions | |
7 | * | |
8 | * Revision 1.1.1.1.2.1 1997/01/21 11:29:29 mclareni | |
9 | * All mods for Winnt 96a on winnt branch | |
10 | * | |
11 | * Revision 1.1.1.1 1996/02/15 17:49:23 mclareni | |
12 | * Kernlib | |
13 | * | |
14 | */ | |
15 | #include "kerngen/pilot.h" | |
16 | #include "kerngen/fortranc.h" | |
17 | ||
18 | #if defined(CERNLIB_QMIRTD) | |
19 | #include "irtdgs/gmtimef.c" | |
20 | #else | |
21 | /*> ROUTINE GMTIMEF (CLOCK, TARR) | |
22 | CERN PROGLIB# Z265 GMTIMEF .VERSION KERNFOR 4.32 920229 | |
23 | ORIG. 14/03/91, RDM | |
24 | Fortran interface routine to gmtime | |
25 | ||
26 | CLOCK encoded time (returned by, e.g. STATF) | |
27 | TARR decoded time (INTEGER TARR(9)) | |
28 | */ | |
29 | #include <stdio.h> | |
30 | #include <time.h> | |
31 | #if defined(CERNLIB_QMAPO)||defined(CERNLIB_QMALT) | |
32 | #include <sys/types.h> | |
33 | #endif | |
34 | ||
35 | #if defined(CERNLIB_QX_SC) | |
36 | void type_of_call gmtimef_(clock, tarr) | |
37 | #endif | |
38 | #if defined(CERNLIB_QXNO_SC) | |
39 | void type_of_call gmtimef(clock, tarr) | |
40 | #endif | |
41 | #if defined(CERNLIB_QXCAPT) | |
42 | void type_of_call GMTIMEF(clock, tarr) | |
43 | #endif | |
44 | time_t *clock; | |
45 | int *tarr; | |
46 | { | |
47 | struct tm *gmtime(), *tm; | |
48 | ||
49 | tm = gmtime(clock); | |
50 | tarr[0] = tm->tm_sec; | |
51 | tarr[1] = tm->tm_min; | |
52 | tarr[2] = tm->tm_hour; | |
53 | tarr[3] = tm->tm_mday; | |
54 | tarr[4] = tm->tm_mon; | |
55 | tarr[5] = tm->tm_year; | |
56 | tarr[6] = tm->tm_wday; | |
57 | tarr[7] = tm->tm_yday; | |
58 | tarr[8] = tm->tm_isdst; | |
59 | } | |
60 | /*> END <----------------------------------------------------------*/ | |
61 | #endif |