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

   1 /*
   2  * $Id$
   3  *
   4  * $Log$
   5  * Revision 1.2  1997/02/04 17:34:18  mclareni
   6  * Merge Winnt and 97a versions
   7  *
   8  * Revision 1.1.1.1.2.1  1997/01/21 11:29:27  mclareni
   9  * All mods for Winnt 96a on winnt branch
  10  *
  11  * Revision 1.1.1.1  1996/02/15 17:49:22  mclareni
  12  * Kernlib
  13  *
  14  */
  15 #include "kerngen/pilot.h"
  16 #include "kerngen/fortranc.h"
  17
  18 #if defined(CERNLIB_QMOS9)
  19 #include "os9gs/getgidf.c"
  20 #else
  21 /*>    ROUTINE GETGIDF
  22   CERN PROGLIB# Z265    GETGIDF         .VERSION KERNFOR  4.38  931108
  23   ORIG. 01/04/93, JS
  24   Fortran interface routine to getgid
  25 */
  26 #include <sys/types.h>
  27 #if defined(CERNLIB_QX_SC)
  28 void type_of_call getgidf_(gid)
  29 #endif
  30 #if defined(CERNLIB_QXNO_SC)
  31 void type_of_call getgidf(gid)
  32 #endif
  33 #if defined(CERNLIB_QXCAPT)
  34 void type_of_call GETGIDF(gid)
  35 #endif
  36       int *gid;
  37 {
  38 #ifndef WIN32
  39       gid_t  getgid();
  40
  41       *gid = getgid();
  42 #endif
  43       return;
  44 }
  45 /*> END <----------------------------------------------------------*/
  46 #endif