source: branches/start/MagicSoft/Simulation/Corsika/Mmcs/jcdate.c@ 10113

Last change on this file since 10113 was 286, checked in by harald, 25 years ago
This is the start point for further developments of the Magic Monte Carlo Simulation written by Jose Carlos Gonzales. Now it is under control of one CVS repository for the whole collaboration. Everyone should use this CVS repository for further developments.
File size: 1.1 KB
Line 
1/*----------------------------------------------------------------------
2 jcdate.c :
3
4 Function to get the hour/date of the system
5 modified 13-10-98, D. Petry
6
7----------------------------------------------------------------------*/
8
9#include <stdio.h>
10#include <stdlib.h>
11#include <time.h>
12
13static int s0=0;
14
15/*--------------------------------------------------
16 jcdate:
17--------------------------------------------------*/
18#ifdef JC_UNDERSCORES
19void
20jcdate_ (int *id, int *it, int *isl1, int *isl2, int *isl3,
21 int *isl4, int *isl5, int *isl6 )
22#else /* JC_NO_UNDERSCORES */
23void
24jcdate (int *id, int *it, int *isl1, int *isl2, int *isl3,
25 int *isl4, int *isl5, int *isl6 )
26#endif /* JC_UNDERSCORES */
27{
28 time_t timesecs;
29 struct tm *t;
30
31 s0 = (int) time( &timesecs );
32 t = gmtime( &timesecs );
33 *isl1 = (int) t->tm_year;
34 *isl2 = (int) t->tm_mon+1;
35 *isl3 = (int) t->tm_mday;
36 *isl4 = (int) t->tm_hour;
37 *isl5 = (int) t->tm_min;
38 *isl6 = (int) t->tm_sec;
39
40 *id = *isl1 * 10000 + *isl2 * 100 + *isl3;
41 *it = *isl4 * 10000 + *isl5 * 100 + *isl6;
42
43 return;
44}
45
Note: See TracBrowser for help on using the repository browser.