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

   1 /*
   2  * $Id$
   3  *
   4  * $Log$
   5  * Revision 1.3  1997/09/02 14:26:37  mclareni
   6  * WINNT correction
   7  *
   8  * Revision 1.2  1997/02/04 17:34:31  mclareni
   9  * Merge Winnt and 97a versions
  10  *
  11  * Revision 1.1.1.1.2.1  1997/01/21 11:29:35  mclareni
  12  * All mods for Winnt 96a on winnt branch
  13  *
  14  * Revision 1.1.1.1  1996/02/15 17:49:24  mclareni
  15  * Kernlib
  16  *
  17  */
  18 #include "kerngen/pilot.h"
  19 #include "kerngen/fortranc.h"
  20
  21 #if defined(CERNLIB_MSSTDCALL) && defined(CERNLIB_LOCF_CHARACTER)
  22 # define Dummy2LocPar  ,_dummy
  23 # define DummyDef     int _dummy;
  24 #else
  25 # define Dummy2LocPar
  26 # define DummyDef
  27 #endif
  28
  29
  30 /*>    ROUTINE LOCB
  31   CERN PROGLIB# N101    LOCB            .VERSION KERNFOR  4.36  930602
  32 */
  33 #if defined(CERNLIB_QX_SC)
  34 int type_of_call locb_(iadr Dummy2LocPar)
  35 #endif
  36 #if defined(CERNLIB_QXNO_SC)
  37 int type_of_call locb(iadr Dummy2LocPar)
  38 #endif
  39 #if defined(CERNLIB_QXCAPT)
  40 int type_of_call LOCB(iadr Dummy2LocPar)
  41 #endif
  42    char *iadr;
  43 #ifdef DummyDef
  44    DummyDef
  45 #endif
  46 {
  47    return( (int) iadr );
  48 }
  49 /*> END <----------------------------------------------------------*/
  50 #ifdef CERNLIB_TCGEN_LOCB
  51 #undef CERNLIB_TCGEN_LOCB
  52 #endif