PDI 1.9.0-alpha.2025-02-20

the PDI data interface

pdif.h
1!******************************************************************************
2! Copyright (C) 2015-2022 Commissariat a l'energie atomique et aux energies alternatives (CEA)
3! Copyright (C) 2022 Centre national de la recherche scientifique (CNRS)
4! All rights reserved.
5!
6! Redistribution and use in source and binary forms, with or without
7! modification, are permitted provided that the following conditions are met:
8! * Redistributions of source code must retain the above copyright
9! notice, this list of conditions and the following disclaimer.
10! * Redistributions in binary form must reproduce the above copyright
11! notice, this list of conditions and the following disclaimer in the
12! documentation and/or other materials provided with the distribution.
13! * Neither the name of CEA nor the names of its contributors may be used to
14! endorse or promote products derived from this software without specific
15! prior written permission.
16!
17! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
18! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
19! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
20! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
21! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
22! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
23! THE SOFTWARE.
24!******************************************************************************
25
26
27!> These are the values for enum PDI_inout_t
28!! \{
29integer, parameter :: PDI_NONE = 0
30integer, parameter :: PDI_IN = 1
31integer, parameter :: PDI_OUT = 2
32integer, parameter :: PDI_INOUT = 3
33!> \}
34
35
36interface
37
38 !=============================================================================
39 !< initializes PDI
40 !! \param[IN] treeconf the configuration
41 !! \param[OUT] err for error status (optional)
42 subroutine PDI_init(treeconf, err)
43 use paraconf
44 type(PC_tree_t), intent(IN) :: treeconf
45 integer, intent(OUT), optional :: err
46 endsubroutine PDI_init
47 !=============================================================================
48
49
50 !=============================================================================
51 !< finalizes PDI
52 !! \param[OUT] err for error status (optional)
53 subroutine PDI_finalize(err)
54 integer, intent(OUT), optional :: err
55 endsubroutine PDI_finalize
56 !=============================================================================
57
58
59 !=============================================================================
60 !< triggers a PDI "event"
61 !! \param[IN] event the event name
62 !! \param[OUT] err for error status (optional)
63 subroutine PDI_event(event, err)
64 character(len=*), intent(IN) :: event
65 integer, intent(OUT), optional :: err
66 endsubroutine PDI_event
67 !=============================================================================
68
69
70 !=============================================================================
71 !< wrapper for PDI_release :
72 !! releases ownership of a data shared with PDI. PDI is then responsible to
73 !! free the associated memory whenever necessary.
74 !! \param[IN] name name of the data to release
75 !! \param[OUT] err for error status (optional)
76 !! \pre ownership of the data buffer is shared between PDI and the user code
77 !! \pre PDI owns the data buffer
78 subroutine PDI_release(name, err)
79 character(len=*), intent(IN) :: name
80 integer, intent(OUT), optional :: err
81 endsubroutine PDI_release
82 !=============================================================================
83
84
85 !=============================================================================
86 !< wrapper for PDI_reclaim :
87 !! reclaims ownership of a data buffer shared with PDI. PDI is then
88 !! responsible to free the associated memory whenever necessary.
89 !! \param[IN] name name of the data to reclaim
90 !! \param[OUT] err for error status (optional)
91 !! \pre ownership of the data buffer is shared between PDI and the user code
92 !! \post the user code owns the data buffer
93 subroutine PDI_reclaim(name, err)
94 character(len=*), intent(IN) :: name
95 integer, intent(OUT), optional :: err
96 endsubroutine PDI_reclaim
97 !=============================================================================
98
99
100 !=============================================================================
101 !< Begin a transaction. All the ::PDI_expose will be exposed together.
102 !!
103 !! This requires a ::PDI_transaction_end to close the transaction.
104 !!
105 !! \param[in] name the name of the transaction (an event thus named will be
106 !! triggered when all data become available)
107 !! \param[out] err an error status
108 subroutine PDI_transaction_begin( name, err )
109 character(len=*), intent(IN) :: name
110 integer, intent(OUT), optional :: err
111 endsubroutine PDI_transaction_begin
112 !=============================================================================
113
114
115 !=============================================================================
116 !< Ends the previously opened transaction.
117 !! \param[out] err an error status
118 subroutine PDI_transaction_end( err )
119 integer, intent(OUT), optional :: err
120 endsubroutine PDI_transaction_end
121 !=============================================================================
122
123
124 !=============================================================================
125 !< shares some data with PDI. the user code should not modify it before
126 !! a call to either PDI_release or PDI_reclaim.
127 !! \param[IN] name the data name
128 !! \param[IN,OUT] data the data to share
129 !! \param[IN] access whether the data can be accessed for read or write by
130 !! PDI
131 !! \param[OUT] err for error status (optional)
132 !! \pre the user code owns the data buffer
133 !! \post ownership of the data buffer is shared between PDI and the user code
134 !!
135 !! the access parameter is a binary or of PDI_IN & PDI_OUT.
136 !! * PDI_IN means PDI can set the buffer content
137 !! * PDI_OUT means the buffer contains data that can be accessed by PDI
138 subroutine PDI_share(name, data, accessf, err)
139 character(len=*), intent(IN) :: name
140 TYPE(*), target, asynchronous :: data(..)
141 integer, intent(IN) :: accessf
142 integer, intent(OUT), optional :: err
143 endsubroutine PDI_share
144 !=============================================================================
145
146
147 !=============================================================================
148 !< shortly exposes some data to PDI. equivalent to PDI_share + PDI_reclaim.
149 !! \param[IN] name the data name
150 !! \param[IN] data the exposed data
151 !! \param[IN] access whether the data can be accessed for read or write by
152 !! PDI
153 !! \param[OUT] err for error status (optional)
154 subroutine PDI_expose(name, data, accessf, err)
155 character(len=*), intent(IN) :: name
156 TYPE(*), target, asynchronous :: data(..)
157 integer, intent(IN) :: accessf
158 integer, intent(OUT), optional :: err
159 endsubroutine PDI_expose
160 !=============================================================================
161
162endinterface
163
164
165interface PDI_access
166
167 !=============================================================================
168 !< requests for PDI to access a data buffer.
169 !! \param[IN] name the data name
170 !! \param[OUT] ptr_data pointer associated with the accessd data
171 !! \param[IN] access whether the data can be accessed for read or write by
172 !! PDI
173 !! \param[OUT] err for error status (optional)
174 subroutine PDI_access_CHARACTER1_0D(name, ptr_data, access, &
175 err)
176 character(len=*), intent(IN) :: name
177 CHARACTER(KIND=1), pointer &
178 :: ptr_data
179 integer, intent(IN) :: access
180 integer, intent(OUT), optional :: err
181 endsubroutine PDI_access_CHARACTER1_0D
182 !=============================================================================
183
184
185 !=============================================================================
186 !< requests for PDI to access a data buffer.
187 !! \param[IN] name the data name
188 !! \param[OUT] ptr_data pointer associated with the accessd data
189 !! \param[IN] access whether the data can be accessed for read or write by
190 !! PDI
191 !! \param[OUT] err for error status (optional)
192 subroutine PDI_access_CHARACTER1_1D(name, ptr_data, access, &
193 ptr_data_shape, &
194 err)
195 character(len=*), intent(IN) :: name
196 CHARACTER(KIND=1), pointer &
197 , contiguous &
198 :: ptr_data(:)
199 integer, intent(IN) :: access
200 integer, intent(IN) :: ptr_data_shape(1)
201 integer, intent(OUT), optional :: err
202 endsubroutine PDI_access_CHARACTER1_1D
203 !=============================================================================
204
205
206 !=============================================================================
207 !< requests for PDI to access a data buffer.
208 !! \param[IN] name the data name
209 !! \param[OUT] ptr_data pointer associated with the accessd data
210 !! \param[IN] access whether the data can be accessed for read or write by
211 !! PDI
212 !! \param[OUT] err for error status (optional)
213 subroutine PDI_access_CHARACTER1_2D(name, ptr_data, access, &
214 ptr_data_shape, &
215 err)
216 character(len=*), intent(IN) :: name
217 CHARACTER(KIND=1), pointer &
218 , contiguous &
219 :: ptr_data(:,:)
220 integer, intent(IN) :: access
221 integer, intent(IN) :: ptr_data_shape(2)
222 integer, intent(OUT), optional :: err
223 endsubroutine PDI_access_CHARACTER1_2D
224 !=============================================================================
225
226
227 !=============================================================================
228 !< requests for PDI to access a data buffer.
229 !! \param[IN] name the data name
230 !! \param[OUT] ptr_data pointer associated with the accessd data
231 !! \param[IN] access whether the data can be accessed for read or write by
232 !! PDI
233 !! \param[OUT] err for error status (optional)
234 subroutine PDI_access_CHARACTER1_3D(name, ptr_data, access, &
235 ptr_data_shape, &
236 err)
237 character(len=*), intent(IN) :: name
238 CHARACTER(KIND=1), pointer &
239 , contiguous &
240 :: ptr_data(:,:,:)
241 integer, intent(IN) :: access
242 integer, intent(IN) :: ptr_data_shape(3)
243 integer, intent(OUT), optional :: err
244 endsubroutine PDI_access_CHARACTER1_3D
245 !=============================================================================
246
247
248 !=============================================================================
249 !< requests for PDI to access a data buffer.
250 !! \param[IN] name the data name
251 !! \param[OUT] ptr_data pointer associated with the accessd data
252 !! \param[IN] access whether the data can be accessed for read or write by
253 !! PDI
254 !! \param[OUT] err for error status (optional)
255 subroutine PDI_access_CHARACTER1_4D(name, ptr_data, access, &
256 ptr_data_shape, &
257 err)
258 character(len=*), intent(IN) :: name
259 CHARACTER(KIND=1), pointer &
260 , contiguous &
261 :: ptr_data(:,:,:,:)
262 integer, intent(IN) :: access
263 integer, intent(IN) :: ptr_data_shape(4)
264 integer, intent(OUT), optional :: err
265 endsubroutine PDI_access_CHARACTER1_4D
266 !=============================================================================
267
268
269 !=============================================================================
270 !< requests for PDI to access a data buffer.
271 !! \param[IN] name the data name
272 !! \param[OUT] ptr_data pointer associated with the accessd data
273 !! \param[IN] access whether the data can be accessed for read or write by
274 !! PDI
275 !! \param[OUT] err for error status (optional)
276 subroutine PDI_access_CHARACTER1_5D(name, ptr_data, access, &
277 ptr_data_shape, &
278 err)
279 character(len=*), intent(IN) :: name
280 CHARACTER(KIND=1), pointer &
281 , contiguous &
282 :: ptr_data(:,:,:,:,:)
283 integer, intent(IN) :: access
284 integer, intent(IN) :: ptr_data_shape(5)
285 integer, intent(OUT), optional :: err
286 endsubroutine PDI_access_CHARACTER1_5D
287 !=============================================================================
288
289
290 !=============================================================================
291 !< requests for PDI to access a data buffer.
292 !! \param[IN] name the data name
293 !! \param[OUT] ptr_data pointer associated with the accessd data
294 !! \param[IN] access whether the data can be accessed for read or write by
295 !! PDI
296 !! \param[OUT] err for error status (optional)
297 subroutine PDI_access_CHARACTER1_6D(name, ptr_data, access, &
298 ptr_data_shape, &
299 err)
300 character(len=*), intent(IN) :: name
301 CHARACTER(KIND=1), pointer &
302 , contiguous &
303 :: ptr_data(:,:,:,:,:,:)
304 integer, intent(IN) :: access
305 integer, intent(IN) :: ptr_data_shape(6)
306 integer, intent(OUT), optional :: err
307 endsubroutine PDI_access_CHARACTER1_6D
308 !=============================================================================
309
310
311 !=============================================================================
312 !< requests for PDI to access a data buffer.
313 !! \param[IN] name the data name
314 !! \param[OUT] ptr_data pointer associated with the accessd data
315 !! \param[IN] access whether the data can be accessed for read or write by
316 !! PDI
317 !! \param[OUT] err for error status (optional)
318 subroutine PDI_access_CHARACTER1_7D(name, ptr_data, access, &
319 ptr_data_shape, &
320 err)
321 character(len=*), intent(IN) :: name
322 CHARACTER(KIND=1), pointer &
323 , contiguous &
324 :: ptr_data(:,:,:,:,:,:,:)
325 integer, intent(IN) :: access
326 integer, intent(IN) :: ptr_data_shape(7)
327 integer, intent(OUT), optional :: err
328 endsubroutine PDI_access_CHARACTER1_7D
329 !=============================================================================
330
331
332 !=============================================================================
333 !< requests for PDI to access a data buffer.
334 !! \param[IN] name the data name
335 !! \param[OUT] ptr_data pointer associated with the accessd data
336 !! \param[IN] access whether the data can be accessed for read or write by
337 !! PDI
338 !! \param[OUT] err for error status (optional)
339 subroutine PDI_access_CHARACTER4_0D(name, ptr_data, access, &
340 err)
341 character(len=*), intent(IN) :: name
342 CHARACTER(KIND=4), pointer &
343 :: ptr_data
344 integer, intent(IN) :: access
345 integer, intent(OUT), optional :: err
346 endsubroutine PDI_access_CHARACTER4_0D
347 !=============================================================================
348
349
350 !=============================================================================
351 !< requests for PDI to access a data buffer.
352 !! \param[IN] name the data name
353 !! \param[OUT] ptr_data pointer associated with the accessd data
354 !! \param[IN] access whether the data can be accessed for read or write by
355 !! PDI
356 !! \param[OUT] err for error status (optional)
357 subroutine PDI_access_CHARACTER4_1D(name, ptr_data, access, &
358 ptr_data_shape, &
359 err)
360 character(len=*), intent(IN) :: name
361 CHARACTER(KIND=4), pointer &
362 , contiguous &
363 :: ptr_data(:)
364 integer, intent(IN) :: access
365 integer, intent(IN) :: ptr_data_shape(1)
366 integer, intent(OUT), optional :: err
367 endsubroutine PDI_access_CHARACTER4_1D
368 !=============================================================================
369
370
371 !=============================================================================
372 !< requests for PDI to access a data buffer.
373 !! \param[IN] name the data name
374 !! \param[OUT] ptr_data pointer associated with the accessd data
375 !! \param[IN] access whether the data can be accessed for read or write by
376 !! PDI
377 !! \param[OUT] err for error status (optional)
378 subroutine PDI_access_CHARACTER4_2D(name, ptr_data, access, &
379 ptr_data_shape, &
380 err)
381 character(len=*), intent(IN) :: name
382 CHARACTER(KIND=4), pointer &
383 , contiguous &
384 :: ptr_data(:,:)
385 integer, intent(IN) :: access
386 integer, intent(IN) :: ptr_data_shape(2)
387 integer, intent(OUT), optional :: err
388 endsubroutine PDI_access_CHARACTER4_2D
389 !=============================================================================
390
391
392 !=============================================================================
393 !< requests for PDI to access a data buffer.
394 !! \param[IN] name the data name
395 !! \param[OUT] ptr_data pointer associated with the accessd data
396 !! \param[IN] access whether the data can be accessed for read or write by
397 !! PDI
398 !! \param[OUT] err for error status (optional)
399 subroutine PDI_access_CHARACTER4_3D(name, ptr_data, access, &
400 ptr_data_shape, &
401 err)
402 character(len=*), intent(IN) :: name
403 CHARACTER(KIND=4), pointer &
404 , contiguous &
405 :: ptr_data(:,:,:)
406 integer, intent(IN) :: access
407 integer, intent(IN) :: ptr_data_shape(3)
408 integer, intent(OUT), optional :: err
409 endsubroutine PDI_access_CHARACTER4_3D
410 !=============================================================================
411
412
413 !=============================================================================
414 !< requests for PDI to access a data buffer.
415 !! \param[IN] name the data name
416 !! \param[OUT] ptr_data pointer associated with the accessd data
417 !! \param[IN] access whether the data can be accessed for read or write by
418 !! PDI
419 !! \param[OUT] err for error status (optional)
420 subroutine PDI_access_CHARACTER4_4D(name, ptr_data, access, &
421 ptr_data_shape, &
422 err)
423 character(len=*), intent(IN) :: name
424 CHARACTER(KIND=4), pointer &
425 , contiguous &
426 :: ptr_data(:,:,:,:)
427 integer, intent(IN) :: access
428 integer, intent(IN) :: ptr_data_shape(4)
429 integer, intent(OUT), optional :: err
430 endsubroutine PDI_access_CHARACTER4_4D
431 !=============================================================================
432
433
434 !=============================================================================
435 !< requests for PDI to access a data buffer.
436 !! \param[IN] name the data name
437 !! \param[OUT] ptr_data pointer associated with the accessd data
438 !! \param[IN] access whether the data can be accessed for read or write by
439 !! PDI
440 !! \param[OUT] err for error status (optional)
441 subroutine PDI_access_CHARACTER4_5D(name, ptr_data, access, &
442 ptr_data_shape, &
443 err)
444 character(len=*), intent(IN) :: name
445 CHARACTER(KIND=4), pointer &
446 , contiguous &
447 :: ptr_data(:,:,:,:,:)
448 integer, intent(IN) :: access
449 integer, intent(IN) :: ptr_data_shape(5)
450 integer, intent(OUT), optional :: err
451 endsubroutine PDI_access_CHARACTER4_5D
452 !=============================================================================
453
454
455 !=============================================================================
456 !< requests for PDI to access a data buffer.
457 !! \param[IN] name the data name
458 !! \param[OUT] ptr_data pointer associated with the accessd data
459 !! \param[IN] access whether the data can be accessed for read or write by
460 !! PDI
461 !! \param[OUT] err for error status (optional)
462 subroutine PDI_access_CHARACTER4_6D(name, ptr_data, access, &
463 ptr_data_shape, &
464 err)
465 character(len=*), intent(IN) :: name
466 CHARACTER(KIND=4), pointer &
467 , contiguous &
468 :: ptr_data(:,:,:,:,:,:)
469 integer, intent(IN) :: access
470 integer, intent(IN) :: ptr_data_shape(6)
471 integer, intent(OUT), optional :: err
472 endsubroutine PDI_access_CHARACTER4_6D
473 !=============================================================================
474
475
476 !=============================================================================
477 !< requests for PDI to access a data buffer.
478 !! \param[IN] name the data name
479 !! \param[OUT] ptr_data pointer associated with the accessd data
480 !! \param[IN] access whether the data can be accessed for read or write by
481 !! PDI
482 !! \param[OUT] err for error status (optional)
483 subroutine PDI_access_CHARACTER4_7D(name, ptr_data, access, &
484 ptr_data_shape, &
485 err)
486 character(len=*), intent(IN) :: name
487 CHARACTER(KIND=4), pointer &
488 , contiguous &
489 :: ptr_data(:,:,:,:,:,:,:)
490 integer, intent(IN) :: access
491 integer, intent(IN) :: ptr_data_shape(7)
492 integer, intent(OUT), optional :: err
493 endsubroutine PDI_access_CHARACTER4_7D
494 !=============================================================================
495
496
497 !=============================================================================
498 !< requests for PDI to access a data buffer.
499 !! \param[IN] name the data name
500 !! \param[OUT] ptr_data pointer associated with the accessd data
501 !! \param[IN] access whether the data can be accessed for read or write by
502 !! PDI
503 !! \param[OUT] err for error status (optional)
504 subroutine PDI_access_COMPLEX4_0D(name, ptr_data, access, &
505 err)
506 character(len=*), intent(IN) :: name
507 COMPLEX(KIND=4), pointer &
508 :: ptr_data
509 integer, intent(IN) :: access
510 integer, intent(OUT), optional :: err
511 endsubroutine PDI_access_COMPLEX4_0D
512 !=============================================================================
513
514
515 !=============================================================================
516 !< requests for PDI to access a data buffer.
517 !! \param[IN] name the data name
518 !! \param[OUT] ptr_data pointer associated with the accessd data
519 !! \param[IN] access whether the data can be accessed for read or write by
520 !! PDI
521 !! \param[OUT] err for error status (optional)
522 subroutine PDI_access_COMPLEX4_1D(name, ptr_data, access, &
523 ptr_data_shape, &
524 err)
525 character(len=*), intent(IN) :: name
526 COMPLEX(KIND=4), pointer &
527 , contiguous &
528 :: ptr_data(:)
529 integer, intent(IN) :: access
530 integer, intent(IN) :: ptr_data_shape(1)
531 integer, intent(OUT), optional :: err
532 endsubroutine PDI_access_COMPLEX4_1D
533 !=============================================================================
534
535
536 !=============================================================================
537 !< requests for PDI to access a data buffer.
538 !! \param[IN] name the data name
539 !! \param[OUT] ptr_data pointer associated with the accessd data
540 !! \param[IN] access whether the data can be accessed for read or write by
541 !! PDI
542 !! \param[OUT] err for error status (optional)
543 subroutine PDI_access_COMPLEX4_2D(name, ptr_data, access, &
544 ptr_data_shape, &
545 err)
546 character(len=*), intent(IN) :: name
547 COMPLEX(KIND=4), pointer &
548 , contiguous &
549 :: ptr_data(:,:)
550 integer, intent(IN) :: access
551 integer, intent(IN) :: ptr_data_shape(2)
552 integer, intent(OUT), optional :: err
553 endsubroutine PDI_access_COMPLEX4_2D
554 !=============================================================================
555
556
557 !=============================================================================
558 !< requests for PDI to access a data buffer.
559 !! \param[IN] name the data name
560 !! \param[OUT] ptr_data pointer associated with the accessd data
561 !! \param[IN] access whether the data can be accessed for read or write by
562 !! PDI
563 !! \param[OUT] err for error status (optional)
564 subroutine PDI_access_COMPLEX4_3D(name, ptr_data, access, &
565 ptr_data_shape, &
566 err)
567 character(len=*), intent(IN) :: name
568 COMPLEX(KIND=4), pointer &
569 , contiguous &
570 :: ptr_data(:,:,:)
571 integer, intent(IN) :: access
572 integer, intent(IN) :: ptr_data_shape(3)
573 integer, intent(OUT), optional :: err
574 endsubroutine PDI_access_COMPLEX4_3D
575 !=============================================================================
576
577
578 !=============================================================================
579 !< requests for PDI to access a data buffer.
580 !! \param[IN] name the data name
581 !! \param[OUT] ptr_data pointer associated with the accessd data
582 !! \param[IN] access whether the data can be accessed for read or write by
583 !! PDI
584 !! \param[OUT] err for error status (optional)
585 subroutine PDI_access_COMPLEX4_4D(name, ptr_data, access, &
586 ptr_data_shape, &
587 err)
588 character(len=*), intent(IN) :: name
589 COMPLEX(KIND=4), pointer &
590 , contiguous &
591 :: ptr_data(:,:,:,:)
592 integer, intent(IN) :: access
593 integer, intent(IN) :: ptr_data_shape(4)
594 integer, intent(OUT), optional :: err
595 endsubroutine PDI_access_COMPLEX4_4D
596 !=============================================================================
597
598
599 !=============================================================================
600 !< requests for PDI to access a data buffer.
601 !! \param[IN] name the data name
602 !! \param[OUT] ptr_data pointer associated with the accessd data
603 !! \param[IN] access whether the data can be accessed for read or write by
604 !! PDI
605 !! \param[OUT] err for error status (optional)
606 subroutine PDI_access_COMPLEX4_5D(name, ptr_data, access, &
607 ptr_data_shape, &
608 err)
609 character(len=*), intent(IN) :: name
610 COMPLEX(KIND=4), pointer &
611 , contiguous &
612 :: ptr_data(:,:,:,:,:)
613 integer, intent(IN) :: access
614 integer, intent(IN) :: ptr_data_shape(5)
615 integer, intent(OUT), optional :: err
616 endsubroutine PDI_access_COMPLEX4_5D
617 !=============================================================================
618
619
620 !=============================================================================
621 !< requests for PDI to access a data buffer.
622 !! \param[IN] name the data name
623 !! \param[OUT] ptr_data pointer associated with the accessd data
624 !! \param[IN] access whether the data can be accessed for read or write by
625 !! PDI
626 !! \param[OUT] err for error status (optional)
627 subroutine PDI_access_COMPLEX4_6D(name, ptr_data, access, &
628 ptr_data_shape, &
629 err)
630 character(len=*), intent(IN) :: name
631 COMPLEX(KIND=4), pointer &
632 , contiguous &
633 :: ptr_data(:,:,:,:,:,:)
634 integer, intent(IN) :: access
635 integer, intent(IN) :: ptr_data_shape(6)
636 integer, intent(OUT), optional :: err
637 endsubroutine PDI_access_COMPLEX4_6D
638 !=============================================================================
639
640
641 !=============================================================================
642 !< requests for PDI to access a data buffer.
643 !! \param[IN] name the data name
644 !! \param[OUT] ptr_data pointer associated with the accessd data
645 !! \param[IN] access whether the data can be accessed for read or write by
646 !! PDI
647 !! \param[OUT] err for error status (optional)
648 subroutine PDI_access_COMPLEX4_7D(name, ptr_data, access, &
649 ptr_data_shape, &
650 err)
651 character(len=*), intent(IN) :: name
652 COMPLEX(KIND=4), pointer &
653 , contiguous &
654 :: ptr_data(:,:,:,:,:,:,:)
655 integer, intent(IN) :: access
656 integer, intent(IN) :: ptr_data_shape(7)
657 integer, intent(OUT), optional :: err
658 endsubroutine PDI_access_COMPLEX4_7D
659 !=============================================================================
660
661
662 !=============================================================================
663 !< requests for PDI to access a data buffer.
664 !! \param[IN] name the data name
665 !! \param[OUT] ptr_data pointer associated with the accessd data
666 !! \param[IN] access whether the data can be accessed for read or write by
667 !! PDI
668 !! \param[OUT] err for error status (optional)
669 subroutine PDI_access_COMPLEX8_0D(name, ptr_data, access, &
670 err)
671 character(len=*), intent(IN) :: name
672 COMPLEX(KIND=8), pointer &
673 :: ptr_data
674 integer, intent(IN) :: access
675 integer, intent(OUT), optional :: err
676 endsubroutine PDI_access_COMPLEX8_0D
677 !=============================================================================
678
679
680 !=============================================================================
681 !< requests for PDI to access a data buffer.
682 !! \param[IN] name the data name
683 !! \param[OUT] ptr_data pointer associated with the accessd data
684 !! \param[IN] access whether the data can be accessed for read or write by
685 !! PDI
686 !! \param[OUT] err for error status (optional)
687 subroutine PDI_access_COMPLEX8_1D(name, ptr_data, access, &
688 ptr_data_shape, &
689 err)
690 character(len=*), intent(IN) :: name
691 COMPLEX(KIND=8), pointer &
692 , contiguous &
693 :: ptr_data(:)
694 integer, intent(IN) :: access
695 integer, intent(IN) :: ptr_data_shape(1)
696 integer, intent(OUT), optional :: err
697 endsubroutine PDI_access_COMPLEX8_1D
698 !=============================================================================
699
700
701 !=============================================================================
702 !< requests for PDI to access a data buffer.
703 !! \param[IN] name the data name
704 !! \param[OUT] ptr_data pointer associated with the accessd data
705 !! \param[IN] access whether the data can be accessed for read or write by
706 !! PDI
707 !! \param[OUT] err for error status (optional)
708 subroutine PDI_access_COMPLEX8_2D(name, ptr_data, access, &
709 ptr_data_shape, &
710 err)
711 character(len=*), intent(IN) :: name
712 COMPLEX(KIND=8), pointer &
713 , contiguous &
714 :: ptr_data(:,:)
715 integer, intent(IN) :: access
716 integer, intent(IN) :: ptr_data_shape(2)
717 integer, intent(OUT), optional :: err
718 endsubroutine PDI_access_COMPLEX8_2D
719 !=============================================================================
720
721
722 !=============================================================================
723 !< requests for PDI to access a data buffer.
724 !! \param[IN] name the data name
725 !! \param[OUT] ptr_data pointer associated with the accessd data
726 !! \param[IN] access whether the data can be accessed for read or write by
727 !! PDI
728 !! \param[OUT] err for error status (optional)
729 subroutine PDI_access_COMPLEX8_3D(name, ptr_data, access, &
730 ptr_data_shape, &
731 err)
732 character(len=*), intent(IN) :: name
733 COMPLEX(KIND=8), pointer &
734 , contiguous &
735 :: ptr_data(:,:,:)
736 integer, intent(IN) :: access
737 integer, intent(IN) :: ptr_data_shape(3)
738 integer, intent(OUT), optional :: err
739 endsubroutine PDI_access_COMPLEX8_3D
740 !=============================================================================
741
742
743 !=============================================================================
744 !< requests for PDI to access a data buffer.
745 !! \param[IN] name the data name
746 !! \param[OUT] ptr_data pointer associated with the accessd data
747 !! \param[IN] access whether the data can be accessed for read or write by
748 !! PDI
749 !! \param[OUT] err for error status (optional)
750 subroutine PDI_access_COMPLEX8_4D(name, ptr_data, access, &
751 ptr_data_shape, &
752 err)
753 character(len=*), intent(IN) :: name
754 COMPLEX(KIND=8), pointer &
755 , contiguous &
756 :: ptr_data(:,:,:,:)
757 integer, intent(IN) :: access
758 integer, intent(IN) :: ptr_data_shape(4)
759 integer, intent(OUT), optional :: err
760 endsubroutine PDI_access_COMPLEX8_4D
761 !=============================================================================
762
763
764 !=============================================================================
765 !< requests for PDI to access a data buffer.
766 !! \param[IN] name the data name
767 !! \param[OUT] ptr_data pointer associated with the accessd data
768 !! \param[IN] access whether the data can be accessed for read or write by
769 !! PDI
770 !! \param[OUT] err for error status (optional)
771 subroutine PDI_access_COMPLEX8_5D(name, ptr_data, access, &
772 ptr_data_shape, &
773 err)
774 character(len=*), intent(IN) :: name
775 COMPLEX(KIND=8), pointer &
776 , contiguous &
777 :: ptr_data(:,:,:,:,:)
778 integer, intent(IN) :: access
779 integer, intent(IN) :: ptr_data_shape(5)
780 integer, intent(OUT), optional :: err
781 endsubroutine PDI_access_COMPLEX8_5D
782 !=============================================================================
783
784
785 !=============================================================================
786 !< requests for PDI to access a data buffer.
787 !! \param[IN] name the data name
788 !! \param[OUT] ptr_data pointer associated with the accessd data
789 !! \param[IN] access whether the data can be accessed for read or write by
790 !! PDI
791 !! \param[OUT] err for error status (optional)
792 subroutine PDI_access_COMPLEX8_6D(name, ptr_data, access, &
793 ptr_data_shape, &
794 err)
795 character(len=*), intent(IN) :: name
796 COMPLEX(KIND=8), pointer &
797 , contiguous &
798 :: ptr_data(:,:,:,:,:,:)
799 integer, intent(IN) :: access
800 integer, intent(IN) :: ptr_data_shape(6)
801 integer, intent(OUT), optional :: err
802 endsubroutine PDI_access_COMPLEX8_6D
803 !=============================================================================
804
805
806 !=============================================================================
807 !< requests for PDI to access a data buffer.
808 !! \param[IN] name the data name
809 !! \param[OUT] ptr_data pointer associated with the accessd data
810 !! \param[IN] access whether the data can be accessed for read or write by
811 !! PDI
812 !! \param[OUT] err for error status (optional)
813 subroutine PDI_access_COMPLEX8_7D(name, ptr_data, access, &
814 ptr_data_shape, &
815 err)
816 character(len=*), intent(IN) :: name
817 COMPLEX(KIND=8), pointer &
818 , contiguous &
819 :: ptr_data(:,:,:,:,:,:,:)
820 integer, intent(IN) :: access
821 integer, intent(IN) :: ptr_data_shape(7)
822 integer, intent(OUT), optional :: err
823 endsubroutine PDI_access_COMPLEX8_7D
824 !=============================================================================
825
826
827 !=============================================================================
828 !< requests for PDI to access a data buffer.
829 !! \param[IN] name the data name
830 !! \param[OUT] ptr_data pointer associated with the accessd data
831 !! \param[IN] access whether the data can be accessed for read or write by
832 !! PDI
833 !! \param[OUT] err for error status (optional)
834 subroutine PDI_access_COMPLEX16_0D(name, ptr_data, access, &
835 err)
836 character(len=*), intent(IN) :: name
837 COMPLEX(KIND=16), pointer &
838 :: ptr_data
839 integer, intent(IN) :: access
840 integer, intent(OUT), optional :: err
841 endsubroutine PDI_access_COMPLEX16_0D
842 !=============================================================================
843
844
845 !=============================================================================
846 !< requests for PDI to access a data buffer.
847 !! \param[IN] name the data name
848 !! \param[OUT] ptr_data pointer associated with the accessd data
849 !! \param[IN] access whether the data can be accessed for read or write by
850 !! PDI
851 !! \param[OUT] err for error status (optional)
852 subroutine PDI_access_COMPLEX16_1D(name, ptr_data, access, &
853 ptr_data_shape, &
854 err)
855 character(len=*), intent(IN) :: name
856 COMPLEX(KIND=16), pointer &
857 , contiguous &
858 :: ptr_data(:)
859 integer, intent(IN) :: access
860 integer, intent(IN) :: ptr_data_shape(1)
861 integer, intent(OUT), optional :: err
862 endsubroutine PDI_access_COMPLEX16_1D
863 !=============================================================================
864
865
866 !=============================================================================
867 !< requests for PDI to access a data buffer.
868 !! \param[IN] name the data name
869 !! \param[OUT] ptr_data pointer associated with the accessd data
870 !! \param[IN] access whether the data can be accessed for read or write by
871 !! PDI
872 !! \param[OUT] err for error status (optional)
873 subroutine PDI_access_COMPLEX16_2D(name, ptr_data, access, &
874 ptr_data_shape, &
875 err)
876 character(len=*), intent(IN) :: name
877 COMPLEX(KIND=16), pointer &
878 , contiguous &
879 :: ptr_data(:,:)
880 integer, intent(IN) :: access
881 integer, intent(IN) :: ptr_data_shape(2)
882 integer, intent(OUT), optional :: err
883 endsubroutine PDI_access_COMPLEX16_2D
884 !=============================================================================
885
886
887 !=============================================================================
888 !< requests for PDI to access a data buffer.
889 !! \param[IN] name the data name
890 !! \param[OUT] ptr_data pointer associated with the accessd data
891 !! \param[IN] access whether the data can be accessed for read or write by
892 !! PDI
893 !! \param[OUT] err for error status (optional)
894 subroutine PDI_access_COMPLEX16_3D(name, ptr_data, access, &
895 ptr_data_shape, &
896 err)
897 character(len=*), intent(IN) :: name
898 COMPLEX(KIND=16), pointer &
899 , contiguous &
900 :: ptr_data(:,:,:)
901 integer, intent(IN) :: access
902 integer, intent(IN) :: ptr_data_shape(3)
903 integer, intent(OUT), optional :: err
904 endsubroutine PDI_access_COMPLEX16_3D
905 !=============================================================================
906
907
908 !=============================================================================
909 !< requests for PDI to access a data buffer.
910 !! \param[IN] name the data name
911 !! \param[OUT] ptr_data pointer associated with the accessd data
912 !! \param[IN] access whether the data can be accessed for read or write by
913 !! PDI
914 !! \param[OUT] err for error status (optional)
915 subroutine PDI_access_COMPLEX16_4D(name, ptr_data, access, &
916 ptr_data_shape, &
917 err)
918 character(len=*), intent(IN) :: name
919 COMPLEX(KIND=16), pointer &
920 , contiguous &
921 :: ptr_data(:,:,:,:)
922 integer, intent(IN) :: access
923 integer, intent(IN) :: ptr_data_shape(4)
924 integer, intent(OUT), optional :: err
925 endsubroutine PDI_access_COMPLEX16_4D
926 !=============================================================================
927
928
929 !=============================================================================
930 !< requests for PDI to access a data buffer.
931 !! \param[IN] name the data name
932 !! \param[OUT] ptr_data pointer associated with the accessd data
933 !! \param[IN] access whether the data can be accessed for read or write by
934 !! PDI
935 !! \param[OUT] err for error status (optional)
936 subroutine PDI_access_COMPLEX16_5D(name, ptr_data, access, &
937 ptr_data_shape, &
938 err)
939 character(len=*), intent(IN) :: name
940 COMPLEX(KIND=16), pointer &
941 , contiguous &
942 :: ptr_data(:,:,:,:,:)
943 integer, intent(IN) :: access
944 integer, intent(IN) :: ptr_data_shape(5)
945 integer, intent(OUT), optional :: err
946 endsubroutine PDI_access_COMPLEX16_5D
947 !=============================================================================
948
949
950 !=============================================================================
951 !< requests for PDI to access a data buffer.
952 !! \param[IN] name the data name
953 !! \param[OUT] ptr_data pointer associated with the accessd data
954 !! \param[IN] access whether the data can be accessed for read or write by
955 !! PDI
956 !! \param[OUT] err for error status (optional)
957 subroutine PDI_access_COMPLEX16_6D(name, ptr_data, access, &
958 ptr_data_shape, &
959 err)
960 character(len=*), intent(IN) :: name
961 COMPLEX(KIND=16), pointer &
962 , contiguous &
963 :: ptr_data(:,:,:,:,:,:)
964 integer, intent(IN) :: access
965 integer, intent(IN) :: ptr_data_shape(6)
966 integer, intent(OUT), optional :: err
967 endsubroutine PDI_access_COMPLEX16_6D
968 !=============================================================================
969
970
971 !=============================================================================
972 !< requests for PDI to access a data buffer.
973 !! \param[IN] name the data name
974 !! \param[OUT] ptr_data pointer associated with the accessd data
975 !! \param[IN] access whether the data can be accessed for read or write by
976 !! PDI
977 !! \param[OUT] err for error status (optional)
978 subroutine PDI_access_COMPLEX16_7D(name, ptr_data, access, &
979 ptr_data_shape, &
980 err)
981 character(len=*), intent(IN) :: name
982 COMPLEX(KIND=16), pointer &
983 , contiguous &
984 :: ptr_data(:,:,:,:,:,:,:)
985 integer, intent(IN) :: access
986 integer, intent(IN) :: ptr_data_shape(7)
987 integer, intent(OUT), optional :: err
988 endsubroutine PDI_access_COMPLEX16_7D
989 !=============================================================================
990
991
992 !=============================================================================
993 !< requests for PDI to access a data buffer.
994 !! \param[IN] name the data name
995 !! \param[OUT] ptr_data pointer associated with the accessd data
996 !! \param[IN] access whether the data can be accessed for read or write by
997 !! PDI
998 !! \param[OUT] err for error status (optional)
999 subroutine PDI_access_INTEGER1_0D(name, ptr_data, access, &
1000 err)
1001 character(len=*), intent(IN) :: name
1002 INTEGER(KIND=1), pointer &
1003 :: ptr_data
1004 integer, intent(IN) :: access
1005 integer, intent(OUT), optional :: err
1006 endsubroutine PDI_access_INTEGER1_0D
1007 !=============================================================================
1008
1009
1010 !=============================================================================
1011 !< requests for PDI to access a data buffer.
1012 !! \param[IN] name the data name
1013 !! \param[OUT] ptr_data pointer associated with the accessd data
1014 !! \param[IN] access whether the data can be accessed for read or write by
1015 !! PDI
1016 !! \param[OUT] err for error status (optional)
1017 subroutine PDI_access_INTEGER1_1D(name, ptr_data, access, &
1018 ptr_data_shape, &
1019 err)
1020 character(len=*), intent(IN) :: name
1021 INTEGER(KIND=1), pointer &
1022 , contiguous &
1023 :: ptr_data(:)
1024 integer, intent(IN) :: access
1025 integer, intent(IN) :: ptr_data_shape(1)
1026 integer, intent(OUT), optional :: err
1027 endsubroutine PDI_access_INTEGER1_1D
1028 !=============================================================================
1029
1030
1031 !=============================================================================
1032 !< requests for PDI to access a data buffer.
1033 !! \param[IN] name the data name
1034 !! \param[OUT] ptr_data pointer associated with the accessd data
1035 !! \param[IN] access whether the data can be accessed for read or write by
1036 !! PDI
1037 !! \param[OUT] err for error status (optional)
1038 subroutine PDI_access_INTEGER1_2D(name, ptr_data, access, &
1039 ptr_data_shape, &
1040 err)
1041 character(len=*), intent(IN) :: name
1042 INTEGER(KIND=1), pointer &
1043 , contiguous &
1044 :: ptr_data(:,:)
1045 integer, intent(IN) :: access
1046 integer, intent(IN) :: ptr_data_shape(2)
1047 integer, intent(OUT), optional :: err
1048 endsubroutine PDI_access_INTEGER1_2D
1049 !=============================================================================
1050
1051
1052 !=============================================================================
1053 !< requests for PDI to access a data buffer.
1054 !! \param[IN] name the data name
1055 !! \param[OUT] ptr_data pointer associated with the accessd data
1056 !! \param[IN] access whether the data can be accessed for read or write by
1057 !! PDI
1058 !! \param[OUT] err for error status (optional)
1059 subroutine PDI_access_INTEGER1_3D(name, ptr_data, access, &
1060 ptr_data_shape, &
1061 err)
1062 character(len=*), intent(IN) :: name
1063 INTEGER(KIND=1), pointer &
1064 , contiguous &
1065 :: ptr_data(:,:,:)
1066 integer, intent(IN) :: access
1067 integer, intent(IN) :: ptr_data_shape(3)
1068 integer, intent(OUT), optional :: err
1069 endsubroutine PDI_access_INTEGER1_3D
1070 !=============================================================================
1071
1072
1073 !=============================================================================
1074 !< requests for PDI to access a data buffer.
1075 !! \param[IN] name the data name
1076 !! \param[OUT] ptr_data pointer associated with the accessd data
1077 !! \param[IN] access whether the data can be accessed for read or write by
1078 !! PDI
1079 !! \param[OUT] err for error status (optional)
1080 subroutine PDI_access_INTEGER1_4D(name, ptr_data, access, &
1081 ptr_data_shape, &
1082 err)
1083 character(len=*), intent(IN) :: name
1084 INTEGER(KIND=1), pointer &
1085 , contiguous &
1086 :: ptr_data(:,:,:,:)
1087 integer, intent(IN) :: access
1088 integer, intent(IN) :: ptr_data_shape(4)
1089 integer, intent(OUT), optional :: err
1090 endsubroutine PDI_access_INTEGER1_4D
1091 !=============================================================================
1092
1093
1094 !=============================================================================
1095 !< requests for PDI to access a data buffer.
1096 !! \param[IN] name the data name
1097 !! \param[OUT] ptr_data pointer associated with the accessd data
1098 !! \param[IN] access whether the data can be accessed for read or write by
1099 !! PDI
1100 !! \param[OUT] err for error status (optional)
1101 subroutine PDI_access_INTEGER1_5D(name, ptr_data, access, &
1102 ptr_data_shape, &
1103 err)
1104 character(len=*), intent(IN) :: name
1105 INTEGER(KIND=1), pointer &
1106 , contiguous &
1107 :: ptr_data(:,:,:,:,:)
1108 integer, intent(IN) :: access
1109 integer, intent(IN) :: ptr_data_shape(5)
1110 integer, intent(OUT), optional :: err
1111 endsubroutine PDI_access_INTEGER1_5D
1112 !=============================================================================
1113
1114
1115 !=============================================================================
1116 !< requests for PDI to access a data buffer.
1117 !! \param[IN] name the data name
1118 !! \param[OUT] ptr_data pointer associated with the accessd data
1119 !! \param[IN] access whether the data can be accessed for read or write by
1120 !! PDI
1121 !! \param[OUT] err for error status (optional)
1122 subroutine PDI_access_INTEGER1_6D(name, ptr_data, access, &
1123 ptr_data_shape, &
1124 err)
1125 character(len=*), intent(IN) :: name
1126 INTEGER(KIND=1), pointer &
1127 , contiguous &
1128 :: ptr_data(:,:,:,:,:,:)
1129 integer, intent(IN) :: access
1130 integer, intent(IN) :: ptr_data_shape(6)
1131 integer, intent(OUT), optional :: err
1132 endsubroutine PDI_access_INTEGER1_6D
1133 !=============================================================================
1134
1135
1136 !=============================================================================
1137 !< requests for PDI to access a data buffer.
1138 !! \param[IN] name the data name
1139 !! \param[OUT] ptr_data pointer associated with the accessd data
1140 !! \param[IN] access whether the data can be accessed for read or write by
1141 !! PDI
1142 !! \param[OUT] err for error status (optional)
1143 subroutine PDI_access_INTEGER1_7D(name, ptr_data, access, &
1144 ptr_data_shape, &
1145 err)
1146 character(len=*), intent(IN) :: name
1147 INTEGER(KIND=1), pointer &
1148 , contiguous &
1149 :: ptr_data(:,:,:,:,:,:,:)
1150 integer, intent(IN) :: access
1151 integer, intent(IN) :: ptr_data_shape(7)
1152 integer, intent(OUT), optional :: err
1153 endsubroutine PDI_access_INTEGER1_7D
1154 !=============================================================================
1155
1156
1157 !=============================================================================
1158 !< requests for PDI to access a data buffer.
1159 !! \param[IN] name the data name
1160 !! \param[OUT] ptr_data pointer associated with the accessd data
1161 !! \param[IN] access whether the data can be accessed for read or write by
1162 !! PDI
1163 !! \param[OUT] err for error status (optional)
1164 subroutine PDI_access_INTEGER2_0D(name, ptr_data, access, &
1165 err)
1166 character(len=*), intent(IN) :: name
1167 INTEGER(KIND=2), pointer &
1168 :: ptr_data
1169 integer, intent(IN) :: access
1170 integer, intent(OUT), optional :: err
1171 endsubroutine PDI_access_INTEGER2_0D
1172 !=============================================================================
1173
1174
1175 !=============================================================================
1176 !< requests for PDI to access a data buffer.
1177 !! \param[IN] name the data name
1178 !! \param[OUT] ptr_data pointer associated with the accessd data
1179 !! \param[IN] access whether the data can be accessed for read or write by
1180 !! PDI
1181 !! \param[OUT] err for error status (optional)
1182 subroutine PDI_access_INTEGER2_1D(name, ptr_data, access, &
1183 ptr_data_shape, &
1184 err)
1185 character(len=*), intent(IN) :: name
1186 INTEGER(KIND=2), pointer &
1187 , contiguous &
1188 :: ptr_data(:)
1189 integer, intent(IN) :: access
1190 integer, intent(IN) :: ptr_data_shape(1)
1191 integer, intent(OUT), optional :: err
1192 endsubroutine PDI_access_INTEGER2_1D
1193 !=============================================================================
1194
1195
1196 !=============================================================================
1197 !< requests for PDI to access a data buffer.
1198 !! \param[IN] name the data name
1199 !! \param[OUT] ptr_data pointer associated with the accessd data
1200 !! \param[IN] access whether the data can be accessed for read or write by
1201 !! PDI
1202 !! \param[OUT] err for error status (optional)
1203 subroutine PDI_access_INTEGER2_2D(name, ptr_data, access, &
1204 ptr_data_shape, &
1205 err)
1206 character(len=*), intent(IN) :: name
1207 INTEGER(KIND=2), pointer &
1208 , contiguous &
1209 :: ptr_data(:,:)
1210 integer, intent(IN) :: access
1211 integer, intent(IN) :: ptr_data_shape(2)
1212 integer, intent(OUT), optional :: err
1213 endsubroutine PDI_access_INTEGER2_2D
1214 !=============================================================================
1215
1216
1217 !=============================================================================
1218 !< requests for PDI to access a data buffer.
1219 !! \param[IN] name the data name
1220 !! \param[OUT] ptr_data pointer associated with the accessd data
1221 !! \param[IN] access whether the data can be accessed for read or write by
1222 !! PDI
1223 !! \param[OUT] err for error status (optional)
1224 subroutine PDI_access_INTEGER2_3D(name, ptr_data, access, &
1225 ptr_data_shape, &
1226 err)
1227 character(len=*), intent(IN) :: name
1228 INTEGER(KIND=2), pointer &
1229 , contiguous &
1230 :: ptr_data(:,:,:)
1231 integer, intent(IN) :: access
1232 integer, intent(IN) :: ptr_data_shape(3)
1233 integer, intent(OUT), optional :: err
1234 endsubroutine PDI_access_INTEGER2_3D
1235 !=============================================================================
1236
1237
1238 !=============================================================================
1239 !< requests for PDI to access a data buffer.
1240 !! \param[IN] name the data name
1241 !! \param[OUT] ptr_data pointer associated with the accessd data
1242 !! \param[IN] access whether the data can be accessed for read or write by
1243 !! PDI
1244 !! \param[OUT] err for error status (optional)
1245 subroutine PDI_access_INTEGER2_4D(name, ptr_data, access, &
1246 ptr_data_shape, &
1247 err)
1248 character(len=*), intent(IN) :: name
1249 INTEGER(KIND=2), pointer &
1250 , contiguous &
1251 :: ptr_data(:,:,:,:)
1252 integer, intent(IN) :: access
1253 integer, intent(IN) :: ptr_data_shape(4)
1254 integer, intent(OUT), optional :: err
1255 endsubroutine PDI_access_INTEGER2_4D
1256 !=============================================================================
1257
1258
1259 !=============================================================================
1260 !< requests for PDI to access a data buffer.
1261 !! \param[IN] name the data name
1262 !! \param[OUT] ptr_data pointer associated with the accessd data
1263 !! \param[IN] access whether the data can be accessed for read or write by
1264 !! PDI
1265 !! \param[OUT] err for error status (optional)
1266 subroutine PDI_access_INTEGER2_5D(name, ptr_data, access, &
1267 ptr_data_shape, &
1268 err)
1269 character(len=*), intent(IN) :: name
1270 INTEGER(KIND=2), pointer &
1271 , contiguous &
1272 :: ptr_data(:,:,:,:,:)
1273 integer, intent(IN) :: access
1274 integer, intent(IN) :: ptr_data_shape(5)
1275 integer, intent(OUT), optional :: err
1276 endsubroutine PDI_access_INTEGER2_5D
1277 !=============================================================================
1278
1279
1280 !=============================================================================
1281 !< requests for PDI to access a data buffer.
1282 !! \param[IN] name the data name
1283 !! \param[OUT] ptr_data pointer associated with the accessd data
1284 !! \param[IN] access whether the data can be accessed for read or write by
1285 !! PDI
1286 !! \param[OUT] err for error status (optional)
1287 subroutine PDI_access_INTEGER2_6D(name, ptr_data, access, &
1288 ptr_data_shape, &
1289 err)
1290 character(len=*), intent(IN) :: name
1291 INTEGER(KIND=2), pointer &
1292 , contiguous &
1293 :: ptr_data(:,:,:,:,:,:)
1294 integer, intent(IN) :: access
1295 integer, intent(IN) :: ptr_data_shape(6)
1296 integer, intent(OUT), optional :: err
1297 endsubroutine PDI_access_INTEGER2_6D
1298 !=============================================================================
1299
1300
1301 !=============================================================================
1302 !< requests for PDI to access a data buffer.
1303 !! \param[IN] name the data name
1304 !! \param[OUT] ptr_data pointer associated with the accessd data
1305 !! \param[IN] access whether the data can be accessed for read or write by
1306 !! PDI
1307 !! \param[OUT] err for error status (optional)
1308 subroutine PDI_access_INTEGER2_7D(name, ptr_data, access, &
1309 ptr_data_shape, &
1310 err)
1311 character(len=*), intent(IN) :: name
1312 INTEGER(KIND=2), pointer &
1313 , contiguous &
1314 :: ptr_data(:,:,:,:,:,:,:)
1315 integer, intent(IN) :: access
1316 integer, intent(IN) :: ptr_data_shape(7)
1317 integer, intent(OUT), optional :: err
1318 endsubroutine PDI_access_INTEGER2_7D
1319 !=============================================================================
1320
1321
1322 !=============================================================================
1323 !< requests for PDI to access a data buffer.
1324 !! \param[IN] name the data name
1325 !! \param[OUT] ptr_data pointer associated with the accessd data
1326 !! \param[IN] access whether the data can be accessed for read or write by
1327 !! PDI
1328 !! \param[OUT] err for error status (optional)
1329 subroutine PDI_access_INTEGER4_0D(name, ptr_data, access, &
1330 err)
1331 character(len=*), intent(IN) :: name
1332 INTEGER(KIND=4), pointer &
1333 :: ptr_data
1334 integer, intent(IN) :: access
1335 integer, intent(OUT), optional :: err
1336 endsubroutine PDI_access_INTEGER4_0D
1337 !=============================================================================
1338
1339
1340 !=============================================================================
1341 !< requests for PDI to access a data buffer.
1342 !! \param[IN] name the data name
1343 !! \param[OUT] ptr_data pointer associated with the accessd data
1344 !! \param[IN] access whether the data can be accessed for read or write by
1345 !! PDI
1346 !! \param[OUT] err for error status (optional)
1347 subroutine PDI_access_INTEGER4_1D(name, ptr_data, access, &
1348 ptr_data_shape, &
1349 err)
1350 character(len=*), intent(IN) :: name
1351 INTEGER(KIND=4), pointer &
1352 , contiguous &
1353 :: ptr_data(:)
1354 integer, intent(IN) :: access
1355 integer, intent(IN) :: ptr_data_shape(1)
1356 integer, intent(OUT), optional :: err
1357 endsubroutine PDI_access_INTEGER4_1D
1358 !=============================================================================
1359
1360
1361 !=============================================================================
1362 !< requests for PDI to access a data buffer.
1363 !! \param[IN] name the data name
1364 !! \param[OUT] ptr_data pointer associated with the accessd data
1365 !! \param[IN] access whether the data can be accessed for read or write by
1366 !! PDI
1367 !! \param[OUT] err for error status (optional)
1368 subroutine PDI_access_INTEGER4_2D(name, ptr_data, access, &
1369 ptr_data_shape, &
1370 err)
1371 character(len=*), intent(IN) :: name
1372 INTEGER(KIND=4), pointer &
1373 , contiguous &
1374 :: ptr_data(:,:)
1375 integer, intent(IN) :: access
1376 integer, intent(IN) :: ptr_data_shape(2)
1377 integer, intent(OUT), optional :: err
1378 endsubroutine PDI_access_INTEGER4_2D
1379 !=============================================================================
1380
1381
1382 !=============================================================================
1383 !< requests for PDI to access a data buffer.
1384 !! \param[IN] name the data name
1385 !! \param[OUT] ptr_data pointer associated with the accessd data
1386 !! \param[IN] access whether the data can be accessed for read or write by
1387 !! PDI
1388 !! \param[OUT] err for error status (optional)
1389 subroutine PDI_access_INTEGER4_3D(name, ptr_data, access, &
1390 ptr_data_shape, &
1391 err)
1392 character(len=*), intent(IN) :: name
1393 INTEGER(KIND=4), pointer &
1394 , contiguous &
1395 :: ptr_data(:,:,:)
1396 integer, intent(IN) :: access
1397 integer, intent(IN) :: ptr_data_shape(3)
1398 integer, intent(OUT), optional :: err
1399 endsubroutine PDI_access_INTEGER4_3D
1400 !=============================================================================
1401
1402
1403 !=============================================================================
1404 !< requests for PDI to access a data buffer.
1405 !! \param[IN] name the data name
1406 !! \param[OUT] ptr_data pointer associated with the accessd data
1407 !! \param[IN] access whether the data can be accessed for read or write by
1408 !! PDI
1409 !! \param[OUT] err for error status (optional)
1410 subroutine PDI_access_INTEGER4_4D(name, ptr_data, access, &
1411 ptr_data_shape, &
1412 err)
1413 character(len=*), intent(IN) :: name
1414 INTEGER(KIND=4), pointer &
1415 , contiguous &
1416 :: ptr_data(:,:,:,:)
1417 integer, intent(IN) :: access
1418 integer, intent(IN) :: ptr_data_shape(4)
1419 integer, intent(OUT), optional :: err
1420 endsubroutine PDI_access_INTEGER4_4D
1421 !=============================================================================
1422
1423
1424 !=============================================================================
1425 !< requests for PDI to access a data buffer.
1426 !! \param[IN] name the data name
1427 !! \param[OUT] ptr_data pointer associated with the accessd data
1428 !! \param[IN] access whether the data can be accessed for read or write by
1429 !! PDI
1430 !! \param[OUT] err for error status (optional)
1431 subroutine PDI_access_INTEGER4_5D(name, ptr_data, access, &
1432 ptr_data_shape, &
1433 err)
1434 character(len=*), intent(IN) :: name
1435 INTEGER(KIND=4), pointer &
1436 , contiguous &
1437 :: ptr_data(:,:,:,:,:)
1438 integer, intent(IN) :: access
1439 integer, intent(IN) :: ptr_data_shape(5)
1440 integer, intent(OUT), optional :: err
1441 endsubroutine PDI_access_INTEGER4_5D
1442 !=============================================================================
1443
1444
1445 !=============================================================================
1446 !< requests for PDI to access a data buffer.
1447 !! \param[IN] name the data name
1448 !! \param[OUT] ptr_data pointer associated with the accessd data
1449 !! \param[IN] access whether the data can be accessed for read or write by
1450 !! PDI
1451 !! \param[OUT] err for error status (optional)
1452 subroutine PDI_access_INTEGER4_6D(name, ptr_data, access, &
1453 ptr_data_shape, &
1454 err)
1455 character(len=*), intent(IN) :: name
1456 INTEGER(KIND=4), pointer &
1457 , contiguous &
1458 :: ptr_data(:,:,:,:,:,:)
1459 integer, intent(IN) :: access
1460 integer, intent(IN) :: ptr_data_shape(6)
1461 integer, intent(OUT), optional :: err
1462 endsubroutine PDI_access_INTEGER4_6D
1463 !=============================================================================
1464
1465
1466 !=============================================================================
1467 !< requests for PDI to access a data buffer.
1468 !! \param[IN] name the data name
1469 !! \param[OUT] ptr_data pointer associated with the accessd data
1470 !! \param[IN] access whether the data can be accessed for read or write by
1471 !! PDI
1472 !! \param[OUT] err for error status (optional)
1473 subroutine PDI_access_INTEGER4_7D(name, ptr_data, access, &
1474 ptr_data_shape, &
1475 err)
1476 character(len=*), intent(IN) :: name
1477 INTEGER(KIND=4), pointer &
1478 , contiguous &
1479 :: ptr_data(:,:,:,:,:,:,:)
1480 integer, intent(IN) :: access
1481 integer, intent(IN) :: ptr_data_shape(7)
1482 integer, intent(OUT), optional :: err
1483 endsubroutine PDI_access_INTEGER4_7D
1484 !=============================================================================
1485
1486
1487 !=============================================================================
1488 !< requests for PDI to access a data buffer.
1489 !! \param[IN] name the data name
1490 !! \param[OUT] ptr_data pointer associated with the accessd data
1491 !! \param[IN] access whether the data can be accessed for read or write by
1492 !! PDI
1493 !! \param[OUT] err for error status (optional)
1494 subroutine PDI_access_INTEGER8_0D(name, ptr_data, access, &
1495 err)
1496 character(len=*), intent(IN) :: name
1497 INTEGER(KIND=8), pointer &
1498 :: ptr_data
1499 integer, intent(IN) :: access
1500 integer, intent(OUT), optional :: err
1501 endsubroutine PDI_access_INTEGER8_0D
1502 !=============================================================================
1503
1504
1505 !=============================================================================
1506 !< requests for PDI to access a data buffer.
1507 !! \param[IN] name the data name
1508 !! \param[OUT] ptr_data pointer associated with the accessd data
1509 !! \param[IN] access whether the data can be accessed for read or write by
1510 !! PDI
1511 !! \param[OUT] err for error status (optional)
1512 subroutine PDI_access_INTEGER8_1D(name, ptr_data, access, &
1513 ptr_data_shape, &
1514 err)
1515 character(len=*), intent(IN) :: name
1516 INTEGER(KIND=8), pointer &
1517 , contiguous &
1518 :: ptr_data(:)
1519 integer, intent(IN) :: access
1520 integer, intent(IN) :: ptr_data_shape(1)
1521 integer, intent(OUT), optional :: err
1522 endsubroutine PDI_access_INTEGER8_1D
1523 !=============================================================================
1524
1525
1526 !=============================================================================
1527 !< requests for PDI to access a data buffer.
1528 !! \param[IN] name the data name
1529 !! \param[OUT] ptr_data pointer associated with the accessd data
1530 !! \param[IN] access whether the data can be accessed for read or write by
1531 !! PDI
1532 !! \param[OUT] err for error status (optional)
1533 subroutine PDI_access_INTEGER8_2D(name, ptr_data, access, &
1534 ptr_data_shape, &
1535 err)
1536 character(len=*), intent(IN) :: name
1537 INTEGER(KIND=8), pointer &
1538 , contiguous &
1539 :: ptr_data(:,:)
1540 integer, intent(IN) :: access
1541 integer, intent(IN) :: ptr_data_shape(2)
1542 integer, intent(OUT), optional :: err
1543 endsubroutine PDI_access_INTEGER8_2D
1544 !=============================================================================
1545
1546
1547 !=============================================================================
1548 !< requests for PDI to access a data buffer.
1549 !! \param[IN] name the data name
1550 !! \param[OUT] ptr_data pointer associated with the accessd data
1551 !! \param[IN] access whether the data can be accessed for read or write by
1552 !! PDI
1553 !! \param[OUT] err for error status (optional)
1554 subroutine PDI_access_INTEGER8_3D(name, ptr_data, access, &
1555 ptr_data_shape, &
1556 err)
1557 character(len=*), intent(IN) :: name
1558 INTEGER(KIND=8), pointer &
1559 , contiguous &
1560 :: ptr_data(:,:,:)
1561 integer, intent(IN) :: access
1562 integer, intent(IN) :: ptr_data_shape(3)
1563 integer, intent(OUT), optional :: err
1564 endsubroutine PDI_access_INTEGER8_3D
1565 !=============================================================================
1566
1567
1568 !=============================================================================
1569 !< requests for PDI to access a data buffer.
1570 !! \param[IN] name the data name
1571 !! \param[OUT] ptr_data pointer associated with the accessd data
1572 !! \param[IN] access whether the data can be accessed for read or write by
1573 !! PDI
1574 !! \param[OUT] err for error status (optional)
1575 subroutine PDI_access_INTEGER8_4D(name, ptr_data, access, &
1576 ptr_data_shape, &
1577 err)
1578 character(len=*), intent(IN) :: name
1579 INTEGER(KIND=8), pointer &
1580 , contiguous &
1581 :: ptr_data(:,:,:,:)
1582 integer, intent(IN) :: access
1583 integer, intent(IN) :: ptr_data_shape(4)
1584 integer, intent(OUT), optional :: err
1585 endsubroutine PDI_access_INTEGER8_4D
1586 !=============================================================================
1587
1588
1589 !=============================================================================
1590 !< requests for PDI to access a data buffer.
1591 !! \param[IN] name the data name
1592 !! \param[OUT] ptr_data pointer associated with the accessd data
1593 !! \param[IN] access whether the data can be accessed for read or write by
1594 !! PDI
1595 !! \param[OUT] err for error status (optional)
1596 subroutine PDI_access_INTEGER8_5D(name, ptr_data, access, &
1597 ptr_data_shape, &
1598 err)
1599 character(len=*), intent(IN) :: name
1600 INTEGER(KIND=8), pointer &
1601 , contiguous &
1602 :: ptr_data(:,:,:,:,:)
1603 integer, intent(IN) :: access
1604 integer, intent(IN) :: ptr_data_shape(5)
1605 integer, intent(OUT), optional :: err
1606 endsubroutine PDI_access_INTEGER8_5D
1607 !=============================================================================
1608
1609
1610 !=============================================================================
1611 !< requests for PDI to access a data buffer.
1612 !! \param[IN] name the data name
1613 !! \param[OUT] ptr_data pointer associated with the accessd data
1614 !! \param[IN] access whether the data can be accessed for read or write by
1615 !! PDI
1616 !! \param[OUT] err for error status (optional)
1617 subroutine PDI_access_INTEGER8_6D(name, ptr_data, access, &
1618 ptr_data_shape, &
1619 err)
1620 character(len=*), intent(IN) :: name
1621 INTEGER(KIND=8), pointer &
1622 , contiguous &
1623 :: ptr_data(:,:,:,:,:,:)
1624 integer, intent(IN) :: access
1625 integer, intent(IN) :: ptr_data_shape(6)
1626 integer, intent(OUT), optional :: err
1627 endsubroutine PDI_access_INTEGER8_6D
1628 !=============================================================================
1629
1630
1631 !=============================================================================
1632 !< requests for PDI to access a data buffer.
1633 !! \param[IN] name the data name
1634 !! \param[OUT] ptr_data pointer associated with the accessd data
1635 !! \param[IN] access whether the data can be accessed for read or write by
1636 !! PDI
1637 !! \param[OUT] err for error status (optional)
1638 subroutine PDI_access_INTEGER8_7D(name, ptr_data, access, &
1639 ptr_data_shape, &
1640 err)
1641 character(len=*), intent(IN) :: name
1642 INTEGER(KIND=8), pointer &
1643 , contiguous &
1644 :: ptr_data(:,:,:,:,:,:,:)
1645 integer, intent(IN) :: access
1646 integer, intent(IN) :: ptr_data_shape(7)
1647 integer, intent(OUT), optional :: err
1648 endsubroutine PDI_access_INTEGER8_7D
1649 !=============================================================================
1650
1651
1652 !=============================================================================
1653 !< requests for PDI to access a data buffer.
1654 !! \param[IN] name the data name
1655 !! \param[OUT] ptr_data pointer associated with the accessd data
1656 !! \param[IN] access whether the data can be accessed for read or write by
1657 !! PDI
1658 !! \param[OUT] err for error status (optional)
1659 subroutine PDI_access_INTEGER16_0D(name, ptr_data, access, &
1660 err)
1661 character(len=*), intent(IN) :: name
1662 INTEGER(KIND=16), pointer &
1663 :: ptr_data
1664 integer, intent(IN) :: access
1665 integer, intent(OUT), optional :: err
1666 endsubroutine PDI_access_INTEGER16_0D
1667 !=============================================================================
1668
1669
1670 !=============================================================================
1671 !< requests for PDI to access a data buffer.
1672 !! \param[IN] name the data name
1673 !! \param[OUT] ptr_data pointer associated with the accessd data
1674 !! \param[IN] access whether the data can be accessed for read or write by
1675 !! PDI
1676 !! \param[OUT] err for error status (optional)
1677 subroutine PDI_access_INTEGER16_1D(name, ptr_data, access, &
1678 ptr_data_shape, &
1679 err)
1680 character(len=*), intent(IN) :: name
1681 INTEGER(KIND=16), pointer &
1682 , contiguous &
1683 :: ptr_data(:)
1684 integer, intent(IN) :: access
1685 integer, intent(IN) :: ptr_data_shape(1)
1686 integer, intent(OUT), optional :: err
1687 endsubroutine PDI_access_INTEGER16_1D
1688 !=============================================================================
1689
1690
1691 !=============================================================================
1692 !< requests for PDI to access a data buffer.
1693 !! \param[IN] name the data name
1694 !! \param[OUT] ptr_data pointer associated with the accessd data
1695 !! \param[IN] access whether the data can be accessed for read or write by
1696 !! PDI
1697 !! \param[OUT] err for error status (optional)
1698 subroutine PDI_access_INTEGER16_2D(name, ptr_data, access, &
1699 ptr_data_shape, &
1700 err)
1701 character(len=*), intent(IN) :: name
1702 INTEGER(KIND=16), pointer &
1703 , contiguous &
1704 :: ptr_data(:,:)
1705 integer, intent(IN) :: access
1706 integer, intent(IN) :: ptr_data_shape(2)
1707 integer, intent(OUT), optional :: err
1708 endsubroutine PDI_access_INTEGER16_2D
1709 !=============================================================================
1710
1711
1712 !=============================================================================
1713 !< requests for PDI to access a data buffer.
1714 !! \param[IN] name the data name
1715 !! \param[OUT] ptr_data pointer associated with the accessd data
1716 !! \param[IN] access whether the data can be accessed for read or write by
1717 !! PDI
1718 !! \param[OUT] err for error status (optional)
1719 subroutine PDI_access_INTEGER16_3D(name, ptr_data, access, &
1720 ptr_data_shape, &
1721 err)
1722 character(len=*), intent(IN) :: name
1723 INTEGER(KIND=16), pointer &
1724 , contiguous &
1725 :: ptr_data(:,:,:)
1726 integer, intent(IN) :: access
1727 integer, intent(IN) :: ptr_data_shape(3)
1728 integer, intent(OUT), optional :: err
1729 endsubroutine PDI_access_INTEGER16_3D
1730 !=============================================================================
1731
1732
1733 !=============================================================================
1734 !< requests for PDI to access a data buffer.
1735 !! \param[IN] name the data name
1736 !! \param[OUT] ptr_data pointer associated with the accessd data
1737 !! \param[IN] access whether the data can be accessed for read or write by
1738 !! PDI
1739 !! \param[OUT] err for error status (optional)
1740 subroutine PDI_access_INTEGER16_4D(name, ptr_data, access, &
1741 ptr_data_shape, &
1742 err)
1743 character(len=*), intent(IN) :: name
1744 INTEGER(KIND=16), pointer &
1745 , contiguous &
1746 :: ptr_data(:,:,:,:)
1747 integer, intent(IN) :: access
1748 integer, intent(IN) :: ptr_data_shape(4)
1749 integer, intent(OUT), optional :: err
1750 endsubroutine PDI_access_INTEGER16_4D
1751 !=============================================================================
1752
1753
1754 !=============================================================================
1755 !< requests for PDI to access a data buffer.
1756 !! \param[IN] name the data name
1757 !! \param[OUT] ptr_data pointer associated with the accessd data
1758 !! \param[IN] access whether the data can be accessed for read or write by
1759 !! PDI
1760 !! \param[OUT] err for error status (optional)
1761 subroutine PDI_access_INTEGER16_5D(name, ptr_data, access, &
1762 ptr_data_shape, &
1763 err)
1764 character(len=*), intent(IN) :: name
1765 INTEGER(KIND=16), pointer &
1766 , contiguous &
1767 :: ptr_data(:,:,:,:,:)
1768 integer, intent(IN) :: access
1769 integer, intent(IN) :: ptr_data_shape(5)
1770 integer, intent(OUT), optional :: err
1771 endsubroutine PDI_access_INTEGER16_5D
1772 !=============================================================================
1773
1774
1775 !=============================================================================
1776 !< requests for PDI to access a data buffer.
1777 !! \param[IN] name the data name
1778 !! \param[OUT] ptr_data pointer associated with the accessd data
1779 !! \param[IN] access whether the data can be accessed for read or write by
1780 !! PDI
1781 !! \param[OUT] err for error status (optional)
1782 subroutine PDI_access_INTEGER16_6D(name, ptr_data, access, &
1783 ptr_data_shape, &
1784 err)
1785 character(len=*), intent(IN) :: name
1786 INTEGER(KIND=16), pointer &
1787 , contiguous &
1788 :: ptr_data(:,:,:,:,:,:)
1789 integer, intent(IN) :: access
1790 integer, intent(IN) :: ptr_data_shape(6)
1791 integer, intent(OUT), optional :: err
1792 endsubroutine PDI_access_INTEGER16_6D
1793 !=============================================================================
1794
1795
1796 !=============================================================================
1797 !< requests for PDI to access a data buffer.
1798 !! \param[IN] name the data name
1799 !! \param[OUT] ptr_data pointer associated with the accessd data
1800 !! \param[IN] access whether the data can be accessed for read or write by
1801 !! PDI
1802 !! \param[OUT] err for error status (optional)
1803 subroutine PDI_access_INTEGER16_7D(name, ptr_data, access, &
1804 ptr_data_shape, &
1805 err)
1806 character(len=*), intent(IN) :: name
1807 INTEGER(KIND=16), pointer &
1808 , contiguous &
1809 :: ptr_data(:,:,:,:,:,:,:)
1810 integer, intent(IN) :: access
1811 integer, intent(IN) :: ptr_data_shape(7)
1812 integer, intent(OUT), optional :: err
1813 endsubroutine PDI_access_INTEGER16_7D
1814 !=============================================================================
1815
1816
1817 !=============================================================================
1818 !< requests for PDI to access a data buffer.
1819 !! \param[IN] name the data name
1820 !! \param[OUT] ptr_data pointer associated with the accessd data
1821 !! \param[IN] access whether the data can be accessed for read or write by
1822 !! PDI
1823 !! \param[OUT] err for error status (optional)
1824 subroutine PDI_access_LOGICAL1_0D(name, ptr_data, access, &
1825 err)
1826 character(len=*), intent(IN) :: name
1827 LOGICAL(KIND=1), pointer &
1828 :: ptr_data
1829 integer, intent(IN) :: access
1830 integer, intent(OUT), optional :: err
1831 endsubroutine PDI_access_LOGICAL1_0D
1832 !=============================================================================
1833
1834
1835 !=============================================================================
1836 !< requests for PDI to access a data buffer.
1837 !! \param[IN] name the data name
1838 !! \param[OUT] ptr_data pointer associated with the accessd data
1839 !! \param[IN] access whether the data can be accessed for read or write by
1840 !! PDI
1841 !! \param[OUT] err for error status (optional)
1842 subroutine PDI_access_LOGICAL1_1D(name, ptr_data, access, &
1843 ptr_data_shape, &
1844 err)
1845 character(len=*), intent(IN) :: name
1846 LOGICAL(KIND=1), pointer &
1847 , contiguous &
1848 :: ptr_data(:)
1849 integer, intent(IN) :: access
1850 integer, intent(IN) :: ptr_data_shape(1)
1851 integer, intent(OUT), optional :: err
1852 endsubroutine PDI_access_LOGICAL1_1D
1853 !=============================================================================
1854
1855
1856 !=============================================================================
1857 !< requests for PDI to access a data buffer.
1858 !! \param[IN] name the data name
1859 !! \param[OUT] ptr_data pointer associated with the accessd data
1860 !! \param[IN] access whether the data can be accessed for read or write by
1861 !! PDI
1862 !! \param[OUT] err for error status (optional)
1863 subroutine PDI_access_LOGICAL1_2D(name, ptr_data, access, &
1864 ptr_data_shape, &
1865 err)
1866 character(len=*), intent(IN) :: name
1867 LOGICAL(KIND=1), pointer &
1868 , contiguous &
1869 :: ptr_data(:,:)
1870 integer, intent(IN) :: access
1871 integer, intent(IN) :: ptr_data_shape(2)
1872 integer, intent(OUT), optional :: err
1873 endsubroutine PDI_access_LOGICAL1_2D
1874 !=============================================================================
1875
1876
1877 !=============================================================================
1878 !< requests for PDI to access a data buffer.
1879 !! \param[IN] name the data name
1880 !! \param[OUT] ptr_data pointer associated with the accessd data
1881 !! \param[IN] access whether the data can be accessed for read or write by
1882 !! PDI
1883 !! \param[OUT] err for error status (optional)
1884 subroutine PDI_access_LOGICAL1_3D(name, ptr_data, access, &
1885 ptr_data_shape, &
1886 err)
1887 character(len=*), intent(IN) :: name
1888 LOGICAL(KIND=1), pointer &
1889 , contiguous &
1890 :: ptr_data(:,:,:)
1891 integer, intent(IN) :: access
1892 integer, intent(IN) :: ptr_data_shape(3)
1893 integer, intent(OUT), optional :: err
1894 endsubroutine PDI_access_LOGICAL1_3D
1895 !=============================================================================
1896
1897
1898 !=============================================================================
1899 !< requests for PDI to access a data buffer.
1900 !! \param[IN] name the data name
1901 !! \param[OUT] ptr_data pointer associated with the accessd data
1902 !! \param[IN] access whether the data can be accessed for read or write by
1903 !! PDI
1904 !! \param[OUT] err for error status (optional)
1905 subroutine PDI_access_LOGICAL1_4D(name, ptr_data, access, &
1906 ptr_data_shape, &
1907 err)
1908 character(len=*), intent(IN) :: name
1909 LOGICAL(KIND=1), pointer &
1910 , contiguous &
1911 :: ptr_data(:,:,:,:)
1912 integer, intent(IN) :: access
1913 integer, intent(IN) :: ptr_data_shape(4)
1914 integer, intent(OUT), optional :: err
1915 endsubroutine PDI_access_LOGICAL1_4D
1916 !=============================================================================
1917
1918
1919 !=============================================================================
1920 !< requests for PDI to access a data buffer.
1921 !! \param[IN] name the data name
1922 !! \param[OUT] ptr_data pointer associated with the accessd data
1923 !! \param[IN] access whether the data can be accessed for read or write by
1924 !! PDI
1925 !! \param[OUT] err for error status (optional)
1926 subroutine PDI_access_LOGICAL1_5D(name, ptr_data, access, &
1927 ptr_data_shape, &
1928 err)
1929 character(len=*), intent(IN) :: name
1930 LOGICAL(KIND=1), pointer &
1931 , contiguous &
1932 :: ptr_data(:,:,:,:,:)
1933 integer, intent(IN) :: access
1934 integer, intent(IN) :: ptr_data_shape(5)
1935 integer, intent(OUT), optional :: err
1936 endsubroutine PDI_access_LOGICAL1_5D
1937 !=============================================================================
1938
1939
1940 !=============================================================================
1941 !< requests for PDI to access a data buffer.
1942 !! \param[IN] name the data name
1943 !! \param[OUT] ptr_data pointer associated with the accessd data
1944 !! \param[IN] access whether the data can be accessed for read or write by
1945 !! PDI
1946 !! \param[OUT] err for error status (optional)
1947 subroutine PDI_access_LOGICAL1_6D(name, ptr_data, access, &
1948 ptr_data_shape, &
1949 err)
1950 character(len=*), intent(IN) :: name
1951 LOGICAL(KIND=1), pointer &
1952 , contiguous &
1953 :: ptr_data(:,:,:,:,:,:)
1954 integer, intent(IN) :: access
1955 integer, intent(IN) :: ptr_data_shape(6)
1956 integer, intent(OUT), optional :: err
1957 endsubroutine PDI_access_LOGICAL1_6D
1958 !=============================================================================
1959
1960
1961 !=============================================================================
1962 !< requests for PDI to access a data buffer.
1963 !! \param[IN] name the data name
1964 !! \param[OUT] ptr_data pointer associated with the accessd data
1965 !! \param[IN] access whether the data can be accessed for read or write by
1966 !! PDI
1967 !! \param[OUT] err for error status (optional)
1968 subroutine PDI_access_LOGICAL1_7D(name, ptr_data, access, &
1969 ptr_data_shape, &
1970 err)
1971 character(len=*), intent(IN) :: name
1972 LOGICAL(KIND=1), pointer &
1973 , contiguous &
1974 :: ptr_data(:,:,:,:,:,:,:)
1975 integer, intent(IN) :: access
1976 integer, intent(IN) :: ptr_data_shape(7)
1977 integer, intent(OUT), optional :: err
1978 endsubroutine PDI_access_LOGICAL1_7D
1979 !=============================================================================
1980
1981
1982 !=============================================================================
1983 !< requests for PDI to access a data buffer.
1984 !! \param[IN] name the data name
1985 !! \param[OUT] ptr_data pointer associated with the accessd data
1986 !! \param[IN] access whether the data can be accessed for read or write by
1987 !! PDI
1988 !! \param[OUT] err for error status (optional)
1989 subroutine PDI_access_LOGICAL2_0D(name, ptr_data, access, &
1990 err)
1991 character(len=*), intent(IN) :: name
1992 LOGICAL(KIND=2), pointer &
1993 :: ptr_data
1994 integer, intent(IN) :: access
1995 integer, intent(OUT), optional :: err
1996 endsubroutine PDI_access_LOGICAL2_0D
1997 !=============================================================================
1998
1999
2000 !=============================================================================
2001 !< requests for PDI to access a data buffer.
2002 !! \param[IN] name the data name
2003 !! \param[OUT] ptr_data pointer associated with the accessd data
2004 !! \param[IN] access whether the data can be accessed for read or write by
2005 !! PDI
2006 !! \param[OUT] err for error status (optional)
2007 subroutine PDI_access_LOGICAL2_1D(name, ptr_data, access, &
2008 ptr_data_shape, &
2009 err)
2010 character(len=*), intent(IN) :: name
2011 LOGICAL(KIND=2), pointer &
2012 , contiguous &
2013 :: ptr_data(:)
2014 integer, intent(IN) :: access
2015 integer, intent(IN) :: ptr_data_shape(1)
2016 integer, intent(OUT), optional :: err
2017 endsubroutine PDI_access_LOGICAL2_1D
2018 !=============================================================================
2019
2020
2021 !=============================================================================
2022 !< requests for PDI to access a data buffer.
2023 !! \param[IN] name the data name
2024 !! \param[OUT] ptr_data pointer associated with the accessd data
2025 !! \param[IN] access whether the data can be accessed for read or write by
2026 !! PDI
2027 !! \param[OUT] err for error status (optional)
2028 subroutine PDI_access_LOGICAL2_2D(name, ptr_data, access, &
2029 ptr_data_shape, &
2030 err)
2031 character(len=*), intent(IN) :: name
2032 LOGICAL(KIND=2), pointer &
2033 , contiguous &
2034 :: ptr_data(:,:)
2035 integer, intent(IN) :: access
2036 integer, intent(IN) :: ptr_data_shape(2)
2037 integer, intent(OUT), optional :: err
2038 endsubroutine PDI_access_LOGICAL2_2D
2039 !=============================================================================
2040
2041
2042 !=============================================================================
2043 !< requests for PDI to access a data buffer.
2044 !! \param[IN] name the data name
2045 !! \param[OUT] ptr_data pointer associated with the accessd data
2046 !! \param[IN] access whether the data can be accessed for read or write by
2047 !! PDI
2048 !! \param[OUT] err for error status (optional)
2049 subroutine PDI_access_LOGICAL2_3D(name, ptr_data, access, &
2050 ptr_data_shape, &
2051 err)
2052 character(len=*), intent(IN) :: name
2053 LOGICAL(KIND=2), pointer &
2054 , contiguous &
2055 :: ptr_data(:,:,:)
2056 integer, intent(IN) :: access
2057 integer, intent(IN) :: ptr_data_shape(3)
2058 integer, intent(OUT), optional :: err
2059 endsubroutine PDI_access_LOGICAL2_3D
2060 !=============================================================================
2061
2062
2063 !=============================================================================
2064 !< requests for PDI to access a data buffer.
2065 !! \param[IN] name the data name
2066 !! \param[OUT] ptr_data pointer associated with the accessd data
2067 !! \param[IN] access whether the data can be accessed for read or write by
2068 !! PDI
2069 !! \param[OUT] err for error status (optional)
2070 subroutine PDI_access_LOGICAL2_4D(name, ptr_data, access, &
2071 ptr_data_shape, &
2072 err)
2073 character(len=*), intent(IN) :: name
2074 LOGICAL(KIND=2), pointer &
2075 , contiguous &
2076 :: ptr_data(:,:,:,:)
2077 integer, intent(IN) :: access
2078 integer, intent(IN) :: ptr_data_shape(4)
2079 integer, intent(OUT), optional :: err
2080 endsubroutine PDI_access_LOGICAL2_4D
2081 !=============================================================================
2082
2083
2084 !=============================================================================
2085 !< requests for PDI to access a data buffer.
2086 !! \param[IN] name the data name
2087 !! \param[OUT] ptr_data pointer associated with the accessd data
2088 !! \param[IN] access whether the data can be accessed for read or write by
2089 !! PDI
2090 !! \param[OUT] err for error status (optional)
2091 subroutine PDI_access_LOGICAL2_5D(name, ptr_data, access, &
2092 ptr_data_shape, &
2093 err)
2094 character(len=*), intent(IN) :: name
2095 LOGICAL(KIND=2), pointer &
2096 , contiguous &
2097 :: ptr_data(:,:,:,:,:)
2098 integer, intent(IN) :: access
2099 integer, intent(IN) :: ptr_data_shape(5)
2100 integer, intent(OUT), optional :: err
2101 endsubroutine PDI_access_LOGICAL2_5D
2102 !=============================================================================
2103
2104
2105 !=============================================================================
2106 !< requests for PDI to access a data buffer.
2107 !! \param[IN] name the data name
2108 !! \param[OUT] ptr_data pointer associated with the accessd data
2109 !! \param[IN] access whether the data can be accessed for read or write by
2110 !! PDI
2111 !! \param[OUT] err for error status (optional)
2112 subroutine PDI_access_LOGICAL2_6D(name, ptr_data, access, &
2113 ptr_data_shape, &
2114 err)
2115 character(len=*), intent(IN) :: name
2116 LOGICAL(KIND=2), pointer &
2117 , contiguous &
2118 :: ptr_data(:,:,:,:,:,:)
2119 integer, intent(IN) :: access
2120 integer, intent(IN) :: ptr_data_shape(6)
2121 integer, intent(OUT), optional :: err
2122 endsubroutine PDI_access_LOGICAL2_6D
2123 !=============================================================================
2124
2125
2126 !=============================================================================
2127 !< requests for PDI to access a data buffer.
2128 !! \param[IN] name the data name
2129 !! \param[OUT] ptr_data pointer associated with the accessd data
2130 !! \param[IN] access whether the data can be accessed for read or write by
2131 !! PDI
2132 !! \param[OUT] err for error status (optional)
2133 subroutine PDI_access_LOGICAL2_7D(name, ptr_data, access, &
2134 ptr_data_shape, &
2135 err)
2136 character(len=*), intent(IN) :: name
2137 LOGICAL(KIND=2), pointer &
2138 , contiguous &
2139 :: ptr_data(:,:,:,:,:,:,:)
2140 integer, intent(IN) :: access
2141 integer, intent(IN) :: ptr_data_shape(7)
2142 integer, intent(OUT), optional :: err
2143 endsubroutine PDI_access_LOGICAL2_7D
2144 !=============================================================================
2145
2146
2147 !=============================================================================
2148 !< requests for PDI to access a data buffer.
2149 !! \param[IN] name the data name
2150 !! \param[OUT] ptr_data pointer associated with the accessd data
2151 !! \param[IN] access whether the data can be accessed for read or write by
2152 !! PDI
2153 !! \param[OUT] err for error status (optional)
2154 subroutine PDI_access_LOGICAL4_0D(name, ptr_data, access, &
2155 err)
2156 character(len=*), intent(IN) :: name
2157 LOGICAL(KIND=4), pointer &
2158 :: ptr_data
2159 integer, intent(IN) :: access
2160 integer, intent(OUT), optional :: err
2161 endsubroutine PDI_access_LOGICAL4_0D
2162 !=============================================================================
2163
2164
2165 !=============================================================================
2166 !< requests for PDI to access a data buffer.
2167 !! \param[IN] name the data name
2168 !! \param[OUT] ptr_data pointer associated with the accessd data
2169 !! \param[IN] access whether the data can be accessed for read or write by
2170 !! PDI
2171 !! \param[OUT] err for error status (optional)
2172 subroutine PDI_access_LOGICAL4_1D(name, ptr_data, access, &
2173 ptr_data_shape, &
2174 err)
2175 character(len=*), intent(IN) :: name
2176 LOGICAL(KIND=4), pointer &
2177 , contiguous &
2178 :: ptr_data(:)
2179 integer, intent(IN) :: access
2180 integer, intent(IN) :: ptr_data_shape(1)
2181 integer, intent(OUT), optional :: err
2182 endsubroutine PDI_access_LOGICAL4_1D
2183 !=============================================================================
2184
2185
2186 !=============================================================================
2187 !< requests for PDI to access a data buffer.
2188 !! \param[IN] name the data name
2189 !! \param[OUT] ptr_data pointer associated with the accessd data
2190 !! \param[IN] access whether the data can be accessed for read or write by
2191 !! PDI
2192 !! \param[OUT] err for error status (optional)
2193 subroutine PDI_access_LOGICAL4_2D(name, ptr_data, access, &
2194 ptr_data_shape, &
2195 err)
2196 character(len=*), intent(IN) :: name
2197 LOGICAL(KIND=4), pointer &
2198 , contiguous &
2199 :: ptr_data(:,:)
2200 integer, intent(IN) :: access
2201 integer, intent(IN) :: ptr_data_shape(2)
2202 integer, intent(OUT), optional :: err
2203 endsubroutine PDI_access_LOGICAL4_2D
2204 !=============================================================================
2205
2206
2207 !=============================================================================
2208 !< requests for PDI to access a data buffer.
2209 !! \param[IN] name the data name
2210 !! \param[OUT] ptr_data pointer associated with the accessd data
2211 !! \param[IN] access whether the data can be accessed for read or write by
2212 !! PDI
2213 !! \param[OUT] err for error status (optional)
2214 subroutine PDI_access_LOGICAL4_3D(name, ptr_data, access, &
2215 ptr_data_shape, &
2216 err)
2217 character(len=*), intent(IN) :: name
2218 LOGICAL(KIND=4), pointer &
2219 , contiguous &
2220 :: ptr_data(:,:,:)
2221 integer, intent(IN) :: access
2222 integer, intent(IN) :: ptr_data_shape(3)
2223 integer, intent(OUT), optional :: err
2224 endsubroutine PDI_access_LOGICAL4_3D
2225 !=============================================================================
2226
2227
2228 !=============================================================================
2229 !< requests for PDI to access a data buffer.
2230 !! \param[IN] name the data name
2231 !! \param[OUT] ptr_data pointer associated with the accessd data
2232 !! \param[IN] access whether the data can be accessed for read or write by
2233 !! PDI
2234 !! \param[OUT] err for error status (optional)
2235 subroutine PDI_access_LOGICAL4_4D(name, ptr_data, access, &
2236 ptr_data_shape, &
2237 err)
2238 character(len=*), intent(IN) :: name
2239 LOGICAL(KIND=4), pointer &
2240 , contiguous &
2241 :: ptr_data(:,:,:,:)
2242 integer, intent(IN) :: access
2243 integer, intent(IN) :: ptr_data_shape(4)
2244 integer, intent(OUT), optional :: err
2245 endsubroutine PDI_access_LOGICAL4_4D
2246 !=============================================================================
2247
2248
2249 !=============================================================================
2250 !< requests for PDI to access a data buffer.
2251 !! \param[IN] name the data name
2252 !! \param[OUT] ptr_data pointer associated with the accessd data
2253 !! \param[IN] access whether the data can be accessed for read or write by
2254 !! PDI
2255 !! \param[OUT] err for error status (optional)
2256 subroutine PDI_access_LOGICAL4_5D(name, ptr_data, access, &
2257 ptr_data_shape, &
2258 err)
2259 character(len=*), intent(IN) :: name
2260 LOGICAL(KIND=4), pointer &
2261 , contiguous &
2262 :: ptr_data(:,:,:,:,:)
2263 integer, intent(IN) :: access
2264 integer, intent(IN) :: ptr_data_shape(5)
2265 integer, intent(OUT), optional :: err
2266 endsubroutine PDI_access_LOGICAL4_5D
2267 !=============================================================================
2268
2269
2270 !=============================================================================
2271 !< requests for PDI to access a data buffer.
2272 !! \param[IN] name the data name
2273 !! \param[OUT] ptr_data pointer associated with the accessd data
2274 !! \param[IN] access whether the data can be accessed for read or write by
2275 !! PDI
2276 !! \param[OUT] err for error status (optional)
2277 subroutine PDI_access_LOGICAL4_6D(name, ptr_data, access, &
2278 ptr_data_shape, &
2279 err)
2280 character(len=*), intent(IN) :: name
2281 LOGICAL(KIND=4), pointer &
2282 , contiguous &
2283 :: ptr_data(:,:,:,:,:,:)
2284 integer, intent(IN) :: access
2285 integer, intent(IN) :: ptr_data_shape(6)
2286 integer, intent(OUT), optional :: err
2287 endsubroutine PDI_access_LOGICAL4_6D
2288 !=============================================================================
2289
2290
2291 !=============================================================================
2292 !< requests for PDI to access a data buffer.
2293 !! \param[IN] name the data name
2294 !! \param[OUT] ptr_data pointer associated with the accessd data
2295 !! \param[IN] access whether the data can be accessed for read or write by
2296 !! PDI
2297 !! \param[OUT] err for error status (optional)
2298 subroutine PDI_access_LOGICAL4_7D(name, ptr_data, access, &
2299 ptr_data_shape, &
2300 err)
2301 character(len=*), intent(IN) :: name
2302 LOGICAL(KIND=4), pointer &
2303 , contiguous &
2304 :: ptr_data(:,:,:,:,:,:,:)
2305 integer, intent(IN) :: access
2306 integer, intent(IN) :: ptr_data_shape(7)
2307 integer, intent(OUT), optional :: err
2308 endsubroutine PDI_access_LOGICAL4_7D
2309 !=============================================================================
2310
2311
2312 !=============================================================================
2313 !< requests for PDI to access a data buffer.
2314 !! \param[IN] name the data name
2315 !! \param[OUT] ptr_data pointer associated with the accessd data
2316 !! \param[IN] access whether the data can be accessed for read or write by
2317 !! PDI
2318 !! \param[OUT] err for error status (optional)
2319 subroutine PDI_access_LOGICAL8_0D(name, ptr_data, access, &
2320 err)
2321 character(len=*), intent(IN) :: name
2322 LOGICAL(KIND=8), pointer &
2323 :: ptr_data
2324 integer, intent(IN) :: access
2325 integer, intent(OUT), optional :: err
2326 endsubroutine PDI_access_LOGICAL8_0D
2327 !=============================================================================
2328
2329
2330 !=============================================================================
2331 !< requests for PDI to access a data buffer.
2332 !! \param[IN] name the data name
2333 !! \param[OUT] ptr_data pointer associated with the accessd data
2334 !! \param[IN] access whether the data can be accessed for read or write by
2335 !! PDI
2336 !! \param[OUT] err for error status (optional)
2337 subroutine PDI_access_LOGICAL8_1D(name, ptr_data, access, &
2338 ptr_data_shape, &
2339 err)
2340 character(len=*), intent(IN) :: name
2341 LOGICAL(KIND=8), pointer &
2342 , contiguous &
2343 :: ptr_data(:)
2344 integer, intent(IN) :: access
2345 integer, intent(IN) :: ptr_data_shape(1)
2346 integer, intent(OUT), optional :: err
2347 endsubroutine PDI_access_LOGICAL8_1D
2348 !=============================================================================
2349
2350
2351 !=============================================================================
2352 !< requests for PDI to access a data buffer.
2353 !! \param[IN] name the data name
2354 !! \param[OUT] ptr_data pointer associated with the accessd data
2355 !! \param[IN] access whether the data can be accessed for read or write by
2356 !! PDI
2357 !! \param[OUT] err for error status (optional)
2358 subroutine PDI_access_LOGICAL8_2D(name, ptr_data, access, &
2359 ptr_data_shape, &
2360 err)
2361 character(len=*), intent(IN) :: name
2362 LOGICAL(KIND=8), pointer &
2363 , contiguous &
2364 :: ptr_data(:,:)
2365 integer, intent(IN) :: access
2366 integer, intent(IN) :: ptr_data_shape(2)
2367 integer, intent(OUT), optional :: err
2368 endsubroutine PDI_access_LOGICAL8_2D
2369 !=============================================================================
2370
2371
2372 !=============================================================================
2373 !< requests for PDI to access a data buffer.
2374 !! \param[IN] name the data name
2375 !! \param[OUT] ptr_data pointer associated with the accessd data
2376 !! \param[IN] access whether the data can be accessed for read or write by
2377 !! PDI
2378 !! \param[OUT] err for error status (optional)
2379 subroutine PDI_access_LOGICAL8_3D(name, ptr_data, access, &
2380 ptr_data_shape, &
2381 err)
2382 character(len=*), intent(IN) :: name
2383 LOGICAL(KIND=8), pointer &
2384 , contiguous &
2385 :: ptr_data(:,:,:)
2386 integer, intent(IN) :: access
2387 integer, intent(IN) :: ptr_data_shape(3)
2388 integer, intent(OUT), optional :: err
2389 endsubroutine PDI_access_LOGICAL8_3D
2390 !=============================================================================
2391
2392
2393 !=============================================================================
2394 !< requests for PDI to access a data buffer.
2395 !! \param[IN] name the data name
2396 !! \param[OUT] ptr_data pointer associated with the accessd data
2397 !! \param[IN] access whether the data can be accessed for read or write by
2398 !! PDI
2399 !! \param[OUT] err for error status (optional)
2400 subroutine PDI_access_LOGICAL8_4D(name, ptr_data, access, &
2401 ptr_data_shape, &
2402 err)
2403 character(len=*), intent(IN) :: name
2404 LOGICAL(KIND=8), pointer &
2405 , contiguous &
2406 :: ptr_data(:,:,:,:)
2407 integer, intent(IN) :: access
2408 integer, intent(IN) :: ptr_data_shape(4)
2409 integer, intent(OUT), optional :: err
2410 endsubroutine PDI_access_LOGICAL8_4D
2411 !=============================================================================
2412
2413
2414 !=============================================================================
2415 !< requests for PDI to access a data buffer.
2416 !! \param[IN] name the data name
2417 !! \param[OUT] ptr_data pointer associated with the accessd data
2418 !! \param[IN] access whether the data can be accessed for read or write by
2419 !! PDI
2420 !! \param[OUT] err for error status (optional)
2421 subroutine PDI_access_LOGICAL8_5D(name, ptr_data, access, &
2422 ptr_data_shape, &
2423 err)
2424 character(len=*), intent(IN) :: name
2425 LOGICAL(KIND=8), pointer &
2426 , contiguous &
2427 :: ptr_data(:,:,:,:,:)
2428 integer, intent(IN) :: access
2429 integer, intent(IN) :: ptr_data_shape(5)
2430 integer, intent(OUT), optional :: err
2431 endsubroutine PDI_access_LOGICAL8_5D
2432 !=============================================================================
2433
2434
2435 !=============================================================================
2436 !< requests for PDI to access a data buffer.
2437 !! \param[IN] name the data name
2438 !! \param[OUT] ptr_data pointer associated with the accessd data
2439 !! \param[IN] access whether the data can be accessed for read or write by
2440 !! PDI
2441 !! \param[OUT] err for error status (optional)
2442 subroutine PDI_access_LOGICAL8_6D(name, ptr_data, access, &
2443 ptr_data_shape, &
2444 err)
2445 character(len=*), intent(IN) :: name
2446 LOGICAL(KIND=8), pointer &
2447 , contiguous &
2448 :: ptr_data(:,:,:,:,:,:)
2449 integer, intent(IN) :: access
2450 integer, intent(IN) :: ptr_data_shape(6)
2451 integer, intent(OUT), optional :: err
2452 endsubroutine PDI_access_LOGICAL8_6D
2453 !=============================================================================
2454
2455
2456 !=============================================================================
2457 !< requests for PDI to access a data buffer.
2458 !! \param[IN] name the data name
2459 !! \param[OUT] ptr_data pointer associated with the accessd data
2460 !! \param[IN] access whether the data can be accessed for read or write by
2461 !! PDI
2462 !! \param[OUT] err for error status (optional)
2463 subroutine PDI_access_LOGICAL8_7D(name, ptr_data, access, &
2464 ptr_data_shape, &
2465 err)
2466 character(len=*), intent(IN) :: name
2467 LOGICAL(KIND=8), pointer &
2468 , contiguous &
2469 :: ptr_data(:,:,:,:,:,:,:)
2470 integer, intent(IN) :: access
2471 integer, intent(IN) :: ptr_data_shape(7)
2472 integer, intent(OUT), optional :: err
2473 endsubroutine PDI_access_LOGICAL8_7D
2474 !=============================================================================
2475
2476
2477 !=============================================================================
2478 !< requests for PDI to access a data buffer.
2479 !! \param[IN] name the data name
2480 !! \param[OUT] ptr_data pointer associated with the accessd data
2481 !! \param[IN] access whether the data can be accessed for read or write by
2482 !! PDI
2483 !! \param[OUT] err for error status (optional)
2484 subroutine PDI_access_LOGICAL16_0D(name, ptr_data, access, &
2485 err)
2486 character(len=*), intent(IN) :: name
2487 LOGICAL(KIND=16), pointer &
2488 :: ptr_data
2489 integer, intent(IN) :: access
2490 integer, intent(OUT), optional :: err
2491 endsubroutine PDI_access_LOGICAL16_0D
2492 !=============================================================================
2493
2494
2495 !=============================================================================
2496 !< requests for PDI to access a data buffer.
2497 !! \param[IN] name the data name
2498 !! \param[OUT] ptr_data pointer associated with the accessd data
2499 !! \param[IN] access whether the data can be accessed for read or write by
2500 !! PDI
2501 !! \param[OUT] err for error status (optional)
2502 subroutine PDI_access_LOGICAL16_1D(name, ptr_data, access, &
2503 ptr_data_shape, &
2504 err)
2505 character(len=*), intent(IN) :: name
2506 LOGICAL(KIND=16), pointer &
2507 , contiguous &
2508 :: ptr_data(:)
2509 integer, intent(IN) :: access
2510 integer, intent(IN) :: ptr_data_shape(1)
2511 integer, intent(OUT), optional :: err
2512 endsubroutine PDI_access_LOGICAL16_1D
2513 !=============================================================================
2514
2515
2516 !=============================================================================
2517 !< requests for PDI to access a data buffer.
2518 !! \param[IN] name the data name
2519 !! \param[OUT] ptr_data pointer associated with the accessd data
2520 !! \param[IN] access whether the data can be accessed for read or write by
2521 !! PDI
2522 !! \param[OUT] err for error status (optional)
2523 subroutine PDI_access_LOGICAL16_2D(name, ptr_data, access, &
2524 ptr_data_shape, &
2525 err)
2526 character(len=*), intent(IN) :: name
2527 LOGICAL(KIND=16), pointer &
2528 , contiguous &
2529 :: ptr_data(:,:)
2530 integer, intent(IN) :: access
2531 integer, intent(IN) :: ptr_data_shape(2)
2532 integer, intent(OUT), optional :: err
2533 endsubroutine PDI_access_LOGICAL16_2D
2534 !=============================================================================
2535
2536
2537 !=============================================================================
2538 !< requests for PDI to access a data buffer.
2539 !! \param[IN] name the data name
2540 !! \param[OUT] ptr_data pointer associated with the accessd data
2541 !! \param[IN] access whether the data can be accessed for read or write by
2542 !! PDI
2543 !! \param[OUT] err for error status (optional)
2544 subroutine PDI_access_LOGICAL16_3D(name, ptr_data, access, &
2545 ptr_data_shape, &
2546 err)
2547 character(len=*), intent(IN) :: name
2548 LOGICAL(KIND=16), pointer &
2549 , contiguous &
2550 :: ptr_data(:,:,:)
2551 integer, intent(IN) :: access
2552 integer, intent(IN) :: ptr_data_shape(3)
2553 integer, intent(OUT), optional :: err
2554 endsubroutine PDI_access_LOGICAL16_3D
2555 !=============================================================================
2556
2557
2558 !=============================================================================
2559 !< requests for PDI to access a data buffer.
2560 !! \param[IN] name the data name
2561 !! \param[OUT] ptr_data pointer associated with the accessd data
2562 !! \param[IN] access whether the data can be accessed for read or write by
2563 !! PDI
2564 !! \param[OUT] err for error status (optional)
2565 subroutine PDI_access_LOGICAL16_4D(name, ptr_data, access, &
2566 ptr_data_shape, &
2567 err)
2568 character(len=*), intent(IN) :: name
2569 LOGICAL(KIND=16), pointer &
2570 , contiguous &
2571 :: ptr_data(:,:,:,:)
2572 integer, intent(IN) :: access
2573 integer, intent(IN) :: ptr_data_shape(4)
2574 integer, intent(OUT), optional :: err
2575 endsubroutine PDI_access_LOGICAL16_4D
2576 !=============================================================================
2577
2578
2579 !=============================================================================
2580 !< requests for PDI to access a data buffer.
2581 !! \param[IN] name the data name
2582 !! \param[OUT] ptr_data pointer associated with the accessd data
2583 !! \param[IN] access whether the data can be accessed for read or write by
2584 !! PDI
2585 !! \param[OUT] err for error status (optional)
2586 subroutine PDI_access_LOGICAL16_5D(name, ptr_data, access, &
2587 ptr_data_shape, &
2588 err)
2589 character(len=*), intent(IN) :: name
2590 LOGICAL(KIND=16), pointer &
2591 , contiguous &
2592 :: ptr_data(:,:,:,:,:)
2593 integer, intent(IN) :: access
2594 integer, intent(IN) :: ptr_data_shape(5)
2595 integer, intent(OUT), optional :: err
2596 endsubroutine PDI_access_LOGICAL16_5D
2597 !=============================================================================
2598
2599
2600 !=============================================================================
2601 !< requests for PDI to access a data buffer.
2602 !! \param[IN] name the data name
2603 !! \param[OUT] ptr_data pointer associated with the accessd data
2604 !! \param[IN] access whether the data can be accessed for read or write by
2605 !! PDI
2606 !! \param[OUT] err for error status (optional)
2607 subroutine PDI_access_LOGICAL16_6D(name, ptr_data, access, &
2608 ptr_data_shape, &
2609 err)
2610 character(len=*), intent(IN) :: name
2611 LOGICAL(KIND=16), pointer &
2612 , contiguous &
2613 :: ptr_data(:,:,:,:,:,:)
2614 integer, intent(IN) :: access
2615 integer, intent(IN) :: ptr_data_shape(6)
2616 integer, intent(OUT), optional :: err
2617 endsubroutine PDI_access_LOGICAL16_6D
2618 !=============================================================================
2619
2620
2621 !=============================================================================
2622 !< requests for PDI to access a data buffer.
2623 !! \param[IN] name the data name
2624 !! \param[OUT] ptr_data pointer associated with the accessd data
2625 !! \param[IN] access whether the data can be accessed for read or write by
2626 !! PDI
2627 !! \param[OUT] err for error status (optional)
2628 subroutine PDI_access_LOGICAL16_7D(name, ptr_data, access, &
2629 ptr_data_shape, &
2630 err)
2631 character(len=*), intent(IN) :: name
2632 LOGICAL(KIND=16), pointer &
2633 , contiguous &
2634 :: ptr_data(:,:,:,:,:,:,:)
2635 integer, intent(IN) :: access
2636 integer, intent(IN) :: ptr_data_shape(7)
2637 integer, intent(OUT), optional :: err
2638 endsubroutine PDI_access_LOGICAL16_7D
2639 !=============================================================================
2640
2641
2642 !=============================================================================
2643 !< requests for PDI to access a data buffer.
2644 !! \param[IN] name the data name
2645 !! \param[OUT] ptr_data pointer associated with the accessd data
2646 !! \param[IN] access whether the data can be accessed for read or write by
2647 !! PDI
2648 !! \param[OUT] err for error status (optional)
2649 subroutine PDI_access_REAL4_0D(name, ptr_data, access, &
2650 err)
2651 character(len=*), intent(IN) :: name
2652 REAL(KIND=4), pointer &
2653 :: ptr_data
2654 integer, intent(IN) :: access
2655 integer, intent(OUT), optional :: err
2656 endsubroutine PDI_access_REAL4_0D
2657 !=============================================================================
2658
2659
2660 !=============================================================================
2661 !< requests for PDI to access a data buffer.
2662 !! \param[IN] name the data name
2663 !! \param[OUT] ptr_data pointer associated with the accessd data
2664 !! \param[IN] access whether the data can be accessed for read or write by
2665 !! PDI
2666 !! \param[OUT] err for error status (optional)
2667 subroutine PDI_access_REAL4_1D(name, ptr_data, access, &
2668 ptr_data_shape, &
2669 err)
2670 character(len=*), intent(IN) :: name
2671 REAL(KIND=4), pointer &
2672 , contiguous &
2673 :: ptr_data(:)
2674 integer, intent(IN) :: access
2675 integer, intent(IN) :: ptr_data_shape(1)
2676 integer, intent(OUT), optional :: err
2677 endsubroutine PDI_access_REAL4_1D
2678 !=============================================================================
2679
2680
2681 !=============================================================================
2682 !< requests for PDI to access a data buffer.
2683 !! \param[IN] name the data name
2684 !! \param[OUT] ptr_data pointer associated with the accessd data
2685 !! \param[IN] access whether the data can be accessed for read or write by
2686 !! PDI
2687 !! \param[OUT] err for error status (optional)
2688 subroutine PDI_access_REAL4_2D(name, ptr_data, access, &
2689 ptr_data_shape, &
2690 err)
2691 character(len=*), intent(IN) :: name
2692 REAL(KIND=4), pointer &
2693 , contiguous &
2694 :: ptr_data(:,:)
2695 integer, intent(IN) :: access
2696 integer, intent(IN) :: ptr_data_shape(2)
2697 integer, intent(OUT), optional :: err
2698 endsubroutine PDI_access_REAL4_2D
2699 !=============================================================================
2700
2701
2702 !=============================================================================
2703 !< requests for PDI to access a data buffer.
2704 !! \param[IN] name the data name
2705 !! \param[OUT] ptr_data pointer associated with the accessd data
2706 !! \param[IN] access whether the data can be accessed for read or write by
2707 !! PDI
2708 !! \param[OUT] err for error status (optional)
2709 subroutine PDI_access_REAL4_3D(name, ptr_data, access, &
2710 ptr_data_shape, &
2711 err)
2712 character(len=*), intent(IN) :: name
2713 REAL(KIND=4), pointer &
2714 , contiguous &
2715 :: ptr_data(:,:,:)
2716 integer, intent(IN) :: access
2717 integer, intent(IN) :: ptr_data_shape(3)
2718 integer, intent(OUT), optional :: err
2719 endsubroutine PDI_access_REAL4_3D
2720 !=============================================================================
2721
2722
2723 !=============================================================================
2724 !< requests for PDI to access a data buffer.
2725 !! \param[IN] name the data name
2726 !! \param[OUT] ptr_data pointer associated with the accessd data
2727 !! \param[IN] access whether the data can be accessed for read or write by
2728 !! PDI
2729 !! \param[OUT] err for error status (optional)
2730 subroutine PDI_access_REAL4_4D(name, ptr_data, access, &
2731 ptr_data_shape, &
2732 err)
2733 character(len=*), intent(IN) :: name
2734 REAL(KIND=4), pointer &
2735 , contiguous &
2736 :: ptr_data(:,:,:,:)
2737 integer, intent(IN) :: access
2738 integer, intent(IN) :: ptr_data_shape(4)
2739 integer, intent(OUT), optional :: err
2740 endsubroutine PDI_access_REAL4_4D
2741 !=============================================================================
2742
2743
2744 !=============================================================================
2745 !< requests for PDI to access a data buffer.
2746 !! \param[IN] name the data name
2747 !! \param[OUT] ptr_data pointer associated with the accessd data
2748 !! \param[IN] access whether the data can be accessed for read or write by
2749 !! PDI
2750 !! \param[OUT] err for error status (optional)
2751 subroutine PDI_access_REAL4_5D(name, ptr_data, access, &
2752 ptr_data_shape, &
2753 err)
2754 character(len=*), intent(IN) :: name
2755 REAL(KIND=4), pointer &
2756 , contiguous &
2757 :: ptr_data(:,:,:,:,:)
2758 integer, intent(IN) :: access
2759 integer, intent(IN) :: ptr_data_shape(5)
2760 integer, intent(OUT), optional :: err
2761 endsubroutine PDI_access_REAL4_5D
2762 !=============================================================================
2763
2764
2765 !=============================================================================
2766 !< requests for PDI to access a data buffer.
2767 !! \param[IN] name the data name
2768 !! \param[OUT] ptr_data pointer associated with the accessd data
2769 !! \param[IN] access whether the data can be accessed for read or write by
2770 !! PDI
2771 !! \param[OUT] err for error status (optional)
2772 subroutine PDI_access_REAL4_6D(name, ptr_data, access, &
2773 ptr_data_shape, &
2774 err)
2775 character(len=*), intent(IN) :: name
2776 REAL(KIND=4), pointer &
2777 , contiguous &
2778 :: ptr_data(:,:,:,:,:,:)
2779 integer, intent(IN) :: access
2780 integer, intent(IN) :: ptr_data_shape(6)
2781 integer, intent(OUT), optional :: err
2782 endsubroutine PDI_access_REAL4_6D
2783 !=============================================================================
2784
2785
2786 !=============================================================================
2787 !< requests for PDI to access a data buffer.
2788 !! \param[IN] name the data name
2789 !! \param[OUT] ptr_data pointer associated with the accessd data
2790 !! \param[IN] access whether the data can be accessed for read or write by
2791 !! PDI
2792 !! \param[OUT] err for error status (optional)
2793 subroutine PDI_access_REAL4_7D(name, ptr_data, access, &
2794 ptr_data_shape, &
2795 err)
2796 character(len=*), intent(IN) :: name
2797 REAL(KIND=4), pointer &
2798 , contiguous &
2799 :: ptr_data(:,:,:,:,:,:,:)
2800 integer, intent(IN) :: access
2801 integer, intent(IN) :: ptr_data_shape(7)
2802 integer, intent(OUT), optional :: err
2803 endsubroutine PDI_access_REAL4_7D
2804 !=============================================================================
2805
2806
2807 !=============================================================================
2808 !< requests for PDI to access a data buffer.
2809 !! \param[IN] name the data name
2810 !! \param[OUT] ptr_data pointer associated with the accessd data
2811 !! \param[IN] access whether the data can be accessed for read or write by
2812 !! PDI
2813 !! \param[OUT] err for error status (optional)
2814 subroutine PDI_access_REAL8_0D(name, ptr_data, access, &
2815 err)
2816 character(len=*), intent(IN) :: name
2817 REAL(KIND=8), pointer &
2818 :: ptr_data
2819 integer, intent(IN) :: access
2820 integer, intent(OUT), optional :: err
2821 endsubroutine PDI_access_REAL8_0D
2822 !=============================================================================
2823
2824
2825 !=============================================================================
2826 !< requests for PDI to access a data buffer.
2827 !! \param[IN] name the data name
2828 !! \param[OUT] ptr_data pointer associated with the accessd data
2829 !! \param[IN] access whether the data can be accessed for read or write by
2830 !! PDI
2831 !! \param[OUT] err for error status (optional)
2832 subroutine PDI_access_REAL8_1D(name, ptr_data, access, &
2833 ptr_data_shape, &
2834 err)
2835 character(len=*), intent(IN) :: name
2836 REAL(KIND=8), pointer &
2837 , contiguous &
2838 :: ptr_data(:)
2839 integer, intent(IN) :: access
2840 integer, intent(IN) :: ptr_data_shape(1)
2841 integer, intent(OUT), optional :: err
2842 endsubroutine PDI_access_REAL8_1D
2843 !=============================================================================
2844
2845
2846 !=============================================================================
2847 !< requests for PDI to access a data buffer.
2848 !! \param[IN] name the data name
2849 !! \param[OUT] ptr_data pointer associated with the accessd data
2850 !! \param[IN] access whether the data can be accessed for read or write by
2851 !! PDI
2852 !! \param[OUT] err for error status (optional)
2853 subroutine PDI_access_REAL8_2D(name, ptr_data, access, &
2854 ptr_data_shape, &
2855 err)
2856 character(len=*), intent(IN) :: name
2857 REAL(KIND=8), pointer &
2858 , contiguous &
2859 :: ptr_data(:,:)
2860 integer, intent(IN) :: access
2861 integer, intent(IN) :: ptr_data_shape(2)
2862 integer, intent(OUT), optional :: err
2863 endsubroutine PDI_access_REAL8_2D
2864 !=============================================================================
2865
2866
2867 !=============================================================================
2868 !< requests for PDI to access a data buffer.
2869 !! \param[IN] name the data name
2870 !! \param[OUT] ptr_data pointer associated with the accessd data
2871 !! \param[IN] access whether the data can be accessed for read or write by
2872 !! PDI
2873 !! \param[OUT] err for error status (optional)
2874 subroutine PDI_access_REAL8_3D(name, ptr_data, access, &
2875 ptr_data_shape, &
2876 err)
2877 character(len=*), intent(IN) :: name
2878 REAL(KIND=8), pointer &
2879 , contiguous &
2880 :: ptr_data(:,:,:)
2881 integer, intent(IN) :: access
2882 integer, intent(IN) :: ptr_data_shape(3)
2883 integer, intent(OUT), optional :: err
2884 endsubroutine PDI_access_REAL8_3D
2885 !=============================================================================
2886
2887
2888 !=============================================================================
2889 !< requests for PDI to access a data buffer.
2890 !! \param[IN] name the data name
2891 !! \param[OUT] ptr_data pointer associated with the accessd data
2892 !! \param[IN] access whether the data can be accessed for read or write by
2893 !! PDI
2894 !! \param[OUT] err for error status (optional)
2895 subroutine PDI_access_REAL8_4D(name, ptr_data, access, &
2896 ptr_data_shape, &
2897 err)
2898 character(len=*), intent(IN) :: name
2899 REAL(KIND=8), pointer &
2900 , contiguous &
2901 :: ptr_data(:,:,:,:)
2902 integer, intent(IN) :: access
2903 integer, intent(IN) :: ptr_data_shape(4)
2904 integer, intent(OUT), optional :: err
2905 endsubroutine PDI_access_REAL8_4D
2906 !=============================================================================
2907
2908
2909 !=============================================================================
2910 !< requests for PDI to access a data buffer.
2911 !! \param[IN] name the data name
2912 !! \param[OUT] ptr_data pointer associated with the accessd data
2913 !! \param[IN] access whether the data can be accessed for read or write by
2914 !! PDI
2915 !! \param[OUT] err for error status (optional)
2916 subroutine PDI_access_REAL8_5D(name, ptr_data, access, &
2917 ptr_data_shape, &
2918 err)
2919 character(len=*), intent(IN) :: name
2920 REAL(KIND=8), pointer &
2921 , contiguous &
2922 :: ptr_data(:,:,:,:,:)
2923 integer, intent(IN) :: access
2924 integer, intent(IN) :: ptr_data_shape(5)
2925 integer, intent(OUT), optional :: err
2926 endsubroutine PDI_access_REAL8_5D
2927 !=============================================================================
2928
2929
2930 !=============================================================================
2931 !< requests for PDI to access a data buffer.
2932 !! \param[IN] name the data name
2933 !! \param[OUT] ptr_data pointer associated with the accessd data
2934 !! \param[IN] access whether the data can be accessed for read or write by
2935 !! PDI
2936 !! \param[OUT] err for error status (optional)
2937 subroutine PDI_access_REAL8_6D(name, ptr_data, access, &
2938 ptr_data_shape, &
2939 err)
2940 character(len=*), intent(IN) :: name
2941 REAL(KIND=8), pointer &
2942 , contiguous &
2943 :: ptr_data(:,:,:,:,:,:)
2944 integer, intent(IN) :: access
2945 integer, intent(IN) :: ptr_data_shape(6)
2946 integer, intent(OUT), optional :: err
2947 endsubroutine PDI_access_REAL8_6D
2948 !=============================================================================
2949
2950
2951 !=============================================================================
2952 !< requests for PDI to access a data buffer.
2953 !! \param[IN] name the data name
2954 !! \param[OUT] ptr_data pointer associated with the accessd data
2955 !! \param[IN] access whether the data can be accessed for read or write by
2956 !! PDI
2957 !! \param[OUT] err for error status (optional)
2958 subroutine PDI_access_REAL8_7D(name, ptr_data, access, &
2959 ptr_data_shape, &
2960 err)
2961 character(len=*), intent(IN) :: name
2962 REAL(KIND=8), pointer &
2963 , contiguous &
2964 :: ptr_data(:,:,:,:,:,:,:)
2965 integer, intent(IN) :: access
2966 integer, intent(IN) :: ptr_data_shape(7)
2967 integer, intent(OUT), optional :: err
2968 endsubroutine PDI_access_REAL8_7D
2969 !=============================================================================
2970
2971
2972 !=============================================================================
2973 !< requests for PDI to access a data buffer.
2974 !! \param[IN] name the data name
2975 !! \param[OUT] ptr_data pointer associated with the accessd data
2976 !! \param[IN] access whether the data can be accessed for read or write by
2977 !! PDI
2978 !! \param[OUT] err for error status (optional)
2979 subroutine PDI_access_REAL16_0D(name, ptr_data, access, &
2980 err)
2981 character(len=*), intent(IN) :: name
2982 REAL(KIND=16), pointer &
2983 :: ptr_data
2984 integer, intent(IN) :: access
2985 integer, intent(OUT), optional :: err
2986 endsubroutine PDI_access_REAL16_0D
2987 !=============================================================================
2988
2989
2990 !=============================================================================
2991 !< requests for PDI to access a data buffer.
2992 !! \param[IN] name the data name
2993 !! \param[OUT] ptr_data pointer associated with the accessd data
2994 !! \param[IN] access whether the data can be accessed for read or write by
2995 !! PDI
2996 !! \param[OUT] err for error status (optional)
2997 subroutine PDI_access_REAL16_1D(name, ptr_data, access, &
2998 ptr_data_shape, &
2999 err)
3000 character(len=*), intent(IN) :: name
3001 REAL(KIND=16), pointer &
3002 , contiguous &
3003 :: ptr_data(:)
3004 integer, intent(IN) :: access
3005 integer, intent(IN) :: ptr_data_shape(1)
3006 integer, intent(OUT), optional :: err
3007 endsubroutine PDI_access_REAL16_1D
3008 !=============================================================================
3009
3010
3011 !=============================================================================
3012 !< requests for PDI to access a data buffer.
3013 !! \param[IN] name the data name
3014 !! \param[OUT] ptr_data pointer associated with the accessd data
3015 !! \param[IN] access whether the data can be accessed for read or write by
3016 !! PDI
3017 !! \param[OUT] err for error status (optional)
3018 subroutine PDI_access_REAL16_2D(name, ptr_data, access, &
3019 ptr_data_shape, &
3020 err)
3021 character(len=*), intent(IN) :: name
3022 REAL(KIND=16), pointer &
3023 , contiguous &
3024 :: ptr_data(:,:)
3025 integer, intent(IN) :: access
3026 integer, intent(IN) :: ptr_data_shape(2)
3027 integer, intent(OUT), optional :: err
3028 endsubroutine PDI_access_REAL16_2D
3029 !=============================================================================
3030
3031
3032 !=============================================================================
3033 !< requests for PDI to access a data buffer.
3034 !! \param[IN] name the data name
3035 !! \param[OUT] ptr_data pointer associated with the accessd data
3036 !! \param[IN] access whether the data can be accessed for read or write by
3037 !! PDI
3038 !! \param[OUT] err for error status (optional)
3039 subroutine PDI_access_REAL16_3D(name, ptr_data, access, &
3040 ptr_data_shape, &
3041 err)
3042 character(len=*), intent(IN) :: name
3043 REAL(KIND=16), pointer &
3044 , contiguous &
3045 :: ptr_data(:,:,:)
3046 integer, intent(IN) :: access
3047 integer, intent(IN) :: ptr_data_shape(3)
3048 integer, intent(OUT), optional :: err
3049 endsubroutine PDI_access_REAL16_3D
3050 !=============================================================================
3051
3052
3053 !=============================================================================
3054 !< requests for PDI to access a data buffer.
3055 !! \param[IN] name the data name
3056 !! \param[OUT] ptr_data pointer associated with the accessd data
3057 !! \param[IN] access whether the data can be accessed for read or write by
3058 !! PDI
3059 !! \param[OUT] err for error status (optional)
3060 subroutine PDI_access_REAL16_4D(name, ptr_data, access, &
3061 ptr_data_shape, &
3062 err)
3063 character(len=*), intent(IN) :: name
3064 REAL(KIND=16), pointer &
3065 , contiguous &
3066 :: ptr_data(:,:,:,:)
3067 integer, intent(IN) :: access
3068 integer, intent(IN) :: ptr_data_shape(4)
3069 integer, intent(OUT), optional :: err
3070 endsubroutine PDI_access_REAL16_4D
3071 !=============================================================================
3072
3073
3074 !=============================================================================
3075 !< requests for PDI to access a data buffer.
3076 !! \param[IN] name the data name
3077 !! \param[OUT] ptr_data pointer associated with the accessd data
3078 !! \param[IN] access whether the data can be accessed for read or write by
3079 !! PDI
3080 !! \param[OUT] err for error status (optional)
3081 subroutine PDI_access_REAL16_5D(name, ptr_data, access, &
3082 ptr_data_shape, &
3083 err)
3084 character(len=*), intent(IN) :: name
3085 REAL(KIND=16), pointer &
3086 , contiguous &
3087 :: ptr_data(:,:,:,:,:)
3088 integer, intent(IN) :: access
3089 integer, intent(IN) :: ptr_data_shape(5)
3090 integer, intent(OUT), optional :: err
3091 endsubroutine PDI_access_REAL16_5D
3092 !=============================================================================
3093
3094
3095 !=============================================================================
3096 !< requests for PDI to access a data buffer.
3097 !! \param[IN] name the data name
3098 !! \param[OUT] ptr_data pointer associated with the accessd data
3099 !! \param[IN] access whether the data can be accessed for read or write by
3100 !! PDI
3101 !! \param[OUT] err for error status (optional)
3102 subroutine PDI_access_REAL16_6D(name, ptr_data, access, &
3103 ptr_data_shape, &
3104 err)
3105 character(len=*), intent(IN) :: name
3106 REAL(KIND=16), pointer &
3107 , contiguous &
3108 :: ptr_data(:,:,:,:,:,:)
3109 integer, intent(IN) :: access
3110 integer, intent(IN) :: ptr_data_shape(6)
3111 integer, intent(OUT), optional :: err
3112 endsubroutine PDI_access_REAL16_6D
3113 !=============================================================================
3114
3115
3116 !=============================================================================
3117 !< requests for PDI to access a data buffer.
3118 !! \param[IN] name the data name
3119 !! \param[OUT] ptr_data pointer associated with the accessd data
3120 !! \param[IN] access whether the data can be accessed for read or write by
3121 !! PDI
3122 !! \param[OUT] err for error status (optional)
3123 subroutine PDI_access_REAL16_7D(name, ptr_data, access, &
3124 ptr_data_shape, &
3125 err)
3126 character(len=*), intent(IN) :: name
3127 REAL(KIND=16), pointer &
3128 , contiguous &
3129 :: ptr_data(:,:,:,:,:,:,:)
3130 integer, intent(IN) :: access
3131 integer, intent(IN) :: ptr_data_shape(7)
3132 integer, intent(OUT), optional :: err
3133 endsubroutine PDI_access_REAL16_7D
3134 !=============================================================================
3135
3136endinterface PDI_access