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: }