ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_val2str.F90
Go to the documentation of this file.
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
55
56!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
57
58module pm_val2str
59
60 use pm_kind, only: SK, IK, LK
61
62 implicit none
63
64 public
65
66 character(*, SK), parameter :: MODULE_NAME = "@pm_val2str"
67
68!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
69
167 interface getStr
168
169 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
170 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
171 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
172
173 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
174
175#if SK5_ENABLED
176 PURE module function getStr_D0_SK5_SK(val, format, length, signed) result(str)
177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
178 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_SK5_SK
179#endif
180 use pm_kind, only: SKO => SK, SKG => SK5
181 character(*,SKG) , intent(in) :: val
182 character(*, SK) , intent(in) , optional :: format
183 integer(IK) , intent(in) , optional :: length
184 logical(LK) , intent(in) , optional :: signed
185 character(:,SKO) , allocatable :: str
186 end function
187#endif
188
189#if SK4_ENABLED
190 PURE module function getStr_D0_SK4_SK(val, format, length, signed) result(str)
191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
192 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_SK4_SK
193#endif
194 use pm_kind, only: SKO => SK, SKG => SK4
195 character(*,SKG) , intent(in) :: val
196 character(*, SK) , intent(in) , optional :: format
197 integer(IK) , intent(in) , optional :: length
198 logical(LK) , intent(in) , optional :: signed
199 character(:,SKO) , allocatable :: str
200 end function
201#endif
202
203#if SK3_ENABLED
204 PURE module function getStr_D0_SK3_SK(val, format, length, signed) result(str)
205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
206 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_SK3_SK
207#endif
208 use pm_kind, only: SKO => SK, SKG => SK3
209 character(*,SKG) , intent(in) :: val
210 character(*, SK) , intent(in) , optional :: format
211 integer(IK) , intent(in) , optional :: length
212 logical(LK) , intent(in) , optional :: signed
213 character(:,SKO) , allocatable :: str
214 end function
215#endif
216
217#if SK2_ENABLED
218 PURE module function getStr_D0_SK2_SK(val, format, length, signed) result(str)
219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
220 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_SK2_SK
221#endif
222 use pm_kind, only: SKO => SK, SKG => SK2
223 character(*,SKG) , intent(in) :: val
224 character(*, SK) , intent(in) , optional :: format
225 integer(IK) , intent(in) , optional :: length
226 logical(LK) , intent(in) , optional :: signed
227 character(:,SKO) , allocatable :: str
228 end function
229#endif
230
231#if SK1_ENABLED
232 PURE module function getStr_D0_SK1_SK(val, format, length, signed) result(str)
233#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
234 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_SK1_SK
235#endif
236 use pm_kind, only: SKO => SK, SKG => SK1
237 character(*,SKG) , intent(in) :: val
238 character(*, SK) , intent(in) , optional :: format
239 integer(IK) , intent(in) , optional :: length
240 logical(LK) , intent(in) , optional :: signed
241 character(:,SKO) , allocatable :: str
242 end function
243#endif
244
245 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
246
247#if IK5_ENABLED
248 PURE module function getStr_D0_IK5_SK(val, format, length, signed) result(str)
249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
250 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_IK5_SK
251#endif
252 use pm_kind, only: SKO => SK, IKG => IK5
253 integer(IKG) , intent(in) :: val
254 character(*, SK) , intent(in) , optional :: format
255 integer(IK) , intent(in) , optional :: length
256 logical(LK) , intent(in) , optional :: signed
257 character(:,SKO) , allocatable :: str
258 end function
259#endif
260
261#if IK4_ENABLED
262 PURE module function getStr_D0_IK4_SK(val, format, length, signed) result(str)
263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
264 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_IK4_SK
265#endif
266 use pm_kind, only: SKO => SK, IKG => IK4
267 integer(IKG) , intent(in) :: val
268 character(*, SK) , intent(in) , optional :: format
269 integer(IK) , intent(in) , optional :: length
270 logical(LK) , intent(in) , optional :: signed
271 character(:,SKO) , allocatable :: str
272 end function
273#endif
274
275#if IK3_ENABLED
276 PURE module function getStr_D0_IK3_SK(val, format, length, signed) result(str)
277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
278 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_IK3_SK
279#endif
280 use pm_kind, only: SKO => SK, IKG => IK3
281 integer(IKG) , intent(in) :: val
282 character(*, SK) , intent(in) , optional :: format
283 integer(IK) , intent(in) , optional :: length
284 logical(LK) , intent(in) , optional :: signed
285 character(:,SKO) , allocatable :: str
286 end function
287#endif
288
289#if IK2_ENABLED
290 PURE module function getStr_D0_IK2_SK(val, format, length, signed) result(str)
291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
292 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_IK2_SK
293#endif
294 use pm_kind, only: SKO => SK, IKG => IK2
295 integer(IKG) , intent(in) :: val
296 character(*, SK) , intent(in) , optional :: format
297 integer(IK) , intent(in) , optional :: length
298 logical(LK) , intent(in) , optional :: signed
299 character(:,SKO) , allocatable :: str
300 end function
301#endif
302
303#if IK1_ENABLED
304 PURE module function getStr_D0_IK1_SK(val, format, length, signed) result(str)
305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
306 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_IK1_SK
307#endif
308 use pm_kind, only: SKO => SK, IKG => IK1
309 integer(IKG) , intent(in) :: val
310 character(*, SK) , intent(in) , optional :: format
311 integer(IK) , intent(in) , optional :: length
312 logical(LK) , intent(in) , optional :: signed
313 character(:,SKO) , allocatable :: str
314 end function
315#endif
316
317 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
318
319#if LK5_ENABLED
320 PURE module function getStr_D0_LK5_SK(val, format, length, signed) result(str)
321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
322 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_LK5_SK
323#endif
324 use pm_kind, only: SKO => SK, LKG => LK5
325 logical(LKG) , intent(in) :: val
326 character(*, SK) , intent(in) , optional :: format
327 integer(IK) , intent(in) , optional :: length
328 logical(LK) , intent(in) , optional :: signed
329 character(:,SKO) , allocatable :: str
330 end function
331#endif
332
333#if LK4_ENABLED
334 PURE module function getStr_D0_LK4_SK(val, format, length, signed) result(str)
335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
336 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_LK4_SK
337#endif
338 use pm_kind, only: SKO => SK, LKG => LK4
339 logical(LKG) , intent(in) :: val
340 character(*, SK) , intent(in) , optional :: format
341 integer(IK) , intent(in) , optional :: length
342 logical(LK) , intent(in) , optional :: signed
343 character(:,SKO) , allocatable :: str
344 end function
345#endif
346
347#if LK3_ENABLED
348 PURE module function getStr_D0_LK3_SK(val, format, length, signed) result(str)
349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
350 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_LK3_SK
351#endif
352 use pm_kind, only: SKO => SK, LKG => LK3
353 logical(LKG) , intent(in) :: val
354 character(*, SK) , intent(in) , optional :: format
355 integer(IK) , intent(in) , optional :: length
356 logical(LK) , intent(in) , optional :: signed
357 character(:,SKO) , allocatable :: str
358 end function
359#endif
360
361#if LK2_ENABLED
362 PURE module function getStr_D0_LK2_SK(val, format, length, signed) result(str)
363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
364 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_LK2_SK
365#endif
366 use pm_kind, only: SKO => SK, LKG => LK2
367 logical(LKG) , intent(in) :: val
368 character(*, SK) , intent(in) , optional :: format
369 integer(IK) , intent(in) , optional :: length
370 logical(LK) , intent(in) , optional :: signed
371 character(:,SKO) , allocatable :: str
372 end function
373#endif
374
375#if LK1_ENABLED
376 PURE module function getStr_D0_LK1_SK(val, format, length, signed) result(str)
377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
378 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_LK1_SK
379#endif
380 use pm_kind, only: SKO => SK, LKG => LK1
381 logical(LKG) , intent(in) :: val
382 character(*, SK) , intent(in) , optional :: format
383 integer(IK) , intent(in) , optional :: length
384 logical(LK) , intent(in) , optional :: signed
385 character(:,SKO) , allocatable :: str
386 end function
387#endif
388
389 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
390
391#if CK5_ENABLED
392 PURE module function getStr_D0_CK5_SK(val, format, length, signed) result(str)
393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
394 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_CK5_SK
395#endif
396 use pm_kind, only: SKO => SK, CKG => CK5
397 complex(CKG) , intent(in) :: val
398 character(*, SK) , intent(in) , optional :: format
399 integer(IK) , intent(in) , optional :: length
400 logical(LK) , intent(in) , optional :: signed
401 character(:,SKO) , allocatable :: str
402 end function
403#endif
404
405#if CK4_ENABLED
406 PURE module function getStr_D0_CK4_SK(val, format, length, signed) result(str)
407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
408 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_CK4_SK
409#endif
410 use pm_kind, only: SKO => SK, CKG => CK4
411 complex(CKG) , intent(in) :: val
412 character(*, SK) , intent(in) , optional :: format
413 integer(IK) , intent(in) , optional :: length
414 logical(LK) , intent(in) , optional :: signed
415 character(:,SKO) , allocatable :: str
416 end function
417#endif
418
419#if CK3_ENABLED
420 PURE module function getStr_D0_CK3_SK(val, format, length, signed) result(str)
421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
422 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_CK3_SK
423#endif
424 use pm_kind, only: SKO => SK, CKG => CK3
425 complex(CKG) , intent(in) :: val
426 character(*, SK) , intent(in) , optional :: format
427 integer(IK) , intent(in) , optional :: length
428 logical(LK) , intent(in) , optional :: signed
429 character(:,SKO) , allocatable :: str
430 end function
431#endif
432
433#if CK2_ENABLED
434 PURE module function getStr_D0_CK2_SK(val, format, length, signed) result(str)
435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
436 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_CK2_SK
437#endif
438 use pm_kind, only: SKO => SK, CKG => CK2
439 complex(CKG) , intent(in) :: val
440 character(*, SK) , intent(in) , optional :: format
441 integer(IK) , intent(in) , optional :: length
442 logical(LK) , intent(in) , optional :: signed
443 character(:,SKO) , allocatable :: str
444 end function
445#endif
446
447#if CK1_ENABLED
448 PURE module function getStr_D0_CK1_SK(val, format, length, signed) result(str)
449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
450 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_CK1_SK
451#endif
452 use pm_kind, only: SKO => SK, CKG => CK1
453 complex(CKG) , intent(in) :: val
454 character(*, SK) , intent(in) , optional :: format
455 integer(IK) , intent(in) , optional :: length
456 logical(LK) , intent(in) , optional :: signed
457 character(:,SKO) , allocatable :: str
458 end function
459#endif
460
461 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
462
463#if RK5_ENABLED
464 PURE module function getStr_D0_RK5_SK(val, format, length, signed) result(str)
465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
466 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_RK5_SK
467#endif
468 use pm_kind, only: SKO => SK, RKG => RK5
469 real(RKG) , intent(in) :: val
470 character(*, SK) , intent(in) , optional :: format
471 integer(IK) , intent(in) , optional :: length
472 logical(LK) , intent(in) , optional :: signed
473 character(:,SKO) , allocatable :: str
474 end function
475#endif
476
477#if RK4_ENABLED
478 PURE module function getStr_D0_RK4_SK(val, format, length, signed) result(str)
479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
480 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_RK4_SK
481#endif
482 use pm_kind, only: SKO => SK, RKG => RK4
483 real(RKG) , intent(in) :: val
484 character(*, SK) , intent(in) , optional :: format
485 integer(IK) , intent(in) , optional :: length
486 logical(LK) , intent(in) , optional :: signed
487 character(:,SKO) , allocatable :: str
488 end function
489#endif
490
491#if RK3_ENABLED
492 PURE module function getStr_D0_RK3_SK(val, format, length, signed) result(str)
493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
494 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_RK3_SK
495#endif
496 use pm_kind, only: SKO => SK, RKG => RK3
497 real(RKG) , intent(in) :: val
498 character(*, SK) , intent(in) , optional :: format
499 integer(IK) , intent(in) , optional :: length
500 logical(LK) , intent(in) , optional :: signed
501 character(:,SKO) , allocatable :: str
502 end function
503#endif
504
505#if RK2_ENABLED
506 PURE module function getStr_D0_RK2_SK(val, format, length, signed) result(str)
507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
508 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_RK2_SK
509#endif
510 use pm_kind, only: SKO => SK, RKG => RK2
511 real(RKG) , intent(in) :: val
512 character(*, SK) , intent(in) , optional :: format
513 integer(IK) , intent(in) , optional :: length
514 logical(LK) , intent(in) , optional :: signed
515 character(:,SKO) , allocatable :: str
516 end function
517#endif
518
519#if RK1_ENABLED
520 PURE module function getStr_D0_RK1_SK(val, format, length, signed) result(str)
521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
522 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_RK1_SK
523#endif
524 use pm_kind, only: SKO => SK, RKG => RK1
525 real(RKG) , intent(in) :: val
526 character(*, SK) , intent(in) , optional :: format
527 integer(IK) , intent(in) , optional :: length
528 logical(LK) , intent(in) , optional :: signed
529 character(:,SKO) , allocatable :: str
530 end function
531#endif
532
533 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
534
535#if PDT_ENABLED
536
537#if SK5_ENABLED
538 PURE module function getStr_D0_PSSK5_SK(val, format, length, signed) result(str)
539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
540 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_PSSK5_SK
541#endif
542 use pm_container, only: css_pdt
543 use pm_kind, only: SKO => SK, SKG => SK5
544 type(css_pdt(SKG)) , intent(in) :: val
545 character(*, SK) , intent(in) , optional :: format
546 integer(IK) , intent(in) , optional :: length
547 logical(LK) , intent(in) , optional :: signed
548 character(:,SKO) , allocatable :: str
549 end function
550#endif
551
552#if SK4_ENABLED
553 PURE module function getStr_D0_PSSK4_SK(val, format, length, signed) result(str)
554#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
555 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_PSSK4_SK
556#endif
557 use pm_container, only: css_pdt
558 use pm_kind, only: SKO => SK, SKG => SK4
559 type(css_pdt(SKG)) , intent(in) :: val
560 character(*, SK) , intent(in) , optional :: format
561 integer(IK) , intent(in) , optional :: length
562 logical(LK) , intent(in) , optional :: signed
563 character(:,SKO) , allocatable :: str
564 end function
565#endif
566
567#if SK3_ENABLED
568 PURE module function getStr_D0_PSSK3_SK(val, format, length, signed) result(str)
569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
570 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_PSSK3_SK
571#endif
572 use pm_container, only: css_pdt
573 use pm_kind, only: SKO => SK, SKG => SK3
574 type(css_pdt(SKG)) , intent(in) :: val
575 character(*, SK) , intent(in) , optional :: format
576 integer(IK) , intent(in) , optional :: length
577 logical(LK) , intent(in) , optional :: signed
578 character(:,SKO) , allocatable :: str
579 end function
580#endif
581
582#if SK2_ENABLED
583 PURE module function getStr_D0_PSSK2_SK(val, format, length, signed) result(str)
584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
585 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_PSSK2_SK
586#endif
587 use pm_container, only: css_pdt
588 use pm_kind, only: SKO => SK, SKG => SK2
589 type(css_pdt(SKG)) , intent(in) :: val
590 character(*, SK) , intent(in) , optional :: format
591 integer(IK) , intent(in) , optional :: length
592 logical(LK) , intent(in) , optional :: signed
593 character(:,SKO) , allocatable :: str
594 end function
595#endif
596
597#if SK1_ENABLED
598 PURE module function getStr_D0_PSSK1_SK(val, format, length, signed) result(str)
599#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
600 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_PSSK1_SK
601#endif
602 use pm_container, only: css_pdt
603 use pm_kind, only: SKO => SK, SKG => SK1
604 type(css_pdt(SKG)) , intent(in) :: val
605 character(*, SK) , intent(in) , optional :: format
606 integer(IK) , intent(in) , optional :: length
607 logical(LK) , intent(in) , optional :: signed
608 character(:,SKO) , allocatable :: str
609 end function
610#endif
611
612#endif
613!PDT_ENABLED
614
615 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
616
617 PURE module function getStr_D0_BSSK_SK(val, format, length, signed) result(str)
618#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
619 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D0_BSSK_SK
620#endif
621 use pm_container, only: css_type
622 use pm_kind, only: SKO => SK, SKG => SK1
623 type(css_type) , intent(in) :: val
624 character(*, SK) , intent(in) , optional :: format
625 integer(IK) , intent(in) , optional :: length
626 logical(LK) , intent(in) , optional :: signed
627 character(:,SKO) , allocatable :: str
628 end function
629
630 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
631
632 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
633 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
634 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
635
636 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
637
638#if SK5_ENABLED
639 PURE module function getStr_D1_SK5_SK(val, format, length, signed) result(str)
640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
641 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_SK5_SK
642#endif
643 use pm_kind, only: SKO => SK, SKG => SK5
644 character(*,SKG), target, intent(in) , contiguous :: val(:)
645 character(*, SK) , intent(in) , optional :: format
646 integer(IK) , intent(in) , optional :: length
647 logical(LK) , intent(in) , optional :: signed
648 character(:,SKO) , allocatable :: str
649 end function
650#endif
651
652#if SK4_ENABLED
653 PURE module function getStr_D1_SK4_SK(val, format, length, signed) result(str)
654#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
655 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_SK4_SK
656#endif
657 use pm_kind, only: SKO => SK, SKG => SK4
658 character(*,SKG), target, intent(in) , contiguous :: val(:)
659 character(*, SK) , intent(in) , optional :: format
660 integer(IK) , intent(in) , optional :: length
661 logical(LK) , intent(in) , optional :: signed
662 character(:,SKO) , allocatable :: str
663 end function
664#endif
665
666#if SK3_ENABLED
667 PURE module function getStr_D1_SK3_SK(val, format, length, signed) result(str)
668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
669 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_SK3_SK
670#endif
671 use pm_kind, only: SKO => SK, SKG => SK3
672 character(*,SKG), target, intent(in) , contiguous :: val(:)
673 character(*, SK) , intent(in) , optional :: format
674 integer(IK) , intent(in) , optional :: length
675 logical(LK) , intent(in) , optional :: signed
676 character(:,SKO) , allocatable :: str
677 end function
678#endif
679
680#if SK2_ENABLED
681 PURE module function getStr_D1_SK2_SK(val, format, length, signed) result(str)
682#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
683 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_SK2_SK
684#endif
685 use pm_kind, only: SKO => SK, SKG => SK2
686 character(*,SKG), target, intent(in) , contiguous :: val(:)
687 character(*, SK) , intent(in) , optional :: format
688 integer(IK) , intent(in) , optional :: length
689 logical(LK) , intent(in) , optional :: signed
690 character(:,SKO) , allocatable :: str
691 end function
692#endif
693
694#if SK1_ENABLED
695 PURE module function getStr_D1_SK1_SK(val, format, length, signed) result(str)
696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
697 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_SK1_SK
698#endif
699 use pm_kind, only: SKO => SK, SKG => SK1
700 character(*,SKG), target, intent(in) , contiguous :: val(:)
701 character(*, SK) , intent(in) , optional :: format
702 integer(IK) , intent(in) , optional :: length
703 logical(LK) , intent(in) , optional :: signed
704 character(:,SKO) , allocatable :: str
705 end function
706#endif
707
708 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
709
710#if IK5_ENABLED
711 PURE module function getStr_D1_IK5_SK(val, format, length, signed) result(str)
712#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
713 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_IK5_SK
714#endif
715 use pm_kind, only: SKO => SK, IKG => IK5
716 integer(IKG) , intent(in) , contiguous :: val(:)
717 character(*, SK) , intent(in) , optional :: format
718 integer(IK) , intent(in) , optional :: length
719 logical(LK) , intent(in) , optional :: signed
720 character(:,SKO) , allocatable :: str
721 end function
722#endif
723
724#if IK4_ENABLED
725 PURE module function getStr_D1_IK4_SK(val, format, length, signed) result(str)
726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
727 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_IK4_SK
728#endif
729 use pm_kind, only: SKO => SK, IKG => IK4
730 integer(IKG) , intent(in) , contiguous :: val(:)
731 character(*, SK) , intent(in) , optional :: format
732 integer(IK) , intent(in) , optional :: length
733 logical(LK) , intent(in) , optional :: signed
734 character(:,SKO) , allocatable :: str
735 end function
736#endif
737
738#if IK3_ENABLED
739 PURE module function getStr_D1_IK3_SK(val, format, length, signed) result(str)
740#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
741 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_IK3_SK
742#endif
743 use pm_kind, only: SKO => SK, IKG => IK3
744 integer(IKG) , intent(in) , contiguous :: val(:)
745 character(*, SK) , intent(in) , optional :: format
746 integer(IK) , intent(in) , optional :: length
747 logical(LK) , intent(in) , optional :: signed
748 character(:,SKO) , allocatable :: str
749 end function
750#endif
751
752#if IK2_ENABLED
753 PURE module function getStr_D1_IK2_SK(val, format, length, signed) result(str)
754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
755 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_IK2_SK
756#endif
757 use pm_kind, only: SKO => SK, IKG => IK2
758 integer(IKG) , intent(in) , contiguous :: val(:)
759 character(*, SK) , intent(in) , optional :: format
760 integer(IK) , intent(in) , optional :: length
761 logical(LK) , intent(in) , optional :: signed
762 character(:,SKO) , allocatable :: str
763 end function
764#endif
765
766#if IK1_ENABLED
767 PURE module function getStr_D1_IK1_SK(val, format, length, signed) result(str)
768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
769 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_IK1_SK
770#endif
771 use pm_kind, only: SKO => SK, IKG => IK1
772 integer(IKG) , intent(in) , contiguous :: val(:)
773 character(*, SK) , intent(in) , optional :: format
774 integer(IK) , intent(in) , optional :: length
775 logical(LK) , intent(in) , optional :: signed
776 character(:,SKO) , allocatable :: str
777 end function
778#endif
779
780 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
781
782#if LK5_ENABLED
783 PURE module function getStr_D1_LK5_SK(val, format, length, signed) result(str)
784#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
785 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_LK5_SK
786#endif
787 use pm_kind, only: SKO => SK, LKG => LK5
788 logical(LKG) , intent(in) , contiguous :: val(:)
789 character(*, SK) , intent(in) , optional :: format
790 integer(IK) , intent(in) , optional :: length
791 logical(LK) , intent(in) , optional :: signed
792 character(:,SKO) , allocatable :: str
793 end function
794#endif
795
796#if LK4_ENABLED
797 PURE module function getStr_D1_LK4_SK(val, format, length, signed) result(str)
798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
799 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_LK4_SK
800#endif
801 use pm_kind, only: SKO => SK, LKG => LK4
802 logical(LKG) , intent(in) , contiguous :: val(:)
803 character(*, SK) , intent(in) , optional :: format
804 integer(IK) , intent(in) , optional :: length
805 logical(LK) , intent(in) , optional :: signed
806 character(:,SKO) , allocatable :: str
807 end function
808#endif
809
810#if LK3_ENABLED
811 PURE module function getStr_D1_LK3_SK(val, format, length, signed) result(str)
812#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
813 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_LK3_SK
814#endif
815 use pm_kind, only: SKO => SK, LKG => LK3
816 logical(LKG) , intent(in) , contiguous :: val(:)
817 character(*, SK) , intent(in) , optional :: format
818 integer(IK) , intent(in) , optional :: length
819 logical(LK) , intent(in) , optional :: signed
820 character(:,SKO) , allocatable :: str
821 end function
822#endif
823
824#if LK2_ENABLED
825 PURE module function getStr_D1_LK2_SK(val, format, length, signed) result(str)
826#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
827 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_LK2_SK
828#endif
829 use pm_kind, only: SKO => SK, LKG => LK2
830 logical(LKG) , intent(in) , contiguous :: val(:)
831 character(*, SK) , intent(in) , optional :: format
832 integer(IK) , intent(in) , optional :: length
833 logical(LK) , intent(in) , optional :: signed
834 character(:,SKO) , allocatable :: str
835 end function
836#endif
837
838#if LK1_ENABLED
839 PURE module function getStr_D1_LK1_SK(val, format, length, signed) result(str)
840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
841 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_LK1_SK
842#endif
843 use pm_kind, only: SKO => SK, LKG => LK1
844 logical(LKG) , intent(in) , contiguous :: val(:)
845 character(*, SK) , intent(in) , optional :: format
846 integer(IK) , intent(in) , optional :: length
847 logical(LK) , intent(in) , optional :: signed
848 character(:,SKO) , allocatable :: str
849 end function
850#endif
851
852 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
853
854#if CK5_ENABLED
855 PURE module function getStr_D1_CK5_SK(val, format, length, signed) result(str)
856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
857 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_CK5_SK
858#endif
859 use pm_kind, only: SKO => SK, CKG => CK5
860 complex(CKG) , intent(in) , contiguous :: val(:)
861 character(*, SK) , intent(in) , optional :: format
862 integer(IK) , intent(in) , optional :: length
863 logical(LK) , intent(in) , optional :: signed
864 character(:,SKO) , allocatable :: str
865 end function
866#endif
867
868#if CK4_ENABLED
869 PURE module function getStr_D1_CK4_SK(val, format, length, signed) result(str)
870#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
871 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_CK4_SK
872#endif
873 use pm_kind, only: SKO => SK, CKG => CK4
874 complex(CKG) , intent(in) , contiguous :: val(:)
875 character(*, SK) , intent(in) , optional :: format
876 integer(IK) , intent(in) , optional :: length
877 logical(LK) , intent(in) , optional :: signed
878 character(:,SKO) , allocatable :: str
879 end function
880#endif
881
882#if CK3_ENABLED
883 PURE module function getStr_D1_CK3_SK(val, format, length, signed) result(str)
884#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
885 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_CK3_SK
886#endif
887 use pm_kind, only: SKO => SK, CKG => CK3
888 complex(CKG) , intent(in) , contiguous :: val(:)
889 character(*, SK) , intent(in) , optional :: format
890 integer(IK) , intent(in) , optional :: length
891 logical(LK) , intent(in) , optional :: signed
892 character(:,SKO) , allocatable :: str
893 end function
894#endif
895
896#if CK2_ENABLED
897 PURE module function getStr_D1_CK2_SK(val, format, length, signed) result(str)
898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
899 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_CK2_SK
900#endif
901 use pm_kind, only: SKO => SK, CKG => CK2
902 complex(CKG) , intent(in) , contiguous :: val(:)
903 character(*, SK) , intent(in) , optional :: format
904 integer(IK) , intent(in) , optional :: length
905 logical(LK) , intent(in) , optional :: signed
906 character(:,SKO) , allocatable :: str
907 end function
908#endif
909
910#if CK1_ENABLED
911 PURE module function getStr_D1_CK1_SK(val, format, length, signed) result(str)
912#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
913 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_CK1_SK
914#endif
915 use pm_kind, only: SKO => SK, CKG => CK1
916 complex(CKG) , intent(in) , contiguous :: val(:)
917 character(*, SK) , intent(in) , optional :: format
918 integer(IK) , intent(in) , optional :: length
919 logical(LK) , intent(in) , optional :: signed
920 character(:,SKO) , allocatable :: str
921 end function
922#endif
923
924 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
925
926#if RK5_ENABLED
927 PURE module function getStr_D1_RK5_SK(val, format, length, signed) result(str)
928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
929 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_RK5_SK
930#endif
931 use pm_kind, only: SKO => SK, RKG => RK5
932 real(RKG) , intent(in) , contiguous :: val(:)
933 character(*, SK) , intent(in) , optional :: format
934 integer(IK) , intent(in) , optional :: length
935 logical(LK) , intent(in) , optional :: signed
936 character(:,SKO) , allocatable :: str
937 end function
938#endif
939
940#if RK4_ENABLED
941 PURE module function getStr_D1_RK4_SK(val, format, length, signed) result(str)
942#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
943 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_RK4_SK
944#endif
945 use pm_kind, only: SKO => SK, RKG => RK4
946 real(RKG) , intent(in) , contiguous :: val(:)
947 character(*, SK) , intent(in) , optional :: format
948 integer(IK) , intent(in) , optional :: length
949 logical(LK) , intent(in) , optional :: signed
950 character(:,SKO) , allocatable :: str
951 end function
952#endif
953
954#if RK3_ENABLED
955 PURE module function getStr_D1_RK3_SK(val, format, length, signed) result(str)
956#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
957 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_RK3_SK
958#endif
959 use pm_kind, only: SKO => SK, RKG => RK3
960 real(RKG) , intent(in) , contiguous :: val(:)
961 character(*, SK) , intent(in) , optional :: format
962 integer(IK) , intent(in) , optional :: length
963 logical(LK) , intent(in) , optional :: signed
964 character(:,SKO) , allocatable :: str
965 end function
966#endif
967
968#if RK2_ENABLED
969 PURE module function getStr_D1_RK2_SK(val, format, length, signed) result(str)
970#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
971 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_RK2_SK
972#endif
973 use pm_kind, only: SKO => SK, RKG => RK2
974 real(RKG) , intent(in) , contiguous :: val(:)
975 character(*, SK) , intent(in) , optional :: format
976 integer(IK) , intent(in) , optional :: length
977 logical(LK) , intent(in) , optional :: signed
978 character(:,SKO) , allocatable :: str
979 end function
980#endif
981
982#if RK1_ENABLED
983 PURE module function getStr_D1_RK1_SK(val, format, length, signed) result(str)
984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
985 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_RK1_SK
986#endif
987 use pm_kind, only: SKO => SK, RKG => RK1
988 real(RKG) , intent(in) , contiguous :: val(:)
989 character(*, SK) , intent(in) , optional :: format
990 integer(IK) , intent(in) , optional :: length
991 logical(LK) , intent(in) , optional :: signed
992 character(:,SKO) , allocatable :: str
993 end function
994#endif
995
996 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
997
998#if PDT_ENABLED
999
1000#if SK5_ENABLED
1001 PURE module function getStr_D1_PSSK5_SK(val, format, length, signed) result(str)
1002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1003 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_PSSK5_SK
1004#endif
1005 use pm_container, only: css_pdt
1006 use pm_kind, only: SKO => SK, SKG => SK5
1007 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
1008 character(*, SK) , intent(in) , optional :: format
1009 integer(IK) , intent(in) , optional :: length
1010 logical(LK) , intent(in) , optional :: signed
1011 character(:,SKO) , allocatable :: str
1012 end function
1013#endif
1014
1015#if SK4_ENABLED
1016 PURE module function getStr_D1_PSSK4_SK(val, format, length, signed) result(str)
1017#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1018 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_PSSK4_SK
1019#endif
1020 use pm_container, only: css_pdt
1021 use pm_kind, only: SKO => SK, SKG => SK4
1022 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
1023 character(*, SK) , intent(in) , optional :: format
1024 integer(IK) , intent(in) , optional :: length
1025 logical(LK) , intent(in) , optional :: signed
1026 character(:,SKO) , allocatable :: str
1027 end function
1028#endif
1029
1030#if SK3_ENABLED
1031 PURE module function getStr_D1_PSSK3_SK(val, format, length, signed) result(str)
1032#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1033 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_PSSK3_SK
1034#endif
1035 use pm_container, only: css_pdt
1036 use pm_kind, only: SKO => SK, SKG => SK3
1037 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
1038 character(*, SK) , intent(in) , optional :: format
1039 integer(IK) , intent(in) , optional :: length
1040 logical(LK) , intent(in) , optional :: signed
1041 character(:,SKO) , allocatable :: str
1042 end function
1043#endif
1044
1045#if SK2_ENABLED
1046 PURE module function getStr_D1_PSSK2_SK(val, format, length, signed) result(str)
1047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1048 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_PSSK2_SK
1049#endif
1050 use pm_container, only: css_pdt
1051 use pm_kind, only: SKO => SK, SKG => SK2
1052 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
1053 character(*, SK) , intent(in) , optional :: format
1054 integer(IK) , intent(in) , optional :: length
1055 logical(LK) , intent(in) , optional :: signed
1056 character(:,SKO) , allocatable :: str
1057 end function
1058#endif
1059
1060#if SK1_ENABLED
1061 PURE module function getStr_D1_PSSK1_SK(val, format, length, signed) result(str)
1062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1063 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_PSSK1_SK
1064#endif
1065 use pm_container, only: css_pdt
1066 use pm_kind, only: SKO => SK, SKG => SK1
1067 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
1068 character(*, SK) , intent(in) , optional :: format
1069 integer(IK) , intent(in) , optional :: length
1070 logical(LK) , intent(in) , optional :: signed
1071 character(:,SKO) , allocatable :: str
1072 end function
1073#endif
1074
1075#endif
1076!PDT_ENABLED
1077
1078 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1079
1080 PURE module function getStr_D1_BSSK_SK(val, format, length, signed) result(str)
1081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1082 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D1_BSSK_SK
1083#endif
1084 use pm_container, only: css_type
1085 use pm_kind, only: SKO => SK, SKG => SK1
1086 type(css_type) , intent(in) , contiguous :: val(:)
1087 character(*, SK) , intent(in) , optional :: format
1088 integer(IK) , intent(in) , optional :: length
1089 logical(LK) , intent(in) , optional :: signed
1090 character(:,SKO) , allocatable :: str
1091 end function
1092
1093 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1094
1095 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1096 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1097 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1098
1099 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1100
1101#if SK5_ENABLED
1102 PURE module function getStr_D2_SK5_SK(val, format, length, signed) result(str)
1103#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1104 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_SK5_SK
1105#endif
1106 use pm_kind, only: SKO => SK, SKG => SK5
1107 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
1108 character(*, SK) , intent(in) , optional :: format
1109 integer(IK) , intent(in) , optional :: length
1110 logical(LK) , intent(in) , optional :: signed
1111 character(:,SKO) , allocatable :: str
1112 end function
1113#endif
1114
1115#if SK4_ENABLED
1116 PURE module function getStr_D2_SK4_SK(val, format, length, signed) result(str)
1117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1118 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_SK4_SK
1119#endif
1120 use pm_kind, only: SKO => SK, SKG => SK4
1121 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
1122 character(*, SK) , intent(in) , optional :: format
1123 integer(IK) , intent(in) , optional :: length
1124 logical(LK) , intent(in) , optional :: signed
1125 character(:,SKO) , allocatable :: str
1126 end function
1127#endif
1128
1129#if SK3_ENABLED
1130 PURE module function getStr_D2_SK3_SK(val, format, length, signed) result(str)
1131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1132 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_SK3_SK
1133#endif
1134 use pm_kind, only: SKO => SK, SKG => SK3
1135 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
1136 character(*, SK) , intent(in) , optional :: format
1137 integer(IK) , intent(in) , optional :: length
1138 logical(LK) , intent(in) , optional :: signed
1139 character(:,SKO) , allocatable :: str
1140 end function
1141#endif
1142
1143#if SK2_ENABLED
1144 PURE module function getStr_D2_SK2_SK(val, format, length, signed) result(str)
1145#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1146 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_SK2_SK
1147#endif
1148 use pm_kind, only: SKO => SK, SKG => SK2
1149 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
1150 character(*, SK) , intent(in) , optional :: format
1151 integer(IK) , intent(in) , optional :: length
1152 logical(LK) , intent(in) , optional :: signed
1153 character(:,SKO) , allocatable :: str
1154 end function
1155#endif
1156
1157#if SK1_ENABLED
1158 PURE module function getStr_D2_SK1_SK(val, format, length, signed) result(str)
1159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1160 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_SK1_SK
1161#endif
1162 use pm_kind, only: SKO => SK, SKG => SK1
1163 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
1164 character(*, SK) , intent(in) , optional :: format
1165 integer(IK) , intent(in) , optional :: length
1166 logical(LK) , intent(in) , optional :: signed
1167 character(:,SKO) , allocatable :: str
1168 end function
1169#endif
1170
1171 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1172
1173#if IK5_ENABLED
1174 PURE module function getStr_D2_IK5_SK(val, format, length, signed) result(str)
1175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1176 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_IK5_SK
1177#endif
1178 use pm_kind, only: SKO => SK, IKG => IK5
1179 integer(IKG) , intent(in) , contiguous :: val(:,:)
1180 character(*, SK) , intent(in) , optional :: format
1181 integer(IK) , intent(in) , optional :: length
1182 logical(LK) , intent(in) , optional :: signed
1183 character(:,SKO) , allocatable :: str
1184 end function
1185#endif
1186
1187#if IK4_ENABLED
1188 PURE module function getStr_D2_IK4_SK(val, format, length, signed) result(str)
1189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1190 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_IK4_SK
1191#endif
1192 use pm_kind, only: SKO => SK, IKG => IK4
1193 integer(IKG) , intent(in) , contiguous :: val(:,:)
1194 character(*, SK) , intent(in) , optional :: format
1195 integer(IK) , intent(in) , optional :: length
1196 logical(LK) , intent(in) , optional :: signed
1197 character(:,SKO) , allocatable :: str
1198 end function
1199#endif
1200
1201#if IK3_ENABLED
1202 PURE module function getStr_D2_IK3_SK(val, format, length, signed) result(str)
1203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1204 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_IK3_SK
1205#endif
1206 use pm_kind, only: SKO => SK, IKG => IK3
1207 integer(IKG) , intent(in) , contiguous :: val(:,:)
1208 character(*, SK) , intent(in) , optional :: format
1209 integer(IK) , intent(in) , optional :: length
1210 logical(LK) , intent(in) , optional :: signed
1211 character(:,SKO) , allocatable :: str
1212 end function
1213#endif
1214
1215#if IK2_ENABLED
1216 PURE module function getStr_D2_IK2_SK(val, format, length, signed) result(str)
1217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1218 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_IK2_SK
1219#endif
1220 use pm_kind, only: SKO => SK, IKG => IK2
1221 integer(IKG) , intent(in) , contiguous :: val(:,:)
1222 character(*, SK) , intent(in) , optional :: format
1223 integer(IK) , intent(in) , optional :: length
1224 logical(LK) , intent(in) , optional :: signed
1225 character(:,SKO) , allocatable :: str
1226 end function
1227#endif
1228
1229#if IK1_ENABLED
1230 PURE module function getStr_D2_IK1_SK(val, format, length, signed) result(str)
1231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1232 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_IK1_SK
1233#endif
1234 use pm_kind, only: SKO => SK, IKG => IK1
1235 integer(IKG) , intent(in) , contiguous :: val(:,:)
1236 character(*, SK) , intent(in) , optional :: format
1237 integer(IK) , intent(in) , optional :: length
1238 logical(LK) , intent(in) , optional :: signed
1239 character(:,SKO) , allocatable :: str
1240 end function
1241#endif
1242
1243 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1244
1245#if LK5_ENABLED
1246 PURE module function getStr_D2_LK5_SK(val, format, length, signed) result(str)
1247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1248 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_LK5_SK
1249#endif
1250 use pm_kind, only: SKO => SK, LKG => LK5
1251 logical(LKG) , intent(in) , contiguous :: val(:,:)
1252 character(*, SK) , intent(in) , optional :: format
1253 integer(IK) , intent(in) , optional :: length
1254 logical(LK) , intent(in) , optional :: signed
1255 character(:,SKO) , allocatable :: str
1256 end function
1257#endif
1258
1259#if LK4_ENABLED
1260 PURE module function getStr_D2_LK4_SK(val, format, length, signed) result(str)
1261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1262 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_LK4_SK
1263#endif
1264 use pm_kind, only: SKO => SK, LKG => LK4
1265 logical(LKG) , intent(in) , contiguous :: val(:,:)
1266 character(*, SK) , intent(in) , optional :: format
1267 integer(IK) , intent(in) , optional :: length
1268 logical(LK) , intent(in) , optional :: signed
1269 character(:,SKO) , allocatable :: str
1270 end function
1271#endif
1272
1273#if LK3_ENABLED
1274 PURE module function getStr_D2_LK3_SK(val, format, length, signed) result(str)
1275#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1276 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_LK3_SK
1277#endif
1278 use pm_kind, only: SKO => SK, LKG => LK3
1279 logical(LKG) , intent(in) , contiguous :: val(:,:)
1280 character(*, SK) , intent(in) , optional :: format
1281 integer(IK) , intent(in) , optional :: length
1282 logical(LK) , intent(in) , optional :: signed
1283 character(:,SKO) , allocatable :: str
1284 end function
1285#endif
1286
1287#if LK2_ENABLED
1288 PURE module function getStr_D2_LK2_SK(val, format, length, signed) result(str)
1289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1290 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_LK2_SK
1291#endif
1292 use pm_kind, only: SKO => SK, LKG => LK2
1293 logical(LKG) , intent(in) , contiguous :: val(:,:)
1294 character(*, SK) , intent(in) , optional :: format
1295 integer(IK) , intent(in) , optional :: length
1296 logical(LK) , intent(in) , optional :: signed
1297 character(:,SKO) , allocatable :: str
1298 end function
1299#endif
1300
1301#if LK1_ENABLED
1302 PURE module function getStr_D2_LK1_SK(val, format, length, signed) result(str)
1303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1304 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_LK1_SK
1305#endif
1306 use pm_kind, only: SKO => SK, LKG => LK1
1307 logical(LKG) , intent(in) , contiguous :: val(:,:)
1308 character(*, SK) , intent(in) , optional :: format
1309 integer(IK) , intent(in) , optional :: length
1310 logical(LK) , intent(in) , optional :: signed
1311 character(:,SKO) , allocatable :: str
1312 end function
1313#endif
1314
1315 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1316
1317#if CK5_ENABLED
1318 PURE module function getStr_D2_CK5_SK(val, format, length, signed) result(str)
1319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1320 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_CK5_SK
1321#endif
1322 use pm_kind, only: SKO => SK, CKG => CK5
1323 complex(CKG) , intent(in) , contiguous :: val(:,:)
1324 character(*, SK) , intent(in) , optional :: format
1325 integer(IK) , intent(in) , optional :: length
1326 logical(LK) , intent(in) , optional :: signed
1327 character(:,SKO) , allocatable :: str
1328 end function
1329#endif
1330
1331#if CK4_ENABLED
1332 PURE module function getStr_D2_CK4_SK(val, format, length, signed) result(str)
1333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1334 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_CK4_SK
1335#endif
1336 use pm_kind, only: SKO => SK, CKG => CK4
1337 complex(CKG) , intent(in) , contiguous :: val(:,:)
1338 character(*, SK) , intent(in) , optional :: format
1339 integer(IK) , intent(in) , optional :: length
1340 logical(LK) , intent(in) , optional :: signed
1341 character(:,SKO) , allocatable :: str
1342 end function
1343#endif
1344
1345#if CK3_ENABLED
1346 PURE module function getStr_D2_CK3_SK(val, format, length, signed) result(str)
1347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1348 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_CK3_SK
1349#endif
1350 use pm_kind, only: SKO => SK, CKG => CK3
1351 complex(CKG) , intent(in) , contiguous :: val(:,:)
1352 character(*, SK) , intent(in) , optional :: format
1353 integer(IK) , intent(in) , optional :: length
1354 logical(LK) , intent(in) , optional :: signed
1355 character(:,SKO) , allocatable :: str
1356 end function
1357#endif
1358
1359#if CK2_ENABLED
1360 PURE module function getStr_D2_CK2_SK(val, format, length, signed) result(str)
1361#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1362 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_CK2_SK
1363#endif
1364 use pm_kind, only: SKO => SK, CKG => CK2
1365 complex(CKG) , intent(in) , contiguous :: val(:,:)
1366 character(*, SK) , intent(in) , optional :: format
1367 integer(IK) , intent(in) , optional :: length
1368 logical(LK) , intent(in) , optional :: signed
1369 character(:,SKO) , allocatable :: str
1370 end function
1371#endif
1372
1373#if CK1_ENABLED
1374 PURE module function getStr_D2_CK1_SK(val, format, length, signed) result(str)
1375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1376 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_CK1_SK
1377#endif
1378 use pm_kind, only: SKO => SK, CKG => CK1
1379 complex(CKG) , intent(in) , contiguous :: val(:,:)
1380 character(*, SK) , intent(in) , optional :: format
1381 integer(IK) , intent(in) , optional :: length
1382 logical(LK) , intent(in) , optional :: signed
1383 character(:,SKO) , allocatable :: str
1384 end function
1385#endif
1386
1387 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1388
1389#if RK5_ENABLED
1390 PURE module function getStr_D2_RK5_SK(val, format, length, signed) result(str)
1391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1392 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_RK5_SK
1393#endif
1394 use pm_kind, only: SKO => SK, RKG => RK5
1395 real(RKG) , intent(in) , contiguous :: val(:,:)
1396 character(*, SK) , intent(in) , optional :: format
1397 integer(IK) , intent(in) , optional :: length
1398 logical(LK) , intent(in) , optional :: signed
1399 character(:,SKO) , allocatable :: str
1400 end function
1401#endif
1402
1403#if RK4_ENABLED
1404 PURE module function getStr_D2_RK4_SK(val, format, length, signed) result(str)
1405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1406 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_RK4_SK
1407#endif
1408 use pm_kind, only: SKO => SK, RKG => RK4
1409 real(RKG) , intent(in) , contiguous :: val(:,:)
1410 character(*, SK) , intent(in) , optional :: format
1411 integer(IK) , intent(in) , optional :: length
1412 logical(LK) , intent(in) , optional :: signed
1413 character(:,SKO) , allocatable :: str
1414 end function
1415#endif
1416
1417#if RK3_ENABLED
1418 PURE module function getStr_D2_RK3_SK(val, format, length, signed) result(str)
1419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1420 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_RK3_SK
1421#endif
1422 use pm_kind, only: SKO => SK, RKG => RK3
1423 real(RKG) , intent(in) , contiguous :: val(:,:)
1424 character(*, SK) , intent(in) , optional :: format
1425 integer(IK) , intent(in) , optional :: length
1426 logical(LK) , intent(in) , optional :: signed
1427 character(:,SKO) , allocatable :: str
1428 end function
1429#endif
1430
1431#if RK2_ENABLED
1432 PURE module function getStr_D2_RK2_SK(val, format, length, signed) result(str)
1433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1434 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_RK2_SK
1435#endif
1436 use pm_kind, only: SKO => SK, RKG => RK2
1437 real(RKG) , intent(in) , contiguous :: val(:,:)
1438 character(*, SK) , intent(in) , optional :: format
1439 integer(IK) , intent(in) , optional :: length
1440 logical(LK) , intent(in) , optional :: signed
1441 character(:,SKO) , allocatable :: str
1442 end function
1443#endif
1444
1445#if RK1_ENABLED
1446 PURE module function getStr_D2_RK1_SK(val, format, length, signed) result(str)
1447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1448 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_RK1_SK
1449#endif
1450 use pm_kind, only: SKO => SK, RKG => RK1
1451 real(RKG) , intent(in) , contiguous :: val(:,:)
1452 character(*, SK) , intent(in) , optional :: format
1453 integer(IK) , intent(in) , optional :: length
1454 logical(LK) , intent(in) , optional :: signed
1455 character(:,SKO) , allocatable :: str
1456 end function
1457#endif
1458
1459 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1460
1461#if PDT_ENABLED
1462
1463#if SK5_ENABLED
1464 PURE module function getStr_D2_PSSK5_SK(val, format, length, signed) result(str)
1465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1466 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_PSSK5_SK
1467#endif
1468 use pm_container, only: css_pdt
1469 use pm_kind, only: SKO => SK, SKG => SK5
1470 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
1471 character(*, SK) , intent(in) , optional :: format
1472 integer(IK) , intent(in) , optional :: length
1473 logical(LK) , intent(in) , optional :: signed
1474 character(:,SKO) , allocatable :: str
1475 end function
1476#endif
1477
1478#if SK4_ENABLED
1479 PURE module function getStr_D2_PSSK4_SK(val, format, length, signed) result(str)
1480#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1481 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_PSSK4_SK
1482#endif
1483 use pm_container, only: css_pdt
1484 use pm_kind, only: SKO => SK, SKG => SK4
1485 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
1486 character(*, SK) , intent(in) , optional :: format
1487 integer(IK) , intent(in) , optional :: length
1488 logical(LK) , intent(in) , optional :: signed
1489 character(:,SKO) , allocatable :: str
1490 end function
1491#endif
1492
1493#if SK3_ENABLED
1494 PURE module function getStr_D2_PSSK3_SK(val, format, length, signed) result(str)
1495#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1496 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_PSSK3_SK
1497#endif
1498 use pm_container, only: css_pdt
1499 use pm_kind, only: SKO => SK, SKG => SK3
1500 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
1501 character(*, SK) , intent(in) , optional :: format
1502 integer(IK) , intent(in) , optional :: length
1503 logical(LK) , intent(in) , optional :: signed
1504 character(:,SKO) , allocatable :: str
1505 end function
1506#endif
1507
1508#if SK2_ENABLED
1509 PURE module function getStr_D2_PSSK2_SK(val, format, length, signed) result(str)
1510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1511 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_PSSK2_SK
1512#endif
1513 use pm_container, only: css_pdt
1514 use pm_kind, only: SKO => SK, SKG => SK2
1515 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
1516 character(*, SK) , intent(in) , optional :: format
1517 integer(IK) , intent(in) , optional :: length
1518 logical(LK) , intent(in) , optional :: signed
1519 character(:,SKO) , allocatable :: str
1520 end function
1521#endif
1522
1523#if SK1_ENABLED
1524 PURE module function getStr_D2_PSSK1_SK(val, format, length, signed) result(str)
1525#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1526 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_PSSK1_SK
1527#endif
1528 use pm_container, only: css_pdt
1529 use pm_kind, only: SKO => SK, SKG => SK1
1530 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
1531 character(*, SK) , intent(in) , optional :: format
1532 integer(IK) , intent(in) , optional :: length
1533 logical(LK) , intent(in) , optional :: signed
1534 character(:,SKO) , allocatable :: str
1535 end function
1536#endif
1537
1538#endif
1539!PDT_ENABLED
1540
1541 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1542
1543 PURE module function getStr_D2_BSSK_SK(val, format, length, signed) result(str)
1544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1545 !DEC$ ATTRIBUTES DLLEXPORT :: getStr_D2_BSSK_SK
1546#endif
1547 use pm_container, only: css_type
1548 use pm_kind, only: SKO => SK, SKG => SK1
1549 type(css_type) , intent(in) , contiguous :: val(:,:)
1550 character(*, SK) , intent(in) , optional :: format
1551 integer(IK) , intent(in) , optional :: length
1552 logical(LK) , intent(in) , optional :: signed
1553 character(:,SKO) , allocatable :: str
1554 end function
1555
1556 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1557
1558 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1559 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1560 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1561
1562 end interface
1563
1564!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1565
1666
1667 ! SKO => SK5
1668
1669#if SK5_ENABLED
1670 interface setStr
1671
1672 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1673 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1674 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1675
1676 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1677
1678#if SK5_ENABLED
1679 PURE module subroutine setStr_D0_SK5_SK5(str, length, val, format, signed)
1680#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1681 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_SK5_SK5
1682#endif
1683 use pm_kind, only: SKO => SK5, SKG => SK5
1684 character(*,SKG) , intent(in) :: val
1685 character(*, SK) , intent(in) , optional :: format
1686 logical(LK) , intent(in) , optional :: signed
1687 integer(IK) , intent(out) :: length
1688 character(*,SKO) , intent(out) :: str
1689 end subroutine
1690#endif
1691
1692#if SK4_ENABLED
1693 PURE module subroutine setStr_D0_SK4_SK5(str, length, val, format, signed)
1694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1695 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_SK4_SK5
1696#endif
1697 use pm_kind, only: SKO => SK5, SKG => SK4
1698 character(*,SKG) , intent(in) :: val
1699 character(*, SK) , intent(in) , optional :: format
1700 logical(LK) , intent(in) , optional :: signed
1701 integer(IK) , intent(out) :: length
1702 character(*,SKO) , intent(out) :: str
1703 end subroutine
1704#endif
1705
1706#if SK3_ENABLED
1707 PURE module subroutine setStr_D0_SK3_SK5(str, length, val, format, signed)
1708#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1709 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_SK3_SK5
1710#endif
1711 use pm_kind, only: SKO => SK5, SKG => SK3
1712 character(*,SKG) , intent(in) :: val
1713 character(*, SK) , intent(in) , optional :: format
1714 logical(LK) , intent(in) , optional :: signed
1715 integer(IK) , intent(out) :: length
1716 character(*,SKO) , intent(out) :: str
1717 end subroutine
1718#endif
1719
1720#if SK2_ENABLED
1721 PURE module subroutine setStr_D0_SK2_SK5(str, length, val, format, signed)
1722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1723 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_SK2_SK5
1724#endif
1725 use pm_kind, only: SKO => SK5, SKG => SK2
1726 character(*,SKG) , intent(in) :: val
1727 character(*, SK) , intent(in) , optional :: format
1728 logical(LK) , intent(in) , optional :: signed
1729 integer(IK) , intent(out) :: length
1730 character(*,SKO) , intent(out) :: str
1731 end subroutine
1732#endif
1733
1734#if SK1_ENABLED
1735 PURE module subroutine setStr_D0_SK1_SK5(str, length, val, format, signed)
1736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1737 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_SK1_SK5
1738#endif
1739 use pm_kind, only: SKO => SK5, SKG => SK1
1740 character(*,SKG) , intent(in) :: val
1741 character(*, SK) , intent(in) , optional :: format
1742 logical(LK) , intent(in) , optional :: signed
1743 integer(IK) , intent(out) :: length
1744 character(*,SKO) , intent(out) :: str
1745 end subroutine
1746#endif
1747
1748 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1749
1750#if IK5_ENABLED
1751 PURE module subroutine setStr_D0_IK5_SK5(str, length, val, format, signed)
1752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1753 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_IK5_SK5
1754#endif
1755 use pm_kind, only: SKO => SK5, IKG => IK5
1756 integer(IKG) , intent(in) :: val
1757 character(*, SK) , intent(in) , optional :: format
1758 logical(LK) , intent(in) , optional :: signed
1759 integer(IK) , intent(out) :: length
1760 character(*,SKO) , intent(out) :: str
1761 end subroutine
1762#endif
1763
1764#if IK4_ENABLED
1765 PURE module subroutine setStr_D0_IK4_SK5(str, length, val, format, signed)
1766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1767 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_IK4_SK5
1768#endif
1769 use pm_kind, only: SKO => SK5, IKG => IK4
1770 integer(IKG) , intent(in) :: val
1771 character(*, SK) , intent(in) , optional :: format
1772 logical(LK) , intent(in) , optional :: signed
1773 integer(IK) , intent(out) :: length
1774 character(*,SKO) , intent(out) :: str
1775 end subroutine
1776#endif
1777
1778#if IK3_ENABLED
1779 PURE module subroutine setStr_D0_IK3_SK5(str, length, val, format, signed)
1780#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1781 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_IK3_SK5
1782#endif
1783 use pm_kind, only: SKO => SK5, IKG => IK3
1784 integer(IKG) , intent(in) :: val
1785 character(*, SK) , intent(in) , optional :: format
1786 logical(LK) , intent(in) , optional :: signed
1787 integer(IK) , intent(out) :: length
1788 character(*,SKO) , intent(out) :: str
1789 end subroutine
1790#endif
1791
1792#if IK2_ENABLED
1793 PURE module subroutine setStr_D0_IK2_SK5(str, length, val, format, signed)
1794#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1795 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_IK2_SK5
1796#endif
1797 use pm_kind, only: SKO => SK5, IKG => IK2
1798 integer(IKG) , intent(in) :: val
1799 character(*, SK) , intent(in) , optional :: format
1800 logical(LK) , intent(in) , optional :: signed
1801 integer(IK) , intent(out) :: length
1802 character(*,SKO) , intent(out) :: str
1803 end subroutine
1804#endif
1805
1806#if IK1_ENABLED
1807 PURE module subroutine setStr_D0_IK1_SK5(str, length, val, format, signed)
1808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1809 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_IK1_SK5
1810#endif
1811 use pm_kind, only: SKO => SK5, IKG => IK1
1812 integer(IKG) , intent(in) :: val
1813 character(*, SK) , intent(in) , optional :: format
1814 logical(LK) , intent(in) , optional :: signed
1815 integer(IK) , intent(out) :: length
1816 character(*,SKO) , intent(out) :: str
1817 end subroutine
1818#endif
1819
1820 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1821
1822#if LK5_ENABLED
1823 PURE module subroutine setStr_D0_LK5_SK5(str, length, val, format, signed)
1824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1825 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_LK5_SK5
1826#endif
1827 use pm_kind, only: SKO => SK5, LKG => LK5
1828 logical(LKG) , intent(in) :: val
1829 character(*, SK) , intent(in) , optional :: format
1830 logical(LK) , intent(in) , optional :: signed
1831 integer(IK) , intent(out) :: length
1832 character(*,SKO) , intent(out) :: str
1833 end subroutine
1834#endif
1835
1836#if LK4_ENABLED
1837 PURE module subroutine setStr_D0_LK4_SK5(str, length, val, format, signed)
1838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1839 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_LK4_SK5
1840#endif
1841 use pm_kind, only: SKO => SK5, LKG => LK4
1842 logical(LKG) , intent(in) :: val
1843 character(*, SK) , intent(in) , optional :: format
1844 logical(LK) , intent(in) , optional :: signed
1845 integer(IK) , intent(out) :: length
1846 character(*,SKO) , intent(out) :: str
1847 end subroutine
1848#endif
1849
1850#if LK3_ENABLED
1851 PURE module subroutine setStr_D0_LK3_SK5(str, length, val, format, signed)
1852#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1853 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_LK3_SK5
1854#endif
1855 use pm_kind, only: SKO => SK5, LKG => LK3
1856 logical(LKG) , intent(in) :: val
1857 character(*, SK) , intent(in) , optional :: format
1858 logical(LK) , intent(in) , optional :: signed
1859 integer(IK) , intent(out) :: length
1860 character(*,SKO) , intent(out) :: str
1861 end subroutine
1862#endif
1863
1864#if LK2_ENABLED
1865 PURE module subroutine setStr_D0_LK2_SK5(str, length, val, format, signed)
1866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1867 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_LK2_SK5
1868#endif
1869 use pm_kind, only: SKO => SK5, LKG => LK2
1870 logical(LKG) , intent(in) :: val
1871 character(*, SK) , intent(in) , optional :: format
1872 logical(LK) , intent(in) , optional :: signed
1873 integer(IK) , intent(out) :: length
1874 character(*,SKO) , intent(out) :: str
1875 end subroutine
1876#endif
1877
1878#if LK1_ENABLED
1879 PURE module subroutine setStr_D0_LK1_SK5(str, length, val, format, signed)
1880#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1881 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_LK1_SK5
1882#endif
1883 use pm_kind, only: SKO => SK5, LKG => LK1
1884 logical(LKG) , intent(in) :: val
1885 character(*, SK) , intent(in) , optional :: format
1886 logical(LK) , intent(in) , optional :: signed
1887 integer(IK) , intent(out) :: length
1888 character(*,SKO) , intent(out) :: str
1889 end subroutine
1890#endif
1891
1892 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1893
1894#if CK5_ENABLED
1895 PURE module subroutine setStr_D0_CK5_SK5(str, length, val, format, signed)
1896#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1897 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_CK5_SK5
1898#endif
1899 use pm_kind, only: SKO => SK5, CKG => CK5
1900 complex(CKG) , intent(in) :: val
1901 character(*, SK) , intent(in) , optional :: format
1902 logical(LK) , intent(in) , optional :: signed
1903 integer(IK) , intent(out) :: length
1904 character(*,SKO) , intent(out) :: str
1905 end subroutine
1906#endif
1907
1908#if CK4_ENABLED
1909 PURE module subroutine setStr_D0_CK4_SK5(str, length, val, format, signed)
1910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1911 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_CK4_SK5
1912#endif
1913 use pm_kind, only: SKO => SK5, CKG => CK4
1914 complex(CKG) , intent(in) :: val
1915 character(*, SK) , intent(in) , optional :: format
1916 logical(LK) , intent(in) , optional :: signed
1917 integer(IK) , intent(out) :: length
1918 character(*,SKO) , intent(out) :: str
1919 end subroutine
1920#endif
1921
1922#if CK3_ENABLED
1923 PURE module subroutine setStr_D0_CK3_SK5(str, length, val, format, signed)
1924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1925 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_CK3_SK5
1926#endif
1927 use pm_kind, only: SKO => SK5, CKG => CK3
1928 complex(CKG) , intent(in) :: val
1929 character(*, SK) , intent(in) , optional :: format
1930 logical(LK) , intent(in) , optional :: signed
1931 integer(IK) , intent(out) :: length
1932 character(*,SKO) , intent(out) :: str
1933 end subroutine
1934#endif
1935
1936#if CK2_ENABLED
1937 PURE module subroutine setStr_D0_CK2_SK5(str, length, val, format, signed)
1938#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1939 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_CK2_SK5
1940#endif
1941 use pm_kind, only: SKO => SK5, CKG => CK2
1942 complex(CKG) , intent(in) :: val
1943 character(*, SK) , intent(in) , optional :: format
1944 logical(LK) , intent(in) , optional :: signed
1945 integer(IK) , intent(out) :: length
1946 character(*,SKO) , intent(out) :: str
1947 end subroutine
1948#endif
1949
1950#if CK1_ENABLED
1951 PURE module subroutine setStr_D0_CK1_SK5(str, length, val, format, signed)
1952#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1953 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_CK1_SK5
1954#endif
1955 use pm_kind, only: SKO => SK5, CKG => CK1
1956 complex(CKG) , intent(in) :: val
1957 character(*, SK) , intent(in) , optional :: format
1958 logical(LK) , intent(in) , optional :: signed
1959 integer(IK) , intent(out) :: length
1960 character(*,SKO) , intent(out) :: str
1961 end subroutine
1962#endif
1963
1964 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1965
1966#if RK5_ENABLED
1967 PURE module subroutine setStr_D0_RK5_SK5(str, length, val, format, signed)
1968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1969 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_RK5_SK5
1970#endif
1971 use pm_kind, only: SKO => SK5, RKG => RK5
1972 real(RKG) , intent(in) :: val
1973 character(*, SK) , intent(in) , optional :: format
1974 logical(LK) , intent(in) , optional :: signed
1975 integer(IK) , intent(out) :: length
1976 character(*,SKO) , intent(out) :: str
1977 end subroutine
1978#endif
1979
1980#if RK4_ENABLED
1981 PURE module subroutine setStr_D0_RK4_SK5(str, length, val, format, signed)
1982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1983 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_RK4_SK5
1984#endif
1985 use pm_kind, only: SKO => SK5, RKG => RK4
1986 real(RKG) , intent(in) :: val
1987 character(*, SK) , intent(in) , optional :: format
1988 logical(LK) , intent(in) , optional :: signed
1989 integer(IK) , intent(out) :: length
1990 character(*,SKO) , intent(out) :: str
1991 end subroutine
1992#endif
1993
1994#if RK3_ENABLED
1995 PURE module subroutine setStr_D0_RK3_SK5(str, length, val, format, signed)
1996#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1997 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_RK3_SK5
1998#endif
1999 use pm_kind, only: SKO => SK5, RKG => RK3
2000 real(RKG) , intent(in) :: val
2001 character(*, SK) , intent(in) , optional :: format
2002 logical(LK) , intent(in) , optional :: signed
2003 integer(IK) , intent(out) :: length
2004 character(*,SKO) , intent(out) :: str
2005 end subroutine
2006#endif
2007
2008#if RK2_ENABLED
2009 PURE module subroutine setStr_D0_RK2_SK5(str, length, val, format, signed)
2010#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2011 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_RK2_SK5
2012#endif
2013 use pm_kind, only: SKO => SK5, RKG => RK2
2014 real(RKG) , intent(in) :: val
2015 character(*, SK) , intent(in) , optional :: format
2016 logical(LK) , intent(in) , optional :: signed
2017 integer(IK) , intent(out) :: length
2018 character(*,SKO) , intent(out) :: str
2019 end subroutine
2020#endif
2021
2022#if RK1_ENABLED
2023 PURE module subroutine setStr_D0_RK1_SK5(str, length, val, format, signed)
2024#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2025 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_RK1_SK5
2026#endif
2027 use pm_kind, only: SKO => SK5, RKG => RK1
2028 real(RKG) , intent(in) :: val
2029 character(*, SK) , intent(in) , optional :: format
2030 logical(LK) , intent(in) , optional :: signed
2031 integer(IK) , intent(out) :: length
2032 character(*,SKO) , intent(out) :: str
2033 end subroutine
2034#endif
2035
2036 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2037
2038#if PDT_ENABLED
2039
2040#if SK5_ENABLED
2041 PURE module subroutine setStr_D0_PSSK5_SK5(str, length, val, format, signed)
2042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2043 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_PSSK5_SK5
2044#endif
2045 use pm_container, only: css_pdt
2046 use pm_kind, only: SKO => SK5, SKG => SK5
2047 type(css_pdt(SKG)) , intent(in) :: val
2048 character(*, SK) , intent(in) , optional :: format
2049 logical(LK) , intent(in) , optional :: signed
2050 integer(IK) , intent(out) :: length
2051 character(*,SKO) , intent(out) :: str
2052 end subroutine
2053#endif
2054
2055#if SK4_ENABLED
2056 PURE module subroutine setStr_D0_PSSK4_SK5(str, length, val, format, signed)
2057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2058 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_PSSK4_SK5
2059#endif
2060 use pm_container, only: css_pdt
2061 use pm_kind, only: SKO => SK5, SKG => SK4
2062 type(css_pdt(SKG)) , intent(in) :: val
2063 character(*, SK) , intent(in) , optional :: format
2064 logical(LK) , intent(in) , optional :: signed
2065 integer(IK) , intent(out) :: length
2066 character(*,SKO) , intent(out) :: str
2067 end subroutine
2068#endif
2069
2070#if SK3_ENABLED
2071 PURE module subroutine setStr_D0_PSSK3_SK5(str, length, val, format, signed)
2072#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2073 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_PSSK3_SK5
2074#endif
2075 use pm_container, only: css_pdt
2076 use pm_kind, only: SKO => SK5, SKG => SK3
2077 type(css_pdt(SKG)) , intent(in) :: val
2078 character(*, SK) , intent(in) , optional :: format
2079 logical(LK) , intent(in) , optional :: signed
2080 integer(IK) , intent(out) :: length
2081 character(*,SKO) , intent(out) :: str
2082 end subroutine
2083#endif
2084
2085#if SK2_ENABLED
2086 PURE module subroutine setStr_D0_PSSK2_SK5(str, length, val, format, signed)
2087#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2088 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_PSSK2_SK5
2089#endif
2090 use pm_container, only: css_pdt
2091 use pm_kind, only: SKO => SK5, SKG => SK2
2092 type(css_pdt(SKG)) , intent(in) :: val
2093 character(*, SK) , intent(in) , optional :: format
2094 logical(LK) , intent(in) , optional :: signed
2095 integer(IK) , intent(out) :: length
2096 character(*,SKO) , intent(out) :: str
2097 end subroutine
2098#endif
2099
2100#if SK1_ENABLED
2101 PURE module subroutine setStr_D0_PSSK1_SK5(str, length, val, format, signed)
2102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2103 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_PSSK1_SK5
2104#endif
2105 use pm_container, only: css_pdt
2106 use pm_kind, only: SKO => SK5, SKG => SK1
2107 type(css_pdt(SKG)) , intent(in) :: val
2108 character(*, SK) , intent(in) , optional :: format
2109 logical(LK) , intent(in) , optional :: signed
2110 integer(IK) , intent(out) :: length
2111 character(*,SKO) , intent(out) :: str
2112 end subroutine
2113#endif
2114
2115#endif
2116!PDT_ENABLED
2117
2118 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2119
2120 PURE module subroutine setStr_D0_BSSK_SK5(str, length, val, format, signed)
2121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2122 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_BSSK_SK5
2123#endif
2124 use pm_container, only: css_type
2125 use pm_kind, only: SKO => SK5, SKG => SK1
2126 type(css_type) , intent(in) :: val
2127 character(*, SK) , intent(in) , optional :: format
2128 logical(LK) , intent(in) , optional :: signed
2129 integer(IK) , intent(out) :: length
2130 character(*,SKO) , intent(out) :: str
2131 end subroutine
2132
2133 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2134
2135 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2136 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2137 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2138
2139 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2140
2141#if SK5_ENABLED
2142 PURE module subroutine setStr_D1_SK5_SK5(str, length, val, format, signed)
2143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2144 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_SK5_SK5
2145#endif
2146 use pm_kind, only: SKO => SK5, SKG => SK5
2147 character(*,SKG), target, intent(in) , contiguous :: val(:)
2148 character(*, SK) , intent(in) , optional :: format
2149 logical(LK) , intent(in) , optional :: signed
2150 integer(IK) , intent(out) :: length
2151 character(*,SKO) , intent(out) :: str
2152 end subroutine
2153#endif
2154
2155#if SK4_ENABLED
2156 PURE module subroutine setStr_D1_SK4_SK5(str, length, val, format, signed)
2157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2158 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_SK4_SK5
2159#endif
2160 use pm_kind, only: SKO => SK5, SKG => SK4
2161 character(*,SKG), target, intent(in) , contiguous :: val(:)
2162 character(*, SK) , intent(in) , optional :: format
2163 logical(LK) , intent(in) , optional :: signed
2164 integer(IK) , intent(out) :: length
2165 character(*,SKO) , intent(out) :: str
2166 end subroutine
2167#endif
2168
2169#if SK3_ENABLED
2170 PURE module subroutine setStr_D1_SK3_SK5(str, length, val, format, signed)
2171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2172 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_SK3_SK5
2173#endif
2174 use pm_kind, only: SKO => SK5, SKG => SK3
2175 character(*,SKG), target, intent(in) , contiguous :: val(:)
2176 character(*, SK) , intent(in) , optional :: format
2177 logical(LK) , intent(in) , optional :: signed
2178 integer(IK) , intent(out) :: length
2179 character(*,SKO) , intent(out) :: str
2180 end subroutine
2181#endif
2182
2183#if SK2_ENABLED
2184 PURE module subroutine setStr_D1_SK2_SK5(str, length, val, format, signed)
2185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2186 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_SK2_SK5
2187#endif
2188 use pm_kind, only: SKO => SK5, SKG => SK2
2189 character(*,SKG), target, intent(in) , contiguous :: val(:)
2190 character(*, SK) , intent(in) , optional :: format
2191 logical(LK) , intent(in) , optional :: signed
2192 integer(IK) , intent(out) :: length
2193 character(*,SKO) , intent(out) :: str
2194 end subroutine
2195#endif
2196
2197#if SK1_ENABLED
2198 PURE module subroutine setStr_D1_SK1_SK5(str, length, val, format, signed)
2199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2200 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_SK1_SK5
2201#endif
2202 use pm_kind, only: SKO => SK5, SKG => SK1
2203 character(*,SKG), target, intent(in) , contiguous :: val(:)
2204 character(*, SK) , intent(in) , optional :: format
2205 logical(LK) , intent(in) , optional :: signed
2206 integer(IK) , intent(out) :: length
2207 character(*,SKO) , intent(out) :: str
2208 end subroutine
2209#endif
2210
2211 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2212
2213#if IK5_ENABLED
2214 PURE module subroutine setStr_D1_IK5_SK5(str, length, val, format, signed)
2215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2216 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_IK5_SK5
2217#endif
2218 use pm_kind, only: SKO => SK5, IKG => IK5
2219 integer(IKG) , intent(in) , contiguous :: val(:)
2220 character(*, SK) , intent(in) , optional :: format
2221 logical(LK) , intent(in) , optional :: signed
2222 integer(IK) , intent(out) :: length
2223 character(*,SKO) , intent(out) :: str
2224 end subroutine
2225#endif
2226
2227#if IK4_ENABLED
2228 PURE module subroutine setStr_D1_IK4_SK5(str, length, val, format, signed)
2229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2230 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_IK4_SK5
2231#endif
2232 use pm_kind, only: SKO => SK5, IKG => IK4
2233 integer(IKG) , intent(in) , contiguous :: val(:)
2234 character(*, SK) , intent(in) , optional :: format
2235 logical(LK) , intent(in) , optional :: signed
2236 integer(IK) , intent(out) :: length
2237 character(*,SKO) , intent(out) :: str
2238 end subroutine
2239#endif
2240
2241#if IK3_ENABLED
2242 PURE module subroutine setStr_D1_IK3_SK5(str, length, val, format, signed)
2243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2244 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_IK3_SK5
2245#endif
2246 use pm_kind, only: SKO => SK5, IKG => IK3
2247 integer(IKG) , intent(in) , contiguous :: val(:)
2248 character(*, SK) , intent(in) , optional :: format
2249 logical(LK) , intent(in) , optional :: signed
2250 integer(IK) , intent(out) :: length
2251 character(*,SKO) , intent(out) :: str
2252 end subroutine
2253#endif
2254
2255#if IK2_ENABLED
2256 PURE module subroutine setStr_D1_IK2_SK5(str, length, val, format, signed)
2257#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2258 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_IK2_SK5
2259#endif
2260 use pm_kind, only: SKO => SK5, IKG => IK2
2261 integer(IKG) , intent(in) , contiguous :: val(:)
2262 character(*, SK) , intent(in) , optional :: format
2263 logical(LK) , intent(in) , optional :: signed
2264 integer(IK) , intent(out) :: length
2265 character(*,SKO) , intent(out) :: str
2266 end subroutine
2267#endif
2268
2269#if IK1_ENABLED
2270 PURE module subroutine setStr_D1_IK1_SK5(str, length, val, format, signed)
2271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2272 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_IK1_SK5
2273#endif
2274 use pm_kind, only: SKO => SK5, IKG => IK1
2275 integer(IKG) , intent(in) , contiguous :: val(:)
2276 character(*, SK) , intent(in) , optional :: format
2277 logical(LK) , intent(in) , optional :: signed
2278 integer(IK) , intent(out) :: length
2279 character(*,SKO) , intent(out) :: str
2280 end subroutine
2281#endif
2282
2283 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2284
2285#if LK5_ENABLED
2286 PURE module subroutine setStr_D1_LK5_SK5(str, length, val, format, signed)
2287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2288 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_LK5_SK5
2289#endif
2290 use pm_kind, only: SKO => SK5, LKG => LK5
2291 logical(LKG) , intent(in) , contiguous :: val(:)
2292 character(*, SK) , intent(in) , optional :: format
2293 logical(LK) , intent(in) , optional :: signed
2294 integer(IK) , intent(out) :: length
2295 character(*,SKO) , intent(out) :: str
2296 end subroutine
2297#endif
2298
2299#if LK4_ENABLED
2300 PURE module subroutine setStr_D1_LK4_SK5(str, length, val, format, signed)
2301#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2302 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_LK4_SK5
2303#endif
2304 use pm_kind, only: SKO => SK5, LKG => LK4
2305 logical(LKG) , intent(in) , contiguous :: val(:)
2306 character(*, SK) , intent(in) , optional :: format
2307 logical(LK) , intent(in) , optional :: signed
2308 integer(IK) , intent(out) :: length
2309 character(*,SKO) , intent(out) :: str
2310 end subroutine
2311#endif
2312
2313#if LK3_ENABLED
2314 PURE module subroutine setStr_D1_LK3_SK5(str, length, val, format, signed)
2315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2316 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_LK3_SK5
2317#endif
2318 use pm_kind, only: SKO => SK5, LKG => LK3
2319 logical(LKG) , intent(in) , contiguous :: val(:)
2320 character(*, SK) , intent(in) , optional :: format
2321 logical(LK) , intent(in) , optional :: signed
2322 integer(IK) , intent(out) :: length
2323 character(*,SKO) , intent(out) :: str
2324 end subroutine
2325#endif
2326
2327#if LK2_ENABLED
2328 PURE module subroutine setStr_D1_LK2_SK5(str, length, val, format, signed)
2329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2330 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_LK2_SK5
2331#endif
2332 use pm_kind, only: SKO => SK5, LKG => LK2
2333 logical(LKG) , intent(in) , contiguous :: val(:)
2334 character(*, SK) , intent(in) , optional :: format
2335 logical(LK) , intent(in) , optional :: signed
2336 integer(IK) , intent(out) :: length
2337 character(*,SKO) , intent(out) :: str
2338 end subroutine
2339#endif
2340
2341#if LK1_ENABLED
2342 PURE module subroutine setStr_D1_LK1_SK5(str, length, val, format, signed)
2343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2344 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_LK1_SK5
2345#endif
2346 use pm_kind, only: SKO => SK5, LKG => LK1
2347 logical(LKG) , intent(in) , contiguous :: val(:)
2348 character(*, SK) , intent(in) , optional :: format
2349 logical(LK) , intent(in) , optional :: signed
2350 integer(IK) , intent(out) :: length
2351 character(*,SKO) , intent(out) :: str
2352 end subroutine
2353#endif
2354
2355 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2356
2357#if CK5_ENABLED
2358 PURE module subroutine setStr_D1_CK5_SK5(str, length, val, format, signed)
2359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2360 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_CK5_SK5
2361#endif
2362 use pm_kind, only: SKO => SK5, CKG => CK5
2363 complex(CKG) , intent(in) , contiguous :: val(:)
2364 character(*, SK) , intent(in) , optional :: format
2365 logical(LK) , intent(in) , optional :: signed
2366 integer(IK) , intent(out) :: length
2367 character(*,SKO) , intent(out) :: str
2368 end subroutine
2369#endif
2370
2371#if CK4_ENABLED
2372 PURE module subroutine setStr_D1_CK4_SK5(str, length, val, format, signed)
2373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2374 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_CK4_SK5
2375#endif
2376 use pm_kind, only: SKO => SK5, CKG => CK4
2377 complex(CKG) , intent(in) , contiguous :: val(:)
2378 character(*, SK) , intent(in) , optional :: format
2379 logical(LK) , intent(in) , optional :: signed
2380 integer(IK) , intent(out) :: length
2381 character(*,SKO) , intent(out) :: str
2382 end subroutine
2383#endif
2384
2385#if CK3_ENABLED
2386 PURE module subroutine setStr_D1_CK3_SK5(str, length, val, format, signed)
2387#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2388 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_CK3_SK5
2389#endif
2390 use pm_kind, only: SKO => SK5, CKG => CK3
2391 complex(CKG) , intent(in) , contiguous :: val(:)
2392 character(*, SK) , intent(in) , optional :: format
2393 logical(LK) , intent(in) , optional :: signed
2394 integer(IK) , intent(out) :: length
2395 character(*,SKO) , intent(out) :: str
2396 end subroutine
2397#endif
2398
2399#if CK2_ENABLED
2400 PURE module subroutine setStr_D1_CK2_SK5(str, length, val, format, signed)
2401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2402 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_CK2_SK5
2403#endif
2404 use pm_kind, only: SKO => SK5, CKG => CK2
2405 complex(CKG) , intent(in) , contiguous :: val(:)
2406 character(*, SK) , intent(in) , optional :: format
2407 logical(LK) , intent(in) , optional :: signed
2408 integer(IK) , intent(out) :: length
2409 character(*,SKO) , intent(out) :: str
2410 end subroutine
2411#endif
2412
2413#if CK1_ENABLED
2414 PURE module subroutine setStr_D1_CK1_SK5(str, length, val, format, signed)
2415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2416 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_CK1_SK5
2417#endif
2418 use pm_kind, only: SKO => SK5, CKG => CK1
2419 complex(CKG) , intent(in) , contiguous :: val(:)
2420 character(*, SK) , intent(in) , optional :: format
2421 logical(LK) , intent(in) , optional :: signed
2422 integer(IK) , intent(out) :: length
2423 character(*,SKO) , intent(out) :: str
2424 end subroutine
2425#endif
2426
2427 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2428
2429#if RK5_ENABLED
2430 PURE module subroutine setStr_D1_RK5_SK5(str, length, val, format, signed)
2431#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2432 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_RK5_SK5
2433#endif
2434 use pm_kind, only: SKO => SK5, RKG => RK5
2435 real(RKG) , intent(in) , contiguous :: val(:)
2436 character(*, SK) , intent(in) , optional :: format
2437 logical(LK) , intent(in) , optional :: signed
2438 integer(IK) , intent(out) :: length
2439 character(*,SKO) , intent(out) :: str
2440 end subroutine
2441#endif
2442
2443#if RK4_ENABLED
2444 PURE module subroutine setStr_D1_RK4_SK5(str, length, val, format, signed)
2445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2446 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_RK4_SK5
2447#endif
2448 use pm_kind, only: SKO => SK5, RKG => RK4
2449 real(RKG) , intent(in) , contiguous :: val(:)
2450 character(*, SK) , intent(in) , optional :: format
2451 logical(LK) , intent(in) , optional :: signed
2452 integer(IK) , intent(out) :: length
2453 character(*,SKO) , intent(out) :: str
2454 end subroutine
2455#endif
2456
2457#if RK3_ENABLED
2458 PURE module subroutine setStr_D1_RK3_SK5(str, length, val, format, signed)
2459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2460 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_RK3_SK5
2461#endif
2462 use pm_kind, only: SKO => SK5, RKG => RK3
2463 real(RKG) , intent(in) , contiguous :: val(:)
2464 character(*, SK) , intent(in) , optional :: format
2465 logical(LK) , intent(in) , optional :: signed
2466 integer(IK) , intent(out) :: length
2467 character(*,SKO) , intent(out) :: str
2468 end subroutine
2469#endif
2470
2471#if RK2_ENABLED
2472 PURE module subroutine setStr_D1_RK2_SK5(str, length, val, format, signed)
2473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2474 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_RK2_SK5
2475#endif
2476 use pm_kind, only: SKO => SK5, RKG => RK2
2477 real(RKG) , intent(in) , contiguous :: val(:)
2478 character(*, SK) , intent(in) , optional :: format
2479 logical(LK) , intent(in) , optional :: signed
2480 integer(IK) , intent(out) :: length
2481 character(*,SKO) , intent(out) :: str
2482 end subroutine
2483#endif
2484
2485#if RK1_ENABLED
2486 PURE module subroutine setStr_D1_RK1_SK5(str, length, val, format, signed)
2487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2488 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_RK1_SK5
2489#endif
2490 use pm_kind, only: SKO => SK5, RKG => RK1
2491 real(RKG) , intent(in) , contiguous :: val(:)
2492 character(*, SK) , intent(in) , optional :: format
2493 logical(LK) , intent(in) , optional :: signed
2494 integer(IK) , intent(out) :: length
2495 character(*,SKO) , intent(out) :: str
2496 end subroutine
2497#endif
2498
2499 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2500
2501#if PDT_ENABLED
2502
2503#if SK5_ENABLED
2504 PURE module subroutine setStr_D1_PSSK5_SK5(str, length, val, format, signed)
2505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2506 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_PSSK5_SK5
2507#endif
2508 use pm_container, only: css_pdt
2509 use pm_kind, only: SKO => SK5, SKG => SK5
2510 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
2511 character(*, SK) , intent(in) , optional :: format
2512 logical(LK) , intent(in) , optional :: signed
2513 integer(IK) , intent(out) :: length
2514 character(*,SKO) , intent(out) :: str
2515 end subroutine
2516#endif
2517
2518#if SK4_ENABLED
2519 PURE module subroutine setStr_D1_PSSK4_SK5(str, length, val, format, signed)
2520#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2521 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_PSSK4_SK5
2522#endif
2523 use pm_container, only: css_pdt
2524 use pm_kind, only: SKO => SK5, SKG => SK4
2525 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
2526 character(*, SK) , intent(in) , optional :: format
2527 logical(LK) , intent(in) , optional :: signed
2528 integer(IK) , intent(out) :: length
2529 character(*,SKO) , intent(out) :: str
2530 end subroutine
2531#endif
2532
2533#if SK3_ENABLED
2534 PURE module subroutine setStr_D1_PSSK3_SK5(str, length, val, format, signed)
2535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2536 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_PSSK3_SK5
2537#endif
2538 use pm_container, only: css_pdt
2539 use pm_kind, only: SKO => SK5, SKG => SK3
2540 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
2541 character(*, SK) , intent(in) , optional :: format
2542 logical(LK) , intent(in) , optional :: signed
2543 integer(IK) , intent(out) :: length
2544 character(*,SKO) , intent(out) :: str
2545 end subroutine
2546#endif
2547
2548#if SK2_ENABLED
2549 PURE module subroutine setStr_D1_PSSK2_SK5(str, length, val, format, signed)
2550#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2551 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_PSSK2_SK5
2552#endif
2553 use pm_container, only: css_pdt
2554 use pm_kind, only: SKO => SK5, SKG => SK2
2555 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
2556 character(*, SK) , intent(in) , optional :: format
2557 logical(LK) , intent(in) , optional :: signed
2558 integer(IK) , intent(out) :: length
2559 character(*,SKO) , intent(out) :: str
2560 end subroutine
2561#endif
2562
2563#if SK1_ENABLED
2564 PURE module subroutine setStr_D1_PSSK1_SK5(str, length, val, format, signed)
2565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2566 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_PSSK1_SK5
2567#endif
2568 use pm_container, only: css_pdt
2569 use pm_kind, only: SKO => SK5, SKG => SK1
2570 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
2571 character(*, SK) , intent(in) , optional :: format
2572 logical(LK) , intent(in) , optional :: signed
2573 integer(IK) , intent(out) :: length
2574 character(*,SKO) , intent(out) :: str
2575 end subroutine
2576#endif
2577
2578#endif
2579!PDT_ENABLED
2580
2581 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2582
2583 PURE module subroutine setStr_D1_BSSK_SK5(str, length, val, format, signed)
2584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2585 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_BSSK_SK5
2586#endif
2587 use pm_container, only: css_type
2588 use pm_kind, only: SKO => SK5, SKG => SK1
2589 type(css_type) , intent(in) , contiguous :: val(:)
2590 character(*, SK) , intent(in) , optional :: format
2591 logical(LK) , intent(in) , optional :: signed
2592 integer(IK) , intent(out) :: length
2593 character(*,SKO) , intent(out) :: str
2594 end subroutine
2595
2596 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2597
2598 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2599 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2600 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2601
2602 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2603
2604#if SK5_ENABLED
2605 PURE module subroutine setStr_D2_SK5_SK5(str, length, val, format, signed)
2606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2607 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_SK5_SK5
2608#endif
2609 use pm_kind, only: SKO => SK5, SKG => SK5
2610 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
2611 character(*, SK) , intent(in) , optional :: format
2612 logical(LK) , intent(in) , optional :: signed
2613 integer(IK) , intent(out) :: length
2614 character(*,SKO) , intent(out) :: str
2615 end subroutine
2616#endif
2617
2618#if SK4_ENABLED
2619 PURE module subroutine setStr_D2_SK4_SK5(str, length, val, format, signed)
2620#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2621 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_SK4_SK5
2622#endif
2623 use pm_kind, only: SKO => SK5, SKG => SK4
2624 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
2625 character(*, SK) , intent(in) , optional :: format
2626 logical(LK) , intent(in) , optional :: signed
2627 integer(IK) , intent(out) :: length
2628 character(*,SKO) , intent(out) :: str
2629 end subroutine
2630#endif
2631
2632#if SK3_ENABLED
2633 PURE module subroutine setStr_D2_SK3_SK5(str, length, val, format, signed)
2634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2635 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_SK3_SK5
2636#endif
2637 use pm_kind, only: SKO => SK5, SKG => SK3
2638 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
2639 character(*, SK) , intent(in) , optional :: format
2640 logical(LK) , intent(in) , optional :: signed
2641 integer(IK) , intent(out) :: length
2642 character(*,SKO) , intent(out) :: str
2643 end subroutine
2644#endif
2645
2646#if SK2_ENABLED
2647 PURE module subroutine setStr_D2_SK2_SK5(str, length, val, format, signed)
2648#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2649 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_SK2_SK5
2650#endif
2651 use pm_kind, only: SKO => SK5, SKG => SK2
2652 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
2653 character(*, SK) , intent(in) , optional :: format
2654 logical(LK) , intent(in) , optional :: signed
2655 integer(IK) , intent(out) :: length
2656 character(*,SKO) , intent(out) :: str
2657 end subroutine
2658#endif
2659
2660#if SK1_ENABLED
2661 PURE module subroutine setStr_D2_SK1_SK5(str, length, val, format, signed)
2662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2663 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_SK1_SK5
2664#endif
2665 use pm_kind, only: SKO => SK5, SKG => SK1
2666 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
2667 character(*, SK) , intent(in) , optional :: format
2668 logical(LK) , intent(in) , optional :: signed
2669 integer(IK) , intent(out) :: length
2670 character(*,SKO) , intent(out) :: str
2671 end subroutine
2672#endif
2673
2674 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2675
2676#if IK5_ENABLED
2677 PURE module subroutine setStr_D2_IK5_SK5(str, length, val, format, signed)
2678#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2679 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_IK5_SK5
2680#endif
2681 use pm_kind, only: SKO => SK5, IKG => IK5
2682 integer(IKG) , intent(in) , contiguous :: val(:,:)
2683 character(*, SK) , intent(in) , optional :: format
2684 logical(LK) , intent(in) , optional :: signed
2685 integer(IK) , intent(out) :: length
2686 character(*,SKO) , intent(out) :: str
2687 end subroutine
2688#endif
2689
2690#if IK4_ENABLED
2691 PURE module subroutine setStr_D2_IK4_SK5(str, length, val, format, signed)
2692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2693 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_IK4_SK5
2694#endif
2695 use pm_kind, only: SKO => SK5, IKG => IK4
2696 integer(IKG) , intent(in) , contiguous :: val(:,:)
2697 character(*, SK) , intent(in) , optional :: format
2698 logical(LK) , intent(in) , optional :: signed
2699 integer(IK) , intent(out) :: length
2700 character(*,SKO) , intent(out) :: str
2701 end subroutine
2702#endif
2703
2704#if IK3_ENABLED
2705 PURE module subroutine setStr_D2_IK3_SK5(str, length, val, format, signed)
2706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2707 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_IK3_SK5
2708#endif
2709 use pm_kind, only: SKO => SK5, IKG => IK3
2710 integer(IKG) , intent(in) , contiguous :: val(:,:)
2711 character(*, SK) , intent(in) , optional :: format
2712 logical(LK) , intent(in) , optional :: signed
2713 integer(IK) , intent(out) :: length
2714 character(*,SKO) , intent(out) :: str
2715 end subroutine
2716#endif
2717
2718#if IK2_ENABLED
2719 PURE module subroutine setStr_D2_IK2_SK5(str, length, val, format, signed)
2720#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2721 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_IK2_SK5
2722#endif
2723 use pm_kind, only: SKO => SK5, IKG => IK2
2724 integer(IKG) , intent(in) , contiguous :: val(:,:)
2725 character(*, SK) , intent(in) , optional :: format
2726 logical(LK) , intent(in) , optional :: signed
2727 integer(IK) , intent(out) :: length
2728 character(*,SKO) , intent(out) :: str
2729 end subroutine
2730#endif
2731
2732#if IK1_ENABLED
2733 PURE module subroutine setStr_D2_IK1_SK5(str, length, val, format, signed)
2734#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2735 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_IK1_SK5
2736#endif
2737 use pm_kind, only: SKO => SK5, IKG => IK1
2738 integer(IKG) , intent(in) , contiguous :: val(:,:)
2739 character(*, SK) , intent(in) , optional :: format
2740 logical(LK) , intent(in) , optional :: signed
2741 integer(IK) , intent(out) :: length
2742 character(*,SKO) , intent(out) :: str
2743 end subroutine
2744#endif
2745
2746 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2747
2748#if LK5_ENABLED
2749 PURE module subroutine setStr_D2_LK5_SK5(str, length, val, format, signed)
2750#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2751 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_LK5_SK5
2752#endif
2753 use pm_kind, only: SKO => SK5, LKG => LK5
2754 logical(LKG) , intent(in) , contiguous :: val(:,:)
2755 character(*, SK) , intent(in) , optional :: format
2756 logical(LK) , intent(in) , optional :: signed
2757 integer(IK) , intent(out) :: length
2758 character(*,SKO) , intent(out) :: str
2759 end subroutine
2760#endif
2761
2762#if LK4_ENABLED
2763 PURE module subroutine setStr_D2_LK4_SK5(str, length, val, format, signed)
2764#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2765 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_LK4_SK5
2766#endif
2767 use pm_kind, only: SKO => SK5, LKG => LK4
2768 logical(LKG) , intent(in) , contiguous :: val(:,:)
2769 character(*, SK) , intent(in) , optional :: format
2770 logical(LK) , intent(in) , optional :: signed
2771 integer(IK) , intent(out) :: length
2772 character(*,SKO) , intent(out) :: str
2773 end subroutine
2774#endif
2775
2776#if LK3_ENABLED
2777 PURE module subroutine setStr_D2_LK3_SK5(str, length, val, format, signed)
2778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2779 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_LK3_SK5
2780#endif
2781 use pm_kind, only: SKO => SK5, LKG => LK3
2782 logical(LKG) , intent(in) , contiguous :: val(:,:)
2783 character(*, SK) , intent(in) , optional :: format
2784 logical(LK) , intent(in) , optional :: signed
2785 integer(IK) , intent(out) :: length
2786 character(*,SKO) , intent(out) :: str
2787 end subroutine
2788#endif
2789
2790#if LK2_ENABLED
2791 PURE module subroutine setStr_D2_LK2_SK5(str, length, val, format, signed)
2792#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2793 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_LK2_SK5
2794#endif
2795 use pm_kind, only: SKO => SK5, LKG => LK2
2796 logical(LKG) , intent(in) , contiguous :: val(:,:)
2797 character(*, SK) , intent(in) , optional :: format
2798 logical(LK) , intent(in) , optional :: signed
2799 integer(IK) , intent(out) :: length
2800 character(*,SKO) , intent(out) :: str
2801 end subroutine
2802#endif
2803
2804#if LK1_ENABLED
2805 PURE module subroutine setStr_D2_LK1_SK5(str, length, val, format, signed)
2806#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2807 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_LK1_SK5
2808#endif
2809 use pm_kind, only: SKO => SK5, LKG => LK1
2810 logical(LKG) , intent(in) , contiguous :: val(:,:)
2811 character(*, SK) , intent(in) , optional :: format
2812 logical(LK) , intent(in) , optional :: signed
2813 integer(IK) , intent(out) :: length
2814 character(*,SKO) , intent(out) :: str
2815 end subroutine
2816#endif
2817
2818 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2819
2820#if CK5_ENABLED
2821 PURE module subroutine setStr_D2_CK5_SK5(str, length, val, format, signed)
2822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2823 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_CK5_SK5
2824#endif
2825 use pm_kind, only: SKO => SK5, CKG => CK5
2826 complex(CKG) , intent(in) , contiguous :: val(:,:)
2827 character(*, SK) , intent(in) , optional :: format
2828 logical(LK) , intent(in) , optional :: signed
2829 integer(IK) , intent(out) :: length
2830 character(*,SKO) , intent(out) :: str
2831 end subroutine
2832#endif
2833
2834#if CK4_ENABLED
2835 PURE module subroutine setStr_D2_CK4_SK5(str, length, val, format, signed)
2836#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2837 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_CK4_SK5
2838#endif
2839 use pm_kind, only: SKO => SK5, CKG => CK4
2840 complex(CKG) , intent(in) , contiguous :: val(:,:)
2841 character(*, SK) , intent(in) , optional :: format
2842 logical(LK) , intent(in) , optional :: signed
2843 integer(IK) , intent(out) :: length
2844 character(*,SKO) , intent(out) :: str
2845 end subroutine
2846#endif
2847
2848#if CK3_ENABLED
2849 PURE module subroutine setStr_D2_CK3_SK5(str, length, val, format, signed)
2850#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2851 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_CK3_SK5
2852#endif
2853 use pm_kind, only: SKO => SK5, CKG => CK3
2854 complex(CKG) , intent(in) , contiguous :: val(:,:)
2855 character(*, SK) , intent(in) , optional :: format
2856 logical(LK) , intent(in) , optional :: signed
2857 integer(IK) , intent(out) :: length
2858 character(*,SKO) , intent(out) :: str
2859 end subroutine
2860#endif
2861
2862#if CK2_ENABLED
2863 PURE module subroutine setStr_D2_CK2_SK5(str, length, val, format, signed)
2864#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2865 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_CK2_SK5
2866#endif
2867 use pm_kind, only: SKO => SK5, CKG => CK2
2868 complex(CKG) , intent(in) , contiguous :: val(:,:)
2869 character(*, SK) , intent(in) , optional :: format
2870 logical(LK) , intent(in) , optional :: signed
2871 integer(IK) , intent(out) :: length
2872 character(*,SKO) , intent(out) :: str
2873 end subroutine
2874#endif
2875
2876#if CK1_ENABLED
2877 PURE module subroutine setStr_D2_CK1_SK5(str, length, val, format, signed)
2878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2879 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_CK1_SK5
2880#endif
2881 use pm_kind, only: SKO => SK5, CKG => CK1
2882 complex(CKG) , intent(in) , contiguous :: val(:,:)
2883 character(*, SK) , intent(in) , optional :: format
2884 logical(LK) , intent(in) , optional :: signed
2885 integer(IK) , intent(out) :: length
2886 character(*,SKO) , intent(out) :: str
2887 end subroutine
2888#endif
2889
2890 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2891
2892#if RK5_ENABLED
2893 PURE module subroutine setStr_D2_RK5_SK5(str, length, val, format, signed)
2894#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2895 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_RK5_SK5
2896#endif
2897 use pm_kind, only: SKO => SK5, RKG => RK5
2898 real(RKG) , intent(in) , contiguous :: val(:,:)
2899 character(*, SK) , intent(in) , optional :: format
2900 logical(LK) , intent(in) , optional :: signed
2901 integer(IK) , intent(out) :: length
2902 character(*,SKO) , intent(out) :: str
2903 end subroutine
2904#endif
2905
2906#if RK4_ENABLED
2907 PURE module subroutine setStr_D2_RK4_SK5(str, length, val, format, signed)
2908#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2909 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_RK4_SK5
2910#endif
2911 use pm_kind, only: SKO => SK5, RKG => RK4
2912 real(RKG) , intent(in) , contiguous :: val(:,:)
2913 character(*, SK) , intent(in) , optional :: format
2914 logical(LK) , intent(in) , optional :: signed
2915 integer(IK) , intent(out) :: length
2916 character(*,SKO) , intent(out) :: str
2917 end subroutine
2918#endif
2919
2920#if RK3_ENABLED
2921 PURE module subroutine setStr_D2_RK3_SK5(str, length, val, format, signed)
2922#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2923 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_RK3_SK5
2924#endif
2925 use pm_kind, only: SKO => SK5, RKG => RK3
2926 real(RKG) , intent(in) , contiguous :: val(:,:)
2927 character(*, SK) , intent(in) , optional :: format
2928 logical(LK) , intent(in) , optional :: signed
2929 integer(IK) , intent(out) :: length
2930 character(*,SKO) , intent(out) :: str
2931 end subroutine
2932#endif
2933
2934#if RK2_ENABLED
2935 PURE module subroutine setStr_D2_RK2_SK5(str, length, val, format, signed)
2936#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2937 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_RK2_SK5
2938#endif
2939 use pm_kind, only: SKO => SK5, RKG => RK2
2940 real(RKG) , intent(in) , contiguous :: val(:,:)
2941 character(*, SK) , intent(in) , optional :: format
2942 logical(LK) , intent(in) , optional :: signed
2943 integer(IK) , intent(out) :: length
2944 character(*,SKO) , intent(out) :: str
2945 end subroutine
2946#endif
2947
2948#if RK1_ENABLED
2949 PURE module subroutine setStr_D2_RK1_SK5(str, length, val, format, signed)
2950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2951 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_RK1_SK5
2952#endif
2953 use pm_kind, only: SKO => SK5, RKG => RK1
2954 real(RKG) , intent(in) , contiguous :: val(:,:)
2955 character(*, SK) , intent(in) , optional :: format
2956 logical(LK) , intent(in) , optional :: signed
2957 integer(IK) , intent(out) :: length
2958 character(*,SKO) , intent(out) :: str
2959 end subroutine
2960#endif
2961
2962 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2963
2964#if PDT_ENABLED
2965
2966#if SK5_ENABLED
2967 PURE module subroutine setStr_D2_PSSK5_SK5(str, length, val, format, signed)
2968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2969 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_PSSK5_SK5
2970#endif
2971 use pm_container, only: css_pdt
2972 use pm_kind, only: SKO => SK5, SKG => SK5
2973 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
2974 character(*, SK) , intent(in) , optional :: format
2975 logical(LK) , intent(in) , optional :: signed
2976 integer(IK) , intent(out) :: length
2977 character(*,SKO) , intent(out) :: str
2978 end subroutine
2979#endif
2980
2981#if SK4_ENABLED
2982 PURE module subroutine setStr_D2_PSSK4_SK5(str, length, val, format, signed)
2983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2984 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_PSSK4_SK5
2985#endif
2986 use pm_container, only: css_pdt
2987 use pm_kind, only: SKO => SK5, SKG => SK4
2988 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
2989 character(*, SK) , intent(in) , optional :: format
2990 logical(LK) , intent(in) , optional :: signed
2991 integer(IK) , intent(out) :: length
2992 character(*,SKO) , intent(out) :: str
2993 end subroutine
2994#endif
2995
2996#if SK3_ENABLED
2997 PURE module subroutine setStr_D2_PSSK3_SK5(str, length, val, format, signed)
2998#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2999 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_PSSK3_SK5
3000#endif
3001 use pm_container, only: css_pdt
3002 use pm_kind, only: SKO => SK5, SKG => SK3
3003 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
3004 character(*, SK) , intent(in) , optional :: format
3005 logical(LK) , intent(in) , optional :: signed
3006 integer(IK) , intent(out) :: length
3007 character(*,SKO) , intent(out) :: str
3008 end subroutine
3009#endif
3010
3011#if SK2_ENABLED
3012 PURE module subroutine setStr_D2_PSSK2_SK5(str, length, val, format, signed)
3013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3014 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_PSSK2_SK5
3015#endif
3016 use pm_container, only: css_pdt
3017 use pm_kind, only: SKO => SK5, SKG => SK2
3018 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
3019 character(*, SK) , intent(in) , optional :: format
3020 logical(LK) , intent(in) , optional :: signed
3021 integer(IK) , intent(out) :: length
3022 character(*,SKO) , intent(out) :: str
3023 end subroutine
3024#endif
3025
3026#if SK1_ENABLED
3027 PURE module subroutine setStr_D2_PSSK1_SK5(str, length, val, format, signed)
3028#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3029 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_PSSK1_SK5
3030#endif
3031 use pm_container, only: css_pdt
3032 use pm_kind, only: SKO => SK5, SKG => SK1
3033 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
3034 character(*, SK) , intent(in) , optional :: format
3035 logical(LK) , intent(in) , optional :: signed
3036 integer(IK) , intent(out) :: length
3037 character(*,SKO) , intent(out) :: str
3038 end subroutine
3039#endif
3040
3041#endif
3042!PDT_ENABLED
3043
3044 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3045
3046 PURE module subroutine setStr_D2_BSSK_SK5(str, length, val, format, signed)
3047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3048 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_BSSK_SK5
3049#endif
3050 use pm_container, only: css_type
3051 use pm_kind, only: SKO => SK5, SKG => SK1
3052 type(css_type) , intent(in) , contiguous :: val(:,:)
3053 character(*, SK) , intent(in) , optional :: format
3054 logical(LK) , intent(in) , optional :: signed
3055 integer(IK) , intent(out) :: length
3056 character(*,SKO) , intent(out) :: str
3057 end subroutine
3058
3059 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3060
3061 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3062 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3063 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3064
3065 end interface
3066#endif
3067
3068 ! SKO => SK4
3069
3070#if SK4_ENABLED
3071 interface setStr
3072
3073 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3074 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3075 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3076
3077 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3078
3079#if SK5_ENABLED
3080 PURE module subroutine setStr_D0_SK5_SK4(str, length, val, format, signed)
3081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3082 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_SK5_SK4
3083#endif
3084 use pm_kind, only: SKO => SK4, SKG => SK5
3085 character(*,SKG) , intent(in) :: val
3086 character(*, SK) , intent(in) , optional :: format
3087 logical(LK) , intent(in) , optional :: signed
3088 integer(IK) , intent(out) :: length
3089 character(*,SKO) , intent(out) :: str
3090 end subroutine
3091#endif
3092
3093#if SK4_ENABLED
3094 PURE module subroutine setStr_D0_SK4_SK4(str, length, val, format, signed)
3095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3096 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_SK4_SK4
3097#endif
3098 use pm_kind, only: SKO => SK4, SKG => SK4
3099 character(*,SKG) , intent(in) :: val
3100 character(*, SK) , intent(in) , optional :: format
3101 logical(LK) , intent(in) , optional :: signed
3102 integer(IK) , intent(out) :: length
3103 character(*,SKO) , intent(out) :: str
3104 end subroutine
3105#endif
3106
3107#if SK3_ENABLED
3108 PURE module subroutine setStr_D0_SK3_SK4(str, length, val, format, signed)
3109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3110 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_SK3_SK4
3111#endif
3112 use pm_kind, only: SKO => SK4, SKG => SK3
3113 character(*,SKG) , intent(in) :: val
3114 character(*, SK) , intent(in) , optional :: format
3115 logical(LK) , intent(in) , optional :: signed
3116 integer(IK) , intent(out) :: length
3117 character(*,SKO) , intent(out) :: str
3118 end subroutine
3119#endif
3120
3121#if SK2_ENABLED
3122 PURE module subroutine setStr_D0_SK2_SK4(str, length, val, format, signed)
3123#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3124 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_SK2_SK4
3125#endif
3126 use pm_kind, only: SKO => SK4, SKG => SK2
3127 character(*,SKG) , intent(in) :: val
3128 character(*, SK) , intent(in) , optional :: format
3129 logical(LK) , intent(in) , optional :: signed
3130 integer(IK) , intent(out) :: length
3131 character(*,SKO) , intent(out) :: str
3132 end subroutine
3133#endif
3134
3135#if SK1_ENABLED
3136 PURE module subroutine setStr_D0_SK1_SK4(str, length, val, format, signed)
3137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3138 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_SK1_SK4
3139#endif
3140 use pm_kind, only: SKO => SK4, SKG => SK1
3141 character(*,SKG) , intent(in) :: val
3142 character(*, SK) , intent(in) , optional :: format
3143 logical(LK) , intent(in) , optional :: signed
3144 integer(IK) , intent(out) :: length
3145 character(*,SKO) , intent(out) :: str
3146 end subroutine
3147#endif
3148
3149 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3150
3151#if IK5_ENABLED
3152 PURE module subroutine setStr_D0_IK5_SK4(str, length, val, format, signed)
3153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3154 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_IK5_SK4
3155#endif
3156 use pm_kind, only: SKO => SK4, IKG => IK5
3157 integer(IKG) , intent(in) :: val
3158 character(*, SK) , intent(in) , optional :: format
3159 logical(LK) , intent(in) , optional :: signed
3160 integer(IK) , intent(out) :: length
3161 character(*,SKO) , intent(out) :: str
3162 end subroutine
3163#endif
3164
3165#if IK4_ENABLED
3166 PURE module subroutine setStr_D0_IK4_SK4(str, length, val, format, signed)
3167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3168 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_IK4_SK4
3169#endif
3170 use pm_kind, only: SKO => SK4, IKG => IK4
3171 integer(IKG) , intent(in) :: val
3172 character(*, SK) , intent(in) , optional :: format
3173 logical(LK) , intent(in) , optional :: signed
3174 integer(IK) , intent(out) :: length
3175 character(*,SKO) , intent(out) :: str
3176 end subroutine
3177#endif
3178
3179#if IK3_ENABLED
3180 PURE module subroutine setStr_D0_IK3_SK4(str, length, val, format, signed)
3181#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3182 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_IK3_SK4
3183#endif
3184 use pm_kind, only: SKO => SK4, IKG => IK3
3185 integer(IKG) , intent(in) :: val
3186 character(*, SK) , intent(in) , optional :: format
3187 logical(LK) , intent(in) , optional :: signed
3188 integer(IK) , intent(out) :: length
3189 character(*,SKO) , intent(out) :: str
3190 end subroutine
3191#endif
3192
3193#if IK2_ENABLED
3194 PURE module subroutine setStr_D0_IK2_SK4(str, length, val, format, signed)
3195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3196 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_IK2_SK4
3197#endif
3198 use pm_kind, only: SKO => SK4, IKG => IK2
3199 integer(IKG) , intent(in) :: val
3200 character(*, SK) , intent(in) , optional :: format
3201 logical(LK) , intent(in) , optional :: signed
3202 integer(IK) , intent(out) :: length
3203 character(*,SKO) , intent(out) :: str
3204 end subroutine
3205#endif
3206
3207#if IK1_ENABLED
3208 PURE module subroutine setStr_D0_IK1_SK4(str, length, val, format, signed)
3209#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3210 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_IK1_SK4
3211#endif
3212 use pm_kind, only: SKO => SK4, IKG => IK1
3213 integer(IKG) , intent(in) :: val
3214 character(*, SK) , intent(in) , optional :: format
3215 logical(LK) , intent(in) , optional :: signed
3216 integer(IK) , intent(out) :: length
3217 character(*,SKO) , intent(out) :: str
3218 end subroutine
3219#endif
3220
3221 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3222
3223#if LK5_ENABLED
3224 PURE module subroutine setStr_D0_LK5_SK4(str, length, val, format, signed)
3225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3226 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_LK5_SK4
3227#endif
3228 use pm_kind, only: SKO => SK4, LKG => LK5
3229 logical(LKG) , intent(in) :: val
3230 character(*, SK) , intent(in) , optional :: format
3231 logical(LK) , intent(in) , optional :: signed
3232 integer(IK) , intent(out) :: length
3233 character(*,SKO) , intent(out) :: str
3234 end subroutine
3235#endif
3236
3237#if LK4_ENABLED
3238 PURE module subroutine setStr_D0_LK4_SK4(str, length, val, format, signed)
3239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3240 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_LK4_SK4
3241#endif
3242 use pm_kind, only: SKO => SK4, LKG => LK4
3243 logical(LKG) , intent(in) :: val
3244 character(*, SK) , intent(in) , optional :: format
3245 logical(LK) , intent(in) , optional :: signed
3246 integer(IK) , intent(out) :: length
3247 character(*,SKO) , intent(out) :: str
3248 end subroutine
3249#endif
3250
3251#if LK3_ENABLED
3252 PURE module subroutine setStr_D0_LK3_SK4(str, length, val, format, signed)
3253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3254 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_LK3_SK4
3255#endif
3256 use pm_kind, only: SKO => SK4, LKG => LK3
3257 logical(LKG) , intent(in) :: val
3258 character(*, SK) , intent(in) , optional :: format
3259 logical(LK) , intent(in) , optional :: signed
3260 integer(IK) , intent(out) :: length
3261 character(*,SKO) , intent(out) :: str
3262 end subroutine
3263#endif
3264
3265#if LK2_ENABLED
3266 PURE module subroutine setStr_D0_LK2_SK4(str, length, val, format, signed)
3267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3268 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_LK2_SK4
3269#endif
3270 use pm_kind, only: SKO => SK4, LKG => LK2
3271 logical(LKG) , intent(in) :: val
3272 character(*, SK) , intent(in) , optional :: format
3273 logical(LK) , intent(in) , optional :: signed
3274 integer(IK) , intent(out) :: length
3275 character(*,SKO) , intent(out) :: str
3276 end subroutine
3277#endif
3278
3279#if LK1_ENABLED
3280 PURE module subroutine setStr_D0_LK1_SK4(str, length, val, format, signed)
3281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3282 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_LK1_SK4
3283#endif
3284 use pm_kind, only: SKO => SK4, LKG => LK1
3285 logical(LKG) , intent(in) :: val
3286 character(*, SK) , intent(in) , optional :: format
3287 logical(LK) , intent(in) , optional :: signed
3288 integer(IK) , intent(out) :: length
3289 character(*,SKO) , intent(out) :: str
3290 end subroutine
3291#endif
3292
3293 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3294
3295#if CK5_ENABLED
3296 PURE module subroutine setStr_D0_CK5_SK4(str, length, val, format, signed)
3297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3298 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_CK5_SK4
3299#endif
3300 use pm_kind, only: SKO => SK4, CKG => CK5
3301 complex(CKG) , intent(in) :: val
3302 character(*, SK) , intent(in) , optional :: format
3303 logical(LK) , intent(in) , optional :: signed
3304 integer(IK) , intent(out) :: length
3305 character(*,SKO) , intent(out) :: str
3306 end subroutine
3307#endif
3308
3309#if CK4_ENABLED
3310 PURE module subroutine setStr_D0_CK4_SK4(str, length, val, format, signed)
3311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3312 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_CK4_SK4
3313#endif
3314 use pm_kind, only: SKO => SK4, CKG => CK4
3315 complex(CKG) , intent(in) :: val
3316 character(*, SK) , intent(in) , optional :: format
3317 logical(LK) , intent(in) , optional :: signed
3318 integer(IK) , intent(out) :: length
3319 character(*,SKO) , intent(out) :: str
3320 end subroutine
3321#endif
3322
3323#if CK3_ENABLED
3324 PURE module subroutine setStr_D0_CK3_SK4(str, length, val, format, signed)
3325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3326 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_CK3_SK4
3327#endif
3328 use pm_kind, only: SKO => SK4, CKG => CK3
3329 complex(CKG) , intent(in) :: val
3330 character(*, SK) , intent(in) , optional :: format
3331 logical(LK) , intent(in) , optional :: signed
3332 integer(IK) , intent(out) :: length
3333 character(*,SKO) , intent(out) :: str
3334 end subroutine
3335#endif
3336
3337#if CK2_ENABLED
3338 PURE module subroutine setStr_D0_CK2_SK4(str, length, val, format, signed)
3339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3340 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_CK2_SK4
3341#endif
3342 use pm_kind, only: SKO => SK4, CKG => CK2
3343 complex(CKG) , intent(in) :: val
3344 character(*, SK) , intent(in) , optional :: format
3345 logical(LK) , intent(in) , optional :: signed
3346 integer(IK) , intent(out) :: length
3347 character(*,SKO) , intent(out) :: str
3348 end subroutine
3349#endif
3350
3351#if CK1_ENABLED
3352 PURE module subroutine setStr_D0_CK1_SK4(str, length, val, format, signed)
3353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3354 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_CK1_SK4
3355#endif
3356 use pm_kind, only: SKO => SK4, CKG => CK1
3357 complex(CKG) , intent(in) :: val
3358 character(*, SK) , intent(in) , optional :: format
3359 logical(LK) , intent(in) , optional :: signed
3360 integer(IK) , intent(out) :: length
3361 character(*,SKO) , intent(out) :: str
3362 end subroutine
3363#endif
3364
3365 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3366
3367#if RK5_ENABLED
3368 PURE module subroutine setStr_D0_RK5_SK4(str, length, val, format, signed)
3369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3370 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_RK5_SK4
3371#endif
3372 use pm_kind, only: SKO => SK4, RKG => RK5
3373 real(RKG) , intent(in) :: val
3374 character(*, SK) , intent(in) , optional :: format
3375 logical(LK) , intent(in) , optional :: signed
3376 integer(IK) , intent(out) :: length
3377 character(*,SKO) , intent(out) :: str
3378 end subroutine
3379#endif
3380
3381#if RK4_ENABLED
3382 PURE module subroutine setStr_D0_RK4_SK4(str, length, val, format, signed)
3383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3384 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_RK4_SK4
3385#endif
3386 use pm_kind, only: SKO => SK4, RKG => RK4
3387 real(RKG) , intent(in) :: val
3388 character(*, SK) , intent(in) , optional :: format
3389 logical(LK) , intent(in) , optional :: signed
3390 integer(IK) , intent(out) :: length
3391 character(*,SKO) , intent(out) :: str
3392 end subroutine
3393#endif
3394
3395#if RK3_ENABLED
3396 PURE module subroutine setStr_D0_RK3_SK4(str, length, val, format, signed)
3397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3398 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_RK3_SK4
3399#endif
3400 use pm_kind, only: SKO => SK4, RKG => RK3
3401 real(RKG) , intent(in) :: val
3402 character(*, SK) , intent(in) , optional :: format
3403 logical(LK) , intent(in) , optional :: signed
3404 integer(IK) , intent(out) :: length
3405 character(*,SKO) , intent(out) :: str
3406 end subroutine
3407#endif
3408
3409#if RK2_ENABLED
3410 PURE module subroutine setStr_D0_RK2_SK4(str, length, val, format, signed)
3411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3412 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_RK2_SK4
3413#endif
3414 use pm_kind, only: SKO => SK4, RKG => RK2
3415 real(RKG) , intent(in) :: val
3416 character(*, SK) , intent(in) , optional :: format
3417 logical(LK) , intent(in) , optional :: signed
3418 integer(IK) , intent(out) :: length
3419 character(*,SKO) , intent(out) :: str
3420 end subroutine
3421#endif
3422
3423#if RK1_ENABLED
3424 PURE module subroutine setStr_D0_RK1_SK4(str, length, val, format, signed)
3425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3426 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_RK1_SK4
3427#endif
3428 use pm_kind, only: SKO => SK4, RKG => RK1
3429 real(RKG) , intent(in) :: val
3430 character(*, SK) , intent(in) , optional :: format
3431 logical(LK) , intent(in) , optional :: signed
3432 integer(IK) , intent(out) :: length
3433 character(*,SKO) , intent(out) :: str
3434 end subroutine
3435#endif
3436
3437 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3438
3439#if PDT_ENABLED
3440
3441#if SK5_ENABLED
3442 PURE module subroutine setStr_D0_PSSK5_SK4(str, length, val, format, signed)
3443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3444 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_PSSK5_SK4
3445#endif
3446 use pm_container, only: css_pdt
3447 use pm_kind, only: SKO => SK4, SKG => SK5
3448 type(css_pdt(SKG)) , intent(in) :: val
3449 character(*, SK) , intent(in) , optional :: format
3450 logical(LK) , intent(in) , optional :: signed
3451 integer(IK) , intent(out) :: length
3452 character(*,SKO) , intent(out) :: str
3453 end subroutine
3454#endif
3455
3456#if SK4_ENABLED
3457 PURE module subroutine setStr_D0_PSSK4_SK4(str, length, val, format, signed)
3458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3459 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_PSSK4_SK4
3460#endif
3461 use pm_container, only: css_pdt
3462 use pm_kind, only: SKO => SK4, SKG => SK4
3463 type(css_pdt(SKG)) , intent(in) :: val
3464 character(*, SK) , intent(in) , optional :: format
3465 logical(LK) , intent(in) , optional :: signed
3466 integer(IK) , intent(out) :: length
3467 character(*,SKO) , intent(out) :: str
3468 end subroutine
3469#endif
3470
3471#if SK3_ENABLED
3472 PURE module subroutine setStr_D0_PSSK3_SK4(str, length, val, format, signed)
3473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3474 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_PSSK3_SK4
3475#endif
3476 use pm_container, only: css_pdt
3477 use pm_kind, only: SKO => SK4, SKG => SK3
3478 type(css_pdt(SKG)) , intent(in) :: val
3479 character(*, SK) , intent(in) , optional :: format
3480 logical(LK) , intent(in) , optional :: signed
3481 integer(IK) , intent(out) :: length
3482 character(*,SKO) , intent(out) :: str
3483 end subroutine
3484#endif
3485
3486#if SK2_ENABLED
3487 PURE module subroutine setStr_D0_PSSK2_SK4(str, length, val, format, signed)
3488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3489 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_PSSK2_SK4
3490#endif
3491 use pm_container, only: css_pdt
3492 use pm_kind, only: SKO => SK4, SKG => SK2
3493 type(css_pdt(SKG)) , intent(in) :: val
3494 character(*, SK) , intent(in) , optional :: format
3495 logical(LK) , intent(in) , optional :: signed
3496 integer(IK) , intent(out) :: length
3497 character(*,SKO) , intent(out) :: str
3498 end subroutine
3499#endif
3500
3501#if SK1_ENABLED
3502 PURE module subroutine setStr_D0_PSSK1_SK4(str, length, val, format, signed)
3503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3504 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_PSSK1_SK4
3505#endif
3506 use pm_container, only: css_pdt
3507 use pm_kind, only: SKO => SK4, SKG => SK1
3508 type(css_pdt(SKG)) , intent(in) :: val
3509 character(*, SK) , intent(in) , optional :: format
3510 logical(LK) , intent(in) , optional :: signed
3511 integer(IK) , intent(out) :: length
3512 character(*,SKO) , intent(out) :: str
3513 end subroutine
3514#endif
3515
3516#endif
3517!PDT_ENABLED
3518
3519 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3520
3521 PURE module subroutine setStr_D0_BSSK_SK4(str, length, val, format, signed)
3522#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3523 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_BSSK_SK4
3524#endif
3525 use pm_container, only: css_type
3526 use pm_kind, only: SKO => SK4, SKG => SK1
3527 type(css_type) , intent(in) :: val
3528 character(*, SK) , intent(in) , optional :: format
3529 logical(LK) , intent(in) , optional :: signed
3530 integer(IK) , intent(out) :: length
3531 character(*,SKO) , intent(out) :: str
3532 end subroutine
3533
3534 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3535
3536 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3537 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3538 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3539
3540 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3541
3542#if SK5_ENABLED
3543 PURE module subroutine setStr_D1_SK5_SK4(str, length, val, format, signed)
3544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3545 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_SK5_SK4
3546#endif
3547 use pm_kind, only: SKO => SK4, SKG => SK5
3548 character(*,SKG), target, intent(in) , contiguous :: val(:)
3549 character(*, SK) , intent(in) , optional :: format
3550 logical(LK) , intent(in) , optional :: signed
3551 integer(IK) , intent(out) :: length
3552 character(*,SKO) , intent(out) :: str
3553 end subroutine
3554#endif
3555
3556#if SK4_ENABLED
3557 PURE module subroutine setStr_D1_SK4_SK4(str, length, val, format, signed)
3558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3559 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_SK4_SK4
3560#endif
3561 use pm_kind, only: SKO => SK4, SKG => SK4
3562 character(*,SKG), target, intent(in) , contiguous :: val(:)
3563 character(*, SK) , intent(in) , optional :: format
3564 logical(LK) , intent(in) , optional :: signed
3565 integer(IK) , intent(out) :: length
3566 character(*,SKO) , intent(out) :: str
3567 end subroutine
3568#endif
3569
3570#if SK3_ENABLED
3571 PURE module subroutine setStr_D1_SK3_SK4(str, length, val, format, signed)
3572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3573 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_SK3_SK4
3574#endif
3575 use pm_kind, only: SKO => SK4, SKG => SK3
3576 character(*,SKG), target, intent(in) , contiguous :: val(:)
3577 character(*, SK) , intent(in) , optional :: format
3578 logical(LK) , intent(in) , optional :: signed
3579 integer(IK) , intent(out) :: length
3580 character(*,SKO) , intent(out) :: str
3581 end subroutine
3582#endif
3583
3584#if SK2_ENABLED
3585 PURE module subroutine setStr_D1_SK2_SK4(str, length, val, format, signed)
3586#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3587 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_SK2_SK4
3588#endif
3589 use pm_kind, only: SKO => SK4, SKG => SK2
3590 character(*,SKG), target, intent(in) , contiguous :: val(:)
3591 character(*, SK) , intent(in) , optional :: format
3592 logical(LK) , intent(in) , optional :: signed
3593 integer(IK) , intent(out) :: length
3594 character(*,SKO) , intent(out) :: str
3595 end subroutine
3596#endif
3597
3598#if SK1_ENABLED
3599 PURE module subroutine setStr_D1_SK1_SK4(str, length, val, format, signed)
3600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3601 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_SK1_SK4
3602#endif
3603 use pm_kind, only: SKO => SK4, SKG => SK1
3604 character(*,SKG), target, intent(in) , contiguous :: val(:)
3605 character(*, SK) , intent(in) , optional :: format
3606 logical(LK) , intent(in) , optional :: signed
3607 integer(IK) , intent(out) :: length
3608 character(*,SKO) , intent(out) :: str
3609 end subroutine
3610#endif
3611
3612 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3613
3614#if IK5_ENABLED
3615 PURE module subroutine setStr_D1_IK5_SK4(str, length, val, format, signed)
3616#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3617 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_IK5_SK4
3618#endif
3619 use pm_kind, only: SKO => SK4, IKG => IK5
3620 integer(IKG) , intent(in) , contiguous :: val(:)
3621 character(*, SK) , intent(in) , optional :: format
3622 logical(LK) , intent(in) , optional :: signed
3623 integer(IK) , intent(out) :: length
3624 character(*,SKO) , intent(out) :: str
3625 end subroutine
3626#endif
3627
3628#if IK4_ENABLED
3629 PURE module subroutine setStr_D1_IK4_SK4(str, length, val, format, signed)
3630#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3631 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_IK4_SK4
3632#endif
3633 use pm_kind, only: SKO => SK4, IKG => IK4
3634 integer(IKG) , intent(in) , contiguous :: val(:)
3635 character(*, SK) , intent(in) , optional :: format
3636 logical(LK) , intent(in) , optional :: signed
3637 integer(IK) , intent(out) :: length
3638 character(*,SKO) , intent(out) :: str
3639 end subroutine
3640#endif
3641
3642#if IK3_ENABLED
3643 PURE module subroutine setStr_D1_IK3_SK4(str, length, val, format, signed)
3644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3645 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_IK3_SK4
3646#endif
3647 use pm_kind, only: SKO => SK4, IKG => IK3
3648 integer(IKG) , intent(in) , contiguous :: val(:)
3649 character(*, SK) , intent(in) , optional :: format
3650 logical(LK) , intent(in) , optional :: signed
3651 integer(IK) , intent(out) :: length
3652 character(*,SKO) , intent(out) :: str
3653 end subroutine
3654#endif
3655
3656#if IK2_ENABLED
3657 PURE module subroutine setStr_D1_IK2_SK4(str, length, val, format, signed)
3658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3659 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_IK2_SK4
3660#endif
3661 use pm_kind, only: SKO => SK4, IKG => IK2
3662 integer(IKG) , intent(in) , contiguous :: val(:)
3663 character(*, SK) , intent(in) , optional :: format
3664 logical(LK) , intent(in) , optional :: signed
3665 integer(IK) , intent(out) :: length
3666 character(*,SKO) , intent(out) :: str
3667 end subroutine
3668#endif
3669
3670#if IK1_ENABLED
3671 PURE module subroutine setStr_D1_IK1_SK4(str, length, val, format, signed)
3672#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3673 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_IK1_SK4
3674#endif
3675 use pm_kind, only: SKO => SK4, IKG => IK1
3676 integer(IKG) , intent(in) , contiguous :: val(:)
3677 character(*, SK) , intent(in) , optional :: format
3678 logical(LK) , intent(in) , optional :: signed
3679 integer(IK) , intent(out) :: length
3680 character(*,SKO) , intent(out) :: str
3681 end subroutine
3682#endif
3683
3684 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3685
3686#if LK5_ENABLED
3687 PURE module subroutine setStr_D1_LK5_SK4(str, length, val, format, signed)
3688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3689 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_LK5_SK4
3690#endif
3691 use pm_kind, only: SKO => SK4, LKG => LK5
3692 logical(LKG) , intent(in) , contiguous :: val(:)
3693 character(*, SK) , intent(in) , optional :: format
3694 logical(LK) , intent(in) , optional :: signed
3695 integer(IK) , intent(out) :: length
3696 character(*,SKO) , intent(out) :: str
3697 end subroutine
3698#endif
3699
3700#if LK4_ENABLED
3701 PURE module subroutine setStr_D1_LK4_SK4(str, length, val, format, signed)
3702#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3703 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_LK4_SK4
3704#endif
3705 use pm_kind, only: SKO => SK4, LKG => LK4
3706 logical(LKG) , intent(in) , contiguous :: val(:)
3707 character(*, SK) , intent(in) , optional :: format
3708 logical(LK) , intent(in) , optional :: signed
3709 integer(IK) , intent(out) :: length
3710 character(*,SKO) , intent(out) :: str
3711 end subroutine
3712#endif
3713
3714#if LK3_ENABLED
3715 PURE module subroutine setStr_D1_LK3_SK4(str, length, val, format, signed)
3716#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3717 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_LK3_SK4
3718#endif
3719 use pm_kind, only: SKO => SK4, LKG => LK3
3720 logical(LKG) , intent(in) , contiguous :: val(:)
3721 character(*, SK) , intent(in) , optional :: format
3722 logical(LK) , intent(in) , optional :: signed
3723 integer(IK) , intent(out) :: length
3724 character(*,SKO) , intent(out) :: str
3725 end subroutine
3726#endif
3727
3728#if LK2_ENABLED
3729 PURE module subroutine setStr_D1_LK2_SK4(str, length, val, format, signed)
3730#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3731 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_LK2_SK4
3732#endif
3733 use pm_kind, only: SKO => SK4, LKG => LK2
3734 logical(LKG) , intent(in) , contiguous :: val(:)
3735 character(*, SK) , intent(in) , optional :: format
3736 logical(LK) , intent(in) , optional :: signed
3737 integer(IK) , intent(out) :: length
3738 character(*,SKO) , intent(out) :: str
3739 end subroutine
3740#endif
3741
3742#if LK1_ENABLED
3743 PURE module subroutine setStr_D1_LK1_SK4(str, length, val, format, signed)
3744#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3745 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_LK1_SK4
3746#endif
3747 use pm_kind, only: SKO => SK4, LKG => LK1
3748 logical(LKG) , intent(in) , contiguous :: val(:)
3749 character(*, SK) , intent(in) , optional :: format
3750 logical(LK) , intent(in) , optional :: signed
3751 integer(IK) , intent(out) :: length
3752 character(*,SKO) , intent(out) :: str
3753 end subroutine
3754#endif
3755
3756 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3757
3758#if CK5_ENABLED
3759 PURE module subroutine setStr_D1_CK5_SK4(str, length, val, format, signed)
3760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3761 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_CK5_SK4
3762#endif
3763 use pm_kind, only: SKO => SK4, CKG => CK5
3764 complex(CKG) , intent(in) , contiguous :: val(:)
3765 character(*, SK) , intent(in) , optional :: format
3766 logical(LK) , intent(in) , optional :: signed
3767 integer(IK) , intent(out) :: length
3768 character(*,SKO) , intent(out) :: str
3769 end subroutine
3770#endif
3771
3772#if CK4_ENABLED
3773 PURE module subroutine setStr_D1_CK4_SK4(str, length, val, format, signed)
3774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3775 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_CK4_SK4
3776#endif
3777 use pm_kind, only: SKO => SK4, CKG => CK4
3778 complex(CKG) , intent(in) , contiguous :: val(:)
3779 character(*, SK) , intent(in) , optional :: format
3780 logical(LK) , intent(in) , optional :: signed
3781 integer(IK) , intent(out) :: length
3782 character(*,SKO) , intent(out) :: str
3783 end subroutine
3784#endif
3785
3786#if CK3_ENABLED
3787 PURE module subroutine setStr_D1_CK3_SK4(str, length, val, format, signed)
3788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3789 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_CK3_SK4
3790#endif
3791 use pm_kind, only: SKO => SK4, CKG => CK3
3792 complex(CKG) , intent(in) , contiguous :: val(:)
3793 character(*, SK) , intent(in) , optional :: format
3794 logical(LK) , intent(in) , optional :: signed
3795 integer(IK) , intent(out) :: length
3796 character(*,SKO) , intent(out) :: str
3797 end subroutine
3798#endif
3799
3800#if CK2_ENABLED
3801 PURE module subroutine setStr_D1_CK2_SK4(str, length, val, format, signed)
3802#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3803 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_CK2_SK4
3804#endif
3805 use pm_kind, only: SKO => SK4, CKG => CK2
3806 complex(CKG) , intent(in) , contiguous :: val(:)
3807 character(*, SK) , intent(in) , optional :: format
3808 logical(LK) , intent(in) , optional :: signed
3809 integer(IK) , intent(out) :: length
3810 character(*,SKO) , intent(out) :: str
3811 end subroutine
3812#endif
3813
3814#if CK1_ENABLED
3815 PURE module subroutine setStr_D1_CK1_SK4(str, length, val, format, signed)
3816#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3817 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_CK1_SK4
3818#endif
3819 use pm_kind, only: SKO => SK4, CKG => CK1
3820 complex(CKG) , intent(in) , contiguous :: val(:)
3821 character(*, SK) , intent(in) , optional :: format
3822 logical(LK) , intent(in) , optional :: signed
3823 integer(IK) , intent(out) :: length
3824 character(*,SKO) , intent(out) :: str
3825 end subroutine
3826#endif
3827
3828 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3829
3830#if RK5_ENABLED
3831 PURE module subroutine setStr_D1_RK5_SK4(str, length, val, format, signed)
3832#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3833 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_RK5_SK4
3834#endif
3835 use pm_kind, only: SKO => SK4, RKG => RK5
3836 real(RKG) , intent(in) , contiguous :: val(:)
3837 character(*, SK) , intent(in) , optional :: format
3838 logical(LK) , intent(in) , optional :: signed
3839 integer(IK) , intent(out) :: length
3840 character(*,SKO) , intent(out) :: str
3841 end subroutine
3842#endif
3843
3844#if RK4_ENABLED
3845 PURE module subroutine setStr_D1_RK4_SK4(str, length, val, format, signed)
3846#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3847 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_RK4_SK4
3848#endif
3849 use pm_kind, only: SKO => SK4, RKG => RK4
3850 real(RKG) , intent(in) , contiguous :: val(:)
3851 character(*, SK) , intent(in) , optional :: format
3852 logical(LK) , intent(in) , optional :: signed
3853 integer(IK) , intent(out) :: length
3854 character(*,SKO) , intent(out) :: str
3855 end subroutine
3856#endif
3857
3858#if RK3_ENABLED
3859 PURE module subroutine setStr_D1_RK3_SK4(str, length, val, format, signed)
3860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3861 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_RK3_SK4
3862#endif
3863 use pm_kind, only: SKO => SK4, RKG => RK3
3864 real(RKG) , intent(in) , contiguous :: val(:)
3865 character(*, SK) , intent(in) , optional :: format
3866 logical(LK) , intent(in) , optional :: signed
3867 integer(IK) , intent(out) :: length
3868 character(*,SKO) , intent(out) :: str
3869 end subroutine
3870#endif
3871
3872#if RK2_ENABLED
3873 PURE module subroutine setStr_D1_RK2_SK4(str, length, val, format, signed)
3874#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3875 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_RK2_SK4
3876#endif
3877 use pm_kind, only: SKO => SK4, RKG => RK2
3878 real(RKG) , intent(in) , contiguous :: val(:)
3879 character(*, SK) , intent(in) , optional :: format
3880 logical(LK) , intent(in) , optional :: signed
3881 integer(IK) , intent(out) :: length
3882 character(*,SKO) , intent(out) :: str
3883 end subroutine
3884#endif
3885
3886#if RK1_ENABLED
3887 PURE module subroutine setStr_D1_RK1_SK4(str, length, val, format, signed)
3888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3889 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_RK1_SK4
3890#endif
3891 use pm_kind, only: SKO => SK4, RKG => RK1
3892 real(RKG) , intent(in) , contiguous :: val(:)
3893 character(*, SK) , intent(in) , optional :: format
3894 logical(LK) , intent(in) , optional :: signed
3895 integer(IK) , intent(out) :: length
3896 character(*,SKO) , intent(out) :: str
3897 end subroutine
3898#endif
3899
3900 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3901
3902#if PDT_ENABLED
3903
3904#if SK5_ENABLED
3905 PURE module subroutine setStr_D1_PSSK5_SK4(str, length, val, format, signed)
3906#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3907 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_PSSK5_SK4
3908#endif
3909 use pm_container, only: css_pdt
3910 use pm_kind, only: SKO => SK4, SKG => SK5
3911 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
3912 character(*, SK) , intent(in) , optional :: format
3913 logical(LK) , intent(in) , optional :: signed
3914 integer(IK) , intent(out) :: length
3915 character(*,SKO) , intent(out) :: str
3916 end subroutine
3917#endif
3918
3919#if SK4_ENABLED
3920 PURE module subroutine setStr_D1_PSSK4_SK4(str, length, val, format, signed)
3921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3922 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_PSSK4_SK4
3923#endif
3924 use pm_container, only: css_pdt
3925 use pm_kind, only: SKO => SK4, SKG => SK4
3926 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
3927 character(*, SK) , intent(in) , optional :: format
3928 logical(LK) , intent(in) , optional :: signed
3929 integer(IK) , intent(out) :: length
3930 character(*,SKO) , intent(out) :: str
3931 end subroutine
3932#endif
3933
3934#if SK3_ENABLED
3935 PURE module subroutine setStr_D1_PSSK3_SK4(str, length, val, format, signed)
3936#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3937 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_PSSK3_SK4
3938#endif
3939 use pm_container, only: css_pdt
3940 use pm_kind, only: SKO => SK4, SKG => SK3
3941 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
3942 character(*, SK) , intent(in) , optional :: format
3943 logical(LK) , intent(in) , optional :: signed
3944 integer(IK) , intent(out) :: length
3945 character(*,SKO) , intent(out) :: str
3946 end subroutine
3947#endif
3948
3949#if SK2_ENABLED
3950 PURE module subroutine setStr_D1_PSSK2_SK4(str, length, val, format, signed)
3951#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3952 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_PSSK2_SK4
3953#endif
3954 use pm_container, only: css_pdt
3955 use pm_kind, only: SKO => SK4, SKG => SK2
3956 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
3957 character(*, SK) , intent(in) , optional :: format
3958 logical(LK) , intent(in) , optional :: signed
3959 integer(IK) , intent(out) :: length
3960 character(*,SKO) , intent(out) :: str
3961 end subroutine
3962#endif
3963
3964#if SK1_ENABLED
3965 PURE module subroutine setStr_D1_PSSK1_SK4(str, length, val, format, signed)
3966#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3967 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_PSSK1_SK4
3968#endif
3969 use pm_container, only: css_pdt
3970 use pm_kind, only: SKO => SK4, SKG => SK1
3971 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
3972 character(*, SK) , intent(in) , optional :: format
3973 logical(LK) , intent(in) , optional :: signed
3974 integer(IK) , intent(out) :: length
3975 character(*,SKO) , intent(out) :: str
3976 end subroutine
3977#endif
3978
3979#endif
3980!PDT_ENABLED
3981
3982 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3983
3984 PURE module subroutine setStr_D1_BSSK_SK4(str, length, val, format, signed)
3985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3986 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_BSSK_SK4
3987#endif
3988 use pm_container, only: css_type
3989 use pm_kind, only: SKO => SK4, SKG => SK1
3990 type(css_type) , intent(in) , contiguous :: val(:)
3991 character(*, SK) , intent(in) , optional :: format
3992 logical(LK) , intent(in) , optional :: signed
3993 integer(IK) , intent(out) :: length
3994 character(*,SKO) , intent(out) :: str
3995 end subroutine
3996
3997 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3998
3999 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4000 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4001 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4002
4003 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4004
4005#if SK5_ENABLED
4006 PURE module subroutine setStr_D2_SK5_SK4(str, length, val, format, signed)
4007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4008 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_SK5_SK4
4009#endif
4010 use pm_kind, only: SKO => SK4, SKG => SK5
4011 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
4012 character(*, SK) , intent(in) , optional :: format
4013 logical(LK) , intent(in) , optional :: signed
4014 integer(IK) , intent(out) :: length
4015 character(*,SKO) , intent(out) :: str
4016 end subroutine
4017#endif
4018
4019#if SK4_ENABLED
4020 PURE module subroutine setStr_D2_SK4_SK4(str, length, val, format, signed)
4021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4022 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_SK4_SK4
4023#endif
4024 use pm_kind, only: SKO => SK4, SKG => SK4
4025 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
4026 character(*, SK) , intent(in) , optional :: format
4027 logical(LK) , intent(in) , optional :: signed
4028 integer(IK) , intent(out) :: length
4029 character(*,SKO) , intent(out) :: str
4030 end subroutine
4031#endif
4032
4033#if SK3_ENABLED
4034 PURE module subroutine setStr_D2_SK3_SK4(str, length, val, format, signed)
4035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4036 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_SK3_SK4
4037#endif
4038 use pm_kind, only: SKO => SK4, SKG => SK3
4039 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
4040 character(*, SK) , intent(in) , optional :: format
4041 logical(LK) , intent(in) , optional :: signed
4042 integer(IK) , intent(out) :: length
4043 character(*,SKO) , intent(out) :: str
4044 end subroutine
4045#endif
4046
4047#if SK2_ENABLED
4048 PURE module subroutine setStr_D2_SK2_SK4(str, length, val, format, signed)
4049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4050 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_SK2_SK4
4051#endif
4052 use pm_kind, only: SKO => SK4, SKG => SK2
4053 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
4054 character(*, SK) , intent(in) , optional :: format
4055 logical(LK) , intent(in) , optional :: signed
4056 integer(IK) , intent(out) :: length
4057 character(*,SKO) , intent(out) :: str
4058 end subroutine
4059#endif
4060
4061#if SK1_ENABLED
4062 PURE module subroutine setStr_D2_SK1_SK4(str, length, val, format, signed)
4063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4064 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_SK1_SK4
4065#endif
4066 use pm_kind, only: SKO => SK4, SKG => SK1
4067 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
4068 character(*, SK) , intent(in) , optional :: format
4069 logical(LK) , intent(in) , optional :: signed
4070 integer(IK) , intent(out) :: length
4071 character(*,SKO) , intent(out) :: str
4072 end subroutine
4073#endif
4074
4075 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4076
4077#if IK5_ENABLED
4078 PURE module subroutine setStr_D2_IK5_SK4(str, length, val, format, signed)
4079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4080 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_IK5_SK4
4081#endif
4082 use pm_kind, only: SKO => SK4, IKG => IK5
4083 integer(IKG) , intent(in) , contiguous :: val(:,:)
4084 character(*, SK) , intent(in) , optional :: format
4085 logical(LK) , intent(in) , optional :: signed
4086 integer(IK) , intent(out) :: length
4087 character(*,SKO) , intent(out) :: str
4088 end subroutine
4089#endif
4090
4091#if IK4_ENABLED
4092 PURE module subroutine setStr_D2_IK4_SK4(str, length, val, format, signed)
4093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4094 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_IK4_SK4
4095#endif
4096 use pm_kind, only: SKO => SK4, IKG => IK4
4097 integer(IKG) , intent(in) , contiguous :: val(:,:)
4098 character(*, SK) , intent(in) , optional :: format
4099 logical(LK) , intent(in) , optional :: signed
4100 integer(IK) , intent(out) :: length
4101 character(*,SKO) , intent(out) :: str
4102 end subroutine
4103#endif
4104
4105#if IK3_ENABLED
4106 PURE module subroutine setStr_D2_IK3_SK4(str, length, val, format, signed)
4107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4108 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_IK3_SK4
4109#endif
4110 use pm_kind, only: SKO => SK4, IKG => IK3
4111 integer(IKG) , intent(in) , contiguous :: val(:,:)
4112 character(*, SK) , intent(in) , optional :: format
4113 logical(LK) , intent(in) , optional :: signed
4114 integer(IK) , intent(out) :: length
4115 character(*,SKO) , intent(out) :: str
4116 end subroutine
4117#endif
4118
4119#if IK2_ENABLED
4120 PURE module subroutine setStr_D2_IK2_SK4(str, length, val, format, signed)
4121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4122 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_IK2_SK4
4123#endif
4124 use pm_kind, only: SKO => SK4, IKG => IK2
4125 integer(IKG) , intent(in) , contiguous :: val(:,:)
4126 character(*, SK) , intent(in) , optional :: format
4127 logical(LK) , intent(in) , optional :: signed
4128 integer(IK) , intent(out) :: length
4129 character(*,SKO) , intent(out) :: str
4130 end subroutine
4131#endif
4132
4133#if IK1_ENABLED
4134 PURE module subroutine setStr_D2_IK1_SK4(str, length, val, format, signed)
4135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4136 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_IK1_SK4
4137#endif
4138 use pm_kind, only: SKO => SK4, IKG => IK1
4139 integer(IKG) , intent(in) , contiguous :: val(:,:)
4140 character(*, SK) , intent(in) , optional :: format
4141 logical(LK) , intent(in) , optional :: signed
4142 integer(IK) , intent(out) :: length
4143 character(*,SKO) , intent(out) :: str
4144 end subroutine
4145#endif
4146
4147 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4148
4149#if LK5_ENABLED
4150 PURE module subroutine setStr_D2_LK5_SK4(str, length, val, format, signed)
4151#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4152 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_LK5_SK4
4153#endif
4154 use pm_kind, only: SKO => SK4, LKG => LK5
4155 logical(LKG) , intent(in) , contiguous :: val(:,:)
4156 character(*, SK) , intent(in) , optional :: format
4157 logical(LK) , intent(in) , optional :: signed
4158 integer(IK) , intent(out) :: length
4159 character(*,SKO) , intent(out) :: str
4160 end subroutine
4161#endif
4162
4163#if LK4_ENABLED
4164 PURE module subroutine setStr_D2_LK4_SK4(str, length, val, format, signed)
4165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4166 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_LK4_SK4
4167#endif
4168 use pm_kind, only: SKO => SK4, LKG => LK4
4169 logical(LKG) , intent(in) , contiguous :: val(:,:)
4170 character(*, SK) , intent(in) , optional :: format
4171 logical(LK) , intent(in) , optional :: signed
4172 integer(IK) , intent(out) :: length
4173 character(*,SKO) , intent(out) :: str
4174 end subroutine
4175#endif
4176
4177#if LK3_ENABLED
4178 PURE module subroutine setStr_D2_LK3_SK4(str, length, val, format, signed)
4179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4180 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_LK3_SK4
4181#endif
4182 use pm_kind, only: SKO => SK4, LKG => LK3
4183 logical(LKG) , intent(in) , contiguous :: val(:,:)
4184 character(*, SK) , intent(in) , optional :: format
4185 logical(LK) , intent(in) , optional :: signed
4186 integer(IK) , intent(out) :: length
4187 character(*,SKO) , intent(out) :: str
4188 end subroutine
4189#endif
4190
4191#if LK2_ENABLED
4192 PURE module subroutine setStr_D2_LK2_SK4(str, length, val, format, signed)
4193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4194 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_LK2_SK4
4195#endif
4196 use pm_kind, only: SKO => SK4, LKG => LK2
4197 logical(LKG) , intent(in) , contiguous :: val(:,:)
4198 character(*, SK) , intent(in) , optional :: format
4199 logical(LK) , intent(in) , optional :: signed
4200 integer(IK) , intent(out) :: length
4201 character(*,SKO) , intent(out) :: str
4202 end subroutine
4203#endif
4204
4205#if LK1_ENABLED
4206 PURE module subroutine setStr_D2_LK1_SK4(str, length, val, format, signed)
4207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4208 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_LK1_SK4
4209#endif
4210 use pm_kind, only: SKO => SK4, LKG => LK1
4211 logical(LKG) , intent(in) , contiguous :: val(:,:)
4212 character(*, SK) , intent(in) , optional :: format
4213 logical(LK) , intent(in) , optional :: signed
4214 integer(IK) , intent(out) :: length
4215 character(*,SKO) , intent(out) :: str
4216 end subroutine
4217#endif
4218
4219 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4220
4221#if CK5_ENABLED
4222 PURE module subroutine setStr_D2_CK5_SK4(str, length, val, format, signed)
4223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4224 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_CK5_SK4
4225#endif
4226 use pm_kind, only: SKO => SK4, CKG => CK5
4227 complex(CKG) , intent(in) , contiguous :: val(:,:)
4228 character(*, SK) , intent(in) , optional :: format
4229 logical(LK) , intent(in) , optional :: signed
4230 integer(IK) , intent(out) :: length
4231 character(*,SKO) , intent(out) :: str
4232 end subroutine
4233#endif
4234
4235#if CK4_ENABLED
4236 PURE module subroutine setStr_D2_CK4_SK4(str, length, val, format, signed)
4237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4238 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_CK4_SK4
4239#endif
4240 use pm_kind, only: SKO => SK4, CKG => CK4
4241 complex(CKG) , intent(in) , contiguous :: val(:,:)
4242 character(*, SK) , intent(in) , optional :: format
4243 logical(LK) , intent(in) , optional :: signed
4244 integer(IK) , intent(out) :: length
4245 character(*,SKO) , intent(out) :: str
4246 end subroutine
4247#endif
4248
4249#if CK3_ENABLED
4250 PURE module subroutine setStr_D2_CK3_SK4(str, length, val, format, signed)
4251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4252 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_CK3_SK4
4253#endif
4254 use pm_kind, only: SKO => SK4, CKG => CK3
4255 complex(CKG) , intent(in) , contiguous :: val(:,:)
4256 character(*, SK) , intent(in) , optional :: format
4257 logical(LK) , intent(in) , optional :: signed
4258 integer(IK) , intent(out) :: length
4259 character(*,SKO) , intent(out) :: str
4260 end subroutine
4261#endif
4262
4263#if CK2_ENABLED
4264 PURE module subroutine setStr_D2_CK2_SK4(str, length, val, format, signed)
4265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4266 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_CK2_SK4
4267#endif
4268 use pm_kind, only: SKO => SK4, CKG => CK2
4269 complex(CKG) , intent(in) , contiguous :: val(:,:)
4270 character(*, SK) , intent(in) , optional :: format
4271 logical(LK) , intent(in) , optional :: signed
4272 integer(IK) , intent(out) :: length
4273 character(*,SKO) , intent(out) :: str
4274 end subroutine
4275#endif
4276
4277#if CK1_ENABLED
4278 PURE module subroutine setStr_D2_CK1_SK4(str, length, val, format, signed)
4279#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4280 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_CK1_SK4
4281#endif
4282 use pm_kind, only: SKO => SK4, CKG => CK1
4283 complex(CKG) , intent(in) , contiguous :: val(:,:)
4284 character(*, SK) , intent(in) , optional :: format
4285 logical(LK) , intent(in) , optional :: signed
4286 integer(IK) , intent(out) :: length
4287 character(*,SKO) , intent(out) :: str
4288 end subroutine
4289#endif
4290
4291 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4292
4293#if RK5_ENABLED
4294 PURE module subroutine setStr_D2_RK5_SK4(str, length, val, format, signed)
4295#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4296 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_RK5_SK4
4297#endif
4298 use pm_kind, only: SKO => SK4, RKG => RK5
4299 real(RKG) , intent(in) , contiguous :: val(:,:)
4300 character(*, SK) , intent(in) , optional :: format
4301 logical(LK) , intent(in) , optional :: signed
4302 integer(IK) , intent(out) :: length
4303 character(*,SKO) , intent(out) :: str
4304 end subroutine
4305#endif
4306
4307#if RK4_ENABLED
4308 PURE module subroutine setStr_D2_RK4_SK4(str, length, val, format, signed)
4309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4310 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_RK4_SK4
4311#endif
4312 use pm_kind, only: SKO => SK4, RKG => RK4
4313 real(RKG) , intent(in) , contiguous :: val(:,:)
4314 character(*, SK) , intent(in) , optional :: format
4315 logical(LK) , intent(in) , optional :: signed
4316 integer(IK) , intent(out) :: length
4317 character(*,SKO) , intent(out) :: str
4318 end subroutine
4319#endif
4320
4321#if RK3_ENABLED
4322 PURE module subroutine setStr_D2_RK3_SK4(str, length, val, format, signed)
4323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4324 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_RK3_SK4
4325#endif
4326 use pm_kind, only: SKO => SK4, RKG => RK3
4327 real(RKG) , intent(in) , contiguous :: val(:,:)
4328 character(*, SK) , intent(in) , optional :: format
4329 logical(LK) , intent(in) , optional :: signed
4330 integer(IK) , intent(out) :: length
4331 character(*,SKO) , intent(out) :: str
4332 end subroutine
4333#endif
4334
4335#if RK2_ENABLED
4336 PURE module subroutine setStr_D2_RK2_SK4(str, length, val, format, signed)
4337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4338 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_RK2_SK4
4339#endif
4340 use pm_kind, only: SKO => SK4, RKG => RK2
4341 real(RKG) , intent(in) , contiguous :: val(:,:)
4342 character(*, SK) , intent(in) , optional :: format
4343 logical(LK) , intent(in) , optional :: signed
4344 integer(IK) , intent(out) :: length
4345 character(*,SKO) , intent(out) :: str
4346 end subroutine
4347#endif
4348
4349#if RK1_ENABLED
4350 PURE module subroutine setStr_D2_RK1_SK4(str, length, val, format, signed)
4351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4352 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_RK1_SK4
4353#endif
4354 use pm_kind, only: SKO => SK4, RKG => RK1
4355 real(RKG) , intent(in) , contiguous :: val(:,:)
4356 character(*, SK) , intent(in) , optional :: format
4357 logical(LK) , intent(in) , optional :: signed
4358 integer(IK) , intent(out) :: length
4359 character(*,SKO) , intent(out) :: str
4360 end subroutine
4361#endif
4362
4363 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4364
4365#if PDT_ENABLED
4366
4367#if SK5_ENABLED
4368 PURE module subroutine setStr_D2_PSSK5_SK4(str, length, val, format, signed)
4369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4370 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_PSSK5_SK4
4371#endif
4372 use pm_container, only: css_pdt
4373 use pm_kind, only: SKO => SK4, SKG => SK5
4374 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
4375 character(*, SK) , intent(in) , optional :: format
4376 logical(LK) , intent(in) , optional :: signed
4377 integer(IK) , intent(out) :: length
4378 character(*,SKO) , intent(out) :: str
4379 end subroutine
4380#endif
4381
4382#if SK4_ENABLED
4383 PURE module subroutine setStr_D2_PSSK4_SK4(str, length, val, format, signed)
4384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4385 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_PSSK4_SK4
4386#endif
4387 use pm_container, only: css_pdt
4388 use pm_kind, only: SKO => SK4, SKG => SK4
4389 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
4390 character(*, SK) , intent(in) , optional :: format
4391 logical(LK) , intent(in) , optional :: signed
4392 integer(IK) , intent(out) :: length
4393 character(*,SKO) , intent(out) :: str
4394 end subroutine
4395#endif
4396
4397#if SK3_ENABLED
4398 PURE module subroutine setStr_D2_PSSK3_SK4(str, length, val, format, signed)
4399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4400 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_PSSK3_SK4
4401#endif
4402 use pm_container, only: css_pdt
4403 use pm_kind, only: SKO => SK4, SKG => SK3
4404 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
4405 character(*, SK) , intent(in) , optional :: format
4406 logical(LK) , intent(in) , optional :: signed
4407 integer(IK) , intent(out) :: length
4408 character(*,SKO) , intent(out) :: str
4409 end subroutine
4410#endif
4411
4412#if SK2_ENABLED
4413 PURE module subroutine setStr_D2_PSSK2_SK4(str, length, val, format, signed)
4414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4415 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_PSSK2_SK4
4416#endif
4417 use pm_container, only: css_pdt
4418 use pm_kind, only: SKO => SK4, SKG => SK2
4419 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
4420 character(*, SK) , intent(in) , optional :: format
4421 logical(LK) , intent(in) , optional :: signed
4422 integer(IK) , intent(out) :: length
4423 character(*,SKO) , intent(out) :: str
4424 end subroutine
4425#endif
4426
4427#if SK1_ENABLED
4428 PURE module subroutine setStr_D2_PSSK1_SK4(str, length, val, format, signed)
4429#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4430 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_PSSK1_SK4
4431#endif
4432 use pm_container, only: css_pdt
4433 use pm_kind, only: SKO => SK4, SKG => SK1
4434 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
4435 character(*, SK) , intent(in) , optional :: format
4436 logical(LK) , intent(in) , optional :: signed
4437 integer(IK) , intent(out) :: length
4438 character(*,SKO) , intent(out) :: str
4439 end subroutine
4440#endif
4441
4442#endif
4443!PDT_ENABLED
4444
4445 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4446
4447 PURE module subroutine setStr_D2_BSSK_SK4(str, length, val, format, signed)
4448#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4449 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_BSSK_SK4
4450#endif
4451 use pm_container, only: css_type
4452 use pm_kind, only: SKO => SK4, SKG => SK1
4453 type(css_type) , intent(in) , contiguous :: val(:,:)
4454 character(*, SK) , intent(in) , optional :: format
4455 logical(LK) , intent(in) , optional :: signed
4456 integer(IK) , intent(out) :: length
4457 character(*,SKO) , intent(out) :: str
4458 end subroutine
4459
4460 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4461
4462 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4463 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4464 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4465
4466 end interface
4467#endif
4468
4469 ! SKO => SK3
4470
4471#if SK3_ENABLED
4472 interface setStr
4473
4474 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4475 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4476 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4477
4478 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4479
4480#if SK5_ENABLED
4481 PURE module subroutine setStr_D0_SK5_SK3(str, length, val, format, signed)
4482#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4483 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_SK5_SK3
4484#endif
4485 use pm_kind, only: SKO => SK3, SKG => SK5
4486 character(*,SKG) , intent(in) :: val
4487 character(*, SK) , intent(in) , optional :: format
4488 logical(LK) , intent(in) , optional :: signed
4489 integer(IK) , intent(out) :: length
4490 character(*,SKO) , intent(out) :: str
4491 end subroutine
4492#endif
4493