Lines Matching refs:start1

177   PetscInt start1, len1
179   PetscScalar, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1)
188   PetscInt start1, len1
190   PetscReal, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1)
199   PetscInt start1, len1
201   PetscInt, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1)
210   PetscInt start1, len1
212   PetscFortranAddr, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1)
224   PetscInt start1, start2
226   start1 = lbound(ptr, 1)
228   call F90Array2dGetAddrScalar(ptr(start1, start2), address)
236   PetscInt start1, start2
238   start1 = lbound(ptr, 1)
240   call F90Array2dGetAddrReal(ptr(start1, start2), address)
248   PetscInt start1, start2
250   start1 = lbound(ptr, 1)
252   call F90Array2dGetAddrInt(ptr(start1, start2), address)
260   PetscInt start1, start2
262   start1 = lbound(ptr, 1)
264   call F90Array2dGetAddrFortranAddr(ptr(start1, start2), address)
305   PetscInt start1, len1
308 …PetscScalar, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1, start3:start3 + l…
317   PetscInt start1, len1
320 …PetscReal, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1, start3:start3 + len…
329   PetscInt start1, len1
332 …PetscInt, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1, start3:start3 + len3…
341   PetscInt start1, len1
344 …PetscFortranAddr, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1, start3:start…
356   PetscInt start1, start2, start3
358   start1 = lbound(ptr, 1)
361   call F90Array3dGetAddrScalar(ptr(start1, start2, start3), address)
369   PetscInt start1, start2, start3
371   start1 = lbound(ptr, 1)
374   call F90Array3dGetAddrReal(ptr(start1, start2, start3), address)
382   PetscInt start1, start2, start3
384   start1 = lbound(ptr, 1)
387   call F90Array3dGetAddrInt(ptr(start1, start2, start3), address)
395   PetscInt start1, start2, start3
397   start1 = lbound(ptr, 1)
400   call F90Array3dGetAddrFortranAddr(ptr(start1, start2, start3), address)
440   PetscInt start1, len1
444 …PetscScalar, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1, start3:start3 + l…
453   PetscInt start1, len1
457 …PetscReal, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1, start3:start3 + len…
466   PetscInt start1, len1
470 …PetscInt, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1, start3:start3 + len3…
479   PetscInt start1, len1
483 …PetscFortranAddr, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1, start3:start…
494   PetscInt start1, start2, start3, start4
496   start1 = lbound(ptr, 1)
500   call F90Array4dGetAddrScalar(ptr(start1, start2, start3, start4), address)
508   PetscInt start1, start2, start3, start4
510   start1 = lbound(ptr, 1)
514   call F90Array4dGetAddrReal(ptr(start1, start2, start3, start4), address)
522   PetscInt start1, start2, start3, start4
524   start1 = lbound(ptr, 1)
528   call F90Array4dGetAddrInt(ptr(start1, start2, start3, start4), address)
536   PetscFortranAddr start1, start2, start3, start4
538   start1 = lbound(ptr, 1)
542   call F90Array4dGetAddrFortranAddr(ptr(start1, start2, start3, start4), address)