#include "kerngen/pilot.h"#include "kerngen/fortranc.h"#include <sys/types.h>#include <time.h>Go to the source code of this file.
Defines | |
| #define | slate slate_ |
Functions | |
| void type_of_call | datime_ (int *id, int *it) |
Variables | |
| struct { | |
| int inum [40] | |
| } | slate_ |
|
|
|
|
||||||||||||
|
Definition at line 46 of file datime.c. References inum, and type_of_call. 00049 { int inum[40]; } slate;
00050 void type_of_call datime(id, it)
00051 #endif
00052 #if defined(CERNLIB_QXCAPT)
00053 #define slate SLATE
00054 struct { int inum[40]; } SLATE;
00055 void type_of_call DATIME(id, it)
00056 #endif
00057 int *id, *it;
00058 {
00059 struct tm *tp;
00060 #if defined(CERNLIB_QMAPO)
00061 int nsl;
00062 #endif
00063
00064 #if (defined(CERNLIB_QMAPO))&&(defined(CERNLIB_QX_SC))
00065 void type_of_call toslat_();
00066 #endif
00067 #if (defined(CERNLIB_QMAPO))&&(defined(CERNLIB_QXNO_SC))
00068 void type_of_call toslat();
00069 #endif
00070
00071 #if defined(CERNLIB_QXCAPT)
00072 void type_of_call TOSLAT();
00073 #endif
00074
00075 time_t tloc = time(0);
00076 tp = localtime(&tloc);
00077 slate.inum[0] = tp->tm_year + 1900;
00078 slate.inum[1] = tp->tm_mon + 1;
00079 slate.inum[2] = tp->tm_mday;
00080 slate.inum[3] = tp->tm_hour;
00081 slate.inum[4] = tp->tm_min;
00082 slate.inum[5] = tp->tm_sec;
00083 #if defined(CERNLIB_QMAPO)
00084 nsl = 6;
00085 #endif
00086 #if (defined(CERNLIB_QMAPO))&&(defined(CERNLIB_QX_SC))
00087 toslat_ (slate.inum, &nsl);
00088 #endif
00089 #if (defined(CERNLIB_QMAPO))&&(defined(CERNLIB_QXNO_SC))
00090 toslat (slate.inum, &nsl);
00091 #endif
00092 *id = (tp->tm_year % 100 ) * 10000;
00093 *id += (tp->tm_mon + 1) * 100;
00094 *id += tp->tm_mday;
00095 *it = tp->tm_hour * 100;
00096 *it += tp->tm_min;
00097 return;
00098 }
|
|
|
Definition at line 45 of file datime.c. Referenced by datime_(). |
|
|
|
1.3.9.1