46 size_t PetscIntAddressToFortran(const PetscInt *base, const PetscInt *addr)  in PetscIntAddressToFortran()
48   size_t tmp1 = (size_t)base, tmp2 = 0;  in PetscIntAddressToFortran()
49   size_t tmp3 = (size_t)addr;  in PetscIntAddressToFortran()
50   size_t itmp2;  in PetscIntAddressToFortran()
55     itmp2 = (size_t)tmp2;  in PetscIntAddressToFortran()
58     itmp2 = -((size_t)tmp2);  in PetscIntAddressToFortran()
63     itmp2 = (size_t)tmp2;  in PetscIntAddressToFortran()
66     itmp2 = -((size_t)tmp2);  in PetscIntAddressToFortran()
79 PetscInt *PetscIntAddressFromFortran(const PetscInt *base, size_t addr)  in PetscIntAddressFromFortran()
94 …ran(PetscObject obj, PetscInt align, PetscScalar *base, PetscScalar *addr, PetscInt N, size_t *res)  in PetscScalarAddressToFortran()
96   size_t   tmp1 = (size_t)base, tmp2;  in PetscScalarAddressToFortran()
97   size_t   tmp3 = (size_t)addr;  in PetscScalarAddressToFortran()
98   size_t   itmp2;  in PetscScalarAddressToFortran()
105     itmp2 = (size_t)tmp2;  in PetscScalarAddressToFortran()
109     itmp2 = -((size_t)tmp2);  in PetscScalarAddressToFortran()
115     itmp2 = (size_t)tmp2;  in PetscScalarAddressToFortran()
118     itmp2 = -((size_t)tmp2);  in PetscScalarAddressToFortran()
134     tmp3 = (size_t)work;  in PetscScalarAddressToFortran()
152     tmp3 = (size_t)work;  in PetscScalarAddressToFortran()
155       itmp2 = (size_t)tmp2;  in PetscScalarAddressToFortran()
159       itmp2 = -((size_t)tmp2);  in PetscScalarAddressToFortran()
183 PetscErrorCode PetscScalarAddressFromFortran(PetscObject obj, PetscScalar *base, size_t addr, Petsc…  in PetscScalarAddressFromFortran()