MINICERN/packlib/kernlib/kerngen/ccgen/gmtimef.c

   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