Lines Matching refs:start2

178   PetscInt start2, len2
179   PetscScalar, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1)
189   PetscInt start2, len2
190   PetscReal, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1)
200   PetscInt start2, len2
201   PetscInt, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1)
211   PetscInt start2, len2
212   PetscFortranAddr, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1)
224   PetscInt start1, start2
227   start2 = lbound(ptr, 2)
228   call F90Array2dGetAddrScalar(ptr(start1, start2), address)
236   PetscInt start1, start2
239   start2 = lbound(ptr, 2)
240   call F90Array2dGetAddrReal(ptr(start1, start2), address)
248   PetscInt start1, start2
251   start2 = lbound(ptr, 2)
252   call F90Array2dGetAddrInt(ptr(start1, start2), address)
260   PetscInt start1, start2
263   start2 = lbound(ptr, 2)
264   call F90Array2dGetAddrFortranAddr(ptr(start1, start2), address)
306   PetscInt start2, len2
308 …PetscScalar, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1, start3:start3 + l…
318   PetscInt start2, len2
320 …PetscReal, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1, start3:start3 + len…
330   PetscInt start2, len2
332 …PetscInt, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1, start3:start3 + len3…
342   PetscInt start2, len2
344 …PetscFortranAddr, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1, start3:start…
356   PetscInt start1, start2, start3
359   start2 = lbound(ptr, 2)
361   call F90Array3dGetAddrScalar(ptr(start1, start2, start3), address)
369   PetscInt start1, start2, start3
372   start2 = lbound(ptr, 2)
374   call F90Array3dGetAddrReal(ptr(start1, start2, start3), address)
382   PetscInt start1, start2, start3
385   start2 = lbound(ptr, 2)
387   call F90Array3dGetAddrInt(ptr(start1, start2, start3), address)
395   PetscInt start1, start2, start3
398   start2 = lbound(ptr, 2)
400   call F90Array3dGetAddrFortranAddr(ptr(start1, start2, start3), address)
441   PetscInt start2, len2
444 …PetscScalar, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1, start3:start3 + l…
454   PetscInt start2, len2
457 …PetscReal, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1, start3:start3 + len…
467   PetscInt start2, len2
470 …PetscInt, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1, start3:start3 + len3…
480   PetscInt start2, len2
483 …PetscFortranAddr, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1, start3:start…
494   PetscInt start1, start2, start3, start4
497   start2 = lbound(ptr, 2)
500   call F90Array4dGetAddrScalar(ptr(start1, start2, start3, start4), address)
508   PetscInt start1, start2, start3, start4
511   start2 = lbound(ptr, 2)
514   call F90Array4dGetAddrReal(ptr(start1, start2, start3, start4), address)
522   PetscInt start1, start2, start3, start4
525   start2 = lbound(ptr, 2)
528   call F90Array4dGetAddrInt(ptr(start1, start2, start3, start4), address)
536   PetscFortranAddr start1, start2, start3, start4
539   start2 = lbound(ptr, 2)
542   call F90Array4dGetAddrFortranAddr(ptr(start1, start2, start3, start4), address)