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

   1 /*
   2  * $Id$
   3  *
   4  * $Log$
   5  * Revision 1.2  1997/02/04 17:34:50  mclareni
   6  * Merge Winnt and 97a versions
   7  *
   8  * Revision 1.1.1.1.2.1  1997/01/21 11:29:47  mclareni
   9  * All mods for Winnt 96a on winnt branch
  10  *
  11  * Revision 1.1.1.1  1996/02/15 17:49:28  mclareni
  12  * Kernlib
  13  *
  14  */
  15 #include "kerngen/pilot.h"
  16 #include "kerngen/fortranc.h"
  17
  18 /*>    ROUTINE VXINVB
  19   CERN PROGLIB#M434     VXINVB          .VERSION KERNFOR  4.42  951011
  20   ORIG. 10/07/95, JZ
  21
  22       CALL VXINVB (IXV,N)
  23
  24       byte inversion N words of IXV, in situ
  25 */
  26
  27 #if defined(CERNLIB_QX_SC)
  28 void type_of_call vxinvb_(ixv, n)
  29 #endif
  30 #if defined(CERNLIB_QXNO_SC)
  31 void type_of_call vxinvb(ixv, n)
  32 #endif
  33 #if defined(CERNLIB_QXCAPT)
  34 void type_of_call VXINVB(ixv, n)
  35 #endif
  36       int  *ixv, *n;
  37 {
  38       int  limit, jloop;
  39       int  in;
  40
  41       limit = *n;
  42
  43 /*--          swop:   1 | 2 | 3 | 4
  44                 to:   4 | 3 | 2 | 1     */
  45
  46       for (jloop = 0; jloop < limit; jloop++)
  47     { in = ixv[jloop];
  48       ixv[jloop] =
  49           ((in >> 24) & 0x000000ff) |
  50           ((in >>  8) & 0x0000ff00) |
  51           ((in <<  8) & 0x00ff0000) |
  52           ((in << 24) & 0xff000000);
  53         }
  54       return;
  55 }
  56 /*> END <----------------------------------------------------------*/
  57 #ifdef CERNLIB_TCGEN_VXINVB
  58 #undef CERNLIB_TCGEN_VXINVB
  59 #endif