*
* $Id$
*
* $Log$
* Revision 1.1  1996/02/15 17:54:39  mclareni
* Initial revision
*
*
LOCB     CSECT
*
* CERN PROGLIB#         LOCB            .VERSION KERNIBX  1.01  900524
*
**  This routine does nothing in AIX: the argument address is in GR0
**   on entry, and is to be returned in GR0 as the function value!
         ENTRY _locb_
_locb_   BCR   15,14
         END
#ifdef CERNLIB_CCGEN_LOCB
#undef CERNLIB_CCGEN_LOCB
#endif
#ifdef CERNLIB_TCGEN_LOCB
#undef CERNLIB_TCGEN_LOCB
#endif
