MINICERN/packlib/kernlib/kerngen/ccgen/vaogs/locf.c

   1 /*
   2  * $Id$
   3  *
   4  * $Log$
   5  * Revision 1.1.1.1  1996/02/15 17:49:32  mclareni
   6  * Kernlib
   7  *
   8  */
   9 /*>    ROUTINE LOCF
  10   CERN PROGLIB# N100    LOCF            .VERSION KERNVMI  1.08  930527
  11   ORIG. 11/05/93, JZ
  12 */
  13 unsigned int locf_(iadr)
  14    char *iadr;
  15 {
  16    return( ((unsigned) iadr) >> 2 );
  17 }
  18 /*> END <----------------------------------------------------------*/