00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020 #include "kerngen/pilot.h"
00021 #include "kerngen/fortranc.h"
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032 #if defined(CERNLIB_QX_SC)
00033 void type_of_call vxinvb_(ixv, n)
00034 #endif
00035 #if defined(CERNLIB_QXNO_SC)
00036 void type_of_call vxinvb(ixv, n)
00037 #endif
00038 #if defined(CERNLIB_QXCAPT)
00039 void type_of_call VXINVB(ixv, n)
00040 #endif
00041 int *ixv, *n;
00042 {
00043 int limit, jloop;
00044 int in;
00045
00046 limit = *n;
00047
00048
00049
00050
00051 for (jloop = 0; jloop < limit; jloop++)
00052 { in = ixv[jloop];
00053 ixv[jloop] =
00054 ((in >> 24) & 0x000000ff) |
00055 ((in >> 8) & 0x0000ff00) |
00056 ((in << 8) & 0x00ff0000) |
00057 ((in << 24) & 0xff000000);
00058 }
00059 return;
00060 }
00061
00062 #ifdef CERNLIB_TCGEN_VXINVB
00063 #undef CERNLIB_TCGEN_VXINVB
00064 #endif