Lines Matching refs:ptr
10 PetscScalar, pointer :: ptr(:)
12 ptr => array
20 PetscReal, pointer :: ptr(:)
22 ptr => array
30 PetscInt, pointer :: ptr(:)
32 ptr => array
40 PetscMPIInt, pointer :: ptr(:)
42 ptr => array
50 PetscFortranAddr, pointer :: ptr(:)
52 ptr => array
59 PetscScalar, pointer :: ptr(:)
63 if (.not. associated(ptr)) then
66 start = lbound(ptr, 1)
67 call F90Array1dGetAddrScalar(ptr(start), address)
74 PetscReal, pointer :: ptr(:)
78 if (.not. associated(ptr)) then
81 start = lbound(ptr, 1)
82 call F90Array1dGetAddrReal(ptr(start), address)
89 PetscInt, pointer :: ptr(:)
93 if (.not. associated(ptr)) then
96 start = lbound(ptr, 1)
97 call F90Array1dGetAddrInt(ptr(start), address)
104 PetscMPIInt, pointer :: ptr(:)
108 if (.not. associated(ptr)) then
111 start = lbound(ptr, 1)
112 call F90Array1dGetAddrMPIInt(ptr(start), address)
119 PetscFortranAddr, pointer :: ptr(:)
123 if (.not. associated(ptr)) then
126 start = lbound(ptr, 1)
127 call F90Array1dGetAddrFortranAddr(ptr(start), address)
135 PetscScalar, pointer :: ptr(:)
137 nullify (ptr)
143 PetscReal, pointer :: ptr(:)
145 nullify (ptr)
151 PetscInt, pointer :: ptr(:)
153 nullify (ptr)
159 PetscMPIInt, pointer :: ptr(:)
161 nullify (ptr)
167 PetscFortranAddr, pointer :: ptr(:)
169 nullify (ptr)
180 PetscScalar, pointer :: ptr(:, :)
182 ptr => array
191 PetscReal, pointer :: ptr(:, :)
193 ptr => array
202 PetscInt, pointer :: ptr(:, :)
204 ptr => array
213 PetscFortranAddr, pointer :: ptr(:, :)
215 ptr => array
222 PetscScalar, pointer :: ptr(:, :)
226 start1 = lbound(ptr, 1)
227 start2 = lbound(ptr, 2)
228 call F90Array2dGetAddrScalar(ptr(start1, start2), address)
234 PetscReal, pointer :: ptr(:, :)
238 start1 = lbound(ptr, 1)
239 start2 = lbound(ptr, 2)
240 call F90Array2dGetAddrReal(ptr(start1, start2), address)
246 PetscInt, pointer :: ptr(:, :)
250 start1 = lbound(ptr, 1)
251 start2 = lbound(ptr, 2)
252 call F90Array2dGetAddrInt(ptr(start1, start2), address)
258 PetscFortranAddr, pointer :: ptr(:, :)
262 start1 = lbound(ptr, 1)
263 start2 = lbound(ptr, 2)
264 call F90Array2dGetAddrFortranAddr(ptr(start1, start2), address)
271 PetscScalar, pointer :: ptr(:, :)
273 nullify (ptr)
279 PetscReal, pointer :: ptr(:, :)
281 nullify (ptr)
287 PetscInt, pointer :: ptr(:, :)
289 nullify (ptr)
295 PetscFortranAddr, pointer :: ptr(:, :)
297 nullify (ptr)
309 PetscScalar, pointer :: ptr(:, :, :)
311 ptr => array
321 PetscReal, pointer :: ptr(:, :, :)
323 ptr => array
333 PetscInt, pointer :: ptr(:, :, :)
335 ptr => array
345 PetscFortranAddr, pointer :: ptr(:, :, :)
347 ptr => array
354 PetscScalar, pointer :: ptr(:, :, :)
358 start1 = lbound(ptr, 1)
359 start2 = lbound(ptr, 2)
360 start3 = lbound(ptr, 3)
361 call F90Array3dGetAddrScalar(ptr(start1, start2, start3), address)
367 PetscReal, pointer :: ptr(:, :, :)
371 start1 = lbound(ptr, 1)
372 start2 = lbound(ptr, 2)
373 start3 = lbound(ptr, 3)
374 call F90Array3dGetAddrReal(ptr(start1, start2, start3), address)
380 PetscInt, pointer :: ptr(:, :, :)
384 start1 = lbound(ptr, 1)
385 start2 = lbound(ptr, 2)
386 start3 = lbound(ptr, 3)
387 call F90Array3dGetAddrInt(ptr(start1, start2, start3), address)
393 PetscFortranAddr, pointer :: ptr(:, :, :)
397 start1 = lbound(ptr, 1)
398 start2 = lbound(ptr, 2)
399 start3 = lbound(ptr, 3)
400 call F90Array3dGetAddrFortranAddr(ptr(start1, start2, start3), address)
407 PetscScalar, pointer :: ptr(:, :, :)
409 nullify (ptr)
415 PetscReal, pointer :: ptr(:, :, :)
417 nullify (ptr)
423 PetscInt, pointer :: ptr(:, :, :)
425 nullify (ptr)
431 PetscFortranAddr, pointer :: ptr(:, :, :)
433 nullify (ptr)
445 PetscScalar, pointer :: ptr(:, :, :, :)
447 ptr => array
458 PetscReal, pointer :: ptr(:, :, :, :)
460 ptr => array
471 PetscInt, pointer :: ptr(:, :, :, :)
473 ptr => array
484 PetscFortranAddr, pointer :: ptr(:, :, :, :)
486 ptr => array
492 PetscScalar, pointer :: ptr(:, :, :, :)
496 start1 = lbound(ptr, 1)
497 start2 = lbound(ptr, 2)
498 start3 = lbound(ptr, 3)
499 start4 = lbound(ptr, 4)
500 call F90Array4dGetAddrScalar(ptr(start1, start2, start3, start4), address)
506 PetscReal, pointer :: ptr(:, :, :, :)
510 start1 = lbound(ptr, 1)
511 start2 = lbound(ptr, 2)
512 start3 = lbound(ptr, 3)
513 start4 = lbound(ptr, 4)
514 call F90Array4dGetAddrReal(ptr(start1, start2, start3, start4), address)
520 PetscInt, pointer :: ptr(:, :, :, :)
524 start1 = lbound(ptr, 1)
525 start2 = lbound(ptr, 2)
526 start3 = lbound(ptr, 3)
527 start4 = lbound(ptr, 4)
528 call F90Array4dGetAddrInt(ptr(start1, start2, start3, start4), address)
534 PetscScalar, pointer :: ptr(:, :, :, :)
538 start1 = lbound(ptr, 1)
539 start2 = lbound(ptr, 2)
540 start3 = lbound(ptr, 3)
541 start4 = lbound(ptr, 4)
542 call F90Array4dGetAddrFortranAddr(ptr(start1, start2, start3, start4), address)
548 PetscScalar, pointer :: ptr(:, :, :, :)
550 nullify (ptr)
556 PetscReal, pointer :: ptr(:, :, :, :)
558 nullify (ptr)
564 PetscInt, pointer :: ptr(:, :, :, :)
566 nullify (ptr)
572 PetscFortranAddr, pointer :: ptr(:, :, :, :)
574 nullify (ptr)