49   size_t tmp3 = (size_t)addr;  in PetscIntAddressToFortran()  local
53   if (tmp3 > tmp1) {  in PetscIntAddressToFortran()
54     tmp2  = (tmp3 - tmp1) / sizeof(PetscInt);  in PetscIntAddressToFortran()
57     tmp2  = (tmp1 - tmp3) / sizeof(PetscInt);  in PetscIntAddressToFortran()
61   if (tmp3 > tmp1) {  in PetscIntAddressToFortran()
62     tmp2  = (tmp3 - tmp1);  in PetscIntAddressToFortran()
65     tmp2  = (tmp1 - tmp3);  in PetscIntAddressToFortran()
73 …PETSC_COMM_SELF, (*PetscErrorPrintf)("by an integer. Locations: C %zu Fortran %zu\n", tmp1, tmp3));  in PetscIntAddressToFortran()
97   size_t   tmp3 = (size_t)addr;  in PetscScalarAddressToFortran()  local
103   if (tmp3 > tmp1) { /* C is bigger than Fortran */  in PetscScalarAddressToFortran()
104     tmp2  = (tmp3 - tmp1) / sizeof(PetscScalar);  in PetscScalarAddressToFortran()
106 …shift = (align * sizeof(PetscScalar) - (PetscInt)((tmp3 - tmp1) % (align * sizeof(PetscScalar)))) …  in PetscScalarAddressToFortran()
108     tmp2  = (tmp1 - tmp3) / sizeof(PetscScalar);  in PetscScalarAddressToFortran()
110     shift = (PetscInt)((tmp1 - tmp3) % (align * sizeof(PetscScalar)));  in PetscScalarAddressToFortran()
113   if (tmp3 > tmp1) { /* C is bigger than Fortran */  in PetscScalarAddressToFortran()
114     tmp2  = (tmp3 - tmp1);  in PetscScalarAddressToFortran()
117     tmp2  = (tmp1 - tmp3);  in PetscScalarAddressToFortran()
134     tmp3 = (size_t)work;  in PetscScalarAddressToFortran()
135     if (tmp3 > tmp1) { /* C is bigger than Fortran */  in PetscScalarAddressToFortran()
136 …shift = (align * sizeof(PetscScalar) - (PetscInt)((tmp3 - tmp1) % (align * sizeof(PetscScalar)))) …  in PetscScalarAddressToFortran()
138       shift = (PetscInt)((tmp1 - tmp3) % (align * sizeof(PetscScalar)));  in PetscScalarAddressToFortran()
152     tmp3 = (size_t)work;  in PetscScalarAddressToFortran()
153     if (tmp3 > tmp1) { /* C is bigger than Fortran */  in PetscScalarAddressToFortran()
154       tmp2  = (tmp3 - tmp1) / sizeof(PetscScalar);  in PetscScalarAddressToFortran()
156 …shift = (align * sizeof(PetscScalar) - (PetscInt)((tmp3 - tmp1) % (align * sizeof(PetscScalar)))) …  in PetscScalarAddressToFortran()
158       tmp2  = (tmp1 - tmp3) / sizeof(PetscScalar);  in PetscScalarAddressToFortran()
160       shift = (PetscInt)((tmp1 - tmp3) % (align * sizeof(PetscScalar)));  in PetscScalarAddressToFortran()
165 …("Locations/sizeof(PetscScalar): C %g Fortran %g\n", (double)(((PetscReal)tmp3) / (PetscReal)sizeo…  in PetscScalarAddressToFortran()