Line data Source code
1 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3 : !!!! !!!!
4 : !!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5 : !!!! !!!!
6 : !!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7 : !!!! !!!!
8 : !!!! This file is part of the ParaMonte library. !!!!
9 : !!!! !!!!
10 : !!!! LICENSE !!!!
11 : !!!! !!!!
12 : !!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13 : !!!! !!!!
14 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16 :
17 : !> \brief
18 : !> This file contains procedure implementations of [pm_io](@ref pm_io).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, Tuesday March 7, 2017, 3:50 AM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : #if MEXPRINT_ENABLED
28 : #include "fintrf.h"
29 : #endif
30 :
31 : submodule (pm_io) routines
32 :
33 : #if CHECK_ENABLED
34 : use pm_err, only: getFine
35 : use pm_val2str, only: getStr
36 : use pm_err, only: setAsserted
37 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) \
38 : call setAsserted(ASSERTION,getFine(__FILE__,LINE)//MODULE_NAME//MSG);
39 : #else
40 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) continue;
41 : #endif
42 :
43 : use pm_str, only: NLC
44 : use pm_kind, only: RKB
45 : use pm_val2str, only: getStr
46 : use pm_option, only: getOption
47 : use pm_arrayFind, only: setLoc
48 : use pm_arrayResize, only: setResized
49 : use pm_arrayCenter, only: setCentered
50 : use pm_mathNumSys, only: getCountDigit
51 : use pm_arrayMembership, only: operator(.in.)
52 : use pm_sysShell, only: isFailedGetShellHeight
53 : use pm_sysShell, only: isFailedGetShellWidth
54 : use iso_fortran_env, only: output_unit
55 : use pm_mathNumSys, only: getCountDigit
56 : use pm_strASCII, only: getStrQuoted
57 : use pm_arrayFind, only: getCountLoc
58 : use pm_strASCII, only: setStrLower
59 : use pm_strASCII, only: getStrLower
60 :
61 : use iso_fortran_env, only: iostat_end, iostat_eor
62 :
63 : implicit none
64 :
65 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
66 :
67 : contains
68 :
69 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
70 :
71 67 : module procedure constructOpenArg
72 :
73 : !character(:, SK), allocatable :: msg
74 : !if (allocated(msg)) deallocate(msg)
75 :
76 : construction_block: block
77 :
78 : ! Set the file access mode.
79 :
80 67 : if (present(access)) then
81 0 : openArg%access = access
82 : !if (isFalseAssertion(isValidAccess(openArg%access), SK_"The input `access` value is invalid: "//getStr(openArg%access), iostat, iomsg)) return ! LCOV_EXCL_LINE
83 0 : if(.not. isValidAccess(openArg%access)) then
84 0 : openArg%iomsg = SK_"The input `access` value is invalid: "//getStr(openArg%access)
85 0 : exit construction_block
86 : end if
87 : end if
88 :
89 : ! Set the file action mode.
90 :
91 67 : if (present(action)) then
92 0 : openArg%action = action
93 : !if (isFalseAssertion(isValidAction(openArg%action), SK_"The input `action` value is invalid: "//getStr(openArg%action), iostat, iomsg)) return ! LCOV_EXCL_LINE
94 0 : if(.not. isValidAction(openArg%action)) then
95 0 : openArg%iomsg = SK_"The input `action` value is invalid: "//getStr(openArg%action)
96 0 : exit construction_block
97 : end if
98 : end if
99 :
100 : ! Set the file asynchronous mode.
101 :
102 67 : if (present(asynchronous)) then
103 0 : openArg%asynchronous = asynchronous
104 : !if (isFalseAssertion(isValidAsynchronous(openArg%asynchronous), SK_"The input `asynchronous` value is invalid: "//getStr(openArg%asynchronous), iostat, iomsg)) return ! LCOV_EXCL_LINE
105 0 : if(.not. isValidAsynchronous(openArg%asynchronous)) then
106 0 : openArg%iomsg = SK_"The input `asynchronous` value is invalid: "//getStr(openArg%asynchronous)
107 0 : exit construction_block
108 : end if
109 : end if
110 :
111 : ! Set the file number padding style (with blanks or zeros).
112 :
113 67 : if (present(blank)) then
114 0 : openArg%blank = blank
115 : !if (isFalseAssertion(isValidBlank(openArg%blank), SK_"The input `blank` value is invalid: "//getStr(openArg%blank), iostat, iomsg)) return ! LCOV_EXCL_LINE
116 0 : if(.not. isValidBlank(openArg%blank)) then
117 0 : openArg%iomsg = SK_"The input `blank` value is invalid: "//getStr(openArg%blank)
118 0 : exit construction_block
119 : end if
120 : end if
121 :
122 : ! Set the file decimal symbol.
123 :
124 67 : if (present(decimal)) then
125 0 : openArg%decimal = decimal
126 : !if (isFalseAssertion(isValidDecimal(openArg%decimal), SK_"The input `decimal` value is invalid: "//getStr(openArg%decimal), iostat, iomsg)) return ! LCOV_EXCL_LINE
127 0 : if(.not. isValidDecimal(openArg%decimal)) then
128 0 : openArg%iomsg = SK_"The input `decimal` value is invalid: "//getStr(openArg%decimal)
129 0 : exit construction_block
130 : end if
131 : end if
132 :
133 : ! Set the file string delimiter (string quotation).
134 :
135 67 : if (present(delim)) then
136 0 : openArg%delim = delim
137 : !if (isFalseAssertion(isValidDelim(openArg%delim), SK_"The input `delim` value is invalid: "//getStr(openArg%delim), iostat, iomsg)) return ! LCOV_EXCL_LINE
138 0 : if(.not. isValidDelim(openArg%delim)) then
139 0 : openArg%iomsg = SK_"The input `delim` value is invalid: "//getStr(openArg%delim)
140 0 : exit construction_block
141 : end if
142 : end if
143 :
144 : ! Set the file encoding.
145 :
146 67 : if (present(encoding)) then
147 0 : openArg%encoding = encoding
148 : !if (isFalseAssertion(isValidEncoding(openArg%encoding), SK_"The input `encoding` value is invalid: "//getStr(openArg%encoding), iostat, iomsg)) return ! LCOV_EXCL_LINE
149 0 : if(.not. isValidEncoding(openArg%encoding)) then
150 0 : openArg%iomsg = SK_"The input `encoding` value is invalid: "//getStr(openArg%encoding)
151 0 : exit construction_block
152 : end if
153 : end if
154 :
155 : ! Set the file form.
156 :
157 67 : if (present(form)) then
158 0 : openArg%form = form
159 : !if (isFalseAssertion(isValidForm(openArg%form), SK_"The input `form` value is invalid: "//getStr(openArg%form), iostat, iomsg)) return ! LCOV_EXCL_LINE
160 0 : if(.not. isValidForm(openArg%form)) then
161 0 : openArg%iomsg = SK_"The input `form` value is invalid: "//getStr(openArg%form)
162 0 : exit construction_block
163 : end if
164 67 : elseif (openArg%access == SK_"direct" .or. openArg%access == SK_"stream") then
165 0 : openArg%form = SK_"unformatted"
166 : end if
167 :
168 : ! Set the file variable padding mode.
169 :
170 67 : if (present(pad)) then
171 0 : openArg%pad = pad
172 : !if (isFalseAssertion(isValidPad(openArg%pad), SK_"The input `pad` value is invalid: "//getStr(openArg%pad), iostat, iomsg)) return ! LCOV_EXCL_LINE
173 0 : if(.not. isValidPad(openArg%pad)) then
174 0 : openArg%iomsg = SK_"The input `pad` value is invalid: "//getStr(openArg%pad)
175 0 : exit construction_block
176 : end if
177 : end if
178 :
179 : ! Set the file variable padding mode.
180 :
181 67 : if (present(position)) then
182 0 : openArg%position = position
183 : !if (isFalseAssertion(isValidPosition(openArg%position), SK_"The input `position` value is invalid: "//getStr(openArg%position), iostat, iomsg)) return ! LCOV_EXCL_LINE
184 0 : if(.not. isValidPosition(openArg%position)) then
185 0 : openArg%iomsg = SK_"The input `position` value is invalid: "//getStr(openArg%position)
186 0 : exit construction_block
187 : end if
188 : end if
189 :
190 : ! Set the file record length.
191 :
192 67 : if (openArg%access == SK_"sequential") then
193 67 : if (present(recl)) then
194 0 : openArg%recl = recl
195 : !if (isFalseAssertion(isValidRecl(openArg%recl), SK_"The input `recl` value is invalid: "//getStr(openArg%recl), iostat, iomsg)) return ! LCOV_EXCL_LINE
196 0 : if(.not. isValidRecl(openArg%recl)) then
197 0 : openArg%iomsg = SK_"The input `recl` value is invalid: "//getStr(openArg%recl)
198 0 : exit construction_block
199 : end if
200 : end if
201 : else
202 : !if (isFalseAssertion(logical(openArg%access == SK_"stream" .and. .not. present(recl), LK), SK_"The input argument `recl` must not be present when the file access mode is `stream`.", iostat, iomsg)) return ! LCOV_EXCL_LINE
203 0 : if(.not. (logical(openArg%access == SK_"stream" .and. .not. present(recl), LK))) then
204 0 : openArg%iomsg = SK_"The input argument `recl` must not be present when the file access mode is `stream`."
205 : exit construction_block
206 : end if
207 : !if (isFalseAssertion(logical(openArg%access == SK_"direct" .and. .not. present(recl), LK), SK_"The input argument `recl` must be present when the file access mode is `direct`.", iostat, iomsg)) return ! LCOV_EXCL_LINE
208 0 : if(.not. (logical(openArg%access == SK_"direct" .and. .not. present(recl), LK))) then
209 0 : openArg%iomsg = SK_"The input argument `recl` must be present when the file access mode is `direct`."
210 : exit construction_block
211 : end if
212 : end if
213 :
214 : ! Set the file rounding mode.
215 :
216 67 : if (present(round)) then
217 0 : openArg%round = round
218 : !if (isFalseAssertion(isValidRound(openArg%round), SK_"The input `round` value is invalid: "//getStr(openArg%round), iostat, iomsg)) return ! LCOV_EXCL_LINE
219 0 : if(.not. isValidRound(openArg%round)) then
220 0 : openArg%iomsg = SK_"The input `round` value is invalid: "//getStr(openArg%round)
221 0 : exit construction_block
222 : end if
223 : end if
224 :
225 : ! Set the file sign mode.
226 :
227 67 : if (present(sign)) then
228 0 : openArg%sign = sign
229 : !if (isFalseAssertion(isValidSign(openArg%sign), SK_"The input `sign` value is invalid: "//getStr(openArg%sign), iostat, iomsg)) return ! LCOV_EXCL_LINE
230 0 : if(.not. isValidSign(openArg%sign)) then
231 0 : openArg%iomsg = SK_"The input `sign` value is invalid: "//getStr(openArg%sign)
232 0 : exit construction_block
233 : end if
234 : end if
235 :
236 : ! Set the file status.
237 :
238 67 : if (present(status)) then
239 67 : openArg%status = status
240 : !if (isFalseAssertion(isValidStatus(openArg%status), SK_"The input `status` value is invalid: "//getStr(openArg%status), iostat, iomsg)) return ! LCOV_EXCL_LINE
241 67 : if(.not. isValidStatus(openArg%status)) then
242 0 : openArg%iomsg = SK_"The input `status` value is invalid: "//getStr(openArg%status)
243 0 : exit construction_block
244 : end if
245 : end if
246 :
247 : ! Set the file name.
248 :
249 67 : if (present(file)) then
250 2 : openArg%file = file
251 : !if (isFalseAssertion(logical(openArg%status == SK_"scratch", LK), SK_"A file name cannot be specified when `status = ""scratch""`", iostat, iomsg)) return ! LCOV_EXCL_LINE
252 2 : if(openArg%status == SK_"scratch") then
253 1 : openArg%iomsg = SK_"A file name cannot be specified when `status = ""scratch""`"
254 : exit construction_block
255 : end if
256 : end if
257 :
258 : ! Set the file unit.
259 :
260 196 : openArg%unit = getOption(getFileUnit(file), unit)
261 66 : if (openArg%unit == -1_IK) openArg%unit = getFileUnit()
262 :
263 66 : if (present(iostat)) iostat = 0_IK
264 66 : return ! this is critical for safe return.
265 :
266 : ! Set the iomsg component length.
267 :
268 : if (present(iomsg)) then
269 : openArg%iomsg = repeat(" ", len(iomsg, IK))
270 : else
271 : openArg%iomsg = repeat(" ", LEN_IOMSG)
272 : end if
273 :
274 : if (present(iostat)) iostat = 0_IK
275 : return ! this is critical for safe return.
276 :
277 : end block construction_block
278 :
279 1 : openArg%iomsg = SK_"FATAL RUNTIME ERROR: "//openArg%iomsg
280 1 : if (present(iomsg)) iomsg = openArg%iomsg
281 1 : if (present(iostat)) then
282 1 : iostat = 1_IK
283 : else
284 : error stop openArg%iomsg ! LCOV_EXCL_LINE
285 : end if
286 :
287 68 : end procedure
288 :
289 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
290 :
291 : #if 0
292 : !> \brief
293 : !> Generate and return `.false.` if the input assertion is `.true.`, otherwise
294 : !> return `.false.`, all the while setting the rest of the `optional` output arguments.
295 : !>
296 : !> \details
297 : !> If the `optional` output arguments and missing and the `assertion` is `.false.`,
298 : !> then program will halt by calling the `error stop msg` statement, where `msg` is the input message to display.
299 : !>
300 : !> \param[in] assertion : The input scalar `logical` of default kind \LK representing the logical value of assertion to evaluate.
301 : !> \param[in] msg : The input scalar `character` of default kind \SK representing the contents of the output argument `iomsg`.
302 : !> If the output argument `iostat` is missing, then `msg` will be passed to the `error stop` statement.
303 : !> \param[in] iostat : The output scalar `integer` of default kind \IK that is set to `1` if assertion is `.false.`, otherwise `0`.<br>
304 : !> (**optional**. If missing and `assertion` is .false., then program will halt by calling `error stop`).
305 : !> \param[inout] iomsg : The input/output scalar `character` of default kind \SK that contains the input `msg`.<br>
306 : !> (**optional**. The presence of the output `iomsg` is relevant only if `iostat` is also present.)
307 : !>
308 : !> \return
309 : !> `assertionIsFalse` : The output scalar `logical` of default kind \LK that is `.true.` if `assertion == .false.` holds, otherwise, it is `.false.`.
310 : !>
311 : !> \interface{isFalseAssertion}
312 : !> \code{.F90}
313 : !>
314 : !> use pm_io, only: isFalseAssertion
315 : !>
316 : !> assertionIsFalse = isFalseAssertion(assertion, msg, iostat = iostat, iomsg = iomsg)
317 : !>
318 : !> \endcode
319 : !>
320 : !> \note
321 : !> This procedure is primarily intended for handling of IO errors within the parent module of the procedure ([pm_io](@ref pm_io)).
322 : !>
323 : !> \see
324 : !> [openArg_type](@ref pm_io::openArg_type)<br>
325 : !>
326 : !> \test
327 : !> [test_pm_io](@ref test_pm_io)
328 : !>
329 : !> \finmain{isFalseAssertion}
330 : !>
331 : !> \author
332 : !> \AmirShahmoradi, Tuesday March 7, 2017, 2:22 AM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
333 : function isFalseAssertion(assertion, msg, iostat, iomsg) result(assertionIsFalse)
334 : #if __INTEL_COMPILER
335 : !DEC$ ATTRIBUTES INLINE :: isFalseAssertion
336 : #endif
337 : logical(LK) , intent(in) :: assertion
338 : character(*, SK), intent(in) :: msg
339 : integer(IK) , intent(out) , optional :: iostat
340 : character(*, SK), intent(inout) , optional :: iomsg
341 : logical(LK) :: assertionIsFalse
342 : assertionIsFalse = .not. assertion
343 : if (assertionIsFalse .and. present(iostat)) then
344 : if (present(iostat)) then
345 : if (present(iomsg)) iomsg = trim(adjustl(msg))
346 : iostat = 1_IK
347 : else
348 : error stop SK_"FATAL RUNTIME ERROR: "//trim(adjustl(msg)) ! LCOV_EXCL_LINE
349 : end if
350 : elseif (present(iostat)) then
351 : iostat = 0_IK
352 : end if
353 : end function
354 : #endif
355 :
356 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
357 :
358 : #define constructField_ENABLED 1
359 :
360 4 : module procedure constructField
361 : #include "pm_io@routines.inc.F90"
362 4 : end procedure
363 :
364 : #undef constructField_ENABLED
365 :
366 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
367 :
368 : #define getAction_ENABLED 1
369 :
370 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
371 :
372 : #define File_ENABLED 1
373 :
374 4 : module procedure getActionFile
375 : #include "pm_io@routines.inc.F90"
376 4 : end procedure
377 :
378 : #undef File_ENABLED
379 :
380 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
381 :
382 : #define Unit_ENABLED 1
383 :
384 7 : module procedure getActionUnit
385 : #include "pm_io@routines.inc.F90"
386 7 : end procedure
387 :
388 : #undef Unit_ENABLED
389 :
390 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
391 :
392 : #undef getAction_ENABLED
393 :
394 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
395 :
396 : #define isOpen_ENABLED 1
397 :
398 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
399 :
400 : #define File_ENABLED 1
401 :
402 775017 : module procedure isOpenFile
403 : #include "pm_io@routines.inc.F90"
404 775017 : end procedure
405 :
406 : #undef File_ENABLED
407 :
408 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
409 :
410 : #define Unit_ENABLED 1
411 :
412 22 : module procedure isOpenUnit
413 : #include "pm_io@routines.inc.F90"
414 22 : end procedure
415 :
416 : #undef Unit_ENABLED
417 :
418 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
419 :
420 : #undef isOpen_ENABLED
421 :
422 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
423 :
424 : #define getCountRecord_ENABLED 1
425 :
426 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
427 :
428 : #define File_ENABLED 1
429 :
430 3 : module procedure getCountRecordFile
431 : #include "pm_io@routines.inc.F90"
432 3 : end procedure
433 :
434 : #undef File_ENABLED
435 :
436 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
437 :
438 : #define Unit_ENABLED 1
439 :
440 0 : module procedure getCountRecordUnit
441 : #include "pm_io@routines.inc.F90"
442 0 : end procedure
443 :
444 : #undef Unit_ENABLED
445 :
446 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
447 :
448 : #undef getCountRecord_ENABLED
449 :
450 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
451 :
452 : #define getContentsFrom_ENABLED 1
453 :
454 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
455 :
456 : #define File_ENABLED 1
457 :
458 25 : module procedure getContentsFromFile_SK
459 : use pm_kind, only: SKC => SK
460 : #include "pm_io@routines.inc.F90"
461 25 : end procedure
462 :
463 : #undef File_ENABLED
464 :
465 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
466 :
467 : #define Unit_ENABLED 1
468 :
469 1 : module procedure getContentsFromUnit_SK
470 : use pm_kind, only: SKC => SK
471 : #include "pm_io@routines.inc.F90"
472 1 : end procedure
473 :
474 : #undef Unit_ENABLED
475 :
476 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
477 :
478 : #undef getContentsFrom_ENABLED
479 :
480 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
481 :
482 : #define setContentsFrom_ENABLED 1
483 :
484 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
485 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
486 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
487 :
488 : #define File_ENABLED 1
489 :
490 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
491 :
492 : #define CDD_ENABLED 1
493 :
494 25 : module procedure setContentsFromFileCDD_SK
495 : use pm_kind, only: SKC => SK
496 : #include "pm_io@routines.inc.F90"
497 : end procedure
498 :
499 : #undef CDD_ENABLED
500 :
501 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
502 :
503 : #define CII_ENABLED 1
504 :
505 774973 : module procedure setContentsFromFileCII_SK
506 : use pm_kind, only: SKC => SK
507 : #include "pm_io@routines.inc.F90"
508 : end procedure
509 :
510 : #undef CII_ENABLED
511 :
512 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
513 :
514 : #undef File_ENABLED
515 :
516 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
517 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
518 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
519 :
520 : #define Unit_ENABLED 1
521 :
522 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
523 :
524 : #define CDD_ENABLED 1
525 :
526 2 : module procedure setContentsFromUnitCDD_SK
527 : use pm_kind, only: SKC => SK
528 : #include "pm_io@routines.inc.F90"
529 1 : end procedure
530 :
531 : #undef CDD_ENABLED
532 :
533 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
534 :
535 : #define CII_ENABLED 1
536 :
537 0 : module procedure setContentsFromUnitCII_SK
538 : use pm_kind, only: SKC => SK
539 : #include "pm_io@routines.inc.F90"
540 : end procedure
541 :
542 : #undef CII_ENABLED
543 :
544 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
545 :
546 : #undef Unit_ENABLED
547 :
548 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
549 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
550 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
551 :
552 : #undef setContentsFrom_ENABLED
553 :
554 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
555 :
556 : #define setContentsTo_ENABLED 1
557 :
558 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
559 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
560 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
561 :
562 : #define File_ENABLED 1
563 :
564 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
565 :
566 : #define CDD_ENABLED 1
567 :
568 13 : module procedure setContentsToFileCDD_SK
569 : use pm_kind, only: SKC => SK
570 : #include "pm_io@routines.inc.F90"
571 13 : end procedure
572 :
573 : #undef CDD_ENABLED
574 :
575 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
576 :
577 : #define CII_ENABLED 1
578 :
579 1 : module procedure setContentsToFileCII_SK
580 : use pm_kind, only: SKC => SK
581 : #include "pm_io@routines.inc.F90"
582 : end procedure
583 :
584 : #undef CII_ENABLED
585 :
586 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
587 :
588 : #undef File_ENABLED
589 :
590 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
591 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
592 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
593 : !
594 : !#define Unit_ENABLED 1
595 : !
596 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
597 : !
598 : !#define CDD_ENABLED 1
599 : !
600 : ! module procedure setContentsToUnitCDD_SK
601 : ! use pm_kind, only: SKC => SK
602 : !#include "pm_io@routines.inc.F90"
603 : ! end procedure
604 : !
605 : !#undef CDD_ENABLED
606 : !
607 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
608 : !
609 : !#define CII_ENABLED 1
610 : !
611 : ! module procedure setContentsToUnitCII_SK
612 : ! use pm_kind, only: SKC => SK
613 : !#include "pm_io@routines.inc.F90"
614 : ! end procedure
615 : !
616 : !#undef CII_ENABLED
617 : !
618 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
619 : !
620 : !#undef Unit_ENABLED
621 : !
622 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
623 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
624 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
625 :
626 : #undef setContentsTo_ENABLED
627 :
628 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
629 :
630 : #define setFileClosed_ENABLED 1
631 :
632 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
633 :
634 : #define IK_ENABLED 1
635 :
636 7 : module procedure setFileClosed_IK
637 : use pm_kind, only: IKC => IK
638 : #include "pm_io@routines.inc.F90"
639 7 : end procedure
640 :
641 : #undef IK_ENABLED
642 :
643 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
644 :
645 : #undef setFileClosed_ENABLED
646 :
647 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
648 :
649 : #define getCountRecordLeft_ENABLED 1
650 :
651 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
652 :
653 : #define IK_ENABLED 1
654 :
655 6 : module procedure getCountRecordLeft_IK
656 : use pm_kind, only: IKC => IK
657 : #include "pm_io@routines.inc.F90"
658 12 : end procedure
659 :
660 : #undef IK_ENABLED
661 :
662 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
663 :
664 : #undef getCountRecordLeft_ENABLED
665 :
666 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
667 :
668 : #define getRecordFrom_ENABLED 1
669 :
670 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
671 :
672 : #define Unit_ENABLED 1
673 :
674 48 : module procedure getRecordFromUnit_SK
675 : use pm_kind, only: SKC => SK
676 : #include "pm_io@routines.inc.F90"
677 48 : end procedure
678 :
679 : #undef Unit_ENABLED
680 :
681 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
682 :
683 : #undef getRecordFrom_ENABLED
684 :
685 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
686 :
687 : #define setRecordFrom_ENABLED 1
688 :
689 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
690 :
691 : #define UR_ENABLED 1
692 :
693 0 : module procedure setRecordFromUR_SK
694 : use pm_kind, only: SKC => SK
695 : #include "pm_io@routines.inc.F90"
696 : end procedure
697 :
698 : #undef UR_ENABLED
699 :
700 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
701 :
702 : #define URII_ENABLED 1
703 :
704 38316 : module procedure setRecordFromURII_SK
705 : use pm_kind, only: SKC => SK
706 : #include "pm_io@routines.inc.F90"
707 : end procedure
708 :
709 : #undef URII_ENABLED
710 :
711 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
712 :
713 : #undef setRecordFrom_ENABLED
714 :
715 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
716 :
717 : #define getErrTableRead_ENABLED 1
718 :
719 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
720 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
721 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
722 :
723 : #define NO_ENABLED 1
724 :
725 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
726 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
727 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
728 :
729 : #define D1_ENABLED 1
730 :
731 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
732 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
733 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
734 :
735 : #define File_ENABLED 1
736 :
737 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
738 :
739 : #define SK_ENABLED 1
740 :
741 : #if SK5_ENABLED
742 : module procedure getErrTableReadFile_NO_D1_SK5
743 : use pm_kind, only: SKC => SK5
744 : #include "pm_io@routines.inc.F90"
745 : end procedure
746 : #endif
747 :
748 : #if SK4_ENABLED
749 : module procedure getErrTableReadFile_NO_D1_SK4
750 : use pm_kind, only: SKC => SK4
751 : #include "pm_io@routines.inc.F90"
752 : end procedure
753 : #endif
754 :
755 : #if SK3_ENABLED
756 : module procedure getErrTableReadFile_NO_D1_SK3
757 : use pm_kind, only: SKC => SK3
758 : #include "pm_io@routines.inc.F90"
759 : end procedure
760 : #endif
761 :
762 : #if SK2_ENABLED
763 : module procedure getErrTableReadFile_NO_D1_SK2
764 : use pm_kind, only: SKC => SK2
765 : #include "pm_io@routines.inc.F90"
766 : end procedure
767 : #endif
768 :
769 : #if SK1_ENABLED
770 0 : module procedure getErrTableReadFile_NO_D1_SK1
771 : use pm_kind, only: SKC => SK1
772 : #include "pm_io@routines.inc.F90"
773 0 : end procedure
774 : #endif
775 :
776 : #undef SK_ENABLED
777 :
778 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
779 :
780 : #define IK_ENABLED 1
781 :
782 : #if IK5_ENABLED
783 0 : module procedure getErrTableReadFile_NO_D1_IK5
784 : use pm_kind, only: IKC => IK5
785 : #include "pm_io@routines.inc.F90"
786 0 : end procedure
787 : #endif
788 :
789 : #if IK4_ENABLED
790 0 : module procedure getErrTableReadFile_NO_D1_IK4
791 : use pm_kind, only: IKC => IK4
792 : #include "pm_io@routines.inc.F90"
793 0 : end procedure
794 : #endif
795 :
796 : #if IK3_ENABLED
797 0 : module procedure getErrTableReadFile_NO_D1_IK3
798 : use pm_kind, only: IKC => IK3
799 : #include "pm_io@routines.inc.F90"
800 0 : end procedure
801 : #endif
802 :
803 : #if IK2_ENABLED
804 0 : module procedure getErrTableReadFile_NO_D1_IK2
805 : use pm_kind, only: IKC => IK2
806 : #include "pm_io@routines.inc.F90"
807 0 : end procedure
808 : #endif
809 :
810 : #if IK1_ENABLED
811 0 : module procedure getErrTableReadFile_NO_D1_IK1
812 : use pm_kind, only: IKC => IK1
813 : #include "pm_io@routines.inc.F90"
814 0 : end procedure
815 : #endif
816 :
817 : #undef IK_ENABLED
818 :
819 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
820 :
821 : #define LK_ENABLED 1
822 :
823 : #define LK_ENABLED 1
824 :
825 : #if LK5_ENABLED
826 0 : module procedure getErrTableReadFile_NO_D1_LK5
827 : use pm_kind, only: LKC => LK5
828 : #include "pm_io@routines.inc.F90"
829 0 : end procedure
830 : #endif
831 :
832 : #if LK4_ENABLED
833 0 : module procedure getErrTableReadFile_NO_D1_LK4
834 : use pm_kind, only: LKC => LK4
835 : #include "pm_io@routines.inc.F90"
836 0 : end procedure
837 : #endif
838 :
839 : #if LK3_ENABLED
840 0 : module procedure getErrTableReadFile_NO_D1_LK3
841 : use pm_kind, only: LKC => LK3
842 : #include "pm_io@routines.inc.F90"
843 0 : end procedure
844 : #endif
845 :
846 : #if LK2_ENABLED
847 0 : module procedure getErrTableReadFile_NO_D1_LK2
848 : use pm_kind, only: LKC => LK2
849 : #include "pm_io@routines.inc.F90"
850 0 : end procedure
851 : #endif
852 :
853 : #if LK1_ENABLED
854 0 : module procedure getErrTableReadFile_NO_D1_LK1
855 : use pm_kind, only: LKC => LK1
856 : #include "pm_io@routines.inc.F90"
857 0 : end procedure
858 : #endif
859 :
860 : #undef LK_ENABLED
861 :
862 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
863 :
864 : #define CK_ENABLED 1
865 :
866 : #if CK3_ENABLED
867 0 : module procedure getErrTableReadFile_NO_D1_CK3
868 : use pm_kind, only: CKC => CK3
869 : #include "pm_io@routines.inc.F90"
870 0 : end procedure
871 : #endif
872 :
873 : #if CK2_ENABLED
874 0 : module procedure getErrTableReadFile_NO_D1_CK2
875 : use pm_kind, only: CKC => CK2
876 : #include "pm_io@routines.inc.F90"
877 0 : end procedure
878 : #endif
879 :
880 : #if CK1_ENABLED
881 0 : module procedure getErrTableReadFile_NO_D1_CK1
882 : use pm_kind, only: CKC => CK1
883 : #include "pm_io@routines.inc.F90"
884 0 : end procedure
885 : #endif
886 :
887 : #if CK5_ENABLED
888 : module procedure getErrTableReadFile_NO_D1_CK5
889 : use pm_kind, only: CKC => CK5
890 : #include "pm_io@routines.inc.F90"
891 : end procedure
892 : #endif
893 :
894 : #if CK4_ENABLED
895 0 : module procedure getErrTableReadFile_NO_D1_CK4
896 : use pm_kind, only: CKC => CK4
897 : #include "pm_io@routines.inc.F90"
898 0 : end procedure
899 : #endif
900 :
901 : #undef CK_ENABLED
902 :
903 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
904 :
905 : #define RK_ENABLED 1
906 :
907 : #if RK5_ENABLED
908 : module procedure getErrTableReadFile_NO_D1_RK5
909 : use pm_kind, only: RKC => RK5
910 : #include "pm_io@routines.inc.F90"
911 : end procedure
912 : #endif
913 :
914 : #if RK4_ENABLED
915 0 : module procedure getErrTableReadFile_NO_D1_RK4
916 : use pm_kind, only: RKC => RK4
917 : #include "pm_io@routines.inc.F90"
918 0 : end procedure
919 : #endif
920 :
921 : #if RK3_ENABLED
922 0 : module procedure getErrTableReadFile_NO_D1_RK3
923 : use pm_kind, only: RKC => RK3
924 : #include "pm_io@routines.inc.F90"
925 0 : end procedure
926 : #endif
927 :
928 : #if RK2_ENABLED
929 0 : module procedure getErrTableReadFile_NO_D1_RK2
930 : use pm_kind, only: RKC => RK2
931 : #include "pm_io@routines.inc.F90"
932 0 : end procedure
933 : #endif
934 :
935 : #if RK1_ENABLED
936 0 : module procedure getErrTableReadFile_NO_D1_RK1
937 : use pm_kind, only: RKC => RK1
938 : #include "pm_io@routines.inc.F90"
939 0 : end procedure
940 : #endif
941 :
942 : #undef RK_ENABLED
943 :
944 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
945 :
946 : #undef File_ENABLED
947 :
948 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
949 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
950 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
951 :
952 : #define Unit_ENABLED 1
953 :
954 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
955 :
956 : #define SK_ENABLED 1
957 :
958 : #if SK5_ENABLED
959 : module procedure getErrTableReadUnit_NO_D1_SK5
960 : use pm_kind, only: SKC => SK5
961 : #include "pm_io@routines.inc.F90"
962 : end procedure
963 : #endif
964 :
965 : #if SK4_ENABLED
966 : module procedure getErrTableReadUnit_NO_D1_SK4
967 : use pm_kind, only: SKC => SK4
968 : #include "pm_io@routines.inc.F90"
969 : end procedure
970 : #endif
971 :
972 : #if SK3_ENABLED
973 : module procedure getErrTableReadUnit_NO_D1_SK3
974 : use pm_kind, only: SKC => SK3
975 : #include "pm_io@routines.inc.F90"
976 : end procedure
977 : #endif
978 :
979 : #if SK2_ENABLED
980 : module procedure getErrTableReadUnit_NO_D1_SK2
981 : use pm_kind, only: SKC => SK2
982 : #include "pm_io@routines.inc.F90"
983 : end procedure
984 : #endif
985 :
986 : #if SK1_ENABLED
987 0 : module procedure getErrTableReadUnit_NO_D1_SK1
988 : use pm_kind, only: SKC => SK1
989 : #include "pm_io@routines.inc.F90"
990 0 : end procedure
991 : #endif
992 :
993 : #undef SK_ENABLED
994 :
995 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
996 :
997 : #define IK_ENABLED 1
998 :
999 : #if IK5_ENABLED
1000 0 : module procedure getErrTableReadUnit_NO_D1_IK5
1001 : use pm_kind, only: IKC => IK5
1002 : #include "pm_io@routines.inc.F90"
1003 0 : end procedure
1004 : #endif
1005 :
1006 : #if IK4_ENABLED
1007 0 : module procedure getErrTableReadUnit_NO_D1_IK4
1008 : use pm_kind, only: IKC => IK4
1009 : #include "pm_io@routines.inc.F90"
1010 0 : end procedure
1011 : #endif
1012 :
1013 : #if IK3_ENABLED
1014 0 : module procedure getErrTableReadUnit_NO_D1_IK3
1015 : use pm_kind, only: IKC => IK3
1016 : #include "pm_io@routines.inc.F90"
1017 0 : end procedure
1018 : #endif
1019 :
1020 : #if IK2_ENABLED
1021 0 : module procedure getErrTableReadUnit_NO_D1_IK2
1022 : use pm_kind, only: IKC => IK2
1023 : #include "pm_io@routines.inc.F90"
1024 0 : end procedure
1025 : #endif
1026 :
1027 : #if IK1_ENABLED
1028 0 : module procedure getErrTableReadUnit_NO_D1_IK1
1029 : use pm_kind, only: IKC => IK1
1030 : #include "pm_io@routines.inc.F90"
1031 0 : end procedure
1032 : #endif
1033 :
1034 : #undef IK_ENABLED
1035 :
1036 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1037 :
1038 : #define LK_ENABLED 1
1039 :
1040 : #define LK_ENABLED 1
1041 :
1042 : #if LK5_ENABLED
1043 0 : module procedure getErrTableReadUnit_NO_D1_LK5
1044 : use pm_kind, only: LKC => LK5
1045 : #include "pm_io@routines.inc.F90"
1046 0 : end procedure
1047 : #endif
1048 :
1049 : #if LK4_ENABLED
1050 0 : module procedure getErrTableReadUnit_NO_D1_LK4
1051 : use pm_kind, only: LKC => LK4
1052 : #include "pm_io@routines.inc.F90"
1053 0 : end procedure
1054 : #endif
1055 :
1056 : #if LK3_ENABLED
1057 0 : module procedure getErrTableReadUnit_NO_D1_LK3
1058 : use pm_kind, only: LKC => LK3
1059 : #include "pm_io@routines.inc.F90"
1060 0 : end procedure
1061 : #endif
1062 :
1063 : #if LK2_ENABLED
1064 0 : module procedure getErrTableReadUnit_NO_D1_LK2
1065 : use pm_kind, only: LKC => LK2
1066 : #include "pm_io@routines.inc.F90"
1067 0 : end procedure
1068 : #endif
1069 :
1070 : #if LK1_ENABLED
1071 0 : module procedure getErrTableReadUnit_NO_D1_LK1
1072 : use pm_kind, only: LKC => LK1
1073 : #include "pm_io@routines.inc.F90"
1074 0 : end procedure
1075 : #endif
1076 :
1077 : #undef LK_ENABLED
1078 :
1079 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1080 :
1081 : #define CK_ENABLED 1
1082 :
1083 : #if CK3_ENABLED
1084 0 : module procedure getErrTableReadUnit_NO_D1_CK3
1085 : use pm_kind, only: CKC => CK3
1086 : #include "pm_io@routines.inc.F90"
1087 0 : end procedure
1088 : #endif
1089 :
1090 : #if CK2_ENABLED
1091 0 : module procedure getErrTableReadUnit_NO_D1_CK2
1092 : use pm_kind, only: CKC => CK2
1093 : #include "pm_io@routines.inc.F90"
1094 0 : end procedure
1095 : #endif
1096 :
1097 : #if CK1_ENABLED
1098 0 : module procedure getErrTableReadUnit_NO_D1_CK1
1099 : use pm_kind, only: CKC => CK1
1100 : #include "pm_io@routines.inc.F90"
1101 0 : end procedure
1102 : #endif
1103 :
1104 : #if CK5_ENABLED
1105 : module procedure getErrTableReadUnit_NO_D1_CK5
1106 : use pm_kind, only: CKC => CK5
1107 : #include "pm_io@routines.inc.F90"
1108 : end procedure
1109 : #endif
1110 :
1111 : #if CK4_ENABLED
1112 0 : module procedure getErrTableReadUnit_NO_D1_CK4
1113 : use pm_kind, only: CKC => CK4
1114 : #include "pm_io@routines.inc.F90"
1115 0 : end procedure
1116 : #endif
1117 :
1118 : #undef CK_ENABLED
1119 :
1120 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1121 :
1122 : #define RK_ENABLED 1
1123 :
1124 : #if RK5_ENABLED
1125 : module procedure getErrTableReadUnit_NO_D1_RK5
1126 : use pm_kind, only: RKC => RK5
1127 : #include "pm_io@routines.inc.F90"
1128 : end procedure
1129 : #endif
1130 :
1131 : #if RK4_ENABLED
1132 0 : module procedure getErrTableReadUnit_NO_D1_RK4
1133 : use pm_kind, only: RKC => RK4
1134 : #include "pm_io@routines.inc.F90"
1135 0 : end procedure
1136 : #endif
1137 :
1138 : #if RK3_ENABLED
1139 0 : module procedure getErrTableReadUnit_NO_D1_RK3
1140 : use pm_kind, only: RKC => RK3
1141 : #include "pm_io@routines.inc.F90"
1142 0 : end procedure
1143 : #endif
1144 :
1145 : #if RK2_ENABLED
1146 0 : module procedure getErrTableReadUnit_NO_D1_RK2
1147 : use pm_kind, only: RKC => RK2
1148 : #include "pm_io@routines.inc.F90"
1149 0 : end procedure
1150 : #endif
1151 :
1152 : #if RK1_ENABLED
1153 0 : module procedure getErrTableReadUnit_NO_D1_RK1
1154 : use pm_kind, only: RKC => RK1
1155 : #include "pm_io@routines.inc.F90"
1156 0 : end procedure
1157 : #endif
1158 :
1159 : #undef RK_ENABLED
1160 :
1161 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1162 :
1163 : #undef Unit_ENABLED
1164 :
1165 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1166 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1167 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1168 :
1169 : #undef D1_ENABLED
1170 :
1171 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1172 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1173 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1174 :
1175 : #define D2_ENABLED 1
1176 :
1177 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1178 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1179 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1180 :
1181 : #define File_ENABLED 1
1182 :
1183 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1184 :
1185 : #define SK_ENABLED 1
1186 :
1187 : #if SK5_ENABLED
1188 : module procedure getErrTableReadFile_NO_D2_SK5
1189 : use pm_kind, only: SKC => SK5
1190 : #include "pm_io@routines.inc.F90"
1191 : end procedure
1192 : #endif
1193 :
1194 : #if SK4_ENABLED
1195 : module procedure getErrTableReadFile_NO_D2_SK4
1196 : use pm_kind, only: SKC => SK4
1197 : #include "pm_io@routines.inc.F90"
1198 : end procedure
1199 : #endif
1200 :
1201 : #if SK3_ENABLED
1202 : module procedure getErrTableReadFile_NO_D2_SK3
1203 : use pm_kind, only: SKC => SK3
1204 : #include "pm_io@routines.inc.F90"
1205 : end procedure
1206 : #endif
1207 :
1208 : #if SK2_ENABLED
1209 : module procedure getErrTableReadFile_NO_D2_SK2
1210 : use pm_kind, only: SKC => SK2
1211 : #include "pm_io@routines.inc.F90"
1212 : end procedure
1213 : #endif
1214 :
1215 : #if SK1_ENABLED
1216 1 : module procedure getErrTableReadFile_NO_D2_SK1
1217 : use pm_kind, only: SKC => SK1
1218 : #include "pm_io@routines.inc.F90"
1219 2 : end procedure
1220 : #endif
1221 :
1222 : #undef SK_ENABLED
1223 :
1224 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1225 :
1226 : #define IK_ENABLED 1
1227 :
1228 : #if IK5_ENABLED
1229 0 : module procedure getErrTableReadFile_NO_D2_IK5
1230 : use pm_kind, only: IKC => IK5
1231 : #include "pm_io@routines.inc.F90"
1232 0 : end procedure
1233 : #endif
1234 :
1235 : #if IK4_ENABLED
1236 0 : module procedure getErrTableReadFile_NO_D2_IK4
1237 : use pm_kind, only: IKC => IK4
1238 : #include "pm_io@routines.inc.F90"
1239 0 : end procedure
1240 : #endif
1241 :
1242 : #if IK3_ENABLED
1243 3 : module procedure getErrTableReadFile_NO_D2_IK3
1244 : use pm_kind, only: IKC => IK3
1245 : #include "pm_io@routines.inc.F90"
1246 6 : end procedure
1247 : #endif
1248 :
1249 : #if IK2_ENABLED
1250 0 : module procedure getErrTableReadFile_NO_D2_IK2
1251 : use pm_kind, only: IKC => IK2
1252 : #include "pm_io@routines.inc.F90"
1253 0 : end procedure
1254 : #endif
1255 :
1256 : #if IK1_ENABLED
1257 0 : module procedure getErrTableReadFile_NO_D2_IK1
1258 : use pm_kind, only: IKC => IK1
1259 : #include "pm_io@routines.inc.F90"
1260 0 : end procedure
1261 : #endif
1262 :
1263 : #undef IK_ENABLED
1264 :
1265 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1266 :
1267 : #define LK_ENABLED 1
1268 :
1269 : #define LK_ENABLED 1
1270 :
1271 : #if LK5_ENABLED
1272 0 : module procedure getErrTableReadFile_NO_D2_LK5
1273 : use pm_kind, only: LKC => LK5
1274 : #include "pm_io@routines.inc.F90"
1275 0 : end procedure
1276 : #endif
1277 :
1278 : #if LK4_ENABLED
1279 0 : module procedure getErrTableReadFile_NO_D2_LK4
1280 : use pm_kind, only: LKC => LK4
1281 : #include "pm_io@routines.inc.F90"
1282 0 : end procedure
1283 : #endif
1284 :
1285 : #if LK3_ENABLED
1286 3 : module procedure getErrTableReadFile_NO_D2_LK3
1287 : use pm_kind, only: LKC => LK3
1288 : #include "pm_io@routines.inc.F90"
1289 6 : end procedure
1290 : #endif
1291 :
1292 : #if LK2_ENABLED
1293 0 : module procedure getErrTableReadFile_NO_D2_LK2
1294 : use pm_kind, only: LKC => LK2
1295 : #include "pm_io@routines.inc.F90"
1296 0 : end procedure
1297 : #endif
1298 :
1299 : #if LK1_ENABLED
1300 0 : module procedure getErrTableReadFile_NO_D2_LK1
1301 : use pm_kind, only: LKC => LK1
1302 : #include "pm_io@routines.inc.F90"
1303 0 : end procedure
1304 : #endif
1305 :
1306 : #undef LK_ENABLED
1307 :
1308 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1309 :
1310 : #define CK_ENABLED 1
1311 :
1312 : #if CK3_ENABLED
1313 0 : module procedure getErrTableReadFile_NO_D2_CK3
1314 : use pm_kind, only: CKC => CK3
1315 : #include "pm_io@routines.inc.F90"
1316 0 : end procedure
1317 : #endif
1318 :
1319 : #if CK2_ENABLED
1320 0 : module procedure getErrTableReadFile_NO_D2_CK2
1321 : use pm_kind, only: CKC => CK2
1322 : #include "pm_io@routines.inc.F90"
1323 0 : end procedure
1324 : #endif
1325 :
1326 : #if CK1_ENABLED
1327 3 : module procedure getErrTableReadFile_NO_D2_CK1
1328 : use pm_kind, only: CKC => CK1
1329 : #include "pm_io@routines.inc.F90"
1330 6 : end procedure
1331 : #endif
1332 :
1333 : #if CK5_ENABLED
1334 : module procedure getErrTableReadFile_NO_D2_CK5
1335 : use pm_kind, only: CKC => CK5
1336 : #include "pm_io@routines.inc.F90"
1337 : end procedure
1338 : #endif
1339 :
1340 : #if CK4_ENABLED
1341 0 : module procedure getErrTableReadFile_NO_D2_CK4
1342 : use pm_kind, only: CKC => CK4
1343 : #include "pm_io@routines.inc.F90"
1344 0 : end procedure
1345 : #endif
1346 :
1347 : #undef CK_ENABLED
1348 :
1349 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1350 :
1351 : #define RK_ENABLED 1
1352 :
1353 : #if RK5_ENABLED
1354 : module procedure getErrTableReadFile_NO_D2_RK5
1355 : use pm_kind, only: RKC => RK5
1356 : #include "pm_io@routines.inc.F90"
1357 : end procedure
1358 : #endif
1359 :
1360 : #if RK4_ENABLED
1361 0 : module procedure getErrTableReadFile_NO_D2_RK4
1362 : use pm_kind, only: RKC => RK4
1363 : #include "pm_io@routines.inc.F90"
1364 0 : end procedure
1365 : #endif
1366 :
1367 : #if RK3_ENABLED
1368 0 : module procedure getErrTableReadFile_NO_D2_RK3
1369 : use pm_kind, only: RKC => RK3
1370 : #include "pm_io@routines.inc.F90"
1371 0 : end procedure
1372 : #endif
1373 :
1374 : #if RK2_ENABLED
1375 1 : module procedure getErrTableReadFile_NO_D2_RK2
1376 : use pm_kind, only: RKC => RK2
1377 : #include "pm_io@routines.inc.F90"
1378 2 : end procedure
1379 : #endif
1380 :
1381 : #if RK1_ENABLED
1382 5 : module procedure getErrTableReadFile_NO_D2_RK1
1383 : use pm_kind, only: RKC => RK1
1384 : #include "pm_io@routines.inc.F90"
1385 10 : end procedure
1386 : #endif
1387 :
1388 : #undef RK_ENABLED
1389 :
1390 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1391 :
1392 : #undef File_ENABLED
1393 :
1394 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1395 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1396 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1397 :
1398 : #define Unit_ENABLED 1
1399 :
1400 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1401 :
1402 : #define SK_ENABLED 1
1403 :
1404 : #if SK5_ENABLED
1405 : module procedure getErrTableReadUnit_NO_D2_SK5
1406 : use pm_kind, only: SKC => SK5
1407 : #include "pm_io@routines.inc.F90"
1408 : end procedure
1409 : #endif
1410 :
1411 : #if SK4_ENABLED
1412 : module procedure getErrTableReadUnit_NO_D2_SK4
1413 : use pm_kind, only: SKC => SK4
1414 : #include "pm_io@routines.inc.F90"
1415 : end procedure
1416 : #endif
1417 :
1418 : #if SK3_ENABLED
1419 : module procedure getErrTableReadUnit_NO_D2_SK3
1420 : use pm_kind, only: SKC => SK3
1421 : #include "pm_io@routines.inc.F90"
1422 : end procedure
1423 : #endif
1424 :
1425 : #if SK2_ENABLED
1426 : module procedure getErrTableReadUnit_NO_D2_SK2
1427 : use pm_kind, only: SKC => SK2
1428 : #include "pm_io@routines.inc.F90"
1429 : end procedure
1430 : #endif
1431 :
1432 : #if SK1_ENABLED
1433 0 : module procedure getErrTableReadUnit_NO_D2_SK1
1434 : use pm_kind, only: SKC => SK1
1435 : #include "pm_io@routines.inc.F90"
1436 0 : end procedure
1437 : #endif
1438 :
1439 : #undef SK_ENABLED
1440 :
1441 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1442 :
1443 : #define IK_ENABLED 1
1444 :
1445 : #if IK5_ENABLED
1446 0 : module procedure getErrTableReadUnit_NO_D2_IK5
1447 : use pm_kind, only: IKC => IK5
1448 : #include "pm_io@routines.inc.F90"
1449 0 : end procedure
1450 : #endif
1451 :
1452 : #if IK4_ENABLED
1453 0 : module procedure getErrTableReadUnit_NO_D2_IK4
1454 : use pm_kind, only: IKC => IK4
1455 : #include "pm_io@routines.inc.F90"
1456 0 : end procedure
1457 : #endif
1458 :
1459 : #if IK3_ENABLED
1460 0 : module procedure getErrTableReadUnit_NO_D2_IK3
1461 : use pm_kind, only: IKC => IK3
1462 : #include "pm_io@routines.inc.F90"
1463 0 : end procedure
1464 : #endif
1465 :
1466 : #if IK2_ENABLED
1467 0 : module procedure getErrTableReadUnit_NO_D2_IK2
1468 : use pm_kind, only: IKC => IK2
1469 : #include "pm_io@routines.inc.F90"
1470 0 : end procedure
1471 : #endif
1472 :
1473 : #if IK1_ENABLED
1474 0 : module procedure getErrTableReadUnit_NO_D2_IK1
1475 : use pm_kind, only: IKC => IK1
1476 : #include "pm_io@routines.inc.F90"
1477 0 : end procedure
1478 : #endif
1479 :
1480 : #undef IK_ENABLED
1481 :
1482 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1483 :
1484 : #define LK_ENABLED 1
1485 :
1486 : #define LK_ENABLED 1
1487 :
1488 : #if LK5_ENABLED
1489 0 : module procedure getErrTableReadUnit_NO_D2_LK5
1490 : use pm_kind, only: LKC => LK5
1491 : #include "pm_io@routines.inc.F90"
1492 0 : end procedure
1493 : #endif
1494 :
1495 : #if LK4_ENABLED
1496 0 : module procedure getErrTableReadUnit_NO_D2_LK4
1497 : use pm_kind, only: LKC => LK4
1498 : #include "pm_io@routines.inc.F90"
1499 0 : end procedure
1500 : #endif
1501 :
1502 : #if LK3_ENABLED
1503 0 : module procedure getErrTableReadUnit_NO_D2_LK3
1504 : use pm_kind, only: LKC => LK3
1505 : #include "pm_io@routines.inc.F90"
1506 0 : end procedure
1507 : #endif
1508 :
1509 : #if LK2_ENABLED
1510 0 : module procedure getErrTableReadUnit_NO_D2_LK2
1511 : use pm_kind, only: LKC => LK2
1512 : #include "pm_io@routines.inc.F90"
1513 0 : end procedure
1514 : #endif
1515 :
1516 : #if LK1_ENABLED
1517 0 : module procedure getErrTableReadUnit_NO_D2_LK1
1518 : use pm_kind, only: LKC => LK1
1519 : #include "pm_io@routines.inc.F90"
1520 0 : end procedure
1521 : #endif
1522 :
1523 : #undef LK_ENABLED
1524 :
1525 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1526 :
1527 : #define CK_ENABLED 1
1528 :
1529 : #if CK3_ENABLED
1530 0 : module procedure getErrTableReadUnit_NO_D2_CK3
1531 : use pm_kind, only: CKC => CK3
1532 : #include "pm_io@routines.inc.F90"
1533 0 : end procedure
1534 : #endif
1535 :
1536 : #if CK2_ENABLED
1537 0 : module procedure getErrTableReadUnit_NO_D2_CK2
1538 : use pm_kind, only: CKC => CK2
1539 : #include "pm_io@routines.inc.F90"
1540 0 : end procedure
1541 : #endif
1542 :
1543 : #if CK1_ENABLED
1544 0 : module procedure getErrTableReadUnit_NO_D2_CK1
1545 : use pm_kind, only: CKC => CK1
1546 : #include "pm_io@routines.inc.F90"
1547 0 : end procedure
1548 : #endif
1549 :
1550 : #if CK5_ENABLED
1551 : module procedure getErrTableReadUnit_NO_D2_CK5
1552 : use pm_kind, only: CKC => CK5
1553 : #include "pm_io@routines.inc.F90"
1554 : end procedure
1555 : #endif
1556 :
1557 : #if CK4_ENABLED
1558 0 : module procedure getErrTableReadUnit_NO_D2_CK4
1559 : use pm_kind, only: CKC => CK4
1560 : #include "pm_io@routines.inc.F90"
1561 0 : end procedure
1562 : #endif
1563 :
1564 : #undef CK_ENABLED
1565 :
1566 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1567 :
1568 : #define RK_ENABLED 1
1569 :
1570 : #if RK5_ENABLED
1571 : module procedure getErrTableReadUnit_NO_D2_RK5
1572 : use pm_kind, only: RKC => RK5
1573 : #include "pm_io@routines.inc.F90"
1574 : end procedure
1575 : #endif
1576 :
1577 : #if RK4_ENABLED
1578 0 : module procedure getErrTableReadUnit_NO_D2_RK4
1579 : use pm_kind, only: RKC => RK4
1580 : #include "pm_io@routines.inc.F90"
1581 0 : end procedure
1582 : #endif
1583 :
1584 : #if RK3_ENABLED
1585 0 : module procedure getErrTableReadUnit_NO_D2_RK3
1586 : use pm_kind, only: RKC => RK3
1587 : #include "pm_io@routines.inc.F90"
1588 0 : end procedure
1589 : #endif
1590 :
1591 : #if RK2_ENABLED
1592 0 : module procedure getErrTableReadUnit_NO_D2_RK2
1593 : use pm_kind, only: RKC => RK2
1594 : #include "pm_io@routines.inc.F90"
1595 0 : end procedure
1596 : #endif
1597 :
1598 : #if RK1_ENABLED
1599 0 : module procedure getErrTableReadUnit_NO_D2_RK1
1600 : use pm_kind, only: RKC => RK1
1601 : #include "pm_io@routines.inc.F90"
1602 0 : end procedure
1603 : #endif
1604 :
1605 : #undef RK_ENABLED
1606 :
1607 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1608 :
1609 : #undef Unit_ENABLED
1610 :
1611 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1612 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1613 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1614 :
1615 : #undef D2_ENABLED
1616 :
1617 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1618 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1619 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1620 :
1621 : #undef NO_ENABLED
1622 :
1623 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1624 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1625 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1626 :
1627 : #define TO_ENABLED 1
1628 :
1629 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1630 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1631 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1632 :
1633 : #define D1_ENABLED 1
1634 :
1635 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1636 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1637 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1638 :
1639 : #define File_ENABLED 1
1640 :
1641 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1642 :
1643 : #define SK_ENABLED 1
1644 :
1645 : #if SK5_ENABLED
1646 : module procedure getErrTableReadFile_TO_D1_SK5
1647 : use pm_kind, only: SKC => SK5
1648 : #include "pm_io@routines.inc.F90"
1649 : end procedure
1650 : #endif
1651 :
1652 : #if SK4_ENABLED
1653 : module procedure getErrTableReadFile_TO_D1_SK4
1654 : use pm_kind, only: SKC => SK4
1655 : #include "pm_io@routines.inc.F90"
1656 : end procedure
1657 : #endif
1658 :
1659 : #if SK3_ENABLED
1660 : module procedure getErrTableReadFile_TO_D1_SK3
1661 : use pm_kind, only: SKC => SK3
1662 : #include "pm_io@routines.inc.F90"
1663 : end procedure
1664 : #endif
1665 :
1666 : #if SK2_ENABLED
1667 : module procedure getErrTableReadFile_TO_D1_SK2
1668 : use pm_kind, only: SKC => SK2
1669 : #include "pm_io@routines.inc.F90"
1670 : end procedure
1671 : #endif
1672 :
1673 : #if SK1_ENABLED
1674 0 : module procedure getErrTableReadFile_TO_D1_SK1
1675 : use pm_kind, only: SKC => SK1
1676 : #include "pm_io@routines.inc.F90"
1677 0 : end procedure
1678 : #endif
1679 :
1680 : #undef SK_ENABLED
1681 :
1682 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1683 :
1684 : #define IK_ENABLED 1
1685 :
1686 : #if IK5_ENABLED
1687 0 : module procedure getErrTableReadFile_TO_D1_IK5
1688 : use pm_kind, only: IKC => IK5
1689 : #include "pm_io@routines.inc.F90"
1690 0 : end procedure
1691 : #endif
1692 :
1693 : #if IK4_ENABLED
1694 0 : module procedure getErrTableReadFile_TO_D1_IK4
1695 : use pm_kind, only: IKC => IK4
1696 : #include "pm_io@routines.inc.F90"
1697 0 : end procedure
1698 : #endif
1699 :
1700 : #if IK3_ENABLED
1701 0 : module procedure getErrTableReadFile_TO_D1_IK3
1702 : use pm_kind, only: IKC => IK3
1703 : #include "pm_io@routines.inc.F90"
1704 0 : end procedure
1705 : #endif
1706 :
1707 : #if IK2_ENABLED
1708 0 : module procedure getErrTableReadFile_TO_D1_IK2
1709 : use pm_kind, only: IKC => IK2
1710 : #include "pm_io@routines.inc.F90"
1711 0 : end procedure
1712 : #endif
1713 :
1714 : #if IK1_ENABLED
1715 0 : module procedure getErrTableReadFile_TO_D1_IK1
1716 : use pm_kind, only: IKC => IK1
1717 : #include "pm_io@routines.inc.F90"
1718 0 : end procedure
1719 : #endif
1720 :
1721 : #undef IK_ENABLED
1722 :
1723 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1724 :
1725 : #define LK_ENABLED 1
1726 :
1727 : #define LK_ENABLED 1
1728 :
1729 : #if LK5_ENABLED
1730 0 : module procedure getErrTableReadFile_TO_D1_LK5
1731 : use pm_kind, only: LKC => LK5
1732 : #include "pm_io@routines.inc.F90"
1733 0 : end procedure
1734 : #endif
1735 :
1736 : #if LK4_ENABLED
1737 0 : module procedure getErrTableReadFile_TO_D1_LK4
1738 : use pm_kind, only: LKC => LK4
1739 : #include "pm_io@routines.inc.F90"
1740 0 : end procedure
1741 : #endif
1742 :
1743 : #if LK3_ENABLED
1744 0 : module procedure getErrTableReadFile_TO_D1_LK3
1745 : use pm_kind, only: LKC => LK3
1746 : #include "pm_io@routines.inc.F90"
1747 0 : end procedure
1748 : #endif
1749 :
1750 : #if LK2_ENABLED
1751 0 : module procedure getErrTableReadFile_TO_D1_LK2
1752 : use pm_kind, only: LKC => LK2
1753 : #include "pm_io@routines.inc.F90"
1754 0 : end procedure
1755 : #endif
1756 :
1757 : #if LK1_ENABLED
1758 0 : module procedure getErrTableReadFile_TO_D1_LK1
1759 : use pm_kind, only: LKC => LK1
1760 : #include "pm_io@routines.inc.F90"
1761 0 : end procedure
1762 : #endif
1763 :
1764 : #undef LK_ENABLED
1765 :
1766 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1767 :
1768 : #define CK_ENABLED 1
1769 :
1770 : #if CK3_ENABLED
1771 0 : module procedure getErrTableReadFile_TO_D1_CK3
1772 : use pm_kind, only: CKC => CK3
1773 : #include "pm_io@routines.inc.F90"
1774 0 : end procedure
1775 : #endif
1776 :
1777 : #if CK2_ENABLED
1778 0 : module procedure getErrTableReadFile_TO_D1_CK2
1779 : use pm_kind, only: CKC => CK2
1780 : #include "pm_io@routines.inc.F90"
1781 0 : end procedure
1782 : #endif
1783 :
1784 : #if CK1_ENABLED
1785 0 : module procedure getErrTableReadFile_TO_D1_CK1
1786 : use pm_kind, only: CKC => CK1
1787 : #include "pm_io@routines.inc.F90"
1788 0 : end procedure
1789 : #endif
1790 :
1791 : #if CK5_ENABLED
1792 : module procedure getErrTableReadFile_TO_D1_CK5
1793 : use pm_kind, only: CKC => CK5
1794 : #include "pm_io@routines.inc.F90"
1795 : end procedure
1796 : #endif
1797 :
1798 : #if CK4_ENABLED
1799 0 : module procedure getErrTableReadFile_TO_D1_CK4
1800 : use pm_kind, only: CKC => CK4
1801 : #include "pm_io@routines.inc.F90"
1802 0 : end procedure
1803 : #endif
1804 :
1805 : #undef CK_ENABLED
1806 :
1807 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1808 :
1809 : #define RK_ENABLED 1
1810 :
1811 : #if RK5_ENABLED
1812 : module procedure getErrTableReadFile_TO_D1_RK5
1813 : use pm_kind, only: RKC => RK5
1814 : #include "pm_io@routines.inc.F90"
1815 : end procedure
1816 : #endif
1817 :
1818 : #if RK4_ENABLED
1819 0 : module procedure getErrTableReadFile_TO_D1_RK4
1820 : use pm_kind, only: RKC => RK4
1821 : #include "pm_io@routines.inc.F90"
1822 0 : end procedure
1823 : #endif
1824 :
1825 : #if RK3_ENABLED
1826 0 : module procedure getErrTableReadFile_TO_D1_RK3
1827 : use pm_kind, only: RKC => RK3
1828 : #include "pm_io@routines.inc.F90"
1829 0 : end procedure
1830 : #endif
1831 :
1832 : #if RK2_ENABLED
1833 0 : module procedure getErrTableReadFile_TO_D1_RK2
1834 : use pm_kind, only: RKC => RK2
1835 : #include "pm_io@routines.inc.F90"
1836 0 : end procedure
1837 : #endif
1838 :
1839 : #if RK1_ENABLED
1840 0 : module procedure getErrTableReadFile_TO_D1_RK1
1841 : use pm_kind, only: RKC => RK1
1842 : #include "pm_io@routines.inc.F90"
1843 0 : end procedure
1844 : #endif
1845 :
1846 : #undef RK_ENABLED
1847 :
1848 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1849 :
1850 : #undef File_ENABLED
1851 :
1852 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1853 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1854 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1855 :
1856 : #define Unit_ENABLED 1
1857 :
1858 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1859 :
1860 : #define SK_ENABLED 1
1861 :
1862 : #if SK5_ENABLED
1863 : module procedure getErrTableReadUnit_TO_D1_SK5
1864 : use pm_kind, only: SKC => SK5
1865 : #include "pm_io@routines.inc.F90"
1866 : end procedure
1867 : #endif
1868 :
1869 : #if SK4_ENABLED
1870 : module procedure getErrTableReadUnit_TO_D1_SK4
1871 : use pm_kind, only: SKC => SK4
1872 : #include "pm_io@routines.inc.F90"
1873 : end procedure
1874 : #endif
1875 :
1876 : #if SK3_ENABLED
1877 : module procedure getErrTableReadUnit_TO_D1_SK3
1878 : use pm_kind, only: SKC => SK3
1879 : #include "pm_io@routines.inc.F90"
1880 : end procedure
1881 : #endif
1882 :
1883 : #if SK2_ENABLED
1884 : module procedure getErrTableReadUnit_TO_D1_SK2
1885 : use pm_kind, only: SKC => SK2
1886 : #include "pm_io@routines.inc.F90"
1887 : end procedure
1888 : #endif
1889 :
1890 : #if SK1_ENABLED
1891 0 : module procedure getErrTableReadUnit_TO_D1_SK1
1892 : use pm_kind, only: SKC => SK1
1893 : #include "pm_io@routines.inc.F90"
1894 0 : end procedure
1895 : #endif
1896 :
1897 : #undef SK_ENABLED
1898 :
1899 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1900 :
1901 : #define IK_ENABLED 1
1902 :
1903 : #if IK5_ENABLED
1904 0 : module procedure getErrTableReadUnit_TO_D1_IK5
1905 : use pm_kind, only: IKC => IK5
1906 : #include "pm_io@routines.inc.F90"
1907 0 : end procedure
1908 : #endif
1909 :
1910 : #if IK4_ENABLED
1911 0 : module procedure getErrTableReadUnit_TO_D1_IK4
1912 : use pm_kind, only: IKC => IK4
1913 : #include "pm_io@routines.inc.F90"
1914 0 : end procedure
1915 : #endif
1916 :
1917 : #if IK3_ENABLED
1918 0 : module procedure getErrTableReadUnit_TO_D1_IK3
1919 : use pm_kind, only: IKC => IK3
1920 : #include "pm_io@routines.inc.F90"
1921 0 : end procedure
1922 : #endif
1923 :
1924 : #if IK2_ENABLED
1925 0 : module procedure getErrTableReadUnit_TO_D1_IK2
1926 : use pm_kind, only: IKC => IK2
1927 : #include "pm_io@routines.inc.F90"
1928 0 : end procedure
1929 : #endif
1930 :
1931 : #if IK1_ENABLED
1932 0 : module procedure getErrTableReadUnit_TO_D1_IK1
1933 : use pm_kind, only: IKC => IK1
1934 : #include "pm_io@routines.inc.F90"
1935 0 : end procedure
1936 : #endif
1937 :
1938 : #undef IK_ENABLED
1939 :
1940 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1941 :
1942 : #define LK_ENABLED 1
1943 :
1944 : #define LK_ENABLED 1
1945 :
1946 : #if LK5_ENABLED
1947 0 : module procedure getErrTableReadUnit_TO_D1_LK5
1948 : use pm_kind, only: LKC => LK5
1949 : #include "pm_io@routines.inc.F90"
1950 0 : end procedure
1951 : #endif
1952 :
1953 : #if LK4_ENABLED
1954 0 : module procedure getErrTableReadUnit_TO_D1_LK4
1955 : use pm_kind, only: LKC => LK4
1956 : #include "pm_io@routines.inc.F90"
1957 0 : end procedure
1958 : #endif
1959 :
1960 : #if LK3_ENABLED
1961 0 : module procedure getErrTableReadUnit_TO_D1_LK3
1962 : use pm_kind, only: LKC => LK3
1963 : #include "pm_io@routines.inc.F90"
1964 0 : end procedure
1965 : #endif
1966 :
1967 : #if LK2_ENABLED
1968 0 : module procedure getErrTableReadUnit_TO_D1_LK2
1969 : use pm_kind, only: LKC => LK2
1970 : #include "pm_io@routines.inc.F90"
1971 0 : end procedure
1972 : #endif
1973 :
1974 : #if LK1_ENABLED
1975 0 : module procedure getErrTableReadUnit_TO_D1_LK1
1976 : use pm_kind, only: LKC => LK1
1977 : #include "pm_io@routines.inc.F90"
1978 0 : end procedure
1979 : #endif
1980 :
1981 : #undef LK_ENABLED
1982 :
1983 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1984 :
1985 : #define CK_ENABLED 1
1986 :
1987 : #if CK3_ENABLED
1988 0 : module procedure getErrTableReadUnit_TO_D1_CK3
1989 : use pm_kind, only: CKC => CK3
1990 : #include "pm_io@routines.inc.F90"
1991 0 : end procedure
1992 : #endif
1993 :
1994 : #if CK2_ENABLED
1995 0 : module procedure getErrTableReadUnit_TO_D1_CK2
1996 : use pm_kind, only: CKC => CK2
1997 : #include "pm_io@routines.inc.F90"
1998 0 : end procedure
1999 : #endif
2000 :
2001 : #if CK1_ENABLED
2002 0 : module procedure getErrTableReadUnit_TO_D1_CK1
2003 : use pm_kind, only: CKC => CK1
2004 : #include "pm_io@routines.inc.F90"
2005 0 : end procedure
2006 : #endif
2007 :
2008 : #if CK5_ENABLED
2009 : module procedure getErrTableReadUnit_TO_D1_CK5
2010 : use pm_kind, only: CKC => CK5
2011 : #include "pm_io@routines.inc.F90"
2012 : end procedure
2013 : #endif
2014 :
2015 : #if CK4_ENABLED
2016 0 : module procedure getErrTableReadUnit_TO_D1_CK4
2017 : use pm_kind, only: CKC => CK4
2018 : #include "pm_io@routines.inc.F90"
2019 0 : end procedure
2020 : #endif
2021 :
2022 : #undef CK_ENABLED
2023 :
2024 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2025 :
2026 : #define RK_ENABLED 1
2027 :
2028 : #if RK5_ENABLED
2029 : module procedure getErrTableReadUnit_TO_D1_RK5
2030 : use pm_kind, only: RKC => RK5
2031 : #include "pm_io@routines.inc.F90"
2032 : end procedure
2033 : #endif
2034 :
2035 : #if RK4_ENABLED
2036 0 : module procedure getErrTableReadUnit_TO_D1_RK4
2037 : use pm_kind, only: RKC => RK4
2038 : #include "pm_io@routines.inc.F90"
2039 0 : end procedure
2040 : #endif
2041 :
2042 : #if RK3_ENABLED
2043 0 : module procedure getErrTableReadUnit_TO_D1_RK3
2044 : use pm_kind, only: RKC => RK3
2045 : #include "pm_io@routines.inc.F90"
2046 0 : end procedure
2047 : #endif
2048 :
2049 : #if RK2_ENABLED
2050 0 : module procedure getErrTableReadUnit_TO_D1_RK2
2051 : use pm_kind, only: RKC => RK2
2052 : #include "pm_io@routines.inc.F90"
2053 0 : end procedure
2054 : #endif
2055 :
2056 : #if RK1_ENABLED
2057 0 : module procedure getErrTableReadUnit_TO_D1_RK1
2058 : use pm_kind, only: RKC => RK1
2059 : #include "pm_io@routines.inc.F90"
2060 0 : end procedure
2061 : #endif
2062 :
2063 : #undef RK_ENABLED
2064 :
2065 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2066 :
2067 : #undef Unit_ENABLED
2068 :
2069 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2070 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2071 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2072 :
2073 : #undef D1_ENABLED
2074 :
2075 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2076 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2077 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2078 :
2079 : #define D2_ENABLED 1
2080 :
2081 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2082 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2083 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2084 :
2085 : #define File_ENABLED 1
2086 :
2087 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2088 :
2089 : #define SK_ENABLED 1
2090 :
2091 : #if SK5_ENABLED
2092 : module procedure getErrTableReadFile_TO_D2_SK5
2093 : use pm_kind, only: SKC => SK5
2094 : #include "pm_io@routines.inc.F90"
2095 : end procedure
2096 : #endif
2097 :
2098 : #if SK4_ENABLED
2099 : module procedure getErrTableReadFile_TO_D2_SK4
2100 : use pm_kind, only: SKC => SK4
2101 : #include "pm_io@routines.inc.F90"
2102 : end procedure
2103 : #endif
2104 :
2105 : #if SK3_ENABLED
2106 : module procedure getErrTableReadFile_TO_D2_SK3
2107 : use pm_kind, only: SKC => SK3
2108 : #include "pm_io@routines.inc.F90"
2109 : end procedure
2110 : #endif
2111 :
2112 : #if SK2_ENABLED
2113 : module procedure getErrTableReadFile_TO_D2_SK2
2114 : use pm_kind, only: SKC => SK2
2115 : #include "pm_io@routines.inc.F90"
2116 : end procedure
2117 : #endif
2118 :
2119 : #if SK1_ENABLED
2120 0 : module procedure getErrTableReadFile_TO_D2_SK1
2121 : use pm_kind, only: SKC => SK1
2122 : #include "pm_io@routines.inc.F90"
2123 0 : end procedure
2124 : #endif
2125 :
2126 : #undef SK_ENABLED
2127 :
2128 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2129 :
2130 : #define IK_ENABLED 1
2131 :
2132 : #if IK5_ENABLED
2133 0 : module procedure getErrTableReadFile_TO_D2_IK5
2134 : use pm_kind, only: IKC => IK5
2135 : #include "pm_io@routines.inc.F90"
2136 0 : end procedure
2137 : #endif
2138 :
2139 : #if IK4_ENABLED
2140 0 : module procedure getErrTableReadFile_TO_D2_IK4
2141 : use pm_kind, only: IKC => IK4
2142 : #include "pm_io@routines.inc.F90"
2143 0 : end procedure
2144 : #endif
2145 :
2146 : #if IK3_ENABLED
2147 1 : module procedure getErrTableReadFile_TO_D2_IK3
2148 : use pm_kind, only: IKC => IK3
2149 : #include "pm_io@routines.inc.F90"
2150 2 : end procedure
2151 : #endif
2152 :
2153 : #if IK2_ENABLED
2154 0 : module procedure getErrTableReadFile_TO_D2_IK2
2155 : use pm_kind, only: IKC => IK2
2156 : #include "pm_io@routines.inc.F90"
2157 0 : end procedure
2158 : #endif
2159 :
2160 : #if IK1_ENABLED
2161 0 : module procedure getErrTableReadFile_TO_D2_IK1
2162 : use pm_kind, only: IKC => IK1
2163 : #include "pm_io@routines.inc.F90"
2164 0 : end procedure
2165 : #endif
2166 :
2167 : #undef IK_ENABLED
2168 :
2169 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2170 :
2171 : #define LK_ENABLED 1
2172 :
2173 : #define LK_ENABLED 1
2174 :
2175 : #if LK5_ENABLED
2176 0 : module procedure getErrTableReadFile_TO_D2_LK5
2177 : use pm_kind, only: LKC => LK5
2178 : #include "pm_io@routines.inc.F90"
2179 0 : end procedure
2180 : #endif
2181 :
2182 : #if LK4_ENABLED
2183 0 : module procedure getErrTableReadFile_TO_D2_LK4
2184 : use pm_kind, only: LKC => LK4
2185 : #include "pm_io@routines.inc.F90"
2186 0 : end procedure
2187 : #endif
2188 :
2189 : #if LK3_ENABLED
2190 1 : module procedure getErrTableReadFile_TO_D2_LK3
2191 : use pm_kind, only: LKC => LK3
2192 : #include "pm_io@routines.inc.F90"
2193 2 : end procedure
2194 : #endif
2195 :
2196 : #if LK2_ENABLED
2197 0 : module procedure getErrTableReadFile_TO_D2_LK2
2198 : use pm_kind, only: LKC => LK2
2199 : #include "pm_io@routines.inc.F90"
2200 0 : end procedure
2201 : #endif
2202 :
2203 : #if LK1_ENABLED
2204 0 : module procedure getErrTableReadFile_TO_D2_LK1
2205 : use pm_kind, only: LKC => LK1
2206 : #include "pm_io@routines.inc.F90"
2207 0 : end procedure
2208 : #endif
2209 :
2210 : #undef LK_ENABLED
2211 :
2212 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2213 :
2214 : #define CK_ENABLED 1
2215 :
2216 : #if CK3_ENABLED
2217 0 : module procedure getErrTableReadFile_TO_D2_CK3
2218 : use pm_kind, only: CKC => CK3
2219 : #include "pm_io@routines.inc.F90"
2220 0 : end procedure
2221 : #endif
2222 :
2223 : #if CK2_ENABLED
2224 0 : module procedure getErrTableReadFile_TO_D2_CK2
2225 : use pm_kind, only: CKC => CK2
2226 : #include "pm_io@routines.inc.F90"
2227 0 : end procedure
2228 : #endif
2229 :
2230 : #if CK1_ENABLED
2231 1 : module procedure getErrTableReadFile_TO_D2_CK1
2232 : use pm_kind, only: CKC => CK1
2233 : #include "pm_io@routines.inc.F90"
2234 2 : end procedure
2235 : #endif
2236 :
2237 : #if CK5_ENABLED
2238 : module procedure getErrTableReadFile_TO_D2_CK5
2239 : use pm_kind, only: CKC => CK5
2240 : #include "pm_io@routines.inc.F90"
2241 : end procedure
2242 : #endif
2243 :
2244 : #if CK4_ENABLED
2245 0 : module procedure getErrTableReadFile_TO_D2_CK4
2246 : use pm_kind, only: CKC => CK4
2247 : #include "pm_io@routines.inc.F90"
2248 0 : end procedure
2249 : #endif
2250 :
2251 : #undef CK_ENABLED
2252 :
2253 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2254 :
2255 : #define RK_ENABLED 1
2256 :
2257 : #if RK5_ENABLED
2258 : module procedure getErrTableReadFile_TO_D2_RK5
2259 : use pm_kind, only: RKC => RK5
2260 : #include "pm_io@routines.inc.F90"
2261 : end procedure
2262 : #endif
2263 :
2264 : #if RK4_ENABLED
2265 0 : module procedure getErrTableReadFile_TO_D2_RK4
2266 : use pm_kind, only: RKC => RK4
2267 : #include "pm_io@routines.inc.F90"
2268 0 : end procedure
2269 : #endif
2270 :
2271 : #if RK3_ENABLED
2272 0 : module procedure getErrTableReadFile_TO_D2_RK3
2273 : use pm_kind, only: RKC => RK3
2274 : #include "pm_io@routines.inc.F90"
2275 0 : end procedure
2276 : #endif
2277 :
2278 : #if RK2_ENABLED
2279 1 : module procedure getErrTableReadFile_TO_D2_RK2
2280 : use pm_kind, only: RKC => RK2
2281 : #include "pm_io@routines.inc.F90"
2282 2 : end procedure
2283 : #endif
2284 :
2285 : #if RK1_ENABLED
2286 1 : module procedure getErrTableReadFile_TO_D2_RK1
2287 : use pm_kind, only: RKC => RK1
2288 : #include "pm_io@routines.inc.F90"
2289 2 : end procedure
2290 : #endif
2291 :
2292 : #undef RK_ENABLED
2293 :
2294 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2295 :
2296 : #undef File_ENABLED
2297 :
2298 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2299 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2300 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2301 :
2302 : #define Unit_ENABLED 1
2303 :
2304 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2305 :
2306 : #define SK_ENABLED 1
2307 :
2308 : #if SK5_ENABLED
2309 : module procedure getErrTableReadUnit_TO_D2_SK5
2310 : use pm_kind, only: SKC => SK5
2311 : #include "pm_io@routines.inc.F90"
2312 : end procedure
2313 : #endif
2314 :
2315 : #if SK4_ENABLED
2316 : module procedure getErrTableReadUnit_TO_D2_SK4
2317 : use pm_kind, only: SKC => SK4
2318 : #include "pm_io@routines.inc.F90"
2319 : end procedure
2320 : #endif
2321 :
2322 : #if SK3_ENABLED
2323 : module procedure getErrTableReadUnit_TO_D2_SK3
2324 : use pm_kind, only: SKC => SK3
2325 : #include "pm_io@routines.inc.F90"
2326 : end procedure
2327 : #endif
2328 :
2329 : #if SK2_ENABLED
2330 : module procedure getErrTableReadUnit_TO_D2_SK2
2331 : use pm_kind, only: SKC => SK2
2332 : #include "pm_io@routines.inc.F90"
2333 : end procedure
2334 : #endif
2335 :
2336 : #if SK1_ENABLED
2337 0 : module procedure getErrTableReadUnit_TO_D2_SK1
2338 : use pm_kind, only: SKC => SK1
2339 : #include "pm_io@routines.inc.F90"
2340 0 : end procedure
2341 : #endif
2342 :
2343 : #undef SK_ENABLED
2344 :
2345 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2346 :
2347 : #define IK_ENABLED 1
2348 :
2349 : #if IK5_ENABLED
2350 0 : module procedure getErrTableReadUnit_TO_D2_IK5
2351 : use pm_kind, only: IKC => IK5
2352 : #include "pm_io@routines.inc.F90"
2353 0 : end procedure
2354 : #endif
2355 :
2356 : #if IK4_ENABLED
2357 0 : module procedure getErrTableReadUnit_TO_D2_IK4
2358 : use pm_kind, only: IKC => IK4
2359 : #include "pm_io@routines.inc.F90"
2360 0 : end procedure
2361 : #endif
2362 :
2363 : #if IK3_ENABLED
2364 0 : module procedure getErrTableReadUnit_TO_D2_IK3
2365 : use pm_kind, only: IKC => IK3
2366 : #include "pm_io@routines.inc.F90"
2367 0 : end procedure
2368 : #endif
2369 :
2370 : #if IK2_ENABLED
2371 0 : module procedure getErrTableReadUnit_TO_D2_IK2
2372 : use pm_kind, only: IKC => IK2
2373 : #include "pm_io@routines.inc.F90"
2374 0 : end procedure
2375 : #endif
2376 :
2377 : #if IK1_ENABLED
2378 0 : module procedure getErrTableReadUnit_TO_D2_IK1
2379 : use pm_kind, only: IKC => IK1
2380 : #include "pm_io@routines.inc.F90"
2381 0 : end procedure
2382 : #endif
2383 :
2384 : #undef IK_ENABLED
2385 :
2386 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2387 :
2388 : #define LK_ENABLED 1
2389 :
2390 : #define LK_ENABLED 1
2391 :
2392 : #if LK5_ENABLED
2393 0 : module procedure getErrTableReadUnit_TO_D2_LK5
2394 : use pm_kind, only: LKC => LK5
2395 : #include "pm_io@routines.inc.F90"
2396 0 : end procedure
2397 : #endif
2398 :
2399 : #if LK4_ENABLED
2400 0 : module procedure getErrTableReadUnit_TO_D2_LK4
2401 : use pm_kind, only: LKC => LK4
2402 : #include "pm_io@routines.inc.F90"
2403 0 : end procedure
2404 : #endif
2405 :
2406 : #if LK3_ENABLED
2407 0 : module procedure getErrTableReadUnit_TO_D2_LK3
2408 : use pm_kind, only: LKC => LK3
2409 : #include "pm_io@routines.inc.F90"
2410 0 : end procedure
2411 : #endif
2412 :
2413 : #if LK2_ENABLED
2414 0 : module procedure getErrTableReadUnit_TO_D2_LK2
2415 : use pm_kind, only: LKC => LK2
2416 : #include "pm_io@routines.inc.F90"
2417 0 : end procedure
2418 : #endif
2419 :
2420 : #if LK1_ENABLED
2421 0 : module procedure getErrTableReadUnit_TO_D2_LK1
2422 : use pm_kind, only: LKC => LK1
2423 : #include "pm_io@routines.inc.F90"
2424 0 : end procedure
2425 : #endif
2426 :
2427 : #undef LK_ENABLED
2428 :
2429 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2430 :
2431 : #define CK_ENABLED 1
2432 :
2433 : #if CK3_ENABLED
2434 0 : module procedure getErrTableReadUnit_TO_D2_CK3
2435 : use pm_kind, only: CKC => CK3
2436 : #include "pm_io@routines.inc.F90"
2437 0 : end procedure
2438 : #endif
2439 :
2440 : #if CK2_ENABLED
2441 0 : module procedure getErrTableReadUnit_TO_D2_CK2
2442 : use pm_kind, only: CKC => CK2
2443 : #include "pm_io@routines.inc.F90"
2444 0 : end procedure
2445 : #endif
2446 :
2447 : #if CK1_ENABLED
2448 0 : module procedure getErrTableReadUnit_TO_D2_CK1
2449 : use pm_kind, only: CKC => CK1
2450 : #include "pm_io@routines.inc.F90"
2451 0 : end procedure
2452 : #endif
2453 :
2454 : #if CK5_ENABLED
2455 : module procedure getErrTableReadUnit_TO_D2_CK5
2456 : use pm_kind, only: CKC => CK5
2457 : #include "pm_io@routines.inc.F90"
2458 : end procedure
2459 : #endif
2460 :
2461 : #if CK4_ENABLED
2462 0 : module procedure getErrTableReadUnit_TO_D2_CK4
2463 : use pm_kind, only: CKC => CK4
2464 : #include "pm_io@routines.inc.F90"
2465 0 : end procedure
2466 : #endif
2467 :
2468 : #undef CK_ENABLED
2469 :
2470 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2471 :
2472 : #define RK_ENABLED 1
2473 :
2474 : #if RK5_ENABLED
2475 : module procedure getErrTableReadUnit_TO_D2_RK5
2476 : use pm_kind, only: RKC => RK5
2477 : #include "pm_io@routines.inc.F90"
2478 : end procedure
2479 : #endif
2480 :
2481 : #if RK4_ENABLED
2482 0 : module procedure getErrTableReadUnit_TO_D2_RK4
2483 : use pm_kind, only: RKC => RK4
2484 : #include "pm_io@routines.inc.F90"
2485 0 : end procedure
2486 : #endif
2487 :
2488 : #if RK3_ENABLED
2489 0 : module procedure getErrTableReadUnit_TO_D2_RK3
2490 : use pm_kind, only: RKC => RK3
2491 : #include "pm_io@routines.inc.F90"
2492 0 : end procedure
2493 : #endif
2494 :
2495 : #if RK2_ENABLED
2496 0 : module procedure getErrTableReadUnit_TO_D2_RK2
2497 : use pm_kind, only: RKC => RK2
2498 : #include "pm_io@routines.inc.F90"
2499 0 : end procedure
2500 : #endif
2501 :
2502 : #if RK1_ENABLED
2503 0 : module procedure getErrTableReadUnit_TO_D2_RK1
2504 : use pm_kind, only: RKC => RK1
2505 : #include "pm_io@routines.inc.F90"
2506 0 : end procedure
2507 : #endif
2508 :
2509 : #undef RK_ENABLED
2510 :
2511 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2512 :
2513 : #undef Unit_ENABLED
2514 :
2515 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2516 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2517 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2518 :
2519 : #undef D2_ENABLED
2520 :
2521 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2522 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2523 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2524 :
2525 : #undef TO_ENABLED
2526 :
2527 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2528 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2529 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2530 :
2531 : #undef getErrTableRead_ENABLED
2532 :
2533 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2534 :
2535 : #define getErrTableWrite_ENABLED 1
2536 :
2537 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2538 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2539 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2540 :
2541 : #define NO_ENABLED 1
2542 :
2543 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2544 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2545 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2546 :
2547 : #define D1_ENABLED 1
2548 :
2549 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2550 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2551 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2552 :
2553 : #define File_ENABLED 1
2554 :
2555 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2556 :
2557 : #define SK_ENABLED 1
2558 :
2559 : #if SK5_ENABLED
2560 : module procedure getErrTableWriteFile_NO_D1_SK5
2561 : use pm_kind, only: SKC => SK5
2562 : #include "pm_io@routines.inc.F90"
2563 : end procedure
2564 : #endif
2565 :
2566 : #if SK4_ENABLED
2567 : module procedure getErrTableWriteFile_NO_D1_SK4
2568 : use pm_kind, only: SKC => SK4
2569 : #include "pm_io@routines.inc.F90"
2570 : end procedure
2571 : #endif
2572 :
2573 : #if SK3_ENABLED
2574 : module procedure getErrTableWriteFile_NO_D1_SK3
2575 : use pm_kind, only: SKC => SK3
2576 : #include "pm_io@routines.inc.F90"
2577 : end procedure
2578 : #endif
2579 :
2580 : #if SK2_ENABLED
2581 : module procedure getErrTableWriteFile_NO_D1_SK2
2582 : use pm_kind, only: SKC => SK2
2583 : #include "pm_io@routines.inc.F90"
2584 : end procedure
2585 : #endif
2586 :
2587 : #if SK1_ENABLED
2588 0 : module procedure getErrTableWriteFile_NO_D1_SK1
2589 : use pm_kind, only: SKC => SK1
2590 : #include "pm_io@routines.inc.F90"
2591 0 : end procedure
2592 : #endif
2593 :
2594 : #undef SK_ENABLED
2595 :
2596 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2597 :
2598 : #define IK_ENABLED 1
2599 :
2600 : #if IK5_ENABLED
2601 0 : module procedure getErrTableWriteFile_NO_D1_IK5
2602 : use pm_kind, only: IKC => IK5
2603 : #include "pm_io@routines.inc.F90"
2604 0 : end procedure
2605 : #endif
2606 :
2607 : #if IK4_ENABLED
2608 0 : module procedure getErrTableWriteFile_NO_D1_IK4
2609 : use pm_kind, only: IKC => IK4
2610 : #include "pm_io@routines.inc.F90"
2611 0 : end procedure
2612 : #endif
2613 :
2614 : #if IK3_ENABLED
2615 1 : module procedure getErrTableWriteFile_NO_D1_IK3
2616 : use pm_kind, only: IKC => IK3
2617 : #include "pm_io@routines.inc.F90"
2618 2 : end procedure
2619 : #endif
2620 :
2621 : #if IK2_ENABLED
2622 0 : module procedure getErrTableWriteFile_NO_D1_IK2
2623 : use pm_kind, only: IKC => IK2
2624 : #include "pm_io@routines.inc.F90"
2625 0 : end procedure
2626 : #endif
2627 :
2628 : #if IK1_ENABLED
2629 0 : module procedure getErrTableWriteFile_NO_D1_IK1
2630 : use pm_kind, only: IKC => IK1
2631 : #include "pm_io@routines.inc.F90"
2632 0 : end procedure
2633 : #endif
2634 :
2635 : #undef IK_ENABLED
2636 :
2637 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2638 :
2639 : #define LK_ENABLED 1
2640 :
2641 : #define LK_ENABLED 1
2642 :
2643 : #if LK5_ENABLED
2644 0 : module procedure getErrTableWriteFile_NO_D1_LK5
2645 : use pm_kind, only: LKC => LK5
2646 : #include "pm_io@routines.inc.F90"
2647 0 : end procedure
2648 : #endif
2649 :
2650 : #if LK4_ENABLED
2651 0 : module procedure getErrTableWriteFile_NO_D1_LK4
2652 : use pm_kind, only: LKC => LK4
2653 : #include "pm_io@routines.inc.F90"
2654 0 : end procedure
2655 : #endif
2656 :
2657 : #if LK3_ENABLED
2658 0 : module procedure getErrTableWriteFile_NO_D1_LK3
2659 : use pm_kind, only: LKC => LK3
2660 : #include "pm_io@routines.inc.F90"
2661 0 : end procedure
2662 : #endif
2663 :
2664 : #if LK2_ENABLED
2665 0 : module procedure getErrTableWriteFile_NO_D1_LK2
2666 : use pm_kind, only: LKC => LK2
2667 : #include "pm_io@routines.inc.F90"
2668 0 : end procedure
2669 : #endif
2670 :
2671 : #if LK1_ENABLED
2672 0 : module procedure getErrTableWriteFile_NO_D1_LK1
2673 : use pm_kind, only: LKC => LK1
2674 : #include "pm_io@routines.inc.F90"
2675 0 : end procedure
2676 : #endif
2677 :
2678 : #undef LK_ENABLED
2679 :
2680 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2681 :
2682 : #define CK_ENABLED 1
2683 :
2684 : #if CK3_ENABLED
2685 0 : module procedure getErrTableWriteFile_NO_D1_CK3
2686 : use pm_kind, only: CKC => CK3
2687 : #include "pm_io@routines.inc.F90"
2688 0 : end procedure
2689 : #endif
2690 :
2691 : #if CK2_ENABLED
2692 0 : module procedure getErrTableWriteFile_NO_D1_CK2
2693 : use pm_kind, only: CKC => CK2
2694 : #include "pm_io@routines.inc.F90"
2695 0 : end procedure
2696 : #endif
2697 :
2698 : #if CK1_ENABLED
2699 0 : module procedure getErrTableWriteFile_NO_D1_CK1
2700 : use pm_kind, only: CKC => CK1
2701 : #include "pm_io@routines.inc.F90"
2702 0 : end procedure
2703 : #endif
2704 :
2705 : #if CK5_ENABLED
2706 : module procedure getErrTableWriteFile_NO_D1_CK5
2707 : use pm_kind, only: CKC => CK5
2708 : #include "pm_io@routines.inc.F90"
2709 : end procedure
2710 : #endif
2711 :
2712 : #if CK4_ENABLED
2713 0 : module procedure getErrTableWriteFile_NO_D1_CK4
2714 : use pm_kind, only: CKC => CK4
2715 : #include "pm_io@routines.inc.F90"
2716 0 : end procedure
2717 : #endif
2718 :
2719 : #undef CK_ENABLED
2720 :
2721 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2722 :
2723 : #define RK_ENABLED 1
2724 :
2725 : #if RK5_ENABLED
2726 : module procedure getErrTableWriteFile_NO_D1_RK5
2727 : use pm_kind, only: RKC => RK5
2728 : #include "pm_io@routines.inc.F90"
2729 : end procedure
2730 : #endif
2731 :
2732 : #if RK4_ENABLED
2733 2 : module procedure getErrTableWriteFile_NO_D1_RK4
2734 : use pm_kind, only: RKC => RK4
2735 : #include "pm_io@routines.inc.F90"
2736 4 : end procedure
2737 : #endif
2738 :
2739 : #if RK3_ENABLED
2740 0 : module procedure getErrTableWriteFile_NO_D1_RK3
2741 : use pm_kind, only: RKC => RK3
2742 : #include "pm_io@routines.inc.F90"
2743 0 : end procedure
2744 : #endif
2745 :
2746 : #if RK2_ENABLED
2747 0 : module procedure getErrTableWriteFile_NO_D1_RK2
2748 : use pm_kind, only: RKC => RK2
2749 : #include "pm_io@routines.inc.F90"
2750 0 : end procedure
2751 : #endif
2752 :
2753 : #if RK1_ENABLED
2754 0 : module procedure getErrTableWriteFile_NO_D1_RK1
2755 : use pm_kind, only: RKC => RK1
2756 : #include "pm_io@routines.inc.F90"
2757 0 : end procedure
2758 : #endif
2759 :
2760 : #undef RK_ENABLED
2761 :
2762 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2763 :
2764 : #undef File_ENABLED
2765 :
2766 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2767 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2768 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2769 :
2770 : #define Unit_ENABLED 1
2771 :
2772 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2773 :
2774 : #define SK_ENABLED 1
2775 :
2776 : #if SK5_ENABLED
2777 : module procedure getErrTableWriteUnit_NO_D1_SK5
2778 : use pm_kind, only: SKC => SK5
2779 : #include "pm_io@routines.inc.F90"
2780 : end procedure
2781 : #endif
2782 :
2783 : #if SK4_ENABLED
2784 : module procedure getErrTableWriteUnit_NO_D1_SK4
2785 : use pm_kind, only: SKC => SK4
2786 : #include "pm_io@routines.inc.F90"
2787 : end procedure
2788 : #endif
2789 :
2790 : #if SK3_ENABLED
2791 : module procedure getErrTableWriteUnit_NO_D1_SK3
2792 : use pm_kind, only: SKC => SK3
2793 : #include "pm_io@routines.inc.F90"
2794 : end procedure
2795 : #endif
2796 :
2797 : #if SK2_ENABLED
2798 : module procedure getErrTableWriteUnit_NO_D1_SK2
2799 : use pm_kind, only: SKC => SK2
2800 : #include "pm_io@routines.inc.F90"
2801 : end procedure
2802 : #endif
2803 :
2804 : #if SK1_ENABLED
2805 0 : module procedure getErrTableWriteUnit_NO_D1_SK1
2806 : use pm_kind, only: SKC => SK1
2807 : #include "pm_io@routines.inc.F90"
2808 0 : end procedure
2809 : #endif
2810 :
2811 : #undef SK_ENABLED
2812 :
2813 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2814 :
2815 : #define IK_ENABLED 1
2816 :
2817 : #if IK5_ENABLED
2818 0 : module procedure getErrTableWriteUnit_NO_D1_IK5
2819 : use pm_kind, only: IKC => IK5
2820 : #include "pm_io@routines.inc.F90"
2821 0 : end procedure
2822 : #endif
2823 :
2824 : #if IK4_ENABLED
2825 0 : module procedure getErrTableWriteUnit_NO_D1_IK4
2826 : use pm_kind, only: IKC => IK4
2827 : #include "pm_io@routines.inc.F90"
2828 0 : end procedure
2829 : #endif
2830 :
2831 : #if IK3_ENABLED
2832 0 : module procedure getErrTableWriteUnit_NO_D1_IK3
2833 : use pm_kind, only: IKC => IK3
2834 : #include "pm_io@routines.inc.F90"
2835 0 : end procedure
2836 : #endif
2837 :
2838 : #if IK2_ENABLED
2839 0 : module procedure getErrTableWriteUnit_NO_D1_IK2
2840 : use pm_kind, only: IKC => IK2
2841 : #include "pm_io@routines.inc.F90"
2842 0 : end procedure
2843 : #endif
2844 :
2845 : #if IK1_ENABLED
2846 0 : module procedure getErrTableWriteUnit_NO_D1_IK1
2847 : use pm_kind, only: IKC => IK1
2848 : #include "pm_io@routines.inc.F90"
2849 0 : end procedure
2850 : #endif
2851 :
2852 : #undef IK_ENABLED
2853 :
2854 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2855 :
2856 : #define LK_ENABLED 1
2857 :
2858 : #define LK_ENABLED 1
2859 :
2860 : #if LK5_ENABLED
2861 0 : module procedure getErrTableWriteUnit_NO_D1_LK5
2862 : use pm_kind, only: LKC => LK5
2863 : #include "pm_io@routines.inc.F90"
2864 0 : end procedure
2865 : #endif
2866 :
2867 : #if LK4_ENABLED
2868 0 : module procedure getErrTableWriteUnit_NO_D1_LK4
2869 : use pm_kind, only: LKC => LK4
2870 : #include "pm_io@routines.inc.F90"
2871 0 : end procedure
2872 : #endif
2873 :
2874 : #if LK3_ENABLED
2875 0 : module procedure getErrTableWriteUnit_NO_D1_LK3
2876 : use pm_kind, only: LKC => LK3
2877 : #include "pm_io@routines.inc.F90"
2878 0 : end procedure
2879 : #endif
2880 :
2881 : #if LK2_ENABLED
2882 0 : module procedure getErrTableWriteUnit_NO_D1_LK2
2883 : use pm_kind, only: LKC => LK2
2884 : #include "pm_io@routines.inc.F90"
2885 0 : end procedure
2886 : #endif
2887 :
2888 : #if LK1_ENABLED
2889 0 : module procedure getErrTableWriteUnit_NO_D1_LK1
2890 : use pm_kind, only: LKC => LK1
2891 : #include "pm_io@routines.inc.F90"
2892 0 : end procedure
2893 : #endif
2894 :
2895 : #undef LK_ENABLED
2896 :
2897 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2898 :
2899 : #define CK_ENABLED 1
2900 :
2901 : #if CK3_ENABLED
2902 0 : module procedure getErrTableWriteUnit_NO_D1_CK3
2903 : use pm_kind, only: CKC => CK3
2904 : #include "pm_io@routines.inc.F90"
2905 0 : end procedure
2906 : #endif
2907 :
2908 : #if CK2_ENABLED
2909 0 : module procedure getErrTableWriteUnit_NO_D1_CK2
2910 : use pm_kind, only: CKC => CK2
2911 : #include "pm_io@routines.inc.F90"
2912 0 : end procedure
2913 : #endif
2914 :
2915 : #if CK1_ENABLED
2916 0 : module procedure getErrTableWriteUnit_NO_D1_CK1
2917 : use pm_kind, only: CKC => CK1
2918 : #include "pm_io@routines.inc.F90"
2919 0 : end procedure
2920 : #endif
2921 :
2922 : #if CK5_ENABLED
2923 : module procedure getErrTableWriteUnit_NO_D1_CK5
2924 : use pm_kind, only: CKC => CK5
2925 : #include "pm_io@routines.inc.F90"
2926 : end procedure
2927 : #endif
2928 :
2929 : #if CK4_ENABLED
2930 0 : module procedure getErrTableWriteUnit_NO_D1_CK4
2931 : use pm_kind, only: CKC => CK4
2932 : #include "pm_io@routines.inc.F90"
2933 0 : end procedure
2934 : #endif
2935 :
2936 : #undef CK_ENABLED
2937 :
2938 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2939 :
2940 : #define RK_ENABLED 1
2941 :
2942 : #if RK5_ENABLED
2943 : module procedure getErrTableWriteUnit_NO_D1_RK5
2944 : use pm_kind, only: RKC => RK5
2945 : #include "pm_io@routines.inc.F90"
2946 : end procedure
2947 : #endif
2948 :
2949 : #if RK4_ENABLED
2950 0 : module procedure getErrTableWriteUnit_NO_D1_RK4
2951 : use pm_kind, only: RKC => RK4
2952 : #include "pm_io@routines.inc.F90"
2953 0 : end procedure
2954 : #endif
2955 :
2956 : #if RK3_ENABLED
2957 0 : module procedure getErrTableWriteUnit_NO_D1_RK3
2958 : use pm_kind, only: RKC => RK3
2959 : #include "pm_io@routines.inc.F90"
2960 0 : end procedure
2961 : #endif
2962 :
2963 : #if RK2_ENABLED
2964 0 : module procedure getErrTableWriteUnit_NO_D1_RK2
2965 : use pm_kind, only: RKC => RK2
2966 : #include "pm_io@routines.inc.F90"
2967 0 : end procedure
2968 : #endif
2969 :
2970 : #if RK1_ENABLED
2971 0 : module procedure getErrTableWriteUnit_NO_D1_RK1
2972 : use pm_kind, only: RKC => RK1
2973 : #include "pm_io@routines.inc.F90"
2974 0 : end procedure
2975 : #endif
2976 :
2977 : #undef RK_ENABLED
2978 :
2979 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2980 :
2981 : #undef Unit_ENABLED
2982 :
2983 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2984 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2985 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2986 :
2987 : #undef D1_ENABLED
2988 :
2989 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2990 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2991 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2992 :
2993 : #define D2_ENABLED 1
2994 :
2995 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2996 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2997 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2998 :
2999 : #define File_ENABLED 1
3000 :
3001 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3002 :
3003 : #define SK_ENABLED 1
3004 :
3005 : #if SK5_ENABLED
3006 : module procedure getErrTableWriteFile_NO_D2_SK5
3007 : use pm_kind, only: SKC => SK5
3008 : #include "pm_io@routines.inc.F90"
3009 : end procedure
3010 : #endif
3011 :
3012 : #if SK4_ENABLED
3013 : module procedure getErrTableWriteFile_NO_D2_SK4
3014 : use pm_kind, only: SKC => SK4
3015 : #include "pm_io@routines.inc.F90"
3016 : end procedure
3017 : #endif
3018 :
3019 : #if SK3_ENABLED
3020 : module procedure getErrTableWriteFile_NO_D2_SK3
3021 : use pm_kind, only: SKC => SK3
3022 : #include "pm_io@routines.inc.F90"
3023 : end procedure
3024 : #endif
3025 :
3026 : #if SK2_ENABLED
3027 : module procedure getErrTableWriteFile_NO_D2_SK2
3028 : use pm_kind, only: SKC => SK2
3029 : #include "pm_io@routines.inc.F90"
3030 : end procedure
3031 : #endif
3032 :
3033 : #if SK1_ENABLED
3034 4 : module procedure getErrTableWriteFile_NO_D2_SK1
3035 : use pm_kind, only: SKC => SK1
3036 : #include "pm_io@routines.inc.F90"
3037 8 : end procedure
3038 : #endif
3039 :
3040 : #undef SK_ENABLED
3041 :
3042 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3043 :
3044 : #define IK_ENABLED 1
3045 :
3046 : #if IK5_ENABLED
3047 0 : module procedure getErrTableWriteFile_NO_D2_IK5
3048 : use pm_kind, only: IKC => IK5
3049 : #include "pm_io@routines.inc.F90"
3050 0 : end procedure
3051 : #endif
3052 :
3053 : #if IK4_ENABLED
3054 0 : module procedure getErrTableWriteFile_NO_D2_IK4
3055 : use pm_kind, only: IKC => IK4
3056 : #include "pm_io@routines.inc.F90"
3057 0 : end procedure
3058 : #endif
3059 :
3060 : #if IK3_ENABLED
3061 2 : module procedure getErrTableWriteFile_NO_D2_IK3
3062 : use pm_kind, only: IKC => IK3
3063 : #include "pm_io@routines.inc.F90"
3064 4 : end procedure
3065 : #endif
3066 :
3067 : #if IK2_ENABLED
3068 0 : module procedure getErrTableWriteFile_NO_D2_IK2
3069 : use pm_kind, only: IKC => IK2
3070 : #include "pm_io@routines.inc.F90"
3071 0 : end procedure
3072 : #endif
3073 :
3074 : #if IK1_ENABLED
3075 0 : module procedure getErrTableWriteFile_NO_D2_IK1
3076 : use pm_kind, only: IKC => IK1
3077 : #include "pm_io@routines.inc.F90"
3078 0 : end procedure
3079 : #endif
3080 :
3081 : #undef IK_ENABLED
3082 :
3083 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3084 :
3085 : #define LK_ENABLED 1
3086 :
3087 : #define LK_ENABLED 1
3088 :
3089 : #if LK5_ENABLED
3090 0 : module procedure getErrTableWriteFile_NO_D2_LK5
3091 : use pm_kind, only: LKC => LK5
3092 : #include "pm_io@routines.inc.F90"
3093 0 : end procedure
3094 : #endif
3095 :
3096 : #if LK4_ENABLED
3097 0 : module procedure getErrTableWriteFile_NO_D2_LK4
3098 : use pm_kind, only: LKC => LK4
3099 : #include "pm_io@routines.inc.F90"
3100 0 : end procedure
3101 : #endif
3102 :
3103 : #if LK3_ENABLED
3104 2 : module procedure getErrTableWriteFile_NO_D2_LK3
3105 : use pm_kind, only: LKC => LK3
3106 : #include "pm_io@routines.inc.F90"
3107 4 : end procedure
3108 : #endif
3109 :
3110 : #if LK2_ENABLED
3111 0 : module procedure getErrTableWriteFile_NO_D2_LK2
3112 : use pm_kind, only: LKC => LK2
3113 : #include "pm_io@routines.inc.F90"
3114 0 : end procedure
3115 : #endif
3116 :
3117 : #if LK1_ENABLED
3118 0 : module procedure getErrTableWriteFile_NO_D2_LK1
3119 : use pm_kind, only: LKC => LK1
3120 : #include "pm_io@routines.inc.F90"
3121 0 : end procedure
3122 : #endif
3123 :
3124 : #undef LK_ENABLED
3125 :
3126 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3127 :
3128 : #define CK_ENABLED 1
3129 :
3130 : #if CK3_ENABLED
3131 0 : module procedure getErrTableWriteFile_NO_D2_CK3
3132 : use pm_kind, only: CKC => CK3
3133 : #include "pm_io@routines.inc.F90"
3134 0 : end procedure
3135 : #endif
3136 :
3137 : #if CK2_ENABLED
3138 0 : module procedure getErrTableWriteFile_NO_D2_CK2
3139 : use pm_kind, only: CKC => CK2
3140 : #include "pm_io@routines.inc.F90"
3141 0 : end procedure
3142 : #endif
3143 :
3144 : #if CK1_ENABLED
3145 2 : module procedure getErrTableWriteFile_NO_D2_CK1
3146 : use pm_kind, only: CKC => CK1
3147 : #include "pm_io@routines.inc.F90"
3148 4 : end procedure
3149 : #endif
3150 :
3151 : #if CK5_ENABLED
3152 : module procedure getErrTableWriteFile_NO_D2_CK5
3153 : use pm_kind, only: CKC => CK5
3154 : #include "pm_io@routines.inc.F90"
3155 : end procedure
3156 : #endif
3157 :
3158 : #if CK4_ENABLED
3159 0 : module procedure getErrTableWriteFile_NO_D2_CK4
3160 : use pm_kind, only: CKC => CK4
3161 : #include "pm_io@routines.inc.F90"
3162 0 : end procedure
3163 : #endif
3164 :
3165 : #undef CK_ENABLED
3166 :
3167 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3168 :
3169 : #define RK_ENABLED 1
3170 :
3171 : #if RK5_ENABLED
3172 : module procedure getErrTableWriteFile_NO_D2_RK5
3173 : use pm_kind, only: RKC => RK5
3174 : #include "pm_io@routines.inc.F90"
3175 : end procedure
3176 : #endif
3177 :
3178 : #if RK4_ENABLED
3179 7 : module procedure getErrTableWriteFile_NO_D2_RK4
3180 : use pm_kind, only: RKC => RK4
3181 : #include "pm_io@routines.inc.F90"
3182 14 : end procedure
3183 : #endif
3184 :
3185 : #if RK3_ENABLED
3186 0 : module procedure getErrTableWriteFile_NO_D2_RK3
3187 : use pm_kind, only: RKC => RK3
3188 : #include "pm_io@routines.inc.F90"
3189 0 : end procedure
3190 : #endif
3191 :
3192 : #if RK2_ENABLED
3193 2311 : module procedure getErrTableWriteFile_NO_D2_RK2
3194 : use pm_kind, only: RKC => RK2
3195 : #include "pm_io@routines.inc.F90"
3196 4622 : end procedure
3197 : #endif
3198 :
3199 : #if RK1_ENABLED
3200 69 : module procedure getErrTableWriteFile_NO_D2_RK1
3201 : use pm_kind, only: RKC => RK1
3202 : #include "pm_io@routines.inc.F90"
3203 138 : end procedure
3204 : #endif
3205 :
3206 : #undef RK_ENABLED
3207 :
3208 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3209 :
3210 : #undef File_ENABLED
3211 :
3212 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3213 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3214 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3215 :
3216 : #define Unit_ENABLED 1
3217 :
3218 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3219 :
3220 : #define SK_ENABLED 1
3221 :
3222 : #if SK5_ENABLED
3223 : module procedure getErrTableWriteUnit_NO_D2_SK5
3224 : use pm_kind, only: SKC => SK5
3225 : #include "pm_io@routines.inc.F90"
3226 : end procedure
3227 : #endif
3228 :
3229 : #if SK4_ENABLED
3230 : module procedure getErrTableWriteUnit_NO_D2_SK4
3231 : use pm_kind, only: SKC => SK4
3232 : #include "pm_io@routines.inc.F90"
3233 : end procedure
3234 : #endif
3235 :
3236 : #if SK3_ENABLED
3237 : module procedure getErrTableWriteUnit_NO_D2_SK3
3238 : use pm_kind, only: SKC => SK3
3239 : #include "pm_io@routines.inc.F90"
3240 : end procedure
3241 : #endif
3242 :
3243 : #if SK2_ENABLED
3244 : module procedure getErrTableWriteUnit_NO_D2_SK2
3245 : use pm_kind, only: SKC => SK2
3246 : #include "pm_io@routines.inc.F90"
3247 : end procedure
3248 : #endif
3249 :
3250 : #if SK1_ENABLED
3251 0 : module procedure getErrTableWriteUnit_NO_D2_SK1
3252 : use pm_kind, only: SKC => SK1
3253 : #include "pm_io@routines.inc.F90"
3254 0 : end procedure
3255 : #endif
3256 :
3257 : #undef SK_ENABLED
3258 :
3259 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3260 :
3261 : #define IK_ENABLED 1
3262 :
3263 : #if IK5_ENABLED
3264 0 : module procedure getErrTableWriteUnit_NO_D2_IK5
3265 : use pm_kind, only: IKC => IK5
3266 : #include "pm_io@routines.inc.F90"
3267 0 : end procedure
3268 : #endif
3269 :
3270 : #if IK4_ENABLED
3271 0 : module procedure getErrTableWriteUnit_NO_D2_IK4
3272 : use pm_kind, only: IKC => IK4
3273 : #include "pm_io@routines.inc.F90"
3274 0 : end procedure
3275 : #endif
3276 :
3277 : #if IK3_ENABLED
3278 0 : module procedure getErrTableWriteUnit_NO_D2_IK3
3279 : use pm_kind, only: IKC => IK3
3280 : #include "pm_io@routines.inc.F90"
3281 0 : end procedure
3282 : #endif
3283 :
3284 : #if IK2_ENABLED
3285 0 : module procedure getErrTableWriteUnit_NO_D2_IK2
3286 : use pm_kind, only: IKC => IK2
3287 : #include "pm_io@routines.inc.F90"
3288 0 : end procedure
3289 : #endif
3290 :
3291 : #if IK1_ENABLED
3292 0 : module procedure getErrTableWriteUnit_NO_D2_IK1
3293 : use pm_kind, only: IKC => IK1
3294 : #include "pm_io@routines.inc.F90"
3295 0 : end procedure
3296 : #endif
3297 :
3298 : #undef IK_ENABLED
3299 :
3300 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3301 :
3302 : #define LK_ENABLED 1
3303 :
3304 : #define LK_ENABLED 1
3305 :
3306 : #if LK5_ENABLED
3307 0 : module procedure getErrTableWriteUnit_NO_D2_LK5
3308 : use pm_kind, only: LKC => LK5
3309 : #include "pm_io@routines.inc.F90"
3310 0 : end procedure
3311 : #endif
3312 :
3313 : #if LK4_ENABLED
3314 0 : module procedure getErrTableWriteUnit_NO_D2_LK4
3315 : use pm_kind, only: LKC => LK4
3316 : #include "pm_io@routines.inc.F90"
3317 0 : end procedure
3318 : #endif
3319 :
3320 : #if LK3_ENABLED
3321 0 : module procedure getErrTableWriteUnit_NO_D2_LK3
3322 : use pm_kind, only: LKC => LK3
3323 : #include "pm_io@routines.inc.F90"
3324 0 : end procedure
3325 : #endif
3326 :
3327 : #if LK2_ENABLED
3328 0 : module procedure getErrTableWriteUnit_NO_D2_LK2
3329 : use pm_kind, only: LKC => LK2
3330 : #include "pm_io@routines.inc.F90"
3331 0 : end procedure
3332 : #endif
3333 :
3334 : #if LK1_ENABLED
3335 0 : module procedure getErrTableWriteUnit_NO_D2_LK1
3336 : use pm_kind, only: LKC => LK1
3337 : #include "pm_io@routines.inc.F90"
3338 0 : end procedure
3339 : #endif
3340 :
3341 : #undef LK_ENABLED
3342 :
3343 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3344 :
3345 : #define CK_ENABLED 1
3346 :
3347 : #if CK3_ENABLED
3348 0 : module procedure getErrTableWriteUnit_NO_D2_CK3
3349 : use pm_kind, only: CKC => CK3
3350 : #include "pm_io@routines.inc.F90"
3351 0 : end procedure
3352 : #endif
3353 :
3354 : #if CK2_ENABLED
3355 0 : module procedure getErrTableWriteUnit_NO_D2_CK2
3356 : use pm_kind, only: CKC => CK2
3357 : #include "pm_io@routines.inc.F90"
3358 0 : end procedure
3359 : #endif
3360 :
3361 : #if CK1_ENABLED
3362 0 : module procedure getErrTableWriteUnit_NO_D2_CK1
3363 : use pm_kind, only: CKC => CK1
3364 : #include "pm_io@routines.inc.F90"
3365 0 : end procedure
3366 : #endif
3367 :
3368 : #if CK5_ENABLED
3369 : module procedure getErrTableWriteUnit_NO_D2_CK5
3370 : use pm_kind, only: CKC => CK5
3371 : #include "pm_io@routines.inc.F90"
3372 : end procedure
3373 : #endif
3374 :
3375 : #if CK4_ENABLED
3376 0 : module procedure getErrTableWriteUnit_NO_D2_CK4
3377 : use pm_kind, only: CKC => CK4
3378 : #include "pm_io@routines.inc.F90"
3379 0 : end procedure
3380 : #endif
3381 :
3382 : #undef CK_ENABLED
3383 :
3384 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3385 :
3386 : #define RK_ENABLED 1
3387 :
3388 : #if RK5_ENABLED
3389 : module procedure getErrTableWriteUnit_NO_D2_RK5
3390 : use pm_kind, only: RKC => RK5
3391 : #include "pm_io@routines.inc.F90"
3392 : end procedure
3393 : #endif
3394 :
3395 : #if RK4_ENABLED
3396 0 : module procedure getErrTableWriteUnit_NO_D2_RK4
3397 : use pm_kind, only: RKC => RK4
3398 : #include "pm_io@routines.inc.F90"
3399 0 : end procedure
3400 : #endif
3401 :
3402 : #if RK3_ENABLED
3403 0 : module procedure getErrTableWriteUnit_NO_D2_RK3
3404 : use pm_kind, only: RKC => RK3
3405 : #include "pm_io@routines.inc.F90"
3406 0 : end procedure
3407 : #endif
3408 :
3409 : #if RK2_ENABLED
3410 0 : module procedure getErrTableWriteUnit_NO_D2_RK2
3411 : use pm_kind, only: RKC => RK2
3412 : #include "pm_io@routines.inc.F90"
3413 0 : end procedure
3414 : #endif
3415 :
3416 : #if RK1_ENABLED
3417 0 : module procedure getErrTableWriteUnit_NO_D2_RK1
3418 : use pm_kind, only: RKC => RK1
3419 : #include "pm_io@routines.inc.F90"
3420 0 : end procedure
3421 : #endif
3422 :
3423 : #undef RK_ENABLED
3424 :
3425 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3426 :
3427 : #undef Unit_ENABLED
3428 :
3429 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3430 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3431 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3432 :
3433 : #undef D2_ENABLED
3434 :
3435 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3436 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3437 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3438 :
3439 : #undef NO_ENABLED
3440 :
3441 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3442 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3443 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3444 :
3445 : #define TO_ENABLED 1
3446 :
3447 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3448 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3449 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3450 :
3451 : #define D1_ENABLED 1
3452 :
3453 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3454 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3455 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3456 :
3457 : #define File_ENABLED 1
3458 :
3459 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3460 :
3461 : #define SK_ENABLED 1
3462 :
3463 : #if SK5_ENABLED
3464 : module procedure getErrTableWriteFile_TO_D1_SK5
3465 : use pm_kind, only: SKC => SK5
3466 : #include "pm_io@routines.inc.F90"
3467 : end procedure
3468 : #endif
3469 :
3470 : #if SK4_ENABLED
3471 : module procedure getErrTableWriteFile_TO_D1_SK4
3472 : use pm_kind, only: SKC => SK4
3473 : #include "pm_io@routines.inc.F90"
3474 : end procedure
3475 : #endif
3476 :
3477 : #if SK3_ENABLED
3478 : module procedure getErrTableWriteFile_TO_D1_SK3
3479 : use pm_kind, only: SKC => SK3
3480 : #include "pm_io@routines.inc.F90"
3481 : end procedure
3482 : #endif
3483 :
3484 : #if SK2_ENABLED
3485 : module procedure getErrTableWriteFile_TO_D1_SK2
3486 : use pm_kind, only: SKC => SK2
3487 : #include "pm_io@routines.inc.F90"
3488 : end procedure
3489 : #endif
3490 :
3491 : #if SK1_ENABLED
3492 0 : module procedure getErrTableWriteFile_TO_D1_SK1
3493 : use pm_kind, only: SKC => SK1
3494 : #include "pm_io@routines.inc.F90"
3495 0 : end procedure
3496 : #endif
3497 :
3498 : #undef SK_ENABLED
3499 :
3500 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3501 :
3502 : #define IK_ENABLED 1
3503 :
3504 : #if IK5_ENABLED
3505 0 : module procedure getErrTableWriteFile_TO_D1_IK5
3506 : use pm_kind, only: IKC => IK5
3507 : #include "pm_io@routines.inc.F90"
3508 0 : end procedure
3509 : #endif
3510 :
3511 : #if IK4_ENABLED
3512 0 : module procedure getErrTableWriteFile_TO_D1_IK4
3513 : use pm_kind, only: IKC => IK4
3514 : #include "pm_io@routines.inc.F90"
3515 0 : end procedure
3516 : #endif
3517 :
3518 : #if IK3_ENABLED
3519 0 : module procedure getErrTableWriteFile_TO_D1_IK3
3520 : use pm_kind, only: IKC => IK3
3521 : #include "pm_io@routines.inc.F90"
3522 0 : end procedure
3523 : #endif
3524 :
3525 : #if IK2_ENABLED
3526 0 : module procedure getErrTableWriteFile_TO_D1_IK2
3527 : use pm_kind, only: IKC => IK2
3528 : #include "pm_io@routines.inc.F90"
3529 0 : end procedure
3530 : #endif
3531 :
3532 : #if IK1_ENABLED
3533 0 : module procedure getErrTableWriteFile_TO_D1_IK1
3534 : use pm_kind, only: IKC => IK1
3535 : #include "pm_io@routines.inc.F90"
3536 0 : end procedure
3537 : #endif
3538 :
3539 : #undef IK_ENABLED
3540 :
3541 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3542 :
3543 : #define LK_ENABLED 1
3544 :
3545 : #define LK_ENABLED 1
3546 :
3547 : #if LK5_ENABLED
3548 0 : module procedure getErrTableWriteFile_TO_D1_LK5
3549 : use pm_kind, only: LKC => LK5
3550 : #include "pm_io@routines.inc.F90"
3551 0 : end procedure
3552 : #endif
3553 :
3554 : #if LK4_ENABLED
3555 0 : module procedure getErrTableWriteFile_TO_D1_LK4
3556 : use pm_kind, only: LKC => LK4
3557 : #include "pm_io@routines.inc.F90"
3558 0 : end procedure
3559 : #endif
3560 :
3561 : #if LK3_ENABLED
3562 0 : module procedure getErrTableWriteFile_TO_D1_LK3
3563 : use pm_kind, only: LKC => LK3
3564 : #include "pm_io@routines.inc.F90"
3565 0 : end procedure
3566 : #endif
3567 :
3568 : #if LK2_ENABLED
3569 0 : module procedure getErrTableWriteFile_TO_D1_LK2
3570 : use pm_kind, only: LKC => LK2
3571 : #include "pm_io@routines.inc.F90"
3572 0 : end procedure
3573 : #endif
3574 :
3575 : #if LK1_ENABLED
3576 0 : module procedure getErrTableWriteFile_TO_D1_LK1
3577 : use pm_kind, only: LKC => LK1
3578 : #include "pm_io@routines.inc.F90"
3579 0 : end procedure
3580 : #endif
3581 :
3582 : #undef LK_ENABLED
3583 :
3584 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3585 :
3586 : #define CK_ENABLED 1
3587 :
3588 : #if CK3_ENABLED
3589 0 : module procedure getErrTableWriteFile_TO_D1_CK3
3590 : use pm_kind, only: CKC => CK3
3591 : #include "pm_io@routines.inc.F90"
3592 0 : end procedure
3593 : #endif
3594 :
3595 : #if CK2_ENABLED
3596 0 : module procedure getErrTableWriteFile_TO_D1_CK2
3597 : use pm_kind, only: CKC => CK2
3598 : #include "pm_io@routines.inc.F90"
3599 0 : end procedure
3600 : #endif
3601 :
3602 : #if CK1_ENABLED
3603 0 : module procedure getErrTableWriteFile_TO_D1_CK1
3604 : use pm_kind, only: CKC => CK1
3605 : #include "pm_io@routines.inc.F90"
3606 0 : end procedure
3607 : #endif
3608 :
3609 : #if CK5_ENABLED
3610 : module procedure getErrTableWriteFile_TO_D1_CK5
3611 : use pm_kind, only: CKC => CK5
3612 : #include "pm_io@routines.inc.F90"
3613 : end procedure
3614 : #endif
3615 :
3616 : #if CK4_ENABLED
3617 0 : module procedure getErrTableWriteFile_TO_D1_CK4
3618 : use pm_kind, only: CKC => CK4
3619 : #include "pm_io@routines.inc.F90"
3620 0 : end procedure
3621 : #endif
3622 :
3623 : #undef CK_ENABLED
3624 :
3625 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3626 :
3627 : #define RK_ENABLED 1
3628 :
3629 : #if RK5_ENABLED
3630 : module procedure getErrTableWriteFile_TO_D1_RK5
3631 : use pm_kind, only: RKC => RK5
3632 : #include "pm_io@routines.inc.F90"
3633 : end procedure
3634 : #endif
3635 :
3636 : #if RK4_ENABLED
3637 0 : module procedure getErrTableWriteFile_TO_D1_RK4
3638 : use pm_kind, only: RKC => RK4
3639 : #include "pm_io@routines.inc.F90"
3640 0 : end procedure
3641 : #endif
3642 :
3643 : #if RK3_ENABLED
3644 0 : module procedure getErrTableWriteFile_TO_D1_RK3
3645 : use pm_kind, only: RKC => RK3
3646 : #include "pm_io@routines.inc.F90"
3647 0 : end procedure
3648 : #endif
3649 :
3650 : #if RK2_ENABLED
3651 0 : module procedure getErrTableWriteFile_TO_D1_RK2
3652 : use pm_kind, only: RKC => RK2
3653 : #include "pm_io@routines.inc.F90"
3654 0 : end procedure
3655 : #endif
3656 :
3657 : #if RK1_ENABLED
3658 0 : module procedure getErrTableWriteFile_TO_D1_RK1
3659 : use pm_kind, only: RKC => RK1
3660 : #include "pm_io@routines.inc.F90"
3661 0 : end procedure
3662 : #endif
3663 :
3664 : #undef RK_ENABLED
3665 :
3666 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3667 :
3668 : #undef File_ENABLED
3669 :
3670 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3671 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3672 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3673 :
3674 : #define Unit_ENABLED 1
3675 :
3676 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3677 :
3678 : #define SK_ENABLED 1
3679 :
3680 : #if SK5_ENABLED
3681 : module procedure getErrTableWriteUnit_TO_D1_SK5
3682 : use pm_kind, only: SKC => SK5
3683 : #include "pm_io@routines.inc.F90"
3684 : end procedure
3685 : #endif
3686 :
3687 : #if SK4_ENABLED
3688 : module procedure getErrTableWriteUnit_TO_D1_SK4
3689 : use pm_kind, only: SKC => SK4
3690 : #include "pm_io@routines.inc.F90"
3691 : end procedure
3692 : #endif
3693 :
3694 : #if SK3_ENABLED
3695 : module procedure getErrTableWriteUnit_TO_D1_SK3
3696 : use pm_kind, only: SKC => SK3
3697 : #include "pm_io@routines.inc.F90"
3698 : end procedure
3699 : #endif
3700 :
3701 : #if SK2_ENABLED
3702 : module procedure getErrTableWriteUnit_TO_D1_SK2
3703 : use pm_kind, only: SKC => SK2
3704 : #include "pm_io@routines.inc.F90"
3705 : end procedure
3706 : #endif
3707 :
3708 : #if SK1_ENABLED
3709 0 : module procedure getErrTableWriteUnit_TO_D1_SK1
3710 : use pm_kind, only: SKC => SK1
3711 : #include "pm_io@routines.inc.F90"
3712 0 : end procedure
3713 : #endif
3714 :
3715 : #undef SK_ENABLED
3716 :
3717 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3718 :
3719 : #define IK_ENABLED 1
3720 :
3721 : #if IK5_ENABLED
3722 0 : module procedure getErrTableWriteUnit_TO_D1_IK5
3723 : use pm_kind, only: IKC => IK5
3724 : #include "pm_io@routines.inc.F90"
3725 0 : end procedure
3726 : #endif
3727 :
3728 : #if IK4_ENABLED
3729 0 : module procedure getErrTableWriteUnit_TO_D1_IK4
3730 : use pm_kind, only: IKC => IK4
3731 : #include "pm_io@routines.inc.F90"
3732 0 : end procedure
3733 : #endif
3734 :
3735 : #if IK3_ENABLED
3736 0 : module procedure getErrTableWriteUnit_TO_D1_IK3
3737 : use pm_kind, only: IKC => IK3
3738 : #include "pm_io@routines.inc.F90"
3739 0 : end procedure
3740 : #endif
3741 :
3742 : #if IK2_ENABLED
3743 0 : module procedure getErrTableWriteUnit_TO_D1_IK2
3744 : use pm_kind, only: IKC => IK2
3745 : #include "pm_io@routines.inc.F90"
3746 0 : end procedure
3747 : #endif
3748 :
3749 : #if IK1_ENABLED
3750 0 : module procedure getErrTableWriteUnit_TO_D1_IK1
3751 : use pm_kind, only: IKC => IK1
3752 : #include "pm_io@routines.inc.F90"
3753 0 : end procedure
3754 : #endif
3755 :
3756 : #undef IK_ENABLED
3757 :
3758 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3759 :
3760 : #define LK_ENABLED 1
3761 :
3762 : #define LK_ENABLED 1
3763 :
3764 : #if LK5_ENABLED
3765 0 : module procedure getErrTableWriteUnit_TO_D1_LK5
3766 : use pm_kind, only: LKC => LK5
3767 : #include "pm_io@routines.inc.F90"
3768 0 : end procedure
3769 : #endif
3770 :
3771 : #if LK4_ENABLED
3772 0 : module procedure getErrTableWriteUnit_TO_D1_LK4
3773 : use pm_kind, only: LKC => LK4
3774 : #include "pm_io@routines.inc.F90"
3775 0 : end procedure
3776 : #endif
3777 :
3778 : #if LK3_ENABLED
3779 0 : module procedure getErrTableWriteUnit_TO_D1_LK3
3780 : use pm_kind, only: LKC => LK3
3781 : #include "pm_io@routines.inc.F90"
3782 0 : end procedure
3783 : #endif
3784 :
3785 : #if LK2_ENABLED
3786 0 : module procedure getErrTableWriteUnit_TO_D1_LK2
3787 : use pm_kind, only: LKC => LK2
3788 : #include "pm_io@routines.inc.F90"
3789 0 : end procedure
3790 : #endif
3791 :
3792 : #if LK1_ENABLED
3793 0 : module procedure getErrTableWriteUnit_TO_D1_LK1
3794 : use pm_kind, only: LKC => LK1
3795 : #include "pm_io@routines.inc.F90"
3796 0 : end procedure
3797 : #endif
3798 :
3799 : #undef LK_ENABLED
3800 :
3801 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3802 :
3803 : #define CK_ENABLED 1
3804 :
3805 : #if CK3_ENABLED
3806 0 : module procedure getErrTableWriteUnit_TO_D1_CK3
3807 : use pm_kind, only: CKC => CK3
3808 : #include "pm_io@routines.inc.F90"
3809 0 : end procedure
3810 : #endif
3811 :
3812 : #if CK2_ENABLED
3813 0 : module procedure getErrTableWriteUnit_TO_D1_CK2
3814 : use pm_kind, only: CKC => CK2
3815 : #include "pm_io@routines.inc.F90"
3816 0 : end procedure
3817 : #endif
3818 :
3819 : #if CK1_ENABLED
3820 0 : module procedure getErrTableWriteUnit_TO_D1_CK1
3821 : use pm_kind, only: CKC => CK1
3822 : #include "pm_io@routines.inc.F90"
3823 0 : end procedure
3824 : #endif
3825 :
3826 : #if CK5_ENABLED
3827 : module procedure getErrTableWriteUnit_TO_D1_CK5
3828 : use pm_kind, only: CKC => CK5
3829 : #include "pm_io@routines.inc.F90"
3830 : end procedure
3831 : #endif
3832 :
3833 : #if CK4_ENABLED
3834 0 : module procedure getErrTableWriteUnit_TO_D1_CK4
3835 : use pm_kind, only: CKC => CK4
3836 : #include "pm_io@routines.inc.F90"
3837 0 : end procedure
3838 : #endif
3839 :
3840 : #undef CK_ENABLED
3841 :
3842 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3843 :
3844 : #define RK_ENABLED 1
3845 :
3846 : #if RK5_ENABLED
3847 : module procedure getErrTableWriteUnit_TO_D1_RK5
3848 : use pm_kind, only: RKC => RK5
3849 : #include "pm_io@routines.inc.F90"
3850 : end procedure
3851 : #endif
3852 :
3853 : #if RK4_ENABLED
3854 0 : module procedure getErrTableWriteUnit_TO_D1_RK4
3855 : use pm_kind, only: RKC => RK4
3856 : #include "pm_io@routines.inc.F90"
3857 0 : end procedure
3858 : #endif
3859 :
3860 : #if RK3_ENABLED
3861 0 : module procedure getErrTableWriteUnit_TO_D1_RK3
3862 : use pm_kind, only: RKC => RK3
3863 : #include "pm_io@routines.inc.F90"
3864 0 : end procedure
3865 : #endif
3866 :
3867 : #if RK2_ENABLED
3868 0 : module procedure getErrTableWriteUnit_TO_D1_RK2
3869 : use pm_kind, only: RKC => RK2
3870 : #include "pm_io@routines.inc.F90"
3871 0 : end procedure
3872 : #endif
3873 :
3874 : #if RK1_ENABLED
3875 0 : module procedure getErrTableWriteUnit_TO_D1_RK1
3876 : use pm_kind, only: RKC => RK1
3877 : #include "pm_io@routines.inc.F90"
3878 0 : end procedure
3879 : #endif
3880 :
3881 : #undef RK_ENABLED
3882 :
3883 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3884 :
3885 : #undef Unit_ENABLED
3886 :
3887 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3888 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3889 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3890 :
3891 : #undef D1_ENABLED
3892 :
3893 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3894 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3895 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3896 :
3897 : #define D2_ENABLED 1
3898 :
3899 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3900 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3901 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3902 :
3903 : #define File_ENABLED 1
3904 :
3905 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3906 :
3907 : #define SK_ENABLED 1
3908 :
3909 : #if SK5_ENABLED
3910 : module procedure getErrTableWriteFile_TO_D2_SK5
3911 : use pm_kind, only: SKC => SK5
3912 : #include "pm_io@routines.inc.F90"
3913 : end procedure
3914 : #endif
3915 :
3916 : #if SK4_ENABLED
3917 : module procedure getErrTableWriteFile_TO_D2_SK4
3918 : use pm_kind, only: SKC => SK4
3919 : #include "pm_io@routines.inc.F90"
3920 : end procedure
3921 : #endif
3922 :
3923 : #if SK3_ENABLED
3924 : module procedure getErrTableWriteFile_TO_D2_SK3
3925 : use pm_kind, only: SKC => SK3
3926 : #include "pm_io@routines.inc.F90"
3927 : end procedure
3928 : #endif
3929 :
3930 : #if SK2_ENABLED
3931 : module procedure getErrTableWriteFile_TO_D2_SK2
3932 : use pm_kind, only: SKC => SK2
3933 : #include "pm_io@routines.inc.F90"
3934 : end procedure
3935 : #endif
3936 :
3937 : #if SK1_ENABLED
3938 0 : module procedure getErrTableWriteFile_TO_D2_SK1
3939 : use pm_kind, only: SKC => SK1
3940 : #include "pm_io@routines.inc.F90"
3941 0 : end procedure
3942 : #endif
3943 :
3944 : #undef SK_ENABLED
3945 :
3946 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3947 :
3948 : #define IK_ENABLED 1
3949 :
3950 : #if IK5_ENABLED
3951 0 : module procedure getErrTableWriteFile_TO_D2_IK5
3952 : use pm_kind, only: IKC => IK5
3953 : #include "pm_io@routines.inc.F90"
3954 0 : end procedure
3955 : #endif
3956 :
3957 : #if IK4_ENABLED
3958 0 : module procedure getErrTableWriteFile_TO_D2_IK4
3959 : use pm_kind, only: IKC => IK4
3960 : #include "pm_io@routines.inc.F90"
3961 0 : end procedure
3962 : #endif
3963 :
3964 : #if IK3_ENABLED
3965 2 : module procedure getErrTableWriteFile_TO_D2_IK3
3966 : use pm_kind, only: IKC => IK3
3967 : #include "pm_io@routines.inc.F90"
3968 4 : end procedure
3969 : #endif
3970 :
3971 : #if IK2_ENABLED
3972 0 : module procedure getErrTableWriteFile_TO_D2_IK2
3973 : use pm_kind, only: IKC => IK2
3974 : #include "pm_io@routines.inc.F90"
3975 0 : end procedure
3976 : #endif
3977 :
3978 : #if IK1_ENABLED
3979 0 : module procedure getErrTableWriteFile_TO_D2_IK1
3980 : use pm_kind, only: IKC => IK1
3981 : #include "pm_io@routines.inc.F90"
3982 0 : end procedure
3983 : #endif
3984 :
3985 : #undef IK_ENABLED
3986 :
3987 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3988 :
3989 : #define LK_ENABLED 1
3990 :
3991 : #define LK_ENABLED 1
3992 :
3993 : #if LK5_ENABLED
3994 0 : module procedure getErrTableWriteFile_TO_D2_LK5
3995 : use pm_kind, only: LKC => LK5
3996 : #include "pm_io@routines.inc.F90"
3997 0 : end procedure
3998 : #endif
3999 :
4000 : #if LK4_ENABLED
4001 0 : module procedure getErrTableWriteFile_TO_D2_LK4
4002 : use pm_kind, only: LKC => LK4
4003 : #include "pm_io@routines.inc.F90"
4004 0 : end procedure
4005 : #endif
4006 :
4007 : #if LK3_ENABLED
4008 2 : module procedure getErrTableWriteFile_TO_D2_LK3
4009 : use pm_kind, only: LKC => LK3
4010 : #include "pm_io@routines.inc.F90"
4011 4 : end procedure
4012 : #endif
4013 :
4014 : #if LK2_ENABLED
4015 0 : module procedure getErrTableWriteFile_TO_D2_LK2
4016 : use pm_kind, only: LKC => LK2
4017 : #include "pm_io@routines.inc.F90"
4018 0 : end procedure
4019 : #endif
4020 :
4021 : #if LK1_ENABLED
4022 0 : module procedure getErrTableWriteFile_TO_D2_LK1
4023 : use pm_kind, only: LKC => LK1
4024 : #include "pm_io@routines.inc.F90"
4025 0 : end procedure
4026 : #endif
4027 :
4028 : #undef LK_ENABLED
4029 :
4030 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4031 :
4032 : #define CK_ENABLED 1
4033 :
4034 : #if CK3_ENABLED
4035 0 : module procedure getErrTableWriteFile_TO_D2_CK3
4036 : use pm_kind, only: CKC => CK3
4037 : #include "pm_io@routines.inc.F90"
4038 0 : end procedure
4039 : #endif
4040 :
4041 : #if CK2_ENABLED
4042 0 : module procedure getErrTableWriteFile_TO_D2_CK2
4043 : use pm_kind, only: CKC => CK2
4044 : #include "pm_io@routines.inc.F90"
4045 0 : end procedure
4046 : #endif
4047 :
4048 : #if CK1_ENABLED
4049 2 : module procedure getErrTableWriteFile_TO_D2_CK1
4050 : use pm_kind, only: CKC => CK1
4051 : #include "pm_io@routines.inc.F90"
4052 4 : end procedure
4053 : #endif
4054 :
4055 : #if CK5_ENABLED
4056 : module procedure getErrTableWriteFile_TO_D2_CK5
4057 : use pm_kind, only: CKC => CK5
4058 : #include "pm_io@routines.inc.F90"
4059 : end procedure
4060 : #endif
4061 :
4062 : #if CK4_ENABLED
4063 0 : module procedure getErrTableWriteFile_TO_D2_CK4
4064 : use pm_kind, only: CKC => CK4
4065 : #include "pm_io@routines.inc.F90"
4066 0 : end procedure
4067 : #endif
4068 :
4069 : #undef CK_ENABLED
4070 :
4071 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4072 :
4073 : #define RK_ENABLED 1
4074 :
4075 : #if RK5_ENABLED
4076 : module procedure getErrTableWriteFile_TO_D2_RK5
4077 : use pm_kind, only: RKC => RK5
4078 : #include "pm_io@routines.inc.F90"
4079 : end procedure
4080 : #endif
4081 :
4082 : #if RK4_ENABLED
4083 1 : module procedure getErrTableWriteFile_TO_D2_RK4
4084 : use pm_kind, only: RKC => RK4
4085 : #include "pm_io@routines.inc.F90"
4086 2 : end procedure
4087 : #endif
4088 :
4089 : #if RK3_ENABLED
4090 0 : module procedure getErrTableWriteFile_TO_D2_RK3
4091 : use pm_kind, only: RKC => RK3
4092 : #include "pm_io@routines.inc.F90"
4093 0 : end procedure
4094 : #endif
4095 :
4096 : #if RK2_ENABLED
4097 2 : module procedure getErrTableWriteFile_TO_D2_RK2
4098 : use pm_kind, only: RKC => RK2
4099 : #include "pm_io@routines.inc.F90"
4100 4 : end procedure
4101 : #endif
4102 :
4103 : #if RK1_ENABLED
4104 33 : module procedure getErrTableWriteFile_TO_D2_RK1
4105 : use pm_kind, only: RKC => RK1
4106 : #include "pm_io@routines.inc.F90"
4107 66 : end procedure
4108 : #endif
4109 :
4110 : #undef RK_ENABLED
4111 :
4112 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4113 :
4114 : #undef File_ENABLED
4115 :
4116 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4117 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4118 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4119 :
4120 : #define Unit_ENABLED 1
4121 :
4122 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4123 :
4124 : #define SK_ENABLED 1
4125 :
4126 : #if SK5_ENABLED
4127 : module procedure getErrTableWriteUnit_TO_D2_SK5
4128 : use pm_kind, only: SKC => SK5
4129 : #include "pm_io@routines.inc.F90"
4130 : end procedure
4131 : #endif
4132 :
4133 : #if SK4_ENABLED
4134 : module procedure getErrTableWriteUnit_TO_D2_SK4
4135 : use pm_kind, only: SKC => SK4
4136 : #include "pm_io@routines.inc.F90"
4137 : end procedure
4138 : #endif
4139 :
4140 : #if SK3_ENABLED
4141 : module procedure getErrTableWriteUnit_TO_D2_SK3
4142 : use pm_kind, only: SKC => SK3
4143 : #include "pm_io@routines.inc.F90"
4144 : end procedure
4145 : #endif
4146 :
4147 : #if SK2_ENABLED
4148 : module procedure getErrTableWriteUnit_TO_D2_SK2
4149 : use pm_kind, only: SKC => SK2
4150 : #include "pm_io@routines.inc.F90"
4151 : end procedure
4152 : #endif
4153 :
4154 : #if SK1_ENABLED
4155 0 : module procedure getErrTableWriteUnit_TO_D2_SK1
4156 : use pm_kind, only: SKC => SK1
4157 : #include "pm_io@routines.inc.F90"
4158 0 : end procedure
4159 : #endif
4160 :
4161 : #undef SK_ENABLED
4162 :
4163 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4164 :
4165 : #define IK_ENABLED 1
4166 :
4167 : #if IK5_ENABLED
4168 0 : module procedure getErrTableWriteUnit_TO_D2_IK5
4169 : use pm_kind, only: IKC => IK5
4170 : #include "pm_io@routines.inc.F90"
4171 0 : end procedure
4172 : #endif
4173 :
4174 : #if IK4_ENABLED
4175 0 : module procedure getErrTableWriteUnit_TO_D2_IK4
4176 : use pm_kind, only: IKC => IK4
4177 : #include "pm_io@routines.inc.F90"
4178 0 : end procedure
4179 : #endif
4180 :
4181 : #if IK3_ENABLED
4182 0 : module procedure getErrTableWriteUnit_TO_D2_IK3
4183 : use pm_kind, only: IKC => IK3
4184 : #include "pm_io@routines.inc.F90"
4185 0 : end procedure
4186 : #endif
4187 :
4188 : #if IK2_ENABLED
4189 0 : module procedure getErrTableWriteUnit_TO_D2_IK2
4190 : use pm_kind, only: IKC => IK2
4191 : #include "pm_io@routines.inc.F90"
4192 0 : end procedure
4193 : #endif
4194 :
4195 : #if IK1_ENABLED
4196 0 : module procedure getErrTableWriteUnit_TO_D2_IK1
4197 : use pm_kind, only: IKC => IK1
4198 : #include "pm_io@routines.inc.F90"
4199 0 : end procedure
4200 : #endif
4201 :
4202 : #undef IK_ENABLED
4203 :
4204 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4205 :
4206 : #define LK_ENABLED 1
4207 :
4208 : #define LK_ENABLED 1
4209 :
4210 : #if LK5_ENABLED
4211 0 : module procedure getErrTableWriteUnit_TO_D2_LK5
4212 : use pm_kind, only: LKC => LK5
4213 : #include "pm_io@routines.inc.F90"
4214 0 : end procedure
4215 : #endif
4216 :
4217 : #if LK4_ENABLED
4218 0 : module procedure getErrTableWriteUnit_TO_D2_LK4
4219 : use pm_kind, only: LKC => LK4
4220 : #include "pm_io@routines.inc.F90"
4221 0 : end procedure
4222 : #endif
4223 :
4224 : #if LK3_ENABLED
4225 0 : module procedure getErrTableWriteUnit_TO_D2_LK3
4226 : use pm_kind, only: LKC => LK3
4227 : #include "pm_io@routines.inc.F90"
4228 0 : end procedure
4229 : #endif
4230 :
4231 : #if LK2_ENABLED
4232 0 : module procedure getErrTableWriteUnit_TO_D2_LK2
4233 : use pm_kind, only: LKC => LK2
4234 : #include "pm_io@routines.inc.F90"
4235 0 : end procedure
4236 : #endif
4237 :
4238 : #if LK1_ENABLED
4239 0 : module procedure getErrTableWriteUnit_TO_D2_LK1
4240 : use pm_kind, only: LKC => LK1
4241 : #include "pm_io@routines.inc.F90"
4242 0 : end procedure
4243 : #endif
4244 :
4245 : #undef LK_ENABLED
4246 :
4247 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4248 :
4249 : #define CK_ENABLED 1
4250 :
4251 : #if CK3_ENABLED
4252 0 : module procedure getErrTableWriteUnit_TO_D2_CK3
4253 : use pm_kind, only: CKC => CK3
4254 : #include "pm_io@routines.inc.F90"
4255 0 : end procedure
4256 : #endif
4257 :
4258 : #if CK2_ENABLED
4259 0 : module procedure getErrTableWriteUnit_TO_D2_CK2
4260 : use pm_kind, only: CKC => CK2
4261 : #include "pm_io@routines.inc.F90"
4262 0 : end procedure
4263 : #endif
4264 :
4265 : #if CK1_ENABLED
4266 0 : module procedure getErrTableWriteUnit_TO_D2_CK1
4267 : use pm_kind, only: CKC => CK1
4268 : #include "pm_io@routines.inc.F90"
4269 0 : end procedure
4270 : #endif
4271 :
4272 : #if CK5_ENABLED
4273 : module procedure getErrTableWriteUnit_TO_D2_CK5
4274 : use pm_kind, only: CKC => CK5
4275 : #include "pm_io@routines.inc.F90"
4276 : end procedure
4277 : #endif
4278 :
4279 : #if CK4_ENABLED
4280 0 : module procedure getErrTableWriteUnit_TO_D2_CK4
4281 : use pm_kind, only: CKC => CK4
4282 : #include "pm_io@routines.inc.F90"
4283 0 : end procedure
4284 : #endif
4285 :
4286 : #undef CK_ENABLED
4287 :
4288 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4289 :
4290 : #define RK_ENABLED 1
4291 :
4292 : #if RK5_ENABLED
4293 : module procedure getErrTableWriteUnit_TO_D2_RK5
4294 : use pm_kind, only: RKC => RK5
4295 : #include "pm_io@routines.inc.F90"
4296 : end procedure
4297 : #endif
4298 :
4299 : #if RK4_ENABLED
4300 0 : module procedure getErrTableWriteUnit_TO_D2_RK4
4301 : use pm_kind, only: RKC => RK4
4302 : #include "pm_io@routines.inc.F90"
4303 0 : end procedure
4304 : #endif
4305 :
4306 : #if RK3_ENABLED
4307 0 : module procedure getErrTableWriteUnit_TO_D2_RK3
4308 : use pm_kind, only: RKC => RK3
4309 : #include "pm_io@routines.inc.F90"
4310 0 : end procedure
4311 : #endif
4312 :
4313 : #if RK2_ENABLED
4314 0 : module procedure getErrTableWriteUnit_TO_D2_RK2
4315 : use pm_kind, only: RKC => RK2
4316 : #include "pm_io@routines.inc.F90"
4317 0 : end procedure
4318 : #endif
4319 :
4320 : #if RK1_ENABLED
4321 0 : module procedure getErrTableWriteUnit_TO_D2_RK1
4322 : use pm_kind, only: RKC => RK1
4323 : #include "pm_io@routines.inc.F90"
4324 0 : end procedure
4325 : #endif
4326 :
4327 : #undef RK_ENABLED
4328 :
4329 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4330 :
4331 : #undef Unit_ENABLED
4332 :
4333 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4334 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4335 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4336 :
4337 : #undef D2_ENABLED
4338 :
4339 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4340 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4341 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4342 :
4343 : #undef TO_ENABLED
4344 :
4345 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4346 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4347 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4348 :
4349 : #undef getErrTableWrite_ENABLED
4350 :
4351 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4352 :
4353 : #define getFieldSep_ENABLED 1
4354 :
4355 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4356 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4357 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4358 :
4359 : #define ID0_ENABLED 1
4360 :
4361 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4362 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4363 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4364 :
4365 : #define XX_ENABLED 1
4366 :
4367 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4368 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4369 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4370 :
4371 : #define FDEF_ENABLED 1
4372 :
4373 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4374 :
4375 : #define File_ENABLED 1
4376 8 : module procedure getFieldSepFile_ID0_FDEF_XX_SK
4377 : use pm_kind, only: SKC => SK
4378 : #include "pm_io@routines.inc.F90"
4379 21 : end procedure
4380 : #undef File_ENABLED
4381 :
4382 : #define Unit_ENABLED 1
4383 0 : module procedure getFieldSepUnit_ID0_FDEF_XX_SK
4384 : use pm_kind, only: SKC => SK
4385 : #include "pm_io@routines.inc.F90"
4386 0 : end procedure
4387 : #undef Unit_ENABLED
4388 :
4389 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4390 :
4391 : #undef FDEF_ENABLED
4392 :
4393 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4394 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4395 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4396 :
4397 : #define FCSV_ENABLED 1
4398 :
4399 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4400 :
4401 : #define File_ENABLED 1
4402 3 : module procedure getFieldSepFile_ID0_FCSV_XX_SK
4403 : use pm_kind, only: SKC => SK
4404 : #include "pm_io@routines.inc.F90"
4405 6 : end procedure
4406 : #undef File_ENABLED
4407 :
4408 : #define Unit_ENABLED 1
4409 0 : module procedure getFieldSepUnit_ID0_FCSV_XX_SK
4410 : use pm_kind, only: SKC => SK
4411 : #include "pm_io@routines.inc.F90"
4412 0 : end procedure
4413 : #undef Unit_ENABLED
4414 :
4415 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4416 :
4417 : #undef FCSV_ENABLED
4418 :
4419 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4420 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4421 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4422 :
4423 : #define FFLD_ENABLED 1
4424 :
4425 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4426 :
4427 : #define File_ENABLED 1
4428 2 : module procedure getFieldSepFile_ID0_FFLD_XX_SK
4429 : use pm_kind, only: SKC => SK
4430 : #include "pm_io@routines.inc.F90"
4431 4 : end procedure
4432 : #undef File_ENABLED
4433 :
4434 : #define Unit_ENABLED 1
4435 0 : module procedure getFieldSepUnit_ID0_FFLD_XX_SK
4436 : use pm_kind, only: SKC => SK
4437 : #include "pm_io@routines.inc.F90"
4438 0 : end procedure
4439 : #undef Unit_ENABLED
4440 :
4441 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4442 :
4443 : #undef FFLD_ENABLED
4444 :
4445 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4446 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4447 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4448 :
4449 : #undef XX_ENABLED
4450 :
4451 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4452 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4453 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4454 :
4455 : #define NF_ENABLED 1
4456 :
4457 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4458 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4459 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4460 :
4461 : #define FDEF_ENABLED 1
4462 :
4463 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4464 :
4465 : #define File_ENABLED 1
4466 2 : module procedure getFieldSepFile_ID0_FDEF_NF_SK
4467 : use pm_kind, only: SKC => SK
4468 : #include "pm_io@routines.inc.F90"
4469 6 : end procedure
4470 : #undef File_ENABLED
4471 :
4472 : #define Unit_ENABLED 1
4473 8 : module procedure getFieldSepUnit_ID0_FDEF_NF_SK
4474 : use pm_kind, only: SKC => SK
4475 : #include "pm_io@routines.inc.F90"
4476 24 : end procedure
4477 : #undef Unit_ENABLED
4478 :
4479 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4480 :
4481 : #undef FDEF_ENABLED
4482 :
4483 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4484 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4485 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4486 :
4487 : #define FCSV_ENABLED 1
4488 :
4489 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4490 :
4491 : #define File_ENABLED 1
4492 3 : module procedure getFieldSepFile_ID0_FCSV_NF_SK
4493 : use pm_kind, only: SKC => SK
4494 : #include "pm_io@routines.inc.F90"
4495 6 : end procedure
4496 : #undef File_ENABLED
4497 :
4498 : #define Unit_ENABLED 1
4499 0 : module procedure getFieldSepUnit_ID0_FCSV_NF_SK
4500 : use pm_kind, only: SKC => SK
4501 : #include "pm_io@routines.inc.F90"
4502 0 : end procedure
4503 : #undef Unit_ENABLED
4504 :
4505 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4506 :
4507 : #undef FCSV_ENABLED
4508 :
4509 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4510 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4511 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4512 :
4513 : #define FFLD_ENABLED 1
4514 :
4515 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4516 :
4517 : #define File_ENABLED 1
4518 5 : module procedure getFieldSepFile_ID0_FFLD_NF_SK
4519 : use pm_kind, only: SKC => SK
4520 : #include "pm_io@routines.inc.F90"
4521 10 : end procedure
4522 : #undef File_ENABLED
4523 :
4524 : #define Unit_ENABLED 1
4525 3 : module procedure getFieldSepUnit_ID0_FFLD_NF_SK
4526 : use pm_kind, only: SKC => SK
4527 : #include "pm_io@routines.inc.F90"
4528 6 : end procedure
4529 : #undef Unit_ENABLED
4530 :
4531 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4532 :
4533 : #undef FFLD_ENABLED
4534 :
4535 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4536 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4537 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4538 :
4539 : #undef NF_ENABLED
4540 :
4541 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4542 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4543 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4544 :
4545 : #undef ID0_ENABLED
4546 :
4547 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4548 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4549 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4550 :
4551 : #define CD1_ENABLED 1
4552 :
4553 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4554 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4555 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4556 :
4557 : #define XX_ENABLED 1
4558 :
4559 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4560 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4561 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4562 :
4563 : #define FDEF_ENABLED 1
4564 :
4565 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4566 :
4567 : #define File_ENABLED 1
4568 8 : module procedure getFieldSepFile_CD1_FDEF_XX_SK
4569 : use pm_kind, only: SKC => SK
4570 : #include "pm_io@routines.inc.F90"
4571 21 : end procedure
4572 : #undef File_ENABLED
4573 :
4574 : #define Unit_ENABLED 1
4575 0 : module procedure getFieldSepUnit_CD1_FDEF_XX_SK
4576 : use pm_kind, only: SKC => SK
4577 : #include "pm_io@routines.inc.F90"
4578 0 : end procedure
4579 : #undef Unit_ENABLED
4580 :
4581 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4582 :
4583 : #undef FDEF_ENABLED
4584 :
4585 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4586 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4587 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4588 :
4589 : #define FCSV_ENABLED 1
4590 :
4591 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4592 :
4593 : #define File_ENABLED 1
4594 3 : module procedure getFieldSepFile_CD1_FCSV_XX_SK
4595 : use pm_kind, only: SKC => SK
4596 : #include "pm_io@routines.inc.F90"
4597 6 : end procedure
4598 : #undef File_ENABLED
4599 :
4600 : #define Unit_ENABLED 1
4601 0 : module procedure getFieldSepUnit_CD1_FCSV_XX_SK
4602 : use pm_kind, only: SKC => SK
4603 : #include "pm_io@routines.inc.F90"
4604 0 : end procedure
4605 : #undef Unit_ENABLED
4606 :
4607 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4608 :
4609 : #undef FCSV_ENABLED
4610 :
4611 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4612 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4613 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4614 :
4615 : #define FFLD_ENABLED 1
4616 :
4617 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4618 :
4619 : #define File_ENABLED 1
4620 2 : module procedure getFieldSepFile_CD1_FFLD_XX_SK
4621 : use pm_kind, only: SKC => SK
4622 : #include "pm_io@routines.inc.F90"
4623 4 : end procedure
4624 : #undef File_ENABLED
4625 :
4626 : #define Unit_ENABLED 1
4627 0 : module procedure getFieldSepUnit_CD1_FFLD_XX_SK
4628 : use pm_kind, only: SKC => SK
4629 : #include "pm_io@routines.inc.F90"
4630 0 : end procedure
4631 : #undef Unit_ENABLED
4632 :
4633 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4634 :
4635 : #undef FFLD_ENABLED
4636 :
4637 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4638 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4639 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4640 :
4641 : #undef XX_ENABLED
4642 :
4643 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4644 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4645 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4646 :
4647 : #define NF_ENABLED 1
4648 :
4649 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4650 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4651 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4652 :
4653 : #define FDEF_ENABLED 1
4654 :
4655 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4656 :
4657 : #define File_ENABLED 1
4658 2 : module procedure getFieldSepFile_CD1_FDEF_NF_SK
4659 : use pm_kind, only: SKC => SK
4660 : #include "pm_io@routines.inc.F90"
4661 6 : end procedure
4662 : #undef File_ENABLED
4663 :
4664 : #define Unit_ENABLED 1
4665 0 : module procedure getFieldSepUnit_CD1_FDEF_NF_SK
4666 : use pm_kind, only: SKC => SK
4667 : #include "pm_io@routines.inc.F90"
4668 0 : end procedure
4669 : #undef Unit_ENABLED
4670 :
4671 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4672 :
4673 : #undef FDEF_ENABLED
4674 :
4675 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4676 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4677 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4678 :
4679 : #define FCSV_ENABLED 1
4680 :
4681 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4682 :
4683 : #define File_ENABLED 1
4684 3 : module procedure getFieldSepFile_CD1_FCSV_NF_SK
4685 : use pm_kind, only: SKC => SK
4686 : #include "pm_io@routines.inc.F90"
4687 6 : end procedure
4688 : #undef File_ENABLED
4689 :
4690 : #define Unit_ENABLED 1
4691 0 : module procedure getFieldSepUnit_CD1_FCSV_NF_SK
4692 : use pm_kind, only: SKC => SK
4693 : #include "pm_io@routines.inc.F90"
4694 0 : end procedure
4695 : #undef Unit_ENABLED
4696 :
4697 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4698 :
4699 : #undef FCSV_ENABLED
4700 :
4701 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4702 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4703 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4704 :
4705 : #define FFLD_ENABLED 1
4706 :
4707 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4708 :
4709 : #define File_ENABLED 1
4710 5 : module procedure getFieldSepFile_CD1_FFLD_NF_SK
4711 : use pm_kind, only: SKC => SK
4712 : #include "pm_io@routines.inc.F90"
4713 10 : end procedure
4714 : #undef File_ENABLED
4715 :
4716 : #define Unit_ENABLED 1
4717 0 : module procedure getFieldSepUnit_CD1_FFLD_NF_SK
4718 : use pm_kind, only: SKC => SK
4719 : #include "pm_io@routines.inc.F90"
4720 0 : end procedure
4721 : #undef Unit_ENABLED
4722 :
4723 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4724 :
4725 : #undef FFLD_ENABLED
4726 :
4727 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4728 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4729 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4730 :
4731 : #undef NF_ENABLED
4732 :
4733 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4734 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4735 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4736 :
4737 : #undef CD1_ENABLED
4738 :
4739 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4740 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4741 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4742 :
4743 : #undef getFieldSep_ENABLED
4744 :
4745 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4746 :
4747 : #define constructDisplay_ENABLED 1
4748 :
4749 : #define File_ENABLED 1
4750 909 : module procedure constructDisplayFile
4751 : use pm_kind, only: SKC => SK
4752 : #include "pm_io@routines.inc.F90"
4753 1818 : end procedure
4754 : #undef File_ENABLED
4755 :
4756 : #define Unit_ENABLED 1
4757 96419 : module procedure constructDisplayUnit
4758 : use pm_kind, only: SKC => SK
4759 : #include "pm_io@routines.inc.F90"
4760 96419 : end procedure
4761 : #undef Unit_ENABLED
4762 :
4763 : #undef constructDisplay_ENABLED
4764 :
4765 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4766 :
4767 : !module procedure finalizeDisplay
4768 : ! !> \warning
4769 : ! !> Note that the finalize routine is called upon assignment and destroying of local copies of the derived type.<br>
4770 : ! !> The intel Fortran compiler 2021.5 **correctly** calls the final subroutine where needed, causing the opened
4771 : ! !> display unit to get closed. As such, the file remains closed after object construction which leads to runtime errors.
4772 : ! !> GNU Fortran compiler incorrectly does not call the `final` subroutine which leaves the file opened as desired,
4773 : ! !> but that is an incorrect non-standard-confoming behavior which should not be relied upon. The remedy as suggested by Jim in
4774 : ! !> [reported to the Intel team](https://community.intel.com/t5/Intel-Fortran-Compiler/COMPILER-BUG-duplicate-call-to-final-subroutine-for-object/m-p/1373155#M160832)
4775 : ! !> is to define an internal private component that keeps track of the open status of the file to write.
4776 : ! if (.not. isPreconnected(self%unit)) then
4777 : ! !inquire(unit = self%unit, opened = self%opened)
4778 : ! if (self%opened) close(self%unit)
4779 : ! end if
4780 : !end procedure
4781 :
4782 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4783 :
4784 21464 : module procedure skip_IK
4785 : integer(IK) :: def_unit
4786 : integer(IK) :: def_count
4787 21464 : if (present(sticky)) self%sticky = sticky
4788 21464 : if (present(unit )) then; def_unit = unit ; if (self%sticky) self%unit = unit ; else; def_unit = self%unit ; end if
4789 21464 : if (present(count)) then; def_count = count ; if (self%sticky) self%count = count ; else; def_count = self%count ; end if
4790 21464 : if (0_IK < def_count) then
4791 : #if MEXPRINT_ENABLED
4792 : if (def_unit == output_unit) then
4793 : call mexPrintf(repeat(NLC, def_count))
4794 : return
4795 : end if
4796 : #endif
4797 42735 : write(def_unit, "("//repeat("/", def_count)//")", advance = "no")
4798 : end if
4799 21464 : end procedure
4800 :
4801 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4802 : !
4803 : !#define getLenFieldMin_ENABLED 1
4804 : !
4805 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4806 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4807 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4808 : !
4809 : !#define D0_ENABLED 1
4810 : !
4811 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4812 : !
4813 : !#define IK_ENABLED 1
4814 : !
4815 : !#if IK5_ENABLED
4816 : ! module procedure getLenFieldMin_D0_IK5
4817 : ! use pm_kind, only: IKC => IK5
4818 : !#include "pm_io@routines.inc.F90"
4819 : ! end procedure
4820 : !#endif
4821 : !
4822 : !#if IK4_ENABLED
4823 : ! module procedure getLenFieldMin_D0_IK4
4824 : ! use pm_kind, only: IKC => IK4
4825 : !#include "pm_io@routines.inc.F90"
4826 : ! end procedure
4827 : !#endif
4828 : !
4829 : !#if IK3_ENABLED
4830 : ! module procedure getLenFieldMin_D0_IK3
4831 : ! use pm_kind, only: IKC => IK3
4832 : !#include "pm_io@routines.inc.F90"
4833 : ! end procedure
4834 : !#endif
4835 : !
4836 : !#if IK2_ENABLED
4837 : ! module procedure getLenFieldMin_D0_IK2
4838 : ! use pm_kind, only: IKC => IK2
4839 : !#include "pm_io@routines.inc.F90"
4840 : ! end procedure
4841 : !#endif
4842 : !
4843 : !#if IK1_ENABLED
4844 : ! module procedure getLenFieldMin_D0_IK1
4845 : ! use pm_kind, only: IKC => IK1
4846 : !#include "pm_io@routines.inc.F90"
4847 : ! end procedure
4848 : !#endif
4849 : !
4850 : !#undef IK_ENABLED
4851 : !
4852 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4853 : !
4854 : !#define CK_ENABLED 1
4855 : !
4856 : !#if CK5_ENABLED
4857 : ! module procedure getLenFieldMin_D0_CK5
4858 : ! use pm_kind, only: CKC => CK5
4859 : !#include "pm_io@routines.inc.F90"
4860 : ! end procedure
4861 : !#endif
4862 : !
4863 : !#if CK4_ENABLED
4864 : ! module procedure getLenFieldMin_D0_CK4
4865 : ! use pm_kind, only: CKC => CK4
4866 : !#include "pm_io@routines.inc.F90"
4867 : ! end procedure
4868 : !#endif
4869 : !
4870 : !#if CK3_ENABLED
4871 : ! module procedure getLenFieldMin_D0_CK3
4872 : ! use pm_kind, only: CKC => CK3
4873 : !#include "pm_io@routines.inc.F90"
4874 : ! end procedure
4875 : !#endif
4876 : !
4877 : !#if CK2_ENABLED
4878 : ! module procedure getLenFieldMin_D0_CK2
4879 : ! use pm_kind, only: CKC => CK2
4880 : !#include "pm_io@routines.inc.F90"
4881 : ! end procedure
4882 : !#endif
4883 : !
4884 : !#if CK1_ENABLED
4885 : ! module procedure getLenFieldMin_D0_CK1
4886 : ! use pm_kind, only: CKC => CK1
4887 : !#include "pm_io@routines.inc.F90"
4888 : ! end procedure
4889 : !#endif
4890 : !
4891 : !#undef CK_ENABLED
4892 : !
4893 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4894 : !
4895 : !#define RK_ENABLED 1
4896 : !
4897 : !#if RK5_ENABLED
4898 : ! module procedure getLenFieldMin_D0_RK5
4899 : ! use pm_kind, only: RKC => RK5
4900 : !#include "pm_io@routines.inc.F90"
4901 : ! end procedure
4902 : !#endif
4903 : !
4904 : !#if RK4_ENABLED
4905 : ! module procedure getLenFieldMin_D0_RK4
4906 : ! use pm_kind, only: RKC => RK4
4907 : !#include "pm_io@routines.inc.F90"
4908 : ! end procedure
4909 : !#endif
4910 : !
4911 : !#if RK3_ENABLED
4912 : ! module procedure getLenFieldMin_D0_RK3
4913 : ! use pm_kind, only: RKC => RK3
4914 : !#include "pm_io@routines.inc.F90"
4915 : ! end procedure
4916 : !#endif
4917 : !
4918 : !#if RK2_ENABLED
4919 : ! module procedure getLenFieldMin_D0_RK2
4920 : ! use pm_kind, only: RKC => RK2
4921 : !#include "pm_io@routines.inc.F90"
4922 : ! end procedure
4923 : !#endif
4924 : !
4925 : !#if RK1_ENABLED
4926 : ! module procedure getLenFieldMin_D0_RK1
4927 : ! use pm_kind, only: RKC => RK1
4928 : !#include "pm_io@routines.inc.F90"
4929 : ! end procedure
4930 : !#endif
4931 : !
4932 : !#undef RK_ENABLED
4933 : !
4934 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4935 : !
4936 : !#undef D0_ENABLED
4937 : !
4938 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4939 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4940 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4941 : !
4942 : !#undef getLenFieldMin_ENABLED
4943 : !
4944 : !!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4945 :
4946 : #define getFormat_ENABLED 1
4947 :
4948 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4949 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4950 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4951 :
4952 : #define D0_ENABLED 1
4953 :
4954 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4955 :
4956 : #define Def_ENABLED 1
4957 :
4958 36 : module procedure getFormat_D0_Def
4959 : #include "pm_io@routines.inc.F90"
4960 36 : end procedure
4961 :
4962 : #undef Def_ENABLED
4963 :
4964 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4965 :
4966 : #define SK_ENABLED 1
4967 :
4968 : #if SK5_ENABLED
4969 : module procedure getFormat_D1_SK5
4970 : use pm_kind, only: SKC => SK5
4971 : #include "pm_io@routines.inc.F90"
4972 : end procedure
4973 : #endif
4974 :
4975 : #if SK4_ENABLED
4976 : module procedure getFormat_D1_SK4
4977 : use pm_kind, only: SKC => SK4
4978 : #include "pm_io@routines.inc.F90"
4979 : end procedure
4980 : #endif
4981 :
4982 : #if SK3_ENABLED
4983 : module procedure getFormat_D1_SK3
4984 : use pm_kind, only: SKC => SK3
4985 : #include "pm_io@routines.inc.F90"
4986 : end procedure
4987 : #endif
4988 :
4989 : #if SK2_ENABLED
4990 : module procedure getFormat_D1_SK2
4991 : use pm_kind, only: SKC => SK2
4992 : #include "pm_io@routines.inc.F90"
4993 : end procedure
4994 : #endif
4995 :
4996 : #if SK1_ENABLED
4997 2 : module procedure getFormat_D1_SK1
4998 : use pm_kind, only: SKC => SK1
4999 : #include "pm_io@routines.inc.F90"
5000 2 : end procedure
5001 : #endif
5002 :
5003 : #undef SK_ENABLED
5004 :
5005 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5006 :
5007 : #define IK_ENABLED 1
5008 :
5009 : #if IK5_ENABLED
5010 0 : module procedure getFormat_D1_IK5
5011 : use pm_kind, only: IKC => IK5
5012 : #include "pm_io@routines.inc.F90"
5013 0 : end procedure
5014 : #endif
5015 :
5016 : #if IK4_ENABLED
5017 0 : module procedure getFormat_D1_IK4
5018 : use pm_kind, only: IKC => IK4
5019 : #include "pm_io@routines.inc.F90"
5020 0 : end procedure
5021 : #endif
5022 :
5023 : #if IK3_ENABLED
5024 2 : module procedure getFormat_D1_IK3
5025 : use pm_kind, only: IKC => IK3
5026 : #include "pm_io@routines.inc.F90"
5027 2 : end procedure
5028 : #endif
5029 :
5030 : #if IK2_ENABLED
5031 0 : module procedure getFormat_D1_IK2
5032 : use pm_kind, only: IKC => IK2
5033 : #include "pm_io@routines.inc.F90"
5034 0 : end procedure
5035 : #endif
5036 :
5037 : #if IK1_ENABLED
5038 0 : module procedure getFormat_D1_IK1
5039 : use pm_kind, only: IKC => IK1
5040 : #include "pm_io@routines.inc.F90"
5041 0 : end procedure
5042 : #endif
5043 :
5044 : #undef IK_ENABLED
5045 :
5046 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5047 :
5048 : #define LK_ENABLED 1
5049 :
5050 : #if LK5_ENABLED
5051 0 : module procedure getFormat_D1_LK5
5052 : use pm_kind, only: LKC => LK5
5053 : #include "pm_io@routines.inc.F90"
5054 0 : end procedure
5055 : #endif
5056 :
5057 : #if LK4_ENABLED
5058 0 : module procedure getFormat_D1_LK4
5059 : use pm_kind, only: LKC => LK4
5060 : #include "pm_io@routines.inc.F90"
5061 0 : end procedure
5062 : #endif
5063 :
5064 : #if LK3_ENABLED
5065 1 : module procedure getFormat_D1_LK3
5066 : use pm_kind, only: LKC => LK3
5067 : #include "pm_io@routines.inc.F90"
5068 1 : end procedure
5069 : #endif
5070 :
5071 : #if LK2_ENABLED
5072 0 : module procedure getFormat_D1_LK2
5073 : use pm_kind, only: LKC => LK2
5074 : #include "pm_io@routines.inc.F90"
5075 0 : end procedure
5076 : #endif
5077 :
5078 : #if LK1_ENABLED
5079 0 : module procedure getFormat_D1_LK1
5080 : use pm_kind, only: LKC => LK1
5081 : #include "pm_io@routines.inc.F90"
5082 0 : end procedure
5083 : #endif
5084 :
5085 : #undef LK_ENABLED
5086 :
5087 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5088 :
5089 : #define CK_ENABLED 1
5090 :
5091 : #if CK5_ENABLED
5092 : module procedure getFormat_D1_CK5
5093 : use pm_kind, only: CKC => CK5
5094 : #include "pm_io@routines.inc.F90"
5095 : end procedure
5096 : #endif
5097 :
5098 : #if CK4_ENABLED
5099 1 : module procedure getFormat_D1_CK4
5100 : use pm_kind, only: CKC => CK4
5101 : #include "pm_io@routines.inc.F90"
5102 1 : end procedure
5103 : #endif
5104 :
5105 : #if CK3_ENABLED
5106 0 : module procedure getFormat_D1_CK3
5107 : use pm_kind, only: CKC => CK3
5108 : #include "pm_io@routines.inc.F90"
5109 0 : end procedure
5110 : #endif
5111 :
5112 : #if CK2_ENABLED
5113 0 : module procedure getFormat_D1_CK2
5114 : use pm_kind, only: CKC => CK2
5115 : #include "pm_io@routines.inc.F90"
5116 0 : end procedure
5117 : #endif
5118 :
5119 : #if CK1_ENABLED
5120 15 : module procedure getFormat_D1_CK1
5121 : use pm_kind, only: CKC => CK1
5122 : #include "pm_io@routines.inc.F90"
5123 15 : end procedure
5124 : #endif
5125 :
5126 : #undef CK_ENABLED
5127 :
5128 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5129 :
5130 : #define RK_ENABLED 1
5131 :
5132 : #if RK5_ENABLED
5133 : module procedure getFormat_D1_RK5
5134 : use pm_kind, only: RKC => RK5
5135 : #include "pm_io@routines.inc.F90"
5136 : end procedure
5137 : #endif
5138 :
5139 : #if RK4_ENABLED
5140 6 : module procedure getFormat_D1_RK4
5141 : use pm_kind, only: RKC => RK4
5142 : #include "pm_io@routines.inc.F90"
5143 6 : end procedure
5144 : #endif
5145 :
5146 : #if RK3_ENABLED
5147 4 : module procedure getFormat_D1_RK3
5148 : use pm_kind, only: RKC => RK3
5149 : #include "pm_io@routines.inc.F90"
5150 4 : end procedure
5151 : #endif
5152 :
5153 : #if RK2_ENABLED
5154 4 : module procedure getFormat_D1_RK2
5155 : use pm_kind, only: RKC => RK2
5156 : #include "pm_io@routines.inc.F90"
5157 4 : end procedure
5158 : #endif
5159 :
5160 : #if RK1_ENABLED
5161 24 : module procedure getFormat_D1_RK1
5162 : use pm_kind, only: RKC => RK1
5163 : #include "pm_io@routines.inc.F90"
5164 24 : end procedure
5165 : #endif
5166 :
5167 : #undef RK_ENABLED
5168 :
5169 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5170 :
5171 : #undef D0_ENABLED
5172 :
5173 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5174 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5175 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5176 :
5177 : #undef getFormat_ENABLED
5178 :
5179 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5180 :
5181 : #define wrap_ENABLED 1
5182 :
5183 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5184 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5185 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5186 :
5187 : #define D0_ENABLED 1
5188 :
5189 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5190 :
5191 : #define SK_ENABLED 1
5192 :
5193 : #if SK5_ENABLED
5194 : module procedure wrap_D0_SK5
5195 : use pm_kind, only: SKC => SK5
5196 : #include "pm_io@routines.inc.F90"
5197 : end procedure
5198 : #endif
5199 :
5200 : #if SK4_ENABLED
5201 : module procedure wrap_D0_SK4
5202 : use pm_kind, only: SKC => SK4
5203 : #include "pm_io@routines.inc.F90"
5204 : end procedure
5205 : #endif
5206 :
5207 : #if SK3_ENABLED
5208 : module procedure wrap_D0_SK3
5209 : use pm_kind, only: SKC => SK3
5210 : #include "pm_io@routines.inc.F90"
5211 : end procedure
5212 : #endif
5213 :
5214 : #if SK2_ENABLED
5215 : module procedure wrap_D0_SK2
5216 : use pm_kind, only: SKC => SK2
5217 : #include "pm_io@routines.inc.F90"
5218 : end procedure
5219 : #endif
5220 :
5221 : #if SK1_ENABLED
5222 165 : module procedure wrap_D0_SK1
5223 : use pm_kind, only: SKC => SK1
5224 : #include "pm_io@routines.inc.F90"
5225 330 : end procedure
5226 : #endif
5227 :
5228 : #undef SK_ENABLED
5229 :
5230 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5231 :
5232 : #undef D0_ENABLED
5233 :
5234 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5235 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5236 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5237 :
5238 : #undef wrap_ENABLED
5239 :
5240 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5241 :
5242 : #define show_ENABLED 1
5243 :
5244 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5245 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5246 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5247 :
5248 : !Intrinsic Scalar
5249 : #define CN_ENABLED 1
5250 :
5251 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5253 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5254 :
5255 : #define D0_ENABLED 1
5256 :
5257 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5258 :
5259 : #define SK_ENABLED 1
5260 :
5261 : #if SK5_ENABLED
5262 : module procedure show_D0_SK5
5263 : use pm_kind, only: SKC => SK5
5264 : #include "pm_io@routines.inc.F90"
5265 : end procedure
5266 : #endif
5267 :
5268 : #if SK4_ENABLED
5269 : module procedure show_D0_SK4
5270 : use pm_kind, only: SKC => SK4
5271 : #include "pm_io@routines.inc.F90"
5272 : end procedure
5273 : #endif
5274 :
5275 : #if SK3_ENABLED
5276 : module procedure show_D0_SK3
5277 : use pm_kind, only: SKC => SK3
5278 : #include "pm_io@routines.inc.F90"
5279 : end procedure
5280 : #endif
5281 :
5282 : #if SK2_ENABLED
5283 : module procedure show_D0_SK2
5284 : use pm_kind, only: SKC => SK2
5285 : #include "pm_io@routines.inc.F90"
5286 : end procedure
5287 : #endif
5288 :
5289 : #if SK1_ENABLED
5290 72681 : module procedure show_D0_SK1
5291 : use pm_kind, only: SKC => SK1 ! LCOV_EXCL_LINE
5292 : #include "pm_io@routines.inc.F90"
5293 145362 : end procedure
5294 : #endif
5295 :
5296 : #undef SK_ENABLED
5297 :
5298 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5299 :
5300 : #define IK_ENABLED 1
5301 :
5302 : #if IK5_ENABLED
5303 8 : module procedure show_D0_IK5
5304 : use pm_kind, only: SKC => SK, IKC => IK5
5305 : #include "pm_io@routines.inc.F90"
5306 16 : end procedure
5307 : #endif
5308 :
5309 : #if IK4_ENABLED
5310 3 : module procedure show_D0_IK4
5311 : use pm_kind, only: SKC => SK, IKC => IK4
5312 : #include "pm_io@routines.inc.F90"
5313 6 : end procedure
5314 : #endif
5315 :
5316 : #if IK3_ENABLED
5317 3614 : module procedure show_D0_IK3
5318 : use pm_kind, only: SKC => SK, IKC => IK3
5319 : #include "pm_io@routines.inc.F90"
5320 7228 : end procedure
5321 : #endif
5322 :
5323 : #if IK2_ENABLED
5324 0 : module procedure show_D0_IK2
5325 : use pm_kind, only: SKC => SK, IKC => IK2
5326 : #include "pm_io@routines.inc.F90"
5327 0 : end procedure
5328 : #endif
5329 :
5330 : #if IK1_ENABLED
5331 7 : module procedure show_D0_IK1
5332 : use pm_kind, only: SKC => SK, IKC => IK1
5333 : #include "pm_io@routines.inc.F90"
5334 14 : end procedure
5335 : #endif
5336 :
5337 : #undef IK_ENABLED
5338 :
5339 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5340 :
5341 : #define LK_ENABLED 1
5342 :
5343 : #if LK5_ENABLED
5344 0 : module procedure show_D0_LK5
5345 : use pm_kind, only: SKC => SK, LKC => LK5
5346 : #include "pm_io@routines.inc.F90"
5347 0 : end procedure
5348 : #endif
5349 :
5350 : #if LK4_ENABLED
5351 0 : module procedure show_D0_LK4
5352 : use pm_kind, only: SKC => SK, LKC => LK4
5353 : #include "pm_io@routines.inc.F90"
5354 0 : end procedure
5355 : #endif
5356 :
5357 : #if LK3_ENABLED
5358 1987 : module procedure show_D0_LK3
5359 : use pm_kind, only: SKC => SK, LKC => LK3
5360 : #include "pm_io@routines.inc.F90"
5361 3974 : end procedure
5362 : #endif
5363 :
5364 : #if LK2_ENABLED
5365 0 : module procedure show_D0_LK2
5366 : use pm_kind, only: SKC => SK, LKC => LK2
5367 : #include "pm_io@routines.inc.F90"
5368 0 : end procedure
5369 : #endif
5370 :
5371 : #if LK1_ENABLED
5372 0 : module procedure show_D0_LK1
5373 : use pm_kind, only: SKC => SK, LKC => LK1
5374 : #include "pm_io@routines.inc.F90"
5375 0 : end procedure
5376 : #endif
5377 :
5378 : #undef LK_ENABLED
5379 :
5380 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5381 :
5382 : #define CK_ENABLED 1
5383 :
5384 : #if CK5_ENABLED
5385 : module procedure show_D0_CK5
5386 : use pm_kind, only: SKC => SK, CKC => CK5
5387 : #include "pm_io@routines.inc.F90"
5388 : end procedure
5389 : #endif
5390 :
5391 : #if CK4_ENABLED
5392 64 : module procedure show_D0_CK4
5393 : use pm_kind, only: SKC => SK, CKC => CK4
5394 : #include "pm_io@routines.inc.F90"
5395 128 : end procedure
5396 : #endif
5397 :
5398 : #if CK3_ENABLED
5399 0 : module procedure show_D0_CK3
5400 : use pm_kind, only: SKC => SK, CKC => CK3
5401 : #include "pm_io@routines.inc.F90"
5402 0 : end procedure
5403 : #endif
5404 :
5405 : #if CK2_ENABLED
5406 78 : module procedure show_D0_CK2
5407 : use pm_kind, only: SKC => SK, CKC => CK2
5408 : #include "pm_io@routines.inc.F90"
5409 156 : end procedure
5410 : #endif
5411 :
5412 : #if CK1_ENABLED
5413 178 : module procedure show_D0_CK1
5414 : use pm_kind, only: SKC => SK, CKC => CK1
5415 : #include "pm_io@routines.inc.F90"
5416 356 : end procedure
5417 : #endif
5418 :
5419 : #undef CK_ENABLED
5420 :
5421 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5422 :
5423 : #define RK_ENABLED 1
5424 :
5425 : #if RK5_ENABLED
5426 : module procedure show_D0_RK5
5427 : use pm_kind, only: SKC => SK, RKC => RK5
5428 : #include "pm_io@routines.inc.F90"
5429 : end procedure
5430 : #endif
5431 :
5432 : #if RK4_ENABLED
5433 208 : module procedure show_D0_RK4
5434 : use pm_kind, only: SKC => SK, RKC => RK4
5435 : #include "pm_io@routines.inc.F90"
5436 416 : end procedure
5437 : #endif
5438 :
5439 : #if RK3_ENABLED
5440 0 : module procedure show_D0_RK3
5441 : use pm_kind, only: SKC => SK, RKC => RK3
5442 : #include "pm_io@routines.inc.F90"
5443 0 : end procedure
5444 : #endif
5445 :
5446 : #if RK2_ENABLED
5447 819 : module procedure show_D0_RK2
5448 : use pm_kind, only: SKC => SK, RKC => RK2
5449 : #include "pm_io@routines.inc.F90"
5450 1638 : end procedure
5451 : #endif
5452 :
5453 : #if RK1_ENABLED
5454 2328 : module procedure show_D0_RK1
5455 : use pm_kind, only: SKC => SK, RKC => RK1
5456 : #include "pm_io@routines.inc.F90"
5457 4656 : end procedure
5458 : #endif
5459 :
5460 : #undef RK_ENABLED
5461 :
5462 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5463 :
5464 : #undef D0_ENABLED
5465 :
5466 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5467 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5468 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5469 :
5470 : #define D1_ENABLED 1
5471 :
5472 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5473 :
5474 : #define SK_ENABLED 1
5475 :
5476 : #if SK5_ENABLED
5477 : module procedure show_D1_SK5
5478 : use pm_kind, only: SKC => SK5
5479 : #include "pm_io@routines.inc.F90"
5480 : end procedure
5481 : #endif
5482 :
5483 : #if SK4_ENABLED
5484 : module procedure show_D1_SK4
5485 : use pm_kind, only: SKC => SK4
5486 : #include "pm_io@routines.inc.F90"
5487 : end procedure
5488 : #endif
5489 :
5490 : #if SK3_ENABLED
5491 : module procedure show_D1_SK3
5492 : use pm_kind, only: SKC => SK3
5493 : #include "pm_io@routines.inc.F90"
5494 : end procedure
5495 : #endif
5496 :
5497 : #if SK2_ENABLED
5498 : module procedure show_D1_SK2
5499 : use pm_kind, only: SKC => SK2
5500 : #include "pm_io@routines.inc.F90"
5501 : end procedure
5502 : #endif
5503 :
5504 : #if SK1_ENABLED
5505 627 : module procedure show_D1_SK1
5506 : use pm_kind, only: SKC => SK1
5507 : #include "pm_io@routines.inc.F90"
5508 1254 : end procedure
5509 : #endif
5510 :
5511 : #undef SK_ENABLED
5512 :
5513 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5514 :
5515 : #define IK_ENABLED 1
5516 :
5517 : #if IK5_ENABLED
5518 9 : module procedure show_D1_IK5
5519 : use pm_kind, only: SKC => SK, IKC => IK5
5520 : #include "pm_io@routines.inc.F90"
5521 18 : end procedure
5522 : #endif
5523 :
5524 : #if IK4_ENABLED
5525 12 : module procedure show_D1_IK4
5526 : use pm_kind, only: SKC => SK, IKC => IK4
5527 : #include "pm_io@routines.inc.F90"
5528 24 : end procedure
5529 : #endif
5530 :
5531 : #if IK3_ENABLED
5532 4170 : module procedure show_D1_IK3
5533 : use pm_kind, only: SKC => SK, IKC => IK3
5534 : #include "pm_io@routines.inc.F90"
5535 8340 : end procedure
5536 : #endif
5537 :
5538 : #if IK2_ENABLED
5539 0 : module procedure show_D1_IK2
5540 : use pm_kind, only: SKC => SK, IKC => IK2
5541 : #include "pm_io@routines.inc.F90"
5542 0 : end procedure
5543 : #endif
5544 :
5545 : #if IK1_ENABLED
5546 40 : module procedure show_D1_IK1
5547 : use pm_kind, only: SKC => SK, IKC => IK1
5548 : #include "pm_io@routines.inc.F90"
5549 80 : end procedure
5550 : #endif
5551 :
5552 : #undef IK_ENABLED
5553 :
5554 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5555 :
5556 : #define LK_ENABLED 1
5557 :
5558 : #if LK5_ENABLED
5559 0 : module procedure show_D1_LK5
5560 : use pm_kind, only: SKC => SK, LKC => LK5
5561 : #include "pm_io@routines.inc.F90"
5562 0 : end procedure
5563 : #endif
5564 :
5565 : #if LK4_ENABLED
5566 0 : module procedure show_D1_LK4
5567 : use pm_kind, only: SKC => SK, LKC => LK4
5568 : #include "pm_io@routines.inc.F90"
5569 0 : end procedure
5570 : #endif
5571 :
5572 : #if LK3_ENABLED
5573 1012 : module procedure show_D1_LK3
5574 : use pm_kind, only: SKC => SK, LKC => LK3
5575 : #include "pm_io@routines.inc.F90"
5576 2024 : end procedure
5577 : #endif
5578 :
5579 : #if LK2_ENABLED
5580 0 : module procedure show_D1_LK2
5581 : use pm_kind, only: SKC => SK, LKC => LK2
5582 : #include "pm_io@routines.inc.F90"
5583 0 : end procedure
5584 : #endif
5585 :
5586 : #if LK1_ENABLED
5587 0 : module procedure show_D1_LK1
5588 : use pm_kind, only: SKC => SK, LKC => LK1
5589 : #include "pm_io@routines.inc.F90"
5590 0 : end procedure
5591 : #endif
5592 :
5593 : #undef LK_ENABLED
5594 :
5595 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5596 :
5597 : #define CK_ENABLED 1
5598 :
5599 : #if CK5_ENABLED
5600 : module procedure show_D1_CK5
5601 : use pm_kind, only: SKC => SK, CKC => CK5
5602 : #include "pm_io@routines.inc.F90"
5603 : end procedure
5604 : #endif
5605 :
5606 : #if CK4_ENABLED
5607 228 : module procedure show_D1_CK4
5608 : use pm_kind, only: SKC => SK, CKC => CK4
5609 : #include "pm_io@routines.inc.F90"
5610 456 : end procedure
5611 : #endif
5612 :
5613 : #if CK3_ENABLED
5614 0 : module procedure show_D1_CK3
5615 : use pm_kind, only: SKC => SK, CKC => CK3
5616 : #include "pm_io@routines.inc.F90"
5617 0 : end procedure
5618 : #endif
5619 :
5620 : #if CK2_ENABLED
5621 368 : module procedure show_D1_CK2
5622 : use pm_kind, only: SKC => SK, CKC => CK2
5623 : #include "pm_io@routines.inc.F90"
5624 736 : end procedure
5625 : #endif
5626 :
5627 : #if CK1_ENABLED
5628 860 : module procedure show_D1_CK1
5629 : use pm_kind, only: SKC => SK, CKC => CK1
5630 : #include "pm_io@routines.inc.F90"
5631 1720 : end procedure
5632 : #endif
5633 :
5634 : #undef CK_ENABLED
5635 :
5636 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5637 :
5638 : #define RK_ENABLED 1
5639 :
5640 : #if RK5_ENABLED
5641 : module procedure show_D1_RK5
5642 : use pm_kind, only: SKC => SK, RKC => RK5
5643 : #include "pm_io@routines.inc.F90"
5644 : end procedure
5645 : #endif
5646 :
5647 : #if RK4_ENABLED
5648 1474 : module procedure show_D1_RK4
5649 : use pm_kind, only: SKC => SK, RKC => RK4
5650 : #include "pm_io@routines.inc.F90"
5651 2948 : end procedure
5652 : #endif
5653 :
5654 : #if RK3_ENABLED
5655 0 : module procedure show_D1_RK3
5656 : use pm_kind, only: SKC => SK, RKC => RK3
5657 : #include "pm_io@routines.inc.F90"
5658 0 : end procedure
5659 : #endif
5660 :
5661 : #if RK2_ENABLED
5662 613 : module procedure show_D1_RK2
5663 : use pm_kind, only: SKC => SK, RKC => RK2
5664 : #include "pm_io@routines.inc.F90"
5665 1226 : end procedure
5666 : #endif
5667 :
5668 : #if RK1_ENABLED
5669 2814 : module procedure show_D1_RK1
5670 : use pm_kind, only: SKC => SK, RKC => RK1
5671 : #include "pm_io@routines.inc.F90"
5672 5628 : end procedure
5673 : #endif
5674 :
5675 : #undef RK_ENABLED
5676 :
5677 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5678 :
5679 : #undef D1_ENABLED
5680 :
5681 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5682 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5683 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5684 :
5685 : #define D2_ENABLED 1
5686 :
5687 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5688 :
5689 : #define SK_ENABLED 1
5690 :
5691 : #if SK5_ENABLED
5692 : module procedure show_D2_SK5
5693 : use pm_kind, only: SKC => SK5
5694 : #include "pm_io@routines.inc.F90"
5695 : end procedure
5696 : #endif
5697 :
5698 : #if SK4_ENABLED
5699 : module procedure show_D2_SK4
5700 : use pm_kind, only: SKC => SK4
5701 : #include "pm_io@routines.inc.F90"
5702 : end procedure
5703 : #endif
5704 :
5705 : #if SK3_ENABLED
5706 : module procedure show_D2_SK3
5707 : use pm_kind, only: SKC => SK3
5708 : #include "pm_io@routines.inc.F90"
5709 : end procedure
5710 : #endif
5711 :
5712 : #if SK2_ENABLED
5713 : module procedure show_D2_SK2
5714 : use pm_kind, only: SKC => SK2
5715 : #include "pm_io@routines.inc.F90"
5716 : end procedure
5717 : #endif
5718 :
5719 : #if SK1_ENABLED
5720 512 : module procedure show_D2_SK1
5721 : use pm_kind, only: SKC => SK1
5722 : #include "pm_io@routines.inc.F90"
5723 1024 : end procedure
5724 : #endif
5725 :
5726 : #undef SK_ENABLED
5727 :
5728 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5729 :
5730 : #define IK_ENABLED 1
5731 :
5732 : #if IK5_ENABLED
5733 0 : module procedure show_D2_IK5
5734 : use pm_kind, only: SKC => SK, IKC => IK5
5735 : #include "pm_io@routines.inc.F90"
5736 0 : end procedure
5737 : #endif
5738 :
5739 : #if IK4_ENABLED
5740 0 : module procedure show_D2_IK4
5741 : use pm_kind, only: SKC => SK, IKC => IK4
5742 : #include "pm_io@routines.inc.F90"
5743 0 : end procedure
5744 : #endif
5745 :
5746 : #if IK3_ENABLED
5747 236 : module procedure show_D2_IK3
5748 : use pm_kind, only: SKC => SK, IKC => IK3
5749 : #include "pm_io@routines.inc.F90"
5750 472 : end procedure
5751 : #endif
5752 :
5753 : #if IK2_ENABLED
5754 0 : module procedure show_D2_IK2
5755 : use pm_kind, only: SKC => SK, IKC => IK2
5756 : #include "pm_io@routines.inc.F90"
5757 0 : end procedure
5758 : #endif
5759 :
5760 : #if IK1_ENABLED
5761 0 : module procedure show_D2_IK1
5762 : use pm_kind, only: SKC => SK, IKC => IK1
5763 : #include "pm_io@routines.inc.F90"
5764 0 : end procedure
5765 : #endif
5766 :
5767 : #undef IK_ENABLED
5768 :
5769 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5770 :
5771 : #define LK_ENABLED 1
5772 :
5773 : #if LK5_ENABLED
5774 0 : module procedure show_D2_LK5
5775 : use pm_kind, only: SKC => SK, LKC => LK5
5776 : #include "pm_io@routines.inc.F90"
5777 0 : end procedure
5778 : #endif
5779 :
5780 : #if LK4_ENABLED
5781 0 : module procedure show_D2_LK4
5782 : use pm_kind, only: SKC => SK, LKC => LK4
5783 : #include "pm_io@routines.inc.F90"
5784 0 : end procedure
5785 : #endif
5786 :
5787 : #if LK3_ENABLED
5788 130 : module procedure show_D2_LK3
5789 : use pm_kind, only: SKC => SK, LKC => LK3
5790 : #include "pm_io@routines.inc.F90"
5791 260 : end procedure
5792 : #endif
5793 :
5794 : #if LK2_ENABLED
5795 0 : module procedure show_D2_LK2
5796 : use pm_kind, only: SKC => SK, LKC => LK2
5797 : #include "pm_io@routines.inc.F90"
5798 0 : end procedure
5799 : #endif
5800 :
5801 : #if LK1_ENABLED
5802 0 : module procedure show_D2_LK1
5803 : use pm_kind, only: SKC => SK, LKC => LK1
5804 : #include "pm_io@routines.inc.F90"
5805 0 : end procedure
5806 : #endif
5807 :
5808 : #undef LK_ENABLED
5809 :
5810 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5811 :
5812 : #define CK_ENABLED 1
5813 :
5814 : #if CK5_ENABLED
5815 : module procedure show_D2_CK5
5816 : use pm_kind, only: SKC => SK, CKC => CK5
5817 : #include "pm_io@routines.inc.F90"
5818 : end procedure
5819 : #endif
5820 :
5821 : #if CK4_ENABLED
5822 38 : module procedure show_D2_CK4
5823 : use pm_kind, only: SKC => SK, CKC => CK4
5824 : #include "pm_io@routines.inc.F90"
5825 76 : end procedure
5826 : #endif
5827 :
5828 : #if CK3_ENABLED
5829 0 : module procedure show_D2_CK3
5830 : use pm_kind, only: SKC => SK, CKC => CK3
5831 : #include "pm_io@routines.inc.F90"
5832 0 : end procedure
5833 : #endif
5834 :
5835 : #if CK2_ENABLED
5836 34 : module procedure show_D2_CK2
5837 : use pm_kind, only: SKC => SK, CKC => CK2
5838 : #include "pm_io@routines.inc.F90"
5839 68 : end procedure
5840 : #endif
5841 :
5842 : #if CK1_ENABLED
5843 801 : module procedure show_D2_CK1
5844 : use pm_kind, only: SKC => SK, CKC => CK1
5845 : #include "pm_io@routines.inc.F90"
5846 1602 : end procedure
5847 : #endif
5848 :
5849 : #undef CK_ENABLED
5850 :
5851 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5852 :
5853 : #define RK_ENABLED 1
5854 :
5855 : #if RK5_ENABLED
5856 : module procedure show_D2_RK5
5857 : use pm_kind, only: SKC => SK, RKC => RK5
5858 : #include "pm_io@routines.inc.F90"
5859 : end procedure
5860 : #endif
5861 :
5862 : #if RK4_ENABLED
5863 42 : module procedure show_D2_RK4
5864 : use pm_kind, only: SKC => SK, RKC => RK4
5865 : #include "pm_io@routines.inc.F90"
5866 84 : end procedure
5867 : #endif
5868 :
5869 : #if RK3_ENABLED
5870 0 : module procedure show_D2_RK3
5871 : use pm_kind, only: SKC => SK, RKC => RK3
5872 : #include "pm_io@routines.inc.F90"
5873 0 : end procedure
5874 : #endif
5875 :
5876 : #if RK2_ENABLED
5877 228 : module procedure show_D2_RK2
5878 : use pm_kind, only: SKC => SK, RKC => RK2
5879 : #include "pm_io@routines.inc.F90"
5880 456 : end procedure
5881 : #endif
5882 :
5883 : #if RK1_ENABLED
5884 2976 : module procedure show_D2_RK1
5885 : use pm_kind, only: SKC => SK, RKC => RK1
5886 : #include "pm_io@routines.inc.F90"
5887 5952 : end procedure
5888 : #endif
5889 :
5890 : #undef RK_ENABLED
5891 :
5892 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5893 :
5894 : #undef D2_ENABLED
5895 :
5896 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5897 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5898 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5899 :
5900 : #define D3_ENABLED 1
5901 :
5902 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5903 :
5904 : #define SK_ENABLED 1
5905 :
5906 : #if SK5_ENABLED
5907 : module procedure show_D3_SK5
5908 : use pm_kind, only: SKC => SK5
5909 : #include "pm_io@routines.inc.F90"
5910 : end procedure
5911 : #endif
5912 :
5913 : #if SK4_ENABLED
5914 : module procedure show_D3_SK4
5915 : use pm_kind, only: SKC => SK4
5916 : #include "pm_io@routines.inc.F90"
5917 : end procedure
5918 : #endif
5919 :
5920 : #if SK3_ENABLED
5921 : module procedure show_D3_SK3
5922 : use pm_kind, only: SKC => SK3
5923 : #include "pm_io@routines.inc.F90"
5924 : end procedure
5925 : #endif
5926 :
5927 : #if SK2_ENABLED
5928 : module procedure show_D3_SK2
5929 : use pm_kind, only: SKC => SK2
5930 : #include "pm_io@routines.inc.F90"
5931 : end procedure
5932 : #endif
5933 :
5934 : #if SK1_ENABLED
5935 24 : module procedure show_D3_SK1
5936 : use pm_kind, only: SKC => SK1
5937 : #include "pm_io@routines.inc.F90"
5938 48 : end procedure
5939 : #endif
5940 :
5941 : #undef SK_ENABLED
5942 :
5943 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5944 :
5945 : #define IK_ENABLED 1
5946 :
5947 : #if IK5_ENABLED
5948 0 : module procedure show_D3_IK5
5949 : use pm_kind, only: SKC => SK, IKC => IK5
5950 : #include "pm_io@routines.inc.F90"
5951 0 : end procedure
5952 : #endif
5953 :
5954 : #if IK4_ENABLED
5955 0 : module procedure show_D3_IK4
5956 : use pm_kind, only: SKC => SK, IKC => IK4
5957 : #include "pm_io@routines.inc.F90"
5958 0 : end procedure
5959 : #endif
5960 :
5961 : #if IK3_ENABLED
5962 2 : module procedure show_D3_IK3
5963 : use pm_kind, only: SKC => SK, IKC => IK3
5964 : #include "pm_io@routines.inc.F90"
5965 4 : end procedure
5966 : #endif
5967 :
5968 : #if IK2_ENABLED
5969 0 : module procedure show_D3_IK2
5970 : use pm_kind, only: SKC => SK, IKC => IK2
5971 : #include "pm_io@routines.inc.F90"
5972 0 : end procedure
5973 : #endif
5974 :
5975 : #if IK1_ENABLED
5976 0 : module procedure show_D3_IK1
5977 : use pm_kind, only: SKC => SK, IKC => IK1
5978 : #include "pm_io@routines.inc.F90"
5979 0 : end procedure
5980 : #endif
5981 :
5982 : #undef IK_ENABLED
5983 :
5984 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5985 :
5986 : #define LK_ENABLED 1
5987 :
5988 : #if LK5_ENABLED
5989 0 : module procedure show_D3_LK5
5990 : use pm_kind, only: SKC => SK, LKC => LK5
5991 : #include "pm_io@routines.inc.F90"
5992 0 : end procedure
5993 : #endif
5994 :
5995 : #if LK4_ENABLED
5996 0 : module procedure show_D3_LK4
5997 : use pm_kind, only: SKC => SK, LKC => LK4
5998 : #include "pm_io@routines.inc.F90"
5999 0 : end procedure
6000 : #endif
6001 :
6002 : #if LK3_ENABLED
6003 2 : module procedure show_D3_LK3
6004 : use pm_kind, only: SKC => SK, LKC => LK3
6005 : #include "pm_io@routines.inc.F90"
6006 4 : end procedure
6007 : #endif
6008 :
6009 : #if LK2_ENABLED
6010 0 : module procedure show_D3_LK2
6011 : use pm_kind, only: SKC => SK, LKC => LK2
6012 : #include "pm_io@routines.inc.F90"
6013 0 : end procedure
6014 : #endif
6015 :
6016 : #if LK1_ENABLED
6017 0 : module procedure show_D3_LK1
6018 : use pm_kind, only: SKC => SK, LKC => LK1
6019 : #include "pm_io@routines.inc.F90"
6020 0 : end procedure
6021 : #endif
6022 :
6023 : #undef LK_ENABLED
6024 :
6025 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6026 :
6027 : #define CK_ENABLED 1
6028 :
6029 : #if CK5_ENABLED
6030 : module procedure show_D3_CK5
6031 : use pm_kind, only: SKC => SK, CKC => CK5
6032 : #include "pm_io@routines.inc.F90"
6033 : end procedure
6034 : #endif
6035 :
6036 : #if CK4_ENABLED
6037 0 : module procedure show_D3_CK4
6038 : use pm_kind, only: SKC => SK, CKC => CK4
6039 : #include "pm_io@routines.inc.F90"
6040 0 : end procedure
6041 : #endif
6042 :
6043 : #if CK3_ENABLED
6044 0 : module procedure show_D3_CK3
6045 : use pm_kind, only: SKC => SK, CKC => CK3
6046 : #include "pm_io@routines.inc.F90"
6047 0 : end procedure
6048 : #endif
6049 :
6050 : #if CK2_ENABLED
6051 0 : module procedure show_D3_CK2
6052 : use pm_kind, only: SKC => SK, CKC => CK2
6053 : #include "pm_io@routines.inc.F90"
6054 0 : end procedure
6055 : #endif
6056 :
6057 : #if CK1_ENABLED
6058 2 : module procedure show_D3_CK1
6059 : use pm_kind, only: SKC => SK, CKC => CK1
6060 : #include "pm_io@routines.inc.F90"
6061 4 : end procedure
6062 : #endif
6063 :
6064 : #undef CK_ENABLED
6065 :
6066 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6067 :
6068 : #define RK_ENABLED 1
6069 :
6070 : #if RK5_ENABLED
6071 : module procedure show_D3_RK5
6072 : use pm_kind, only: SKC => SK, RKC => RK5
6073 : #include "pm_io@routines.inc.F90"
6074 : end procedure
6075 : #endif
6076 :
6077 : #if RK4_ENABLED
6078 0 : module procedure show_D3_RK4
6079 : use pm_kind, only: SKC => SK, RKC => RK4
6080 : #include "pm_io@routines.inc.F90"
6081 0 : end procedure
6082 : #endif
6083 :
6084 : #if RK3_ENABLED
6085 0 : module procedure show_D3_RK3
6086 : use pm_kind, only: SKC => SK, RKC => RK3
6087 : #include "pm_io@routines.inc.F90"
6088 0 : end procedure
6089 : #endif
6090 :
6091 : #if RK2_ENABLED
6092 1 : module procedure show_D3_RK2
6093 : use pm_kind, only: SKC => SK, RKC => RK2
6094 : #include "pm_io@routines.inc.F90"
6095 2 : end procedure
6096 : #endif
6097 :
6098 : #if RK1_ENABLED
6099 5 : module procedure show_D3_RK1
6100 : use pm_kind, only: SKC => SK, RKC => RK1
6101 : #include "pm_io@routines.inc.F90"
6102 10 : end procedure
6103 : #endif
6104 :
6105 : #undef RK_ENABLED
6106 :
6107 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6108 :
6109 : #undef D3_ENABLED
6110 :
6111 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6112 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6113 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6114 :
6115 : #undef CN_ENABLED
6116 :
6117 : ! LCOV_EXCL_START
6118 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6119 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6120 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6121 :
6122 : #define PS_ENABLED 1
6123 :
6124 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6125 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6126 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6127 :
6128 : #define D0_ENABLED 1
6129 :
6130 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6131 :
6132 : #define SK_ENABLED 1
6133 :
6134 : #if !__GFORTRAN__ || 1
6135 : #if SK5_ENABLED
6136 : module procedure show_D0_PSSK5
6137 : use pm_kind, only: SKC => SK5
6138 : #include "pm_io@routines.inc.F90"
6139 : end procedure
6140 : #endif
6141 :
6142 : #if SK4_ENABLED
6143 : module procedure show_D0_PSSK4
6144 : use pm_kind, only: SKC => SK4
6145 : #include "pm_io@routines.inc.F90"
6146 : end procedure
6147 : #endif
6148 :
6149 : #if SK3_ENABLED
6150 : module procedure show_D0_PSSK3
6151 : use pm_kind, only: SKC => SK3
6152 : #include "pm_io@routines.inc.F90"
6153 : end procedure
6154 : #endif
6155 :
6156 : #if SK2_ENABLED
6157 : module procedure show_D0_PSSK2
6158 : use pm_kind, only: SKC => SK2
6159 : #include "pm_io@routines.inc.F90"
6160 : end procedure
6161 : #endif
6162 :
6163 : #if SK1_ENABLED
6164 : module procedure show_D0_PSSK1
6165 : use pm_kind, only: SKC => SK1
6166 : #include "pm_io@routines.inc.F90"
6167 : end procedure
6168 : #endif
6169 : #endif
6170 :
6171 : #undef SK_ENABLED
6172 :
6173 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6174 :
6175 : #define IK_ENABLED 1
6176 :
6177 : #if !__GFORTRAN__ || 1
6178 : #if IK5_ENABLED
6179 : module procedure show_D0_PSIK5
6180 : use pm_kind, only: SKC => SK, IKC => IK5
6181 : #include "pm_io@routines.inc.F90"
6182 : end procedure
6183 : #endif
6184 :
6185 : #if IK4_ENABLED
6186 : module procedure show_D0_PSIK4
6187 : use pm_kind, only: SKC => SK, IKC => IK4
6188 : #include "pm_io@routines.inc.F90"
6189 : end procedure
6190 : #endif
6191 :
6192 : #if IK3_ENABLED
6193 : module procedure show_D0_PSIK3
6194 : use pm_kind, only: SKC => SK, IKC => IK3
6195 : #include "pm_io@routines.inc.F90"
6196 : end procedure
6197 : #endif
6198 :
6199 : #if IK2_ENABLED
6200 : module procedure show_D0_PSIK2
6201 : use pm_kind, only: SKC => SK, IKC => IK2
6202 : #include "pm_io@routines.inc.F90"
6203 : end procedure
6204 : #endif
6205 :
6206 : #if IK1_ENABLED
6207 : module procedure show_D0_PSIK1
6208 : use pm_kind, only: SKC => SK, IKC => IK1
6209 : #include "pm_io@routines.inc.F90"
6210 : end procedure
6211 : #endif
6212 : #endif
6213 :
6214 : #undef IK_ENABLED
6215 :
6216 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6217 :
6218 : #define LK_ENABLED 1
6219 :
6220 : #if !__GFORTRAN__ || 1
6221 : #if LK5_ENABLED
6222 : module procedure show_D0_PSLK5
6223 : use pm_kind, only: SKC => SK, LKC => LK5
6224 : #include "pm_io@routines.inc.F90"
6225 : end procedure
6226 : #endif
6227 :
6228 : #if LK4_ENABLED
6229 : module procedure show_D0_PSLK4
6230 : use pm_kind, only: SKC => SK, LKC => LK4
6231 : #include "pm_io@routines.inc.F90"
6232 : end procedure
6233 : #endif
6234 :
6235 : #if LK3_ENABLED
6236 : module procedure show_D0_PSLK3
6237 : use pm_kind, only: SKC => SK, LKC => LK3
6238 : #include "pm_io@routines.inc.F90"
6239 : end procedure
6240 : #endif
6241 :
6242 : #if LK2_ENABLED
6243 : module procedure show_D0_PSLK2
6244 : use pm_kind, only: SKC => SK, LKC => LK2
6245 : #include "pm_io@routines.inc.F90"
6246 : end procedure
6247 : #endif
6248 :
6249 : #if LK1_ENABLED
6250 : module procedure show_D0_PSLK1
6251 : use pm_kind, only: SKC => SK, LKC => LK1
6252 : #include "pm_io@routines.inc.F90"
6253 : end procedure
6254 : #endif
6255 : #endif
6256 :
6257 : #undef LK_ENABLED
6258 :
6259 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6260 :
6261 : #define CK_ENABLED 1
6262 :
6263 : #if !__GFORTRAN__ || 1
6264 : #if CK5_ENABLED
6265 : module procedure show_D0_PSCK5
6266 : use pm_kind, only: SKC => SK, CKC => CK5
6267 : #include "pm_io@routines.inc.F90"
6268 : end procedure
6269 : #endif
6270 :
6271 : #if CK4_ENABLED
6272 : module procedure show_D0_PSCK4
6273 : use pm_kind, only: SKC => SK, CKC => CK4
6274 : #include "pm_io@routines.inc.F90"
6275 : end procedure
6276 : #endif
6277 :
6278 : #if CK3_ENABLED
6279 : module procedure show_D0_PSCK3
6280 : use pm_kind, only: SKC => SK, CKC => CK3
6281 : #include "pm_io@routines.inc.F90"
6282 : end procedure
6283 : #endif
6284 :
6285 : #if CK2_ENABLED
6286 : module procedure show_D0_PSCK2
6287 : use pm_kind, only: SKC => SK, CKC => CK2
6288 : #include "pm_io@routines.inc.F90"
6289 : end procedure
6290 : #endif
6291 :
6292 : #if CK1_ENABLED
6293 : module procedure show_D0_PSCK1
6294 : use pm_kind, only: SKC => SK, CKC => CK1
6295 : #include "pm_io@routines.inc.F90"
6296 : end procedure
6297 : #endif
6298 : #endif
6299 :
6300 : #undef CK_ENABLED
6301 :
6302 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6303 :
6304 : #define RK_ENABLED 1
6305 :
6306 : #if !__GFORTRAN__ || 1
6307 : #if RK5_ENABLED
6308 : module procedure show_D0_PSRK5
6309 : use pm_kind, only: SKC => SK, RKC => RK5
6310 : #include "pm_io@routines.inc.F90"
6311 : end procedure
6312 : #endif
6313 :
6314 : #if RK4_ENABLED
6315 : module procedure show_D0_PSRK4
6316 : use pm_kind, only: SKC => SK, RKC => RK4
6317 : #include "pm_io@routines.inc.F90"
6318 : end procedure
6319 : #endif
6320 :
6321 : #if RK3_ENABLED
6322 : module procedure show_D0_PSRK3
6323 : use pm_kind, only: SKC => SK, RKC => RK3
6324 : #include "pm_io@routines.inc.F90"
6325 : end procedure
6326 : #endif
6327 :
6328 : #if RK2_ENABLED
6329 : module procedure show_D0_PSRK2
6330 : use pm_kind, only: SKC => SK, RKC => RK2
6331 : #include "pm_io@routines.inc.F90"
6332 : end procedure
6333 : #endif
6334 :
6335 : #if RK1_ENABLED
6336 : module procedure show_D0_PSRK1
6337 : use pm_kind, only: SKC => SK, RKC => RK1
6338 : #include "pm_io@routines.inc.F90"
6339 : end procedure
6340 : #endif
6341 : #endif
6342 :
6343 : #undef RK_ENABLED
6344 :
6345 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6346 :
6347 : #undef D0_ENABLED
6348 :
6349 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6350 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6351 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6352 :
6353 : #define D1_ENABLED 1
6354 :
6355 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6356 :
6357 : #define SK_ENABLED 1
6358 :
6359 : #if !__GFORTRAN__ || 1
6360 : #if SK5_ENABLED
6361 : module procedure show_D1_PSSK5
6362 : use pm_kind, only: SKC => SK5
6363 : #include "pm_io@routines.inc.F90"
6364 : end procedure
6365 : #endif
6366 :
6367 : #if SK4_ENABLED
6368 : module procedure show_D1_PSSK4
6369 : use pm_kind, only: SKC => SK4
6370 : #include "pm_io@routines.inc.F90"
6371 : end procedure
6372 : #endif
6373 :
6374 : #if SK3_ENABLED
6375 : module procedure show_D1_PSSK3
6376 : use pm_kind, only: SKC => SK3
6377 : #include "pm_io@routines.inc.F90"
6378 : end procedure
6379 : #endif
6380 :
6381 : #if SK2_ENABLED
6382 : module procedure show_D1_PSSK2
6383 : use pm_kind, only: SKC => SK2
6384 : #include "pm_io@routines.inc.F90"
6385 : end procedure
6386 : #endif
6387 :
6388 : #if SK1_ENABLED
6389 : module procedure show_D1_PSSK1
6390 : use pm_kind, only: SKC => SK1
6391 : #include "pm_io@routines.inc.F90"
6392 : end procedure
6393 : #endif
6394 : #endif
6395 :
6396 : #undef SK_ENABLED
6397 :
6398 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6399 :
6400 : #define IK_ENABLED 1
6401 :
6402 : #if !__GFORTRAN__ || 1
6403 : #if IK5_ENABLED
6404 : module procedure show_D1_PSIK5
6405 : use pm_kind, only: SKC => SK, IKC => IK5
6406 : #include "pm_io@routines.inc.F90"
6407 : end procedure
6408 : #endif
6409 :
6410 : #if IK4_ENABLED
6411 : module procedure show_D1_PSIK4
6412 : use pm_kind, only: SKC => SK, IKC => IK4
6413 : #include "pm_io@routines.inc.F90"
6414 : end procedure
6415 : #endif
6416 :
6417 : #if IK3_ENABLED
6418 : module procedure show_D1_PSIK3
6419 : use pm_kind, only: SKC => SK, IKC => IK3
6420 : #include "pm_io@routines.inc.F90"
6421 : end procedure
6422 : #endif
6423 :
6424 : #if IK2_ENABLED
6425 : module procedure show_D1_PSIK2
6426 : use pm_kind, only: SKC => SK, IKC => IK2
6427 : #include "pm_io@routines.inc.F90"
6428 : end procedure
6429 : #endif
6430 :
6431 : #if IK1_ENABLED
6432 : module procedure show_D1_PSIK1
6433 : use pm_kind, only: SKC => SK, IKC => IK1
6434 : #include "pm_io@routines.inc.F90"
6435 : end procedure
6436 : #endif
6437 : #endif
6438 :
6439 : #undef IK_ENABLED
6440 :
6441 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6442 :
6443 : #define LK_ENABLED 1
6444 :
6445 : #if !__GFORTRAN__ || 1
6446 : #if LK5_ENABLED
6447 : module procedure show_D1_PSLK5
6448 : use pm_kind, only: SKC => SK, LKC => LK5
6449 : #include "pm_io@routines.inc.F90"
6450 : end procedure
6451 : #endif
6452 :
6453 : #if LK4_ENABLED
6454 : module procedure show_D1_PSLK4
6455 : use pm_kind, only: SKC => SK, LKC => LK4
6456 : #include "pm_io@routines.inc.F90"
6457 : end procedure
6458 : #endif
6459 :
6460 : #if LK3_ENABLED
6461 : module procedure show_D1_PSLK3
6462 : use pm_kind, only: SKC => SK, LKC => LK3
6463 : #include "pm_io@routines.inc.F90"
6464 : end procedure
6465 : #endif
6466 :
6467 : #if LK2_ENABLED
6468 : module procedure show_D1_PSLK2
6469 : use pm_kind, only: SKC => SK, LKC => LK2
6470 : #include "pm_io@routines.inc.F90"
6471 : end procedure
6472 : #endif
6473 :
6474 : #if LK1_ENABLED
6475 : module procedure show_D1_PSLK1
6476 : use pm_kind, only: SKC => SK, LKC => LK1
6477 : #include "pm_io@routines.inc.F90"
6478 : end procedure
6479 : #endif
6480 : #endif
6481 :
6482 : #undef LK_ENABLED
6483 :
6484 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6485 :
6486 : #define CK_ENABLED 1
6487 :
6488 : #if !__GFORTRAN__ || 1
6489 : #if CK5_ENABLED
6490 : module procedure show_D1_PSCK5
6491 : use pm_kind, only: SKC => SK, CKC => CK5
6492 : #include "pm_io@routines.inc.F90"
6493 : end procedure
6494 : #endif
6495 :
6496 : #if CK4_ENABLED
6497 : module procedure show_D1_PSCK4
6498 : use pm_kind, only: SKC => SK, CKC => CK4
6499 : #include "pm_io@routines.inc.F90"
6500 : end procedure
6501 : #endif
6502 :
6503 : #if CK3_ENABLED
6504 : module procedure show_D1_PSCK3
6505 : use pm_kind, only: SKC => SK, CKC => CK3
6506 : #include "pm_io@routines.inc.F90"
6507 : end procedure
6508 : #endif
6509 :
6510 : #if CK2_ENABLED
6511 : module procedure show_D1_PSCK2
6512 : use pm_kind, only: SKC => SK, CKC => CK2
6513 : #include "pm_io@routines.inc.F90"
6514 : end procedure
6515 : #endif
6516 :
6517 : #if CK1_ENABLED
6518 : module procedure show_D1_PSCK1
6519 : use pm_kind, only: SKC => SK, CKC => CK1
6520 : #include "pm_io@routines.inc.F90"
6521 : end procedure
6522 : #endif
6523 : #endif
6524 :
6525 : #undef CK_ENABLED
6526 :
6527 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6528 :
6529 : #define RK_ENABLED 1
6530 :
6531 : #if !__GFORTRAN__ || 1
6532 : #if RK5_ENABLED
6533 : module procedure show_D1_PSRK5
6534 : use pm_kind, only: SKC => SK, RKC => RK5
6535 : #include "pm_io@routines.inc.F90"
6536 : end procedure
6537 : #endif
6538 :
6539 : #if RK4_ENABLED
6540 : module procedure show_D1_PSRK4
6541 : use pm_kind, only: SKC => SK, RKC => RK4
6542 : #include "pm_io@routines.inc.F90"
6543 : end procedure
6544 : #endif
6545 :
6546 : #if RK3_ENABLED
6547 : module procedure show_D1_PSRK3
6548 : use pm_kind, only: SKC => SK, RKC => RK3
6549 : #include "pm_io@routines.inc.F90"
6550 : end procedure
6551 : #endif
6552 :
6553 : #if RK2_ENABLED
6554 : module procedure show_D1_PSRK2
6555 : use pm_kind, only: SKC => SK, RKC => RK2
6556 : #include "pm_io@routines.inc.F90"
6557 : end procedure
6558 : #endif
6559 :
6560 : #if RK1_ENABLED
6561 : module procedure show_D1_PSRK1
6562 : use pm_kind, only: SKC => SK, RKC => RK1
6563 : #include "pm_io@routines.inc.F90"
6564 : end procedure
6565 : #endif
6566 : #endif
6567 :
6568 : #undef RK_ENABLED
6569 :
6570 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6571 :
6572 : #undef D1_ENABLED
6573 :
6574 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6575 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6576 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6577 :
6578 : #define D2_ENABLED 1
6579 :
6580 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6581 :
6582 : #define SK_ENABLED 1
6583 :
6584 : #if !__GFORTRAN__ || 1
6585 : #if SK5_ENABLED
6586 : module procedure show_D2_PSSK5
6587 : use pm_kind, only: SKC => SK5
6588 : #include "pm_io@routines.inc.F90"
6589 : end procedure
6590 : #endif
6591 :
6592 : #if SK4_ENABLED
6593 : module procedure show_D2_PSSK4
6594 : use pm_kind, only: SKC => SK4
6595 : #include "pm_io@routines.inc.F90"
6596 : end procedure
6597 : #endif
6598 :
6599 : #if SK3_ENABLED
6600 : module procedure show_D2_PSSK3
6601 : use pm_kind, only: SKC => SK3
6602 : #include "pm_io@routines.inc.F90"
6603 : end procedure
6604 : #endif
6605 :
6606 : #if SK2_ENABLED
6607 : module procedure show_D2_PSSK2
6608 : use pm_kind, only: SKC => SK2
6609 : #include "pm_io@routines.inc.F90"
6610 : end procedure
6611 : #endif
6612 :
6613 : #if SK1_ENABLED
6614 : module procedure show_D2_PSSK1
6615 : use pm_kind, only: SKC => SK1
6616 : #include "pm_io@routines.inc.F90"
6617 : end procedure
6618 : #endif
6619 : #endif
6620 :
6621 : #undef SK_ENABLED
6622 :
6623 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6624 :
6625 : #define IK_ENABLED 1
6626 :
6627 : #if !__GFORTRAN__ || 1
6628 : #if IK5_ENABLED
6629 : module procedure show_D2_PSIK5
6630 : use pm_kind, only: SKC => SK, IKC => IK5
6631 : #include "pm_io@routines.inc.F90"
6632 : end procedure
6633 : #endif
6634 :
6635 : #if IK4_ENABLED
6636 : module procedure show_D2_PSIK4
6637 : use pm_kind, only: SKC => SK, IKC => IK4
6638 : #include "pm_io@routines.inc.F90"
6639 : end procedure
6640 : #endif
6641 :
6642 : #if IK3_ENABLED
6643 : module procedure show_D2_PSIK3
6644 : use pm_kind, only: SKC => SK, IKC => IK3
6645 : #include "pm_io@routines.inc.F90"
6646 : end procedure
6647 : #endif
6648 :
6649 : #if IK2_ENABLED
6650 : module procedure show_D2_PSIK2
6651 : use pm_kind, only: SKC => SK, IKC => IK2
6652 : #include "pm_io@routines.inc.F90"
6653 : end procedure
6654 : #endif
6655 :
6656 : #if IK1_ENABLED
6657 : module procedure show_D2_PSIK1
6658 : use pm_kind, only: SKC => SK, IKC => IK1
6659 : #include "pm_io@routines.inc.F90"
6660 : end procedure
6661 : #endif
6662 : #endif
6663 :
6664 : #undef IK_ENABLED
6665 :
6666 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6667 :
6668 : #define LK_ENABLED 1
6669 :
6670 : #if !__GFORTRAN__ || 1
6671 : #if LK5_ENABLED
6672 : module procedure show_D2_PSLK5
6673 : use pm_kind, only: SKC => SK, LKC => LK5
6674 : #include "pm_io@routines.inc.F90"
6675 : end procedure
6676 : #endif
6677 :
6678 : #if LK4_ENABLED
6679 : module procedure show_D2_PSLK4
6680 : use pm_kind, only: SKC => SK, LKC => LK4
6681 : #include "pm_io@routines.inc.F90"
6682 : end procedure
6683 : #endif
6684 :
6685 : #if LK3_ENABLED
6686 : module procedure show_D2_PSLK3
6687 : use pm_kind, only: SKC => SK, LKC => LK3
6688 : #include "pm_io@routines.inc.F90"
6689 : end procedure
6690 : #endif
6691 :
6692 : #if LK2_ENABLED
6693 : module procedure show_D2_PSLK2
6694 : use pm_kind, only: SKC => SK, LKC => LK2
6695 : #include "pm_io@routines.inc.F90"
6696 : end procedure
6697 : #endif
6698 :
6699 : #if LK1_ENABLED
6700 : module procedure show_D2_PSLK1
6701 : use pm_kind, only: SKC => SK, LKC => LK1
6702 : #include "pm_io@routines.inc.F90"
6703 : end procedure
6704 : #endif
6705 : #endif
6706 :
6707 : #undef LK_ENABLED
6708 :
6709 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6710 :
6711 : #define CK_ENABLED 1
6712 :
6713 : #if !__GFORTRAN__ || 1
6714 : #if CK5_ENABLED
6715 : module procedure show_D2_PSCK5
6716 : use pm_kind, only: SKC => SK, CKC => CK5
6717 : #include "pm_io@routines.inc.F90"
6718 : end procedure
6719 : #endif
6720 :
6721 : #if CK4_ENABLED
6722 : module procedure show_D2_PSCK4
6723 : use pm_kind, only: SKC => SK, CKC => CK4
6724 : #include "pm_io@routines.inc.F90"
6725 : end procedure
6726 : #endif
6727 :
6728 : #if CK3_ENABLED
6729 : module procedure show_D2_PSCK3
6730 : use pm_kind, only: SKC => SK, CKC => CK3
6731 : #include "pm_io@routines.inc.F90"
6732 : end procedure
6733 : #endif
6734 :
6735 : #if CK2_ENABLED
6736 : module procedure show_D2_PSCK2
6737 : use pm_kind, only: SKC => SK, CKC => CK2
6738 : #include "pm_io@routines.inc.F90"
6739 : end procedure
6740 : #endif
6741 :
6742 : #if CK1_ENABLED
6743 : module procedure show_D2_PSCK1
6744 : use pm_kind, only: SKC => SK, CKC => CK1
6745 : #include "pm_io@routines.inc.F90"
6746 : end procedure
6747 : #endif
6748 : #endif
6749 :
6750 : #undef CK_ENABLED
6751 :
6752 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6753 :
6754 : #define RK_ENABLED 1
6755 :
6756 : #if !__GFORTRAN__ || 1
6757 : #if RK5_ENABLED
6758 : module procedure show_D2_PSRK5
6759 : use pm_kind, only: SKC => SK, RKC => RK5
6760 : #include "pm_io@routines.inc.F90"
6761 : end procedure
6762 : #endif
6763 :
6764 : #if RK4_ENABLED
6765 : module procedure show_D2_PSRK4
6766 : use pm_kind, only: SKC => SK, RKC => RK4
6767 : #include "pm_io@routines.inc.F90"
6768 : end procedure
6769 : #endif
6770 :
6771 : #if RK3_ENABLED
6772 : module procedure show_D2_PSRK3
6773 : use pm_kind, only: SKC => SK, RKC => RK3
6774 : #include "pm_io@routines.inc.F90"
6775 : end procedure
6776 : #endif
6777 :
6778 : #if RK2_ENABLED
6779 : module procedure show_D2_PSRK2
6780 : use pm_kind, only: SKC => SK, RKC => RK2
6781 : #include "pm_io@routines.inc.F90"
6782 : end procedure
6783 : #endif
6784 :
6785 : #if RK1_ENABLED
6786 : module procedure show_D2_PSRK1
6787 : use pm_kind, only: SKC => SK, RKC => RK1
6788 : #include "pm_io@routines.inc.F90"
6789 : end procedure
6790 : #endif
6791 : #endif
6792 :
6793 : #undef RK_ENABLED
6794 :
6795 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6796 :
6797 : #undef D2_ENABLED
6798 :
6799 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6800 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6801 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6802 :
6803 : #define D3_ENABLED 1
6804 :
6805 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6806 :
6807 : #define SK_ENABLED 1
6808 :
6809 : #if !__GFORTRAN__ || 1
6810 : #if SK5_ENABLED
6811 : module procedure show_D3_PSSK5
6812 : use pm_kind, only: SKC => SK5
6813 : #include "pm_io@routines.inc.F90"
6814 : end procedure
6815 : #endif
6816 :
6817 : #if SK4_ENABLED
6818 : module procedure show_D3_PSSK4
6819 : use pm_kind, only: SKC => SK4
6820 : #include "pm_io@routines.inc.F90"
6821 : end procedure
6822 : #endif
6823 :
6824 : #if SK3_ENABLED
6825 : module procedure show_D3_PSSK3
6826 : use pm_kind, only: SKC => SK3
6827 : #include "pm_io@routines.inc.F90"
6828 : end procedure
6829 : #endif
6830 :
6831 : #if SK2_ENABLED
6832 : module procedure show_D3_PSSK2
6833 : use pm_kind, only: SKC => SK2
6834 : #include "pm_io@routines.inc.F90"
6835 : end procedure
6836 : #endif
6837 :
6838 : #if SK1_ENABLED
6839 : module procedure show_D3_PSSK1
6840 : use pm_kind, only: SKC => SK1
6841 : #include "pm_io@routines.inc.F90"
6842 : end procedure
6843 : #endif
6844 : #endif
6845 :
6846 : #undef SK_ENABLED
6847 :
6848 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6849 :
6850 : #define IK_ENABLED 1
6851 :
6852 : #if !__GFORTRAN__ || 1
6853 : #if IK5_ENABLED
6854 : module procedure show_D3_PSIK5
6855 : use pm_kind, only: SKC => SK, IKC => IK5
6856 : #include "pm_io@routines.inc.F90"
6857 : end procedure
6858 : #endif
6859 :
6860 : #if IK4_ENABLED
6861 : module procedure show_D3_PSIK4
6862 : use pm_kind, only: SKC => SK, IKC => IK4
6863 : #include "pm_io@routines.inc.F90"
6864 : end procedure
6865 : #endif
6866 :
6867 : #if IK3_ENABLED
6868 : module procedure show_D3_PSIK3
6869 : use pm_kind, only: SKC => SK, IKC => IK3
6870 : #include "pm_io@routines.inc.F90"
6871 : end procedure
6872 : #endif
6873 :
6874 : #if IK2_ENABLED
6875 : module procedure show_D3_PSIK2
6876 : use pm_kind, only: SKC => SK, IKC => IK2
6877 : #include "pm_io@routines.inc.F90"
6878 : end procedure
6879 : #endif
6880 :
6881 : #if IK1_ENABLED
6882 : module procedure show_D3_PSIK1
6883 : use pm_kind, only: SKC => SK, IKC => IK1
6884 : #include "pm_io@routines.inc.F90"
6885 : end procedure
6886 : #endif
6887 : #endif
6888 :
6889 : #undef IK_ENABLED
6890 :
6891 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6892 :
6893 : #define LK_ENABLED 1
6894 :
6895 : #if !__GFORTRAN__ || 1
6896 : #if LK5_ENABLED
6897 : module procedure show_D3_PSLK5
6898 : use pm_kind, only: SKC => SK, LKC => LK5
6899 : #include "pm_io@routines.inc.F90"
6900 : end procedure
6901 : #endif
6902 :
6903 : #if LK4_ENABLED
6904 : module procedure show_D3_PSLK4
6905 : use pm_kind, only: SKC => SK, LKC => LK4
6906 : #include "pm_io@routines.inc.F90"
6907 : end procedure
6908 : #endif
6909 :
6910 : #if LK3_ENABLED
6911 : module procedure show_D3_PSLK3
6912 : use pm_kind, only: SKC => SK, LKC => LK3
6913 : #include "pm_io@routines.inc.F90"
6914 : end procedure
6915 : #endif
6916 :
6917 : #if LK2_ENABLED
6918 : module procedure show_D3_PSLK2
6919 : use pm_kind, only: SKC => SK, LKC => LK2
6920 : #include "pm_io@routines.inc.F90"
6921 : end procedure
6922 : #endif
6923 :
6924 : #if LK1_ENABLED
6925 : module procedure show_D3_PSLK1
6926 : use pm_kind, only: SKC => SK, LKC => LK1
6927 : #include "pm_io@routines.inc.F90"
6928 : end procedure
6929 : #endif
6930 : #endif
6931 :
6932 : #undef LK_ENABLED
6933 :
6934 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6935 :
6936 : #define CK_ENABLED 1
6937 :
6938 : #if !__GFORTRAN__ || 1
6939 : #if CK5_ENABLED
6940 : module procedure show_D3_PSCK5
6941 : use pm_kind, only: SKC => SK, CKC => CK5
6942 : #include "pm_io@routines.inc.F90"
6943 : end procedure
6944 : #endif
6945 :
6946 : #if CK4_ENABLED
6947 : module procedure show_D3_PSCK4
6948 : use pm_kind, only: SKC => SK, CKC => CK4
6949 : #include "pm_io@routines.inc.F90"
6950 : end procedure
6951 : #endif
6952 :
6953 : #if CK3_ENABLED
6954 : module procedure show_D3_PSCK3
6955 : use pm_kind, only: SKC => SK, CKC => CK3
6956 : #include "pm_io@routines.inc.F90"
6957 : end procedure
6958 : #endif
6959 :
6960 : #if CK2_ENABLED
6961 : module procedure show_D3_PSCK2
6962 : use pm_kind, only: SKC => SK, CKC => CK2
6963 : #include "pm_io@routines.inc.F90"
6964 : end procedure
6965 : #endif
6966 :
6967 : #if CK1_ENABLED
6968 : module procedure show_D3_PSCK1
6969 : use pm_kind, only: SKC => SK, CKC => CK1
6970 : #include "pm_io@routines.inc.F90"
6971 : end procedure
6972 : #endif
6973 : #endif
6974 :
6975 : #undef CK_ENABLED
6976 :
6977 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6978 :
6979 : #define RK_ENABLED 1
6980 :
6981 : #if !__GFORTRAN__ || 1
6982 : #if RK5_ENABLED
6983 : module procedure show_D3_PSRK5
6984 : use pm_kind, only: SKC => SK, RKC => RK5
6985 : #include "pm_io@routines.inc.F90"
6986 : end procedure
6987 : #endif
6988 :
6989 : #if RK4_ENABLED
6990 : module procedure show_D3_PSRK4
6991 : use pm_kind, only: SKC => SK, RKC => RK4
6992 : #include "pm_io@routines.inc.F90"
6993 : end procedure
6994 : #endif
6995 :
6996 : #if RK3_ENABLED
6997 : module procedure show_D3_PSRK3
6998 : use pm_kind, only: SKC => SK, RKC => RK3
6999 : #include "pm_io@routines.inc.F90"
7000 : end procedure
7001 : #endif
7002 :
7003 : #if RK2_ENABLED
7004 : module procedure show_D3_PSRK2
7005 : use pm_kind, only: SKC => SK, RKC => RK2
7006 : #include "pm_io@routines.inc.F90"
7007 : end procedure
7008 : #endif
7009 :
7010 : #if RK1_ENABLED
7011 : module procedure show_D3_PSRK1
7012 : use pm_kind, only: SKC => SK, RKC => RK1
7013 : #include "pm_io@routines.inc.F90"
7014 : end procedure
7015 : #endif
7016 : #endif
7017 :
7018 : #undef RK_ENABLED
7019 :
7020 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7021 :
7022 : #undef D3_ENABLED
7023 :
7024 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7025 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7026 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7027 :
7028 : #undef PS_ENABLED
7029 :
7030 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7031 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7032 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7033 :
7034 : #define PV_ENABLED 1
7035 :
7036 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7037 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7038 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7039 :
7040 : #define D0_ENABLED 1
7041 :
7042 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7043 :
7044 : #define SK_ENABLED 1
7045 :
7046 : #if !__GFORTRAN__ || 1
7047 : #if SK5_ENABLED
7048 : module procedure show_D0_PVSK5
7049 : use pm_kind, only: SKC => SK5
7050 : #include "pm_io@routines.inc.F90"
7051 : end procedure
7052 : #endif
7053 :
7054 : #if SK4_ENABLED
7055 : module procedure show_D0_PVSK4
7056 : use pm_kind, only: SKC => SK4
7057 : #include "pm_io@routines.inc.F90"
7058 : end procedure
7059 : #endif
7060 :
7061 : #if SK3_ENABLED
7062 : module procedure show_D0_PVSK3
7063 : use pm_kind, only: SKC => SK3
7064 : #include "pm_io@routines.inc.F90"
7065 : end procedure
7066 : #endif
7067 :
7068 : #if SK2_ENABLED
7069 : module procedure show_D0_PVSK2
7070 : use pm_kind, only: SKC => SK2
7071 : #include "pm_io@routines.inc.F90"
7072 : end procedure
7073 : #endif
7074 :
7075 : #if SK1_ENABLED
7076 : module procedure show_D0_PVSK1
7077 : use pm_kind, only: SKC => SK1
7078 : #include "pm_io@routines.inc.F90"
7079 : end procedure
7080 : #endif
7081 : #endif
7082 :
7083 : #undef SK_ENABLED
7084 :
7085 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7086 :
7087 : #define IK_ENABLED 1
7088 :
7089 : #if !__GFORTRAN__ || 1
7090 : #if IK5_ENABLED
7091 : module procedure show_D0_PVIK5
7092 : use pm_kind, only: SKC => SK, IKC => IK5
7093 : #include "pm_io@routines.inc.F90"
7094 : end procedure
7095 : #endif
7096 :
7097 : #if IK4_ENABLED
7098 : module procedure show_D0_PVIK4
7099 : use pm_kind, only: SKC => SK, IKC => IK4
7100 : #include "pm_io@routines.inc.F90"
7101 : end procedure
7102 : #endif
7103 :
7104 : #if IK3_ENABLED
7105 : module procedure show_D0_PVIK3
7106 : use pm_kind, only: SKC => SK, IKC => IK3
7107 : #include "pm_io@routines.inc.F90"
7108 : end procedure
7109 : #endif
7110 :
7111 : #if IK2_ENABLED
7112 : module procedure show_D0_PVIK2
7113 : use pm_kind, only: SKC => SK, IKC => IK2
7114 : #include "pm_io@routines.inc.F90"
7115 : end procedure
7116 : #endif
7117 :
7118 : #if IK1_ENABLED
7119 : module procedure show_D0_PVIK1
7120 : use pm_kind, only: SKC => SK, IKC => IK1
7121 : #include "pm_io@routines.inc.F90"
7122 : end procedure
7123 : #endif
7124 : #endif
7125 :
7126 : #undef IK_ENABLED
7127 :
7128 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7129 :
7130 : #define LK_ENABLED 1
7131 :
7132 : #if !__GFORTRAN__ || 1
7133 : #if LK5_ENABLED
7134 : module procedure show_D0_PVLK5
7135 : use pm_kind, only: SKC => SK, LKC => LK5
7136 : #include "pm_io@routines.inc.F90"
7137 : end procedure
7138 : #endif
7139 :
7140 : #if LK4_ENABLED
7141 : module procedure show_D0_PVLK4
7142 : use pm_kind, only: SKC => SK, LKC => LK4
7143 : #include "pm_io@routines.inc.F90"
7144 : end procedure
7145 : #endif
7146 :
7147 : #if LK3_ENABLED
7148 : module procedure show_D0_PVLK3
7149 : use pm_kind, only: SKC => SK, LKC => LK3
7150 : #include "pm_io@routines.inc.F90"
7151 : end procedure
7152 : #endif
7153 :
7154 : #if LK2_ENABLED
7155 : module procedure show_D0_PVLK2
7156 : use pm_kind, only: SKC => SK, LKC => LK2
7157 : #include "pm_io@routines.inc.F90"
7158 : end procedure
7159 : #endif
7160 :
7161 : #if LK1_ENABLED
7162 : module procedure show_D0_PVLK1
7163 : use pm_kind, only: SKC => SK, LKC => LK1
7164 : #include "pm_io@routines.inc.F90"
7165 : end procedure
7166 : #endif
7167 : #endif
7168 :
7169 : #undef LK_ENABLED
7170 :
7171 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7172 :
7173 : #define CK_ENABLED 1
7174 :
7175 : #if !__GFORTRAN__ || 1
7176 : #if CK5_ENABLED
7177 : module procedure show_D0_PVCK5
7178 : use pm_kind, only: SKC => SK, CKC => CK5
7179 : #include "pm_io@routines.inc.F90"
7180 : end procedure
7181 : #endif
7182 :
7183 : #if CK4_ENABLED
7184 : module procedure show_D0_PVCK4
7185 : use pm_kind, only: SKC => SK, CKC => CK4
7186 : #include "pm_io@routines.inc.F90"
7187 : end procedure
7188 : #endif
7189 :
7190 : #if CK3_ENABLED
7191 : module procedure show_D0_PVCK3
7192 : use pm_kind, only: SKC => SK, CKC => CK3
7193 : #include "pm_io@routines.inc.F90"
7194 : end procedure
7195 : #endif
7196 :
7197 : #if CK2_ENABLED
7198 : module procedure show_D0_PVCK2
7199 : use pm_kind, only: SKC => SK, CKC => CK2
7200 : #include "pm_io@routines.inc.F90"
7201 : end procedure
7202 : #endif
7203 :
7204 : #if CK1_ENABLED
7205 : module procedure show_D0_PVCK1
7206 : use pm_kind, only: SKC => SK, CKC => CK1
7207 : #include "pm_io@routines.inc.F90"
7208 : end procedure
7209 : #endif
7210 : #endif
7211 :
7212 : #undef CK_ENABLED
7213 :
7214 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7215 :
7216 : #define RK_ENABLED 1
7217 :
7218 : #if !__GFORTRAN__ || 1
7219 : #if RK5_ENABLED
7220 : module procedure show_D0_PVRK5
7221 : use pm_kind, only: SKC => SK, RKC => RK5
7222 : #include "pm_io@routines.inc.F90"
7223 : end procedure
7224 : #endif
7225 :
7226 : #if RK4_ENABLED
7227 : module procedure show_D0_PVRK4
7228 : use pm_kind, only: SKC => SK, RKC => RK4
7229 : #include "pm_io@routines.inc.F90"
7230 : end procedure
7231 : #endif
7232 :
7233 : #if RK3_ENABLED
7234 : module procedure show_D0_PVRK3
7235 : use pm_kind, only: SKC => SK, RKC => RK3
7236 : #include "pm_io@routines.inc.F90"
7237 : end procedure
7238 : #endif
7239 :
7240 : #if RK2_ENABLED
7241 : module procedure show_D0_PVRK2
7242 : use pm_kind, only: SKC => SK, RKC => RK2
7243 : #include "pm_io@routines.inc.F90"
7244 : end procedure
7245 : #endif
7246 :
7247 : #if RK1_ENABLED
7248 : module procedure show_D0_PVRK1
7249 : use pm_kind, only: SKC => SK, RKC => RK1
7250 : #include "pm_io@routines.inc.F90"
7251 : end procedure
7252 : #endif
7253 : #endif
7254 :
7255 : #undef RK_ENABLED
7256 :
7257 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7258 :
7259 : #undef D0_ENABLED
7260 :
7261 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7262 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7263 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7264 :
7265 : #define D1_ENABLED 1
7266 :
7267 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7268 :
7269 : #define SK_ENABLED 1
7270 :
7271 : #if !__GFORTRAN__ || 1
7272 : #if SK5_ENABLED
7273 : module procedure show_D1_PVSK5
7274 : use pm_kind, only: SKC => SK5
7275 : #include "pm_io@routines.inc.F90"
7276 : end procedure
7277 : #endif
7278 :
7279 : #if SK4_ENABLED
7280 : module procedure show_D1_PVSK4
7281 : use pm_kind, only: SKC => SK4
7282 : #include "pm_io@routines.inc.F90"
7283 : end procedure
7284 : #endif
7285 :
7286 : #if SK3_ENABLED
7287 : module procedure show_D1_PVSK3
7288 : use pm_kind, only: SKC => SK3
7289 : #include "pm_io@routines.inc.F90"
7290 : end procedure
7291 : #endif
7292 :
7293 : #if SK2_ENABLED
7294 : module procedure show_D1_PVSK2
7295 : use pm_kind, only: SKC => SK2
7296 : #include "pm_io@routines.inc.F90"
7297 : end procedure
7298 : #endif
7299 :
7300 : #if SK1_ENABLED
7301 : module procedure show_D1_PVSK1
7302 : use pm_kind, only: SKC => SK1
7303 : #include "pm_io@routines.inc.F90"
7304 : end procedure
7305 : #endif
7306 : #endif
7307 :
7308 : #undef SK_ENABLED
7309 :
7310 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7311 :
7312 : #define IK_ENABLED 1
7313 :
7314 : #if !__GFORTRAN__ || 1
7315 : #if IK5_ENABLED
7316 : module procedure show_D1_PVIK5
7317 : use pm_kind, only: SKC => SK, IKC => IK5
7318 : #include "pm_io@routines.inc.F90"
7319 : end procedure
7320 : #endif
7321 :
7322 : #if IK4_ENABLED
7323 : module procedure show_D1_PVIK4
7324 : use pm_kind, only: SKC => SK, IKC => IK4
7325 : #include "pm_io@routines.inc.F90"
7326 : end procedure
7327 : #endif
7328 :
7329 : #if IK3_ENABLED
7330 : module procedure show_D1_PVIK3
7331 : use pm_kind, only: SKC => SK, IKC => IK3
7332 : #include "pm_io@routines.inc.F90"
7333 : end procedure
7334 : #endif
7335 :
7336 : #if IK2_ENABLED
7337 : module procedure show_D1_PVIK2
7338 : use pm_kind, only: SKC => SK, IKC => IK2
7339 : #include "pm_io@routines.inc.F90"
7340 : end procedure
7341 : #endif
7342 :
7343 : #if IK1_ENABLED
7344 : module procedure show_D1_PVIK1
7345 : use pm_kind, only: SKC => SK, IKC => IK1
7346 : #include "pm_io@routines.inc.F90"
7347 : end procedure
7348 : #endif
7349 : #endif
7350 :
7351 : #undef IK_ENABLED
7352 :
7353 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7354 :
7355 : #define LK_ENABLED 1
7356 :
7357 : #if !__GFORTRAN__ || 1
7358 : #if LK5_ENABLED
7359 : module procedure show_D1_PVLK5
7360 : use pm_kind, only: SKC => SK, LKC => LK5
7361 : #include "pm_io@routines.inc.F90"
7362 : end procedure
7363 : #endif
7364 :
7365 : #if LK4_ENABLED
7366 : module procedure show_D1_PVLK4
7367 : use pm_kind, only: SKC => SK, LKC => LK4
7368 : #include "pm_io@routines.inc.F90"
7369 : end procedure
7370 : #endif
7371 :
7372 : #if LK3_ENABLED
7373 : module procedure show_D1_PVLK3
7374 : use pm_kind, only: SKC => SK, LKC => LK3
7375 : #include "pm_io@routines.inc.F90"
7376 : end procedure
7377 : #endif
7378 :
7379 : #if LK2_ENABLED
7380 : module procedure show_D1_PVLK2
7381 : use pm_kind, only: SKC => SK, LKC => LK2
7382 : #include "pm_io@routines.inc.F90"
7383 : end procedure
7384 : #endif
7385 :
7386 : #if LK1_ENABLED
7387 : module procedure show_D1_PVLK1
7388 : use pm_kind, only: SKC => SK, LKC => LK1
7389 : #include "pm_io@routines.inc.F90"
7390 : end procedure
7391 : #endif
7392 : #endif
7393 :
7394 : #undef LK_ENABLED
7395 :
7396 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7397 :
7398 : #define CK_ENABLED 1
7399 :
7400 : #if !__GFORTRAN__ || 1
7401 : #if CK5_ENABLED
7402 : module procedure show_D1_PVCK5
7403 : use pm_kind, only: SKC => SK, CKC => CK5
7404 : #include "pm_io@routines.inc.F90"
7405 : end procedure
7406 : #endif
7407 :
7408 : #if CK4_ENABLED
7409 : module procedure show_D1_PVCK4
7410 : use pm_kind, only: SKC => SK, CKC => CK4
7411 : #include "pm_io@routines.inc.F90"
7412 : end procedure
7413 : #endif
7414 :
7415 : #if CK3_ENABLED
7416 : module procedure show_D1_PVCK3
7417 : use pm_kind, only: SKC => SK, CKC => CK3
7418 : #include "pm_io@routines.inc.F90"
7419 : end procedure
7420 : #endif
7421 :
7422 : #if CK2_ENABLED
7423 : module procedure show_D1_PVCK2
7424 : use pm_kind, only: SKC => SK, CKC => CK2
7425 : #include "pm_io@routines.inc.F90"
7426 : end procedure
7427 : #endif
7428 :
7429 : #if CK1_ENABLED
7430 : module procedure show_D1_PVCK1
7431 : use pm_kind, only: SKC => SK, CKC => CK1
7432 : #include "pm_io@routines.inc.F90"
7433 : end procedure
7434 : #endif
7435 : #endif
7436 :
7437 : #undef CK_ENABLED
7438 :
7439 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7440 :
7441 : #define RK_ENABLED 1
7442 :
7443 : #if !__GFORTRAN__ || 1
7444 : #if RK5_ENABLED
7445 : module procedure show_D1_PVRK5
7446 : use pm_kind, only: SKC => SK, RKC => RK5
7447 : #include "pm_io@routines.inc.F90"
7448 : end procedure
7449 : #endif
7450 :
7451 : #if RK4_ENABLED
7452 : module procedure show_D1_PVRK4
7453 : use pm_kind, only: SKC => SK, RKC => RK4
7454 : #include "pm_io@routines.inc.F90"
7455 : end procedure
7456 : #endif
7457 :
7458 : #if RK3_ENABLED
7459 : module procedure show_D1_PVRK3
7460 : use pm_kind, only: SKC => SK, RKC => RK3
7461 : #include "pm_io@routines.inc.F90"
7462 : end procedure
7463 : #endif
7464 :
7465 : #if RK2_ENABLED
7466 : module procedure show_D1_PVRK2
7467 : use pm_kind, only: SKC => SK, RKC => RK2
7468 : #include "pm_io@routines.inc.F90"
7469 : end procedure
7470 : #endif
7471 :
7472 : #if RK1_ENABLED
7473 : module procedure show_D1_PVRK1
7474 : use pm_kind, only: SKC => SK, RKC => RK1
7475 : #include "pm_io@routines.inc.F90"
7476 : end procedure
7477 : #endif
7478 : #endif
7479 :
7480 : #undef RK_ENABLED
7481 :
7482 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7483 :
7484 : #undef D1_ENABLED
7485 :
7486 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7487 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7488 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7489 :
7490 : #define D2_ENABLED 1
7491 :
7492 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7493 :
7494 : #define SK_ENABLED 1
7495 :
7496 : #if !__GFORTRAN__ || 1
7497 : #if SK5_ENABLED
7498 : module procedure show_D2_PVSK5
7499 : use pm_kind, only: SKC => SK5
7500 : #include "pm_io@routines.inc.F90"
7501 : end procedure
7502 : #endif
7503 :
7504 : #if SK4_ENABLED
7505 : module procedure show_D2_PVSK4
7506 : use pm_kind, only: SKC => SK4
7507 : #include "pm_io@routines.inc.F90"
7508 : end procedure
7509 : #endif
7510 :
7511 : #if SK3_ENABLED
7512 : module procedure show_D2_PVSK3
7513 : use pm_kind, only: SKC => SK3
7514 : #include "pm_io@routines.inc.F90"
7515 : end procedure
7516 : #endif
7517 :
7518 : #if SK2_ENABLED
7519 : module procedure show_D2_PVSK2
7520 : use pm_kind, only: SKC => SK2
7521 : #include "pm_io@routines.inc.F90"
7522 : end procedure
7523 : #endif
7524 :
7525 : #if SK1_ENABLED
7526 : module procedure show_D2_PVSK1
7527 : use pm_kind, only: SKC => SK1
7528 : #include "pm_io@routines.inc.F90"
7529 : end procedure
7530 : #endif
7531 : #endif
7532 :
7533 : #undef SK_ENABLED
7534 :
7535 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7536 :
7537 : #define IK_ENABLED 1
7538 :
7539 : #if !__GFORTRAN__ || 1
7540 : #if IK5_ENABLED
7541 : module procedure show_D2_PVIK5
7542 : use pm_kind, only: SKC => SK, IKC => IK5
7543 : #include "pm_io@routines.inc.F90"
7544 : end procedure
7545 : #endif
7546 :
7547 : #if IK4_ENABLED
7548 : module procedure show_D2_PVIK4
7549 : use pm_kind, only: SKC => SK, IKC => IK4
7550 : #include "pm_io@routines.inc.F90"
7551 : end procedure
7552 : #endif
7553 :
7554 : #if IK3_ENABLED
7555 : module procedure show_D2_PVIK3
7556 : use pm_kind, only: SKC => SK, IKC => IK3
7557 : #include "pm_io@routines.inc.F90"
7558 : end procedure
7559 : #endif
7560 :
7561 : #if IK2_ENABLED
7562 : module procedure show_D2_PVIK2
7563 : use pm_kind, only: SKC => SK, IKC => IK2
7564 : #include "pm_io@routines.inc.F90"
7565 : end procedure
7566 : #endif
7567 :
7568 : #if IK1_ENABLED
7569 : module procedure show_D2_PVIK1
7570 : use pm_kind, only: SKC => SK, IKC => IK1
7571 : #include "pm_io@routines.inc.F90"
7572 : end procedure
7573 : #endif
7574 : #endif
7575 :
7576 : #undef IK_ENABLED
7577 :
7578 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7579 :
7580 : #define LK_ENABLED 1
7581 :
7582 : #if !__GFORTRAN__ || 1
7583 : #if LK5_ENABLED
7584 : module procedure show_D2_PVLK5
7585 : use pm_kind, only: SKC => SK, LKC => LK5
7586 : #include "pm_io@routines.inc.F90"
7587 : end procedure
7588 : #endif
7589 :
7590 : #if LK4_ENABLED
7591 : module procedure show_D2_PVLK4
7592 : use pm_kind, only: SKC => SK, LKC => LK4
7593 : #include "pm_io@routines.inc.F90"
7594 : end procedure
7595 : #endif
7596 :
7597 : #if LK3_ENABLED
7598 : module procedure show_D2_PVLK3
7599 : use pm_kind, only: SKC => SK, LKC => LK3
7600 : #include "pm_io@routines.inc.F90"
7601 : end procedure
7602 : #endif
7603 :
7604 : #if LK2_ENABLED
7605 : module procedure show_D2_PVLK2
7606 : use pm_kind, only: SKC => SK, LKC => LK2
7607 : #include "pm_io@routines.inc.F90"
7608 : end procedure
7609 : #endif
7610 :
7611 : #if LK1_ENABLED
7612 : module procedure show_D2_PVLK1
7613 : use pm_kind, only: SKC => SK, LKC => LK1
7614 : #include "pm_io@routines.inc.F90"
7615 : end procedure
7616 : #endif
7617 : #endif
7618 :
7619 : #undef LK_ENABLED
7620 :
7621 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7622 :
7623 : #define CK_ENABLED 1
7624 :
7625 : #if !__GFORTRAN__ || 1
7626 : #if CK5_ENABLED
7627 : module procedure show_D2_PVCK5
7628 : use pm_kind, only: SKC => SK, CKC => CK5
7629 : #include "pm_io@routines.inc.F90"
7630 : end procedure
7631 : #endif
7632 :
7633 : #if CK4_ENABLED
7634 : module procedure show_D2_PVCK4
7635 : use pm_kind, only: SKC => SK, CKC => CK4
7636 : #include "pm_io@routines.inc.F90"
7637 : end procedure
7638 : #endif
7639 :
7640 : #if CK3_ENABLED
7641 : module procedure show_D2_PVCK3
7642 : use pm_kind, only: SKC => SK, CKC => CK3
7643 : #include "pm_io@routines.inc.F90"
7644 : end procedure
7645 : #endif
7646 :
7647 : #if CK2_ENABLED
7648 : module procedure show_D2_PVCK2
7649 : use pm_kind, only: SKC => SK, CKC => CK2
7650 : #include "pm_io@routines.inc.F90"
7651 : end procedure
7652 : #endif
7653 :
7654 : #if CK1_ENABLED
7655 : module procedure show_D2_PVCK1
7656 : use pm_kind, only: SKC => SK, CKC => CK1
7657 : #include "pm_io@routines.inc.F90"
7658 : end procedure
7659 : #endif
7660 : #endif
7661 :
7662 : #undef CK_ENABLED
7663 :
7664 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7665 :
7666 : #define RK_ENABLED 1
7667 :
7668 : #if !__GFORTRAN__ || 1
7669 : #if RK5_ENABLED
7670 : module procedure show_D2_PVRK5
7671 : use pm_kind, only: SKC => SK, RKC => RK5
7672 : #include "pm_io@routines.inc.F90"
7673 : end procedure
7674 : #endif
7675 :
7676 : #if RK4_ENABLED
7677 : module procedure show_D2_PVRK4
7678 : use pm_kind, only: SKC => SK, RKC => RK4
7679 : #include "pm_io@routines.inc.F90"
7680 : end procedure
7681 : #endif
7682 :
7683 : #if RK3_ENABLED
7684 : module procedure show_D2_PVRK3
7685 : use pm_kind, only: SKC => SK, RKC => RK3
7686 : #include "pm_io@routines.inc.F90"
7687 : end procedure
7688 : #endif
7689 :
7690 : #if RK2_ENABLED
7691 : module procedure show_D2_PVRK2
7692 : use pm_kind, only: SKC => SK, RKC => RK2
7693 : #include "pm_io@routines.inc.F90"
7694 : end procedure
7695 : #endif
7696 :
7697 : #if RK1_ENABLED
7698 : module procedure show_D2_PVRK1
7699 : use pm_kind, only: SKC => SK, RKC => RK1
7700 : #include "pm_io@routines.inc.F90"
7701 : end procedure
7702 : #endif
7703 : #endif
7704 :
7705 : #undef RK_ENABLED
7706 :
7707 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7708 :
7709 : #undef D2_ENABLED
7710 :
7711 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7712 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7713 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7714 :
7715 : #undef PV_ENABLED
7716 :
7717 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7718 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7719 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7720 :
7721 : #define CM_ENABLED 1
7722 :
7723 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7724 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7725 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7726 :
7727 : #define D0_ENABLED 1
7728 :
7729 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7730 :
7731 : #define SK_ENABLED 1
7732 :
7733 : #if !__GFORTRAN__ || 1
7734 : #if SK5_ENABLED
7735 : module procedure show_D0_PMSK5
7736 : use pm_kind, only: SKC => SK5
7737 : #include "pm_io@routines.inc.F90"
7738 : end procedure
7739 : #endif
7740 :
7741 : #if SK4_ENABLED
7742 : module procedure show_D0_PMSK4
7743 : use pm_kind, only: SKC => SK4
7744 : #include "pm_io@routines.inc.F90"
7745 : end procedure
7746 : #endif
7747 :
7748 : #if SK3_ENABLED
7749 : module procedure show_D0_PMSK3
7750 : use pm_kind, only: SKC => SK3
7751 : #include "pm_io@routines.inc.F90"
7752 : end procedure
7753 : #endif
7754 :
7755 : #if SK2_ENABLED
7756 : module procedure show_D0_PMSK2
7757 : use pm_kind, only: SKC => SK2
7758 : #include "pm_io@routines.inc.F90"
7759 : end procedure
7760 : #endif
7761 :
7762 : #if SK1_ENABLED
7763 : module procedure show_D0_PMSK1
7764 : use pm_kind, only: SKC => SK1
7765 : #include "pm_io@routines.inc.F90"
7766 : end procedure
7767 : #endif
7768 : #endif
7769 :
7770 : #undef SK_ENABLED
7771 :
7772 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7773 :
7774 : #define IK_ENABLED 1
7775 :
7776 : #if !__GFORTRAN__ || 1
7777 : #if IK5_ENABLED
7778 : module procedure show_D0_PMIK5
7779 : use pm_kind, only: SKC => SK, IKC => IK5
7780 : #include "pm_io@routines.inc.F90"
7781 : end procedure
7782 : #endif
7783 :
7784 : #if IK4_ENABLED
7785 : module procedure show_D0_PMIK4
7786 : use pm_kind, only: SKC => SK, IKC => IK4
7787 : #include "pm_io@routines.inc.F90"
7788 : end procedure
7789 : #endif
7790 :
7791 : #if IK3_ENABLED
7792 : module procedure show_D0_PMIK3
7793 : use pm_kind, only: SKC => SK, IKC => IK3
7794 : #include "pm_io@routines.inc.F90"
7795 : end procedure
7796 : #endif
7797 :
7798 : #if IK2_ENABLED
7799 : module procedure show_D0_PMIK2
7800 : use pm_kind, only: SKC => SK, IKC => IK2
7801 : #include "pm_io@routines.inc.F90"
7802 : end procedure
7803 : #endif
7804 :
7805 : #if IK1_ENABLED
7806 : module procedure show_D0_PMIK1
7807 : use pm_kind, only: SKC => SK, IKC => IK1
7808 : #include "pm_io@routines.inc.F90"
7809 : end procedure
7810 : #endif
7811 : #endif
7812 :
7813 : #undef IK_ENABLED
7814 :
7815 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7816 :
7817 : #define LK_ENABLED 1
7818 :
7819 : #if !__GFORTRAN__ || 1
7820 : #if LK5_ENABLED
7821 : module procedure show_D0_PMLK5
7822 : use pm_kind, only: SKC => SK, LKC => LK5
7823 : #include "pm_io@routines.inc.F90"
7824 : end procedure
7825 : #endif
7826 :
7827 : #if LK4_ENABLED
7828 : module procedure show_D0_PMLK4
7829 : use pm_kind, only: SKC => SK, LKC => LK4
7830 : #include "pm_io@routines.inc.F90"
7831 : end procedure
7832 : #endif
7833 :
7834 : #if LK3_ENABLED
7835 : module procedure show_D0_PMLK3
7836 : use pm_kind, only: SKC => SK, LKC => LK3
7837 : #include "pm_io@routines.inc.F90"
7838 : end procedure
7839 : #endif
7840 :
7841 : #if LK2_ENABLED
7842 : module procedure show_D0_PMLK2
7843 : use pm_kind, only: SKC => SK, LKC => LK2
7844 : #include "pm_io@routines.inc.F90"
7845 : end procedure
7846 : #endif
7847 :
7848 : #if LK1_ENABLED
7849 : module procedure show_D0_PMLK1
7850 : use pm_kind, only: SKC => SK, LKC => LK1
7851 : #include "pm_io@routines.inc.F90"
7852 : end procedure
7853 : #endif
7854 : #endif
7855 :
7856 : #undef LK_ENABLED
7857 :
7858 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7859 :
7860 : #define CK_ENABLED 1
7861 :
7862 : #if !__GFORTRAN__ || 1
7863 : #if CK5_ENABLED
7864 : module procedure show_D0_PMCK5
7865 : use pm_kind, only: SKC => SK, CKC => CK5
7866 : #include "pm_io@routines.inc.F90"
7867 : end procedure
7868 : #endif
7869 :
7870 : #if CK4_ENABLED
7871 : module procedure show_D0_PMCK4
7872 : use pm_kind, only: SKC => SK, CKC => CK4
7873 : #include "pm_io@routines.inc.F90"
7874 : end procedure
7875 : #endif
7876 :
7877 : #if CK3_ENABLED
7878 : module procedure show_D0_PMCK3
7879 : use pm_kind, only: SKC => SK, CKC => CK3
7880 : #include "pm_io@routines.inc.F90"
7881 : end procedure
7882 : #endif
7883 :
7884 : #if CK2_ENABLED
7885 : module procedure show_D0_PMCK2
7886 : use pm_kind, only: SKC => SK, CKC => CK2
7887 : #include "pm_io@routines.inc.F90"
7888 : end procedure
7889 : #endif
7890 :
7891 : #if CK1_ENABLED
7892 : module procedure show_D0_PMCK1
7893 : use pm_kind, only: SKC => SK, CKC => CK1
7894 : #include "pm_io@routines.inc.F90"
7895 : end procedure
7896 : #endif
7897 : #endif
7898 :
7899 : #undef CK_ENABLED
7900 :
7901 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7902 :
7903 : #define RK_ENABLED 1
7904 :
7905 : #if !__GFORTRAN__ || 1
7906 : #if RK5_ENABLED
7907 : module procedure show_D0_PMRK5
7908 : use pm_kind, only: SKC => SK, RKC => RK5
7909 : #include "pm_io@routines.inc.F90"
7910 : end procedure
7911 : #endif
7912 :
7913 : #if RK4_ENABLED
7914 : module procedure show_D0_PMRK4
7915 : use pm_kind, only: SKC => SK, RKC => RK4
7916 : #include "pm_io@routines.inc.F90"
7917 : end procedure
7918 : #endif
7919 :
7920 : #if RK3_ENABLED
7921 : module procedure show_D0_PMRK3
7922 : use pm_kind, only: SKC => SK, RKC => RK3
7923 : #include "pm_io@routines.inc.F90"
7924 : end procedure
7925 : #endif
7926 :
7927 : #if RK2_ENABLED
7928 : module procedure show_D0_PMRK2
7929 : use pm_kind, only: SKC => SK, RKC => RK2
7930 : #include "pm_io@routines.inc.F90"
7931 : end procedure
7932 : #endif
7933 :
7934 : #if RK1_ENABLED
7935 : module procedure show_D0_PMRK1
7936 : use pm_kind, only: SKC => SK, RKC => RK1
7937 : #include "pm_io@routines.inc.F90"
7938 : end procedure
7939 : #endif
7940 : #endif
7941 :
7942 : #undef RK_ENABLED
7943 :
7944 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7945 :
7946 : #undef D0_ENABLED
7947 :
7948 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7949 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7950 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7951 :
7952 : #define D1_ENABLED 1
7953 :
7954 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7955 :
7956 : #define SK_ENABLED 1
7957 :
7958 : #if !__GFORTRAN__ || 1
7959 : #if SK5_ENABLED
7960 : module procedure show_D1_PMSK5
7961 : use pm_kind, only: SKC => SK5
7962 : #include "pm_io@routines.inc.F90"
7963 : end procedure
7964 : #endif
7965 :
7966 : #if SK4_ENABLED
7967 : module procedure show_D1_PMSK4
7968 : use pm_kind, only: SKC => SK4
7969 : #include "pm_io@routines.inc.F90"
7970 : end procedure
7971 : #endif
7972 :
7973 : #if SK3_ENABLED
7974 : module procedure show_D1_PMSK3
7975 : use pm_kind, only: SKC => SK3
7976 : #include "pm_io@routines.inc.F90"
7977 : end procedure
7978 : #endif
7979 :
7980 : #if SK2_ENABLED
7981 : module procedure show_D1_PMSK2
7982 : use pm_kind, only: SKC => SK2
7983 : #include "pm_io@routines.inc.F90"
7984 : end procedure
7985 : #endif
7986 :
7987 : #if SK1_ENABLED
7988 : module procedure show_D1_PMSK1
7989 : use pm_kind, only: SKC => SK1
7990 : #include "pm_io@routines.inc.F90"
7991 : end procedure
7992 : #endif
7993 : #endif
7994 :
7995 : #undef SK_ENABLED
7996 :
7997 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7998 :
7999 : #define IK_ENABLED 1
8000 :
8001 : #if !__GFORTRAN__ || 1
8002 : #if IK5_ENABLED
8003 : module procedure show_D1_PMIK5
8004 : use pm_kind, only: SKC => SK, IKC => IK5
8005 : #include "pm_io@routines.inc.F90"
8006 : end procedure
8007 : #endif
8008 :
8009 : #if IK4_ENABLED
8010 : module procedure show_D1_PMIK4
8011 : use pm_kind, only: SKC => SK, IKC => IK4
8012 : #include "pm_io@routines.inc.F90"
8013 : end procedure
8014 : #endif
8015 :
8016 : #if IK3_ENABLED
8017 : module procedure show_D1_PMIK3
8018 : use pm_kind, only: SKC => SK, IKC => IK3
8019 : #include "pm_io@routines.inc.F90"
8020 : end procedure
8021 : #endif
8022 :
8023 : #if IK2_ENABLED
8024 : module procedure show_D1_PMIK2
8025 : use pm_kind, only: SKC => SK, IKC => IK2
8026 : #include "pm_io@routines.inc.F90"
8027 : end procedure
8028 : #endif
8029 :
8030 : #if IK1_ENABLED
8031 : module procedure show_D1_PMIK1
8032 : use pm_kind, only: SKC => SK, IKC => IK1
8033 : #include "pm_io@routines.inc.F90"
8034 : end procedure
8035 : #endif
8036 : #endif
8037 :
8038 : #undef IK_ENABLED
8039 :
8040 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8041 :
8042 : #define LK_ENABLED 1
8043 :
8044 : #if !__GFORTRAN__ || 1
8045 : #if LK5_ENABLED
8046 : module procedure show_D1_PMLK5
8047 : use pm_kind, only: SKC => SK, LKC => LK5
8048 : #include "pm_io@routines.inc.F90"
8049 : end procedure
8050 : #endif
8051 :
8052 : #if LK4_ENABLED
8053 : module procedure show_D1_PMLK4
8054 : use pm_kind, only: SKC => SK, LKC => LK4
8055 : #include "pm_io@routines.inc.F90"
8056 : end procedure
8057 : #endif
8058 :
8059 : #if LK3_ENABLED
8060 : module procedure show_D1_PMLK3
8061 : use pm_kind, only: SKC => SK, LKC => LK3
8062 : #include "pm_io@routines.inc.F90"
8063 : end procedure
8064 : #endif
8065 :
8066 : #if LK2_ENABLED
8067 : module procedure show_D1_PMLK2
8068 : use pm_kind, only: SKC => SK, LKC => LK2
8069 : #include "pm_io@routines.inc.F90"
8070 : end procedure
8071 : #endif
8072 :
8073 : #if LK1_ENABLED
8074 : module procedure show_D1_PMLK1
8075 : use pm_kind, only: SKC => SK, LKC => LK1
8076 : #include "pm_io@routines.inc.F90"
8077 : end procedure
8078 : #endif
8079 : #endif
8080 :
8081 : #undef LK_ENABLED
8082 :
8083 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8084 :
8085 : #define CK_ENABLED 1
8086 :
8087 : #if !__GFORTRAN__ || 1
8088 : #if CK5_ENABLED
8089 : module procedure show_D1_PMCK5
8090 : use pm_kind, only: SKC => SK, CKC => CK5
8091 : #include "pm_io@routines.inc.F90"
8092 : end procedure
8093 : #endif
8094 :
8095 : #if CK4_ENABLED
8096 : module procedure show_D1_PMCK4
8097 : use pm_kind, only: SKC => SK, CKC => CK4
8098 : #include "pm_io@routines.inc.F90"
8099 : end procedure
8100 : #endif
8101 :
8102 : #if CK3_ENABLED
8103 : module procedure show_D1_PMCK3
8104 : use pm_kind, only: SKC => SK, CKC => CK3
8105 : #include "pm_io@routines.inc.F90"
8106 : end procedure
8107 : #endif
8108 :
8109 : #if CK2_ENABLED
8110 : module procedure show_D1_PMCK2
8111 : use pm_kind, only: SKC => SK, CKC => CK2
8112 : #include "pm_io@routines.inc.F90"
8113 : end procedure
8114 : #endif
8115 :
8116 : #if CK1_ENABLED
8117 : module procedure show_D1_PMCK1
8118 : use pm_kind, only: SKC => SK, CKC => CK1
8119 : #include "pm_io@routines.inc.F90"
8120 : end procedure
8121 : #endif
8122 : #endif
8123 :
8124 : #undef CK_ENABLED
8125 :
8126 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8127 :
8128 : #define RK_ENABLED 1
8129 :
8130 : #if !__GFORTRAN__ || 1
8131 : #if RK5_ENABLED
8132 : module procedure show_D1_PMRK5
8133 : use pm_kind, only: SKC => SK, RKC => RK5
8134 : #include "pm_io@routines.inc.F90"
8135 : end procedure
8136 : #endif
8137 :
8138 : #if RK4_ENABLED
8139 : module procedure show_D1_PMRK4
8140 : use pm_kind, only: SKC => SK, RKC => RK4
8141 : #include "pm_io@routines.inc.F90"
8142 : end procedure
8143 : #endif
8144 :
8145 : #if RK3_ENABLED
8146 : module procedure show_D1_PMRK3
8147 : use pm_kind, only: SKC => SK, RKC => RK3
8148 : #include "pm_io@routines.inc.F90"
8149 : end procedure
8150 : #endif
8151 :
8152 : #if RK2_ENABLED
8153 : module procedure show_D1_PMRK2
8154 : use pm_kind, only: SKC => SK, RKC => RK2
8155 : #include "pm_io@routines.inc.F90"
8156 : end procedure
8157 : #endif
8158 :
8159 : #if RK1_ENABLED
8160 : module procedure show_D1_PMRK1
8161 : use pm_kind, only: SKC => SK, RKC => RK1
8162 : #include "pm_io@routines.inc.F90"
8163 : end procedure
8164 : #endif
8165 : #endif
8166 :
8167 : #undef RK_ENABLED
8168 :
8169 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8170 :
8171 : #undef D1_ENABLED
8172 :
8173 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8174 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8175 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8176 :
8177 : #undef CM_ENABLED
8178 :
8179 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8180 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8181 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8182 :
8183 : #define PC_ENABLED 1
8184 :
8185 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8186 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8187 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8188 :
8189 : #define D0_ENABLED 1
8190 :
8191 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8192 :
8193 : #define SK_ENABLED 1
8194 :
8195 : #if !__GFORTRAN__ || 1
8196 : #if SK5_ENABLED
8197 : module procedure show_D0_PCSK5
8198 : use pm_kind, only: SKC => SK5
8199 : #include "pm_io@routines.inc.F90"
8200 : end procedure
8201 : #endif
8202 :
8203 : #if SK4_ENABLED
8204 : module procedure show_D0_PCSK4
8205 : use pm_kind, only: SKC => SK4
8206 : #include "pm_io@routines.inc.F90"
8207 : end procedure
8208 : #endif
8209 :
8210 : #if SK3_ENABLED
8211 : module procedure show_D0_PCSK3
8212 : use pm_kind, only: SKC => SK3
8213 : #include "pm_io@routines.inc.F90"
8214 : end procedure
8215 : #endif
8216 :
8217 : #if SK2_ENABLED
8218 : module procedure show_D0_PCSK2
8219 : use pm_kind, only: SKC => SK2
8220 : #include "pm_io@routines.inc.F90"
8221 : end procedure
8222 : #endif
8223 :
8224 : #if SK1_ENABLED
8225 : module procedure show_D0_PCSK1
8226 : use pm_kind, only: SKC => SK1
8227 : #include "pm_io@routines.inc.F90"
8228 : end procedure
8229 : #endif
8230 : #endif
8231 :
8232 : #undef SK_ENABLED
8233 :
8234 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8235 :
8236 : #define IK_ENABLED 1
8237 :
8238 : #if !__GFORTRAN__ || 1
8239 : #if IK5_ENABLED
8240 : module procedure show_D0_PCIK5
8241 : use pm_kind, only: SKC => SK, IKC => IK5
8242 : #include "pm_io@routines.inc.F90"
8243 : end procedure
8244 : #endif
8245 :
8246 : #if IK4_ENABLED
8247 : module procedure show_D0_PCIK4
8248 : use pm_kind, only: SKC => SK, IKC => IK4
8249 : #include "pm_io@routines.inc.F90"
8250 : end procedure
8251 : #endif
8252 :
8253 : #if IK3_ENABLED
8254 : module procedure show_D0_PCIK3
8255 : use pm_kind, only: SKC => SK, IKC => IK3
8256 : #include "pm_io@routines.inc.F90"
8257 : end procedure
8258 : #endif
8259 :
8260 : #if IK2_ENABLED
8261 : module procedure show_D0_PCIK2
8262 : use pm_kind, only: SKC => SK, IKC => IK2
8263 : #include "pm_io@routines.inc.F90"
8264 : end procedure
8265 : #endif
8266 :
8267 : #if IK1_ENABLED
8268 : module procedure show_D0_PCIK1
8269 : use pm_kind, only: SKC => SK, IKC => IK1
8270 : #include "pm_io@routines.inc.F90"
8271 : end procedure
8272 : #endif
8273 : #endif
8274 :
8275 : #undef IK_ENABLED
8276 :
8277 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8278 :
8279 : #define LK_ENABLED 1
8280 :
8281 : #if !__GFORTRAN__ || 1
8282 : #if LK5_ENABLED
8283 : module procedure show_D0_PCLK5
8284 : use pm_kind, only: SKC => SK, LKC => LK5
8285 : #include "pm_io@routines.inc.F90"
8286 : end procedure
8287 : #endif
8288 :
8289 : #if LK4_ENABLED
8290 : module procedure show_D0_PCLK4
8291 : use pm_kind, only: SKC => SK, LKC => LK4
8292 : #include "pm_io@routines.inc.F90"
8293 : end procedure
8294 : #endif
8295 :
8296 : #if LK3_ENABLED
8297 : module procedure show_D0_PCLK3
8298 : use pm_kind, only: SKC => SK, LKC => LK3
8299 : #include "pm_io@routines.inc.F90"
8300 : end procedure
8301 : #endif
8302 :
8303 : #if LK2_ENABLED
8304 : module procedure show_D0_PCLK2
8305 : use pm_kind, only: SKC => SK, LKC => LK2
8306 : #include "pm_io@routines.inc.F90"
8307 : end procedure
8308 : #endif
8309 :
8310 : #if LK1_ENABLED
8311 : module procedure show_D0_PCLK1
8312 : use pm_kind, only: SKC => SK, LKC => LK1
8313 : #include "pm_io@routines.inc.F90"
8314 : end procedure
8315 : #endif
8316 : #endif
8317 :
8318 : #undef LK_ENABLED
8319 :
8320 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8321 :
8322 : #define CK_ENABLED 1
8323 :
8324 : #if !__GFORTRAN__ || 1
8325 : #if CK5_ENABLED
8326 : module procedure show_D0_PCCK5
8327 : use pm_kind, only: SKC => SK, CKC => CK5
8328 : #include "pm_io@routines.inc.F90"
8329 : end procedure
8330 : #endif
8331 :
8332 : #if CK4_ENABLED
8333 : module procedure show_D0_PCCK4
8334 : use pm_kind, only: SKC => SK, CKC => CK4
8335 : #include "pm_io@routines.inc.F90"
8336 : end procedure
8337 : #endif
8338 :
8339 : #if CK3_ENABLED
8340 : module procedure show_D0_PCCK3
8341 : use pm_kind, only: SKC => SK, CKC => CK3
8342 : #include "pm_io@routines.inc.F90"
8343 : end procedure
8344 : #endif
8345 :
8346 : #if CK2_ENABLED
8347 : module procedure show_D0_PCCK2
8348 : use pm_kind, only: SKC => SK, CKC => CK2
8349 : #include "pm_io@routines.inc.F90"
8350 : end procedure
8351 : #endif
8352 :
8353 : #if CK1_ENABLED
8354 : module procedure show_D0_PCCK1
8355 : use pm_kind, only: SKC => SK, CKC => CK1
8356 : #include "pm_io@routines.inc.F90"
8357 : end procedure
8358 : #endif
8359 : #endif
8360 :
8361 : #undef CK_ENABLED
8362 :
8363 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8364 :
8365 : #define RK_ENABLED 1
8366 :
8367 : #if !__GFORTRAN__ || 1
8368 : #if RK5_ENABLED
8369 : module procedure show_D0_PCRK5
8370 : use pm_kind, only: SKC => SK, RKC => RK5
8371 : #include "pm_io@routines.inc.F90"
8372 : end procedure
8373 : #endif
8374 :
8375 : #if RK4_ENABLED
8376 : module procedure show_D0_PCRK4
8377 : use pm_kind, only: SKC => SK, RKC => RK4
8378 : #include "pm_io@routines.inc.F90"
8379 : end procedure
8380 : #endif
8381 :
8382 : #if RK3_ENABLED
8383 : module procedure show_D0_PCRK3
8384 : use pm_kind, only: SKC => SK, RKC => RK3
8385 : #include "pm_io@routines.inc.F90"
8386 : end procedure
8387 : #endif
8388 :
8389 : #if RK2_ENABLED
8390 : module procedure show_D0_PCRK2
8391 : use pm_kind, only: SKC => SK, RKC => RK2
8392 : #include "pm_io@routines.inc.F90"
8393 : end procedure
8394 : #endif
8395 :
8396 : #if RK1_ENABLED
8397 : module procedure show_D0_PCRK1
8398 : use pm_kind, only: SKC => SK, RKC => RK1
8399 : #include "pm_io@routines.inc.F90"
8400 : end procedure
8401 : #endif
8402 : #endif
8403 :
8404 : #undef RK_ENABLED
8405 :
8406 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8407 :
8408 : #undef D0_ENABLED
8409 :
8410 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8411 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8412 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8413 :
8414 : #undef PC_ENABLED
8415 :
8416 : ! LCOV_EXCL_STOP
8417 :
8418 : ! LCOV_EXCL_START
8419 :
8420 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8421 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8422 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8423 : ! Box of Scalar.
8424 : #define BS_ENABLED 1
8425 :
8426 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8427 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8428 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8429 :
8430 : #define D0_ENABLED 1
8431 :
8432 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8433 :
8434 : #define SK_ENABLED 1
8435 :
8436 : module procedure show_D0_BSSK
8437 : use pm_kind, only: SKC => SK
8438 : #include "pm_io@routines.inc.F90"
8439 : end procedure
8440 :
8441 : #undef SK_ENABLED
8442 :
8443 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8444 :
8445 : #define IK_ENABLED 1
8446 :
8447 : module procedure show_D0_BSIK
8448 : use pm_kind, only: SKC => SK, IKC => IK
8449 : #include "pm_io@routines.inc.F90"
8450 : end procedure
8451 :
8452 : #undef IK_ENABLED
8453 :
8454 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8455 :
8456 : #define LK_ENABLED 1
8457 :
8458 : module procedure show_D0_BSLK
8459 : use pm_kind, only: SKC => SK, LKC => LK
8460 : #include "pm_io@routines.inc.F90"
8461 : end procedure
8462 :
8463 : #undef LK_ENABLED
8464 :
8465 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8466 :
8467 : #define CK_ENABLED 1
8468 :
8469 : module procedure show_D0_BSCK
8470 : use pm_kind, only: SKC => SK, CKC => CK
8471 : #include "pm_io@routines.inc.F90"
8472 : end procedure
8473 :
8474 : #undef CK_ENABLED
8475 :
8476 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8477 :
8478 : #define RK_ENABLED 1
8479 :
8480 : module procedure show_D0_BSRK
8481 : use pm_kind, only: SKC => SK, RKC => RK
8482 : #include "pm_io@routines.inc.F90"
8483 : end procedure
8484 :
8485 : #undef RK_ENABLED
8486 :
8487 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8488 :
8489 : #undef D0_ENABLED
8490 :
8491 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8492 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8493 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8494 :
8495 : #define D1_ENABLED 1
8496 :
8497 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8498 :
8499 : #define SK_ENABLED 1
8500 :
8501 : module procedure show_D1_BSSK
8502 : use pm_kind, only: SKC => SK
8503 : #include "pm_io@routines.inc.F90"
8504 : end procedure
8505 :
8506 : #undef SK_ENABLED
8507 :
8508 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8509 :
8510 : #define IK_ENABLED 1
8511 :
8512 : module procedure show_D1_BSIK
8513 : use pm_kind, only: SKC => SK, IKC => IK
8514 : #include "pm_io@routines.inc.F90"
8515 : end procedure
8516 :
8517 : #undef IK_ENABLED
8518 :
8519 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8520 :
8521 : #define LK_ENABLED 1
8522 :
8523 : module procedure show_D1_BSLK
8524 : use pm_kind, only: SKC => SK, LKC => LK
8525 : #include "pm_io@routines.inc.F90"
8526 : end procedure
8527 :
8528 : #undef LK_ENABLED
8529 :
8530 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8531 :
8532 : #define CK_ENABLED 1
8533 :
8534 : module procedure show_D1_BSCK
8535 : use pm_kind, only: SKC => SK, CKC => CK
8536 : #include "pm_io@routines.inc.F90"
8537 : end procedure
8538 :
8539 : #undef CK_ENABLED
8540 :
8541 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8542 :
8543 : #define RK_ENABLED 1
8544 :
8545 : module procedure show_D1_BSRK
8546 : use pm_kind, only: SKC => SK, RKC => RK
8547 : #include "pm_io@routines.inc.F90"
8548 : end procedure
8549 :
8550 : #undef RK_ENABLED
8551 :
8552 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8553 :
8554 : #undef D1_ENABLED
8555 :
8556 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8557 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8558 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8559 :
8560 : #define D2_ENABLED 1
8561 :
8562 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8563 :
8564 : #define SK_ENABLED 1
8565 :
8566 : module procedure show_D2_BSSK
8567 : use pm_kind, only: SKC => SK
8568 : #include "pm_io@routines.inc.F90"
8569 : end procedure
8570 :
8571 : #undef SK_ENABLED
8572 :
8573 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8574 :
8575 : #define IK_ENABLED 1
8576 :
8577 : module procedure show_D2_BSIK
8578 : use pm_kind, only: SKC => SK, IKC => IK
8579 : #include "pm_io@routines.inc.F90"
8580 : end procedure
8581 :
8582 : #undef IK_ENABLED
8583 :
8584 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8585 :
8586 : #define LK_ENABLED 1
8587 :
8588 : module procedure show_D2_BSLK
8589 : use pm_kind, only: SKC => SK, LKC => LK
8590 : #include "pm_io@routines.inc.F90"
8591 : end procedure
8592 :
8593 : #undef LK_ENABLED
8594 :
8595 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8596 :
8597 : #define CK_ENABLED 1
8598 :
8599 : module procedure show_D2_BSCK
8600 : use pm_kind, only: SKC => SK, CKC => CK
8601 : #include "pm_io@routines.inc.F90"
8602 : end procedure
8603 :
8604 : #undef CK_ENABLED
8605 :
8606 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8607 :
8608 : #define RK_ENABLED 1
8609 :
8610 : module procedure show_D2_BSRK
8611 : use pm_kind, only: SKC => SK, RKC => RK
8612 : #include "pm_io@routines.inc.F90"
8613 : end procedure
8614 :
8615 : #undef RK_ENABLED
8616 :
8617 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8618 :
8619 : #undef D2_ENABLED
8620 :
8621 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8622 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8623 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8624 :
8625 : #define D3_ENABLED 1
8626 :
8627 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8628 :
8629 : #define SK_ENABLED 1
8630 :
8631 : module procedure show_D3_BSSK
8632 : use pm_kind, only: SKC => SK
8633 : #include "pm_io@routines.inc.F90"
8634 : end procedure
8635 :
8636 : #undef SK_ENABLED
8637 :
8638 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8639 :
8640 : #define IK_ENABLED 1
8641 :
8642 : module procedure show_D3_BSIK
8643 : use pm_kind, only: SKC => SK, IKC => IK
8644 : #include "pm_io@routines.inc.F90"
8645 : end procedure
8646 :
8647 : #undef IK_ENABLED
8648 :
8649 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8650 :
8651 : #define LK_ENABLED 1
8652 :
8653 : module procedure show_D3_BSLK
8654 : use pm_kind, only: SKC => SK, LKC => LK
8655 : #include "pm_io@routines.inc.F90"
8656 : end procedure
8657 :
8658 : #undef LK_ENABLED
8659 :
8660 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8661 :
8662 : #define CK_ENABLED 1
8663 :
8664 : module procedure show_D3_BSCK
8665 : use pm_kind, only: SKC => SK, CKC => CK
8666 : #include "pm_io@routines.inc.F90"
8667 : end procedure
8668 :
8669 : #undef CK_ENABLED
8670 :
8671 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8672 :
8673 : #define RK_ENABLED 1
8674 :
8675 : module procedure show_D3_BSRK
8676 : use pm_kind, only: SKC => SK, RKC => RK
8677 : #include "pm_io@routines.inc.F90"
8678 : end procedure
8679 :
8680 : #undef RK_ENABLED
8681 :
8682 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8683 :
8684 : #undef D3_ENABLED
8685 :
8686 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8687 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8688 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8689 :
8690 : #undef BS_ENABLED
8691 :
8692 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8693 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8694 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8695 :
8696 : #define BV_ENABLED 1
8697 :
8698 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8699 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8700 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8701 :
8702 : #define D0_ENABLED 1
8703 :
8704 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8705 :
8706 : #define SK_ENABLED 1
8707 :
8708 : module procedure show_D0_BVSK
8709 : use pm_kind, only: SKC => SK
8710 : #include "pm_io@routines.inc.F90"
8711 : end procedure
8712 :
8713 : #undef SK_ENABLED
8714 :
8715 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8716 :
8717 : #define IK_ENABLED 1
8718 :
8719 : module procedure show_D0_BVIK
8720 : use pm_kind, only: SKC => SK, IKC => IK
8721 : #include "pm_io@routines.inc.F90"
8722 : end procedure
8723 :
8724 : #undef IK_ENABLED
8725 :
8726 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8727 :
8728 : #define LK_ENABLED 1
8729 :
8730 : module procedure show_D0_BVLK
8731 : use pm_kind, only: SKC => SK, LKC => LK
8732 : #include "pm_io@routines.inc.F90"
8733 : end procedure
8734 :
8735 : #undef LK_ENABLED
8736 :
8737 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8738 :
8739 : #define CK_ENABLED 1
8740 :
8741 : module procedure show_D0_BVCK
8742 : use pm_kind, only: SKC => SK, CKC => CK
8743 : #include "pm_io@routines.inc.F90"
8744 : end procedure
8745 :
8746 : #undef CK_ENABLED
8747 :
8748 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8749 :
8750 : #define RK_ENABLED 1
8751 :
8752 : module procedure show_D0_BVRK
8753 : use pm_kind, only: SKC => SK, RKC => RK
8754 : #include "pm_io@routines.inc.F90"
8755 : end procedure
8756 :
8757 : #undef RK_ENABLED
8758 :
8759 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8760 :
8761 : #undef D0_ENABLED
8762 :
8763 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8764 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8765 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8766 :
8767 : #define D1_ENABLED 1
8768 :
8769 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8770 :
8771 : #define SK_ENABLED 1
8772 :
8773 : module procedure show_D1_BVSK
8774 : use pm_kind, only: SKC => SK
8775 : #include "pm_io@routines.inc.F90"
8776 : end procedure
8777 :
8778 : #undef SK_ENABLED
8779 :
8780 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8781 :
8782 : #define IK_ENABLED 1
8783 :
8784 : module procedure show_D1_BVIK
8785 : use pm_kind, only: SKC => SK, IKC => IK
8786 : #include "pm_io@routines.inc.F90"
8787 : end procedure
8788 :
8789 : #undef IK_ENABLED
8790 :
8791 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8792 :
8793 : #define LK_ENABLED 1
8794 :
8795 : module procedure show_D1_BVLK
8796 : use pm_kind, only: SKC => SK, LKC => LK
8797 : #include "pm_io@routines.inc.F90"
8798 : end procedure
8799 :
8800 : #undef LK_ENABLED
8801 :
8802 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8803 :
8804 : #define CK_ENABLED 1
8805 :
8806 : module procedure show_D1_BVCK
8807 : use pm_kind, only: SKC => SK, CKC => CK
8808 : #include "pm_io@routines.inc.F90"
8809 : end procedure
8810 :
8811 : #undef CK_ENABLED
8812 :
8813 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8814 :
8815 : #define RK_ENABLED 1
8816 :
8817 : module procedure show_D1_BVRK
8818 : use pm_kind, only: SKC => SK, RKC => RK
8819 : #include "pm_io@routines.inc.F90"
8820 : end procedure
8821 :
8822 : #undef RK_ENABLED
8823 :
8824 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8825 :
8826 : #undef D1_ENABLED
8827 :
8828 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8829 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8830 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8831 :
8832 : #define D2_ENABLED 1
8833 :
8834 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8835 :
8836 : #define SK_ENABLED 1
8837 :
8838 : module procedure show_D2_BVSK
8839 : use pm_kind, only: SKC => SK
8840 : #include "pm_io@routines.inc.F90"
8841 : end procedure
8842 :
8843 : #undef SK_ENABLED
8844 :
8845 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8846 :
8847 : #define IK_ENABLED 1
8848 :
8849 : module procedure show_D2_BVIK
8850 : use pm_kind, only: SKC => SK, IKC => IK
8851 : #include "pm_io@routines.inc.F90"
8852 : end procedure
8853 :
8854 : #undef IK_ENABLED
8855 :
8856 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8857 :
8858 : #define LK_ENABLED 1
8859 :
8860 : module procedure show_D2_BVLK
8861 : use pm_kind, only: SKC => SK, LKC => LK
8862 : #include "pm_io@routines.inc.F90"
8863 : end procedure
8864 :
8865 : #undef LK_ENABLED
8866 :
8867 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8868 :
8869 : #define CK_ENABLED 1
8870 :
8871 : module procedure show_D2_BVCK
8872 : use pm_kind, only: SKC => SK, CKC => CK
8873 : #include "pm_io@routines.inc.F90"
8874 : end procedure
8875 :
8876 : #undef CK_ENABLED
8877 :
8878 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8879 :
8880 : #define RK_ENABLED 1
8881 :
8882 : module procedure show_D2_BVRK
8883 : use pm_kind, only: SKC => SK, RKC => RK
8884 : #include "pm_io@routines.inc.F90"
8885 : end procedure
8886 :
8887 : #undef RK_ENABLED
8888 :
8889 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8890 :
8891 : #undef D2_ENABLED
8892 :
8893 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8894 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8895 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8896 :
8897 : #undef BV_ENABLED
8898 :
8899 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8900 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8901 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8902 :
8903 : #define BM_ENABLED 1
8904 :
8905 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8906 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8907 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8908 :
8909 : #define D0_ENABLED 1
8910 :
8911 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8912 :
8913 : #define SK_ENABLED 1
8914 :
8915 : module procedure show_D0_BMSK
8916 : use pm_kind, only: SKC => SK
8917 : #include "pm_io@routines.inc.F90"
8918 : end procedure
8919 :
8920 : #undef SK_ENABLED
8921 :
8922 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8923 :
8924 : #define IK_ENABLED 1
8925 :
8926 : module procedure show_D0_BMIK
8927 : use pm_kind, only: SKC => SK, IKC => IK
8928 : #include "pm_io@routines.inc.F90"
8929 : end procedure
8930 :
8931 : #undef IK_ENABLED
8932 :
8933 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8934 :
8935 : #define LK_ENABLED 1
8936 :
8937 : module procedure show_D0_BMLK
8938 : use pm_kind, only: SKC => SK, LKC => LK
8939 : #include "pm_io@routines.inc.F90"
8940 : end procedure
8941 :
8942 : #undef LK_ENABLED
8943 :
8944 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8945 :
8946 : #define CK_ENABLED 1
8947 :
8948 : module procedure show_D0_BMCK
8949 : use pm_kind, only: SKC => SK, CKC => CK
8950 : #include "pm_io@routines.inc.F90"
8951 : end procedure
8952 :
8953 : #undef CK_ENABLED
8954 :
8955 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8956 :
8957 : #define RK_ENABLED 1
8958 :
8959 : module procedure show_D0_BMRK
8960 : use pm_kind, only: SKC => SK, RKC => RK
8961 : #include "pm_io@routines.inc.F90"
8962 : end procedure
8963 :
8964 : #undef RK_ENABLED
8965 :
8966 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8967 :
8968 : #undef D0_ENABLED
8969 :
8970 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8971 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8972 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8973 :
8974 : #define D1_ENABLED 1
8975 :
8976 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8977 :
8978 : #define SK_ENABLED 1
8979 :
8980 : module procedure show_D1_BMSK
8981 : use pm_kind, only: SKC => SK
8982 : #include "pm_io@routines.inc.F90"
8983 : end procedure
8984 :
8985 : #undef SK_ENABLED
8986 :
8987 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8988 :
8989 : #define IK_ENABLED 1
8990 :
8991 : module procedure show_D1_BMIK
8992 : use pm_kind, only: SKC => SK, IKC => IK
8993 : #include "pm_io@routines.inc.F90"
8994 : end procedure
8995 :
8996 : #undef IK_ENABLED
8997 :
8998 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8999 :
9000 : #define LK_ENABLED 1
9001 :
9002 : module procedure show_D1_BMLK
9003 : use pm_kind, only: SKC => SK, LKC => LK
9004 : #include "pm_io@routines.inc.F90"
9005 : end procedure
9006 :
9007 : #undef LK_ENABLED
9008 :
9009 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9010 :
9011 : #define CK_ENABLED 1
9012 :
9013 : module procedure show_D1_BMCK
9014 : use pm_kind, only: SKC => SK, CKC => CK
9015 : #include "pm_io@routines.inc.F90"
9016 : end procedure
9017 :
9018 : #undef CK_ENABLED
9019 :
9020 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9021 :
9022 : #define RK_ENABLED 1
9023 :
9024 : module procedure show_D1_BMRK
9025 : use pm_kind, only: SKC => SK, RKC => RK
9026 : #include "pm_io@routines.inc.F90"
9027 : end procedure
9028 :
9029 : #undef RK_ENABLED
9030 :
9031 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9032 :
9033 : #undef D1_ENABLED
9034 :
9035 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9036 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9037 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9038 :
9039 : #undef BM_ENABLED
9040 :
9041 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9042 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9043 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9044 :
9045 : #define BC_ENABLED 1
9046 :
9047 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9048 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9049 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9050 :
9051 : #define D0_ENABLED 1
9052 :
9053 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9054 :
9055 : #define SK_ENABLED 1
9056 :
9057 : module procedure show_D0_BCSK
9058 : use pm_kind, only: SKC => SK
9059 : #include "pm_io@routines.inc.F90"
9060 : end procedure
9061 :
9062 : #undef SK_ENABLED
9063 :
9064 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9065 :
9066 : #define IK_ENABLED 1
9067 :
9068 : module procedure show_D0_BCIK
9069 : use pm_kind, only: SKC => SK, IKC => IK
9070 : #include "pm_io@routines.inc.F90"
9071 : end procedure
9072 :
9073 : #undef IK_ENABLED
9074 :
9075 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9076 :
9077 : #define LK_ENABLED 1
9078 :
9079 : module procedure show_D0_BCLK
9080 : use pm_kind, only: SKC => SK, LKC => LK
9081 : #include "pm_io@routines.inc.F90"
9082 : end procedure
9083 :
9084 : #undef LK_ENABLED
9085 :
9086 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9087 :
9088 : #define CK_ENABLED 1
9089 :
9090 : module procedure show_D0_BCCK
9091 : use pm_kind, only: SKC => SK, CKC => CK
9092 : #include "pm_io@routines.inc.F90"
9093 : end procedure
9094 :
9095 : #undef CK_ENABLED
9096 :
9097 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9098 :
9099 : #define RK_ENABLED 1
9100 :
9101 : module procedure show_D0_BCRK
9102 : use pm_kind, only: SKC => SK, RKC => RK
9103 : #include "pm_io@routines.inc.F90"
9104 : end procedure
9105 :
9106 : #undef RK_ENABLED
9107 :
9108 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9109 :
9110 : #undef D0_ENABLED
9111 :
9112 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9113 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9114 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9115 :
9116 : #undef BC_ENABLED
9117 :
9118 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9119 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9120 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9121 :
9122 : #undef show_ENABLED
9123 :
9124 : ! LCOV_EXCL_STOP
9125 :
9126 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9127 :
9128 : ! LCOV_EXCL_START
9129 :
9130 : #define dump_ENABLED 1
9131 :
9132 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9133 :
9134 : module procedure dump_D0
9135 : use pm_kind ! must include all kinds
9136 : #include "pm_io@routines.inc.F90"
9137 : end procedure
9138 :
9139 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9140 :
9141 : module procedure dump_D1
9142 : use pm_kind ! must include all kinds
9143 : #include "pm_io@routines.inc.F90"
9144 : end procedure
9145 :
9146 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9147 :
9148 : module procedure dump_D2
9149 : use pm_kind ! must include all kinds
9150 : #include "pm_io@routines.inc.F90"
9151 : end procedure
9152 :
9153 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9154 :
9155 : #undef dump_ENABLED
9156 :
9157 : ! LCOV_EXCL_STOP
9158 :
9159 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9160 :
9161 : #undef CHECK_ASSERTION
9162 :
9163 0 : end submodule routines
|
