*
* $Id$
*
* $Log$
* Revision 1.2  2000/06/08 09:57:21  mclareni
* Add support for Linux
*
* Revision 1.1.1.1  1996/04/01 15:02:54  mclareni
* Mathlib gen
*
*
*
* v107rn.inc
*

#if defined(CERNLIB_LNX)||defined(CERNLIB_ALLIANT)||defined(CERNLIB_CONVEX)||defined(CERNLIB_DECS)||defined(CERNLIB_HPUX)||defined(CERNLIB_IBMRT)||defined(CERNLIB_SGI)||defined(CERNLIB_SUN)
      MR0  = IEOR (ISHFT(MCGX,-15), MCGX)
      MR1  = ISHFT (MR0, 17)
      MCGX = IEOR (MR0, MR1)
      MCGN = 69069 * MCGN
      MANT = ISHFT (IEOR(MCGX,MCGN), -8)

#elif defined(CERNLIB_APOLLO)
      MR0  = XOR (RSHFT(MCGX,+15), MCGX)
      MR1  = LSHFT (MR0, 17)
      MCGX = XOR (MR0, MR1)
      MCGN = 69069 * MCGN
      MANT = RSHFT (XOR(MCGX,MCGN), +8)

#elif 1
      MR0  = IOR (ISHFT(MCGX,-15), MCGX)
      MR1  = ISHFT (MR0, 17)
      MCGX = IOR (MR0, MR1)
      MCGN = 69069 * MCGN
      MANT = ISHFT (IOR(MCGX,MCGN), -8)

#endif
