#include "kerngen/pilot.h"#include "kerngen/fortranc.h"Go to the source code of this file.
Functions | |
| void type_of_call | vxinvb_ (int *ixv, int *n) |
|
||||||||||||
|
Definition at line 33 of file vxinvb.c. References type_of_call.
00042 {
00043 int limit, jloop;
00044 int in;
00045
00046 limit = *n;
00047
00048 /*-- swop: 1 | 2 | 3 | 4
00049 to: 4 | 3 | 2 | 1 */
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 }
|
1.3.5