Searched refs:itmp2 (Results 1 – 2 of 2) sorted by relevance
50 size_t itmp2; in PetscIntAddressToFortran() local55 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()70 if (base + itmp2 != addr) { in PetscIntAddressToFortran()76 return itmp2; in PetscIntAddressToFortran()98 size_t itmp2; in PetscScalarAddressToFortran() local105 itmp2 = (size_t)tmp2; in PetscScalarAddressToFortran()109 itmp2 = -((size_t)tmp2); in PetscScalarAddressToFortran()[all …]
21 integer :: itmp1, itmp2, ioffset, i local24 itmp2 = mod(total, num_pieces)26 do i = 1, itmp231 do i = itmp2 + 1, num_pieces