*
* $Id: fzudat44.inc,v 1.1.1.1 1996/03/06 10:47:08 mclareni Exp $
*
* $Log: fzudat44.inc,v $
* Revision 1.1.1.1  1996/03/06 10:47:08  mclareni
* Zebra
*
*
*   pack 32-bit words to 60-bit
*
* fzudat44.inc
*
#if defined(CERNLIB_QMCDC)
      CALL PKCHAR (LQ(LWR),LQ(LWR-1),MAXREX,IPKVEC)
      LWR  = LWR - 1
#elif defined(CERNLIB_QMCRY)
      CALL PACK (LQ(LWR),32,LQ(LWR),MAXREX)
#elif (defined(CERNLIB_QMCV64))&&(!defined(CERNLIB_QIEEE))
      CALL PACK32 (LQ(LWR),LQ(LWR),MAXREX)
#elif defined(CERNLIB_QMIBMD)
      CALL PACK (LQ(LWR),LQ(LWR),MAXREX)
#elif defined(CERNLIB_QMIRTD)
      CALL PACK (LQ(LWR),LQ(LWR),MAXREX)
#elif 1
      CALL VXINVB (LQ(LWR),24)
#endif