1 static char help[] = "Tests the PetscByteSwap()\n"; 2 3 #include <petscsys.h> 4 5 int main(int argc,char **argv) 6 { 7 PetscErrorCode ierr; 8 PetscInt oint[2],sint[2]; 9 PetscBool obool[2],sbool[2]; 10 PetscScalar oscalar[2],sscalar[2]; 11 double odouble[2],sdouble[2]; 12 float ofloat[2],sfloat[2]; 13 short oshort[2],sshort[2]; 14 15 ierr = PetscInitialize(&argc,&argv,(char*)0,help);if (ierr) return ierr; 16 17 sint[0] = oint[0] = 5; 18 sint[1] = oint[1] = 19; 19 sbool[0] = obool[0] = PETSC_FALSE; 20 sbool[1] = obool[1] = PETSC_TRUE; 21 sscalar[0] = oscalar[0] = 3.14159265; 22 sscalar[1] = oscalar[1] = 1.3806504e-23; 23 sdouble[0] = odouble[0] = 3.14159265; 24 sdouble[1] = odouble[1] = 1.3806504e-23; 25 sfloat[0] = ofloat[0] = 3.14159265; 26 sfloat[1] = ofloat[1] = 1.3806504e-23; 27 sshort[0] = oshort[0] = 5; 28 sshort[1] = oshort[1] = 19; 29 30 ierr = PetscByteSwap(sint,PETSC_INT,2);CHKERRQ(ierr); 31 ierr = PetscByteSwap(sbool,PETSC_BOOL,2);CHKERRQ(ierr); 32 ierr = PetscByteSwap(sscalar,PETSC_SCALAR,2);CHKERRQ(ierr); 33 ierr = PetscByteSwap(sdouble,PETSC_DOUBLE,2);CHKERRQ(ierr); 34 ierr = PetscByteSwap(sfloat,PETSC_FLOAT,2);CHKERRQ(ierr); 35 ierr = PetscByteSwap(sshort,PETSC_SHORT,2);CHKERRQ(ierr); 36 37 ierr = PetscByteSwap(sint,PETSC_INT,2);CHKERRQ(ierr); 38 ierr = PetscByteSwap(sbool,PETSC_BOOL,2);CHKERRQ(ierr); 39 ierr = PetscByteSwap(sscalar,PETSC_SCALAR,2);CHKERRQ(ierr); 40 ierr = PetscByteSwap(sdouble,PETSC_DOUBLE,2);CHKERRQ(ierr); 41 ierr = PetscByteSwap(sfloat,PETSC_FLOAT,2);CHKERRQ(ierr); 42 ierr = PetscByteSwap(sshort,PETSC_SHORT,2);CHKERRQ(ierr); 43 44 if ((sint[0] !=oint[0])|| (sint[1] != oint[1])) {ierr = PetscPrintf(PETSC_COMM_SELF,"Byteswap mismatch for PETSC_INT\n");CHKERRQ(ierr);} 45 if ((sbool[0] !=obool[0])|| (sbool[1] != obool[1])) {ierr = PetscPrintf(PETSC_COMM_SELF,"Byteswap mismatch for PETSC_BOOL\n");CHKERRQ(ierr);} 46 if ((sscalar[0] !=oscalar[0])|| (sscalar[1] != oscalar[1])) {ierr = PetscPrintf(PETSC_COMM_SELF,"Byteswap mismatch for PETSC_SCALAR\n");CHKERRQ(ierr);} 47 if ((sdouble[0] !=odouble[0])|| (sdouble[1] != odouble[1])) {ierr = PetscPrintf(PETSC_COMM_SELF,"Byteswap mismatch for PETSC_DOUBLE\n");CHKERRQ(ierr);} 48 if ((sfloat[0] !=ofloat[0])|| (sfloat[1] != ofloat[1])) {ierr = PetscPrintf(PETSC_COMM_SELF,"Byteswap mismatch for PETSC_FLOAT\n");CHKERRQ(ierr);} 49 if ((sshort[0] !=oshort[0])|| (sshort[1] != oshort[1])) {ierr = PetscPrintf(PETSC_COMM_SELF,"Byteswap mismatch for PETSC_SHORT\n");CHKERRQ(ierr);} 50 51 ierr = PetscFinalize(); 52 return ierr; 53 } 54 55 56 /*TEST 57 58 test: 59 60 TEST*/ 61