Lines Matching refs:shift
99 PetscInt shift; in PetscScalarAddressToFortran() local
106 …shift = (align * sizeof(PetscScalar) - (PetscInt)((tmp3 - tmp1) % (align * sizeof(PetscScalar)))) … in PetscScalarAddressToFortran()
110 shift = (PetscInt)((tmp1 - tmp3) % (align * sizeof(PetscScalar))); in PetscScalarAddressToFortran()
120 shift = 0; in PetscScalarAddressToFortran()
123 if (shift) { 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()
142 work = (PetscScalar *)(((char *)work) + shift); in PetscScalarAddressToFortran()
146 ((PetscInt *)addr)[0] = shift; in PetscScalarAddressToFortran()
156 …shift = (align * sizeof(PetscScalar) - (PetscInt)((tmp3 - tmp1) % (align * sizeof(PetscScalar)))) … in PetscScalarAddressToFortran()
160 shift = (PetscInt)((tmp1 - tmp3) % (align * sizeof(PetscScalar))); in PetscScalarAddressToFortran()
162 if (shift) { in PetscScalarAddressToFortran()
185 PetscInt shift; in PetscScalarAddressFromFortran() local
195 shift = *(PetscInt *)*lx; in PetscScalarAddressFromFortran()
197 tlx = (PetscScalar *)((char *)tlx - shift); in PetscScalarAddressFromFortran()