Actual source code: ex22.c
1: /*
2: Tests the PetscByteSwap()
3: */
4: #include <petscsys.h>
9: int main(int argc,char **argv)
10: {
12: PetscInt oint[2],sint[2];
13: PetscPrecision oenum[2],senum[2];
14: PetscBool obool[2],sbool[2];
15: PetscScalar oscalar[2],sscalar[2];
16: double odouble[2],sdouble[2];
17: float ofloat[2],sfloat[2];
18: short oshort[2],sshort[2];
20: PetscInitialize(&argc,&argv,(char *)0,0);
22: sint[0] = oint[0] = 5;
23: sint[1] = oint[1] = 19;
24: senum[0] = oenum[0] = PETSC_PRECISION_SINGLE;
25: senum[1] = oenum[1] = PETSC_PRECISION_DOUBLE;
26: sbool[0] = obool[0] = PETSC_FALSE;
27: sbool[1] = obool[1] = PETSC_TRUE;
28: sscalar[0] = oscalar[0] = 3.14159265;
29: sscalar[1] = oscalar[1] = 1.3806504e-23;
30: sdouble[0] = odouble[0] = 3.14159265;
31: sdouble[1] = odouble[1] = 1.3806504e-23;
32: sfloat[0] = ofloat[0] = 3.14159265;
33: sfloat[1] = ofloat[1] = 1.3806504e-23;
34: sshort[0] = oshort[0] = 5;
35: sshort[1] = oshort[1] = 19;
37: PetscByteSwap(sint,PETSC_INT,2);
38: PetscByteSwap(senum,PETSC_ENUM,2);
39: PetscByteSwap(sbool,PETSC_BOOL,2);
40: PetscByteSwap(sscalar,PETSC_SCALAR,2);
41: PetscByteSwap(sdouble,PETSC_DOUBLE,2);
42: PetscByteSwap(sfloat,PETSC_FLOAT,2);
43: PetscByteSwap(sshort,PETSC_SHORT,2);
45: PetscByteSwap(sint,PETSC_INT,2);
46: PetscByteSwap(senum,PETSC_ENUM,2);
47: PetscByteSwap(sbool,PETSC_BOOL,2);
48: PetscByteSwap(sscalar,PETSC_SCALAR,2);
49: PetscByteSwap(sdouble,PETSC_DOUBLE,2);
50: PetscByteSwap(sfloat,PETSC_FLOAT,2);
51: PetscByteSwap(sshort,PETSC_SHORT,2);
53: if ((sint[0] !=oint[0] )|| (sint[1] != oint[1])) {
54: PetscPrintf(PETSC_COMM_SELF,"Byteswap mismatch for PETSC_INT\n");
55: }
56: if ((senum[0] !=oenum[0] )|| (senum[1] != oenum[1])) {
57: PetscPrintf(PETSC_COMM_SELF,"Byteswap mismatch for PETSC_ENUM\n");
58: }
59: if ((sbool[0] !=obool[0] )|| (sbool[1] != obool[1])) {
60: PetscPrintf(PETSC_COMM_SELF,"Byteswap mismatch for PETSC_BOOL\n");
61: }
62: if ((sscalar[0] !=oscalar[0] )|| (sscalar[1] != oscalar[1])) {
63: PetscPrintf(PETSC_COMM_SELF,"Byteswap mismatch for PETSC_SCALAR\n");
64: }
65: if ((sdouble[0] !=odouble[0] )|| (sdouble[1] != odouble[1])) {
66: PetscPrintf(PETSC_COMM_SELF,"Byteswap mismatch for PETSC_DOUBLE\n");
67: }
68: if ((sfloat[0] !=ofloat[0] )|| (sfloat[1] != ofloat[1])) {
69: PetscPrintf(PETSC_COMM_SELF,"Byteswap mismatch for PETSC_FLOAT\n");
70: }
71: if ((sshort[0] !=oshort[0] )|| (sshort[1] != oshort[1])) {
72: PetscPrintf(PETSC_COMM_SELF,"Byteswap mismatch for PETSC_SHORT\n");
73: }
75: PetscFinalize();
76: return 0;
77: }