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
4494#if SK4_ENABLED
4495 PURE module subroutine setStr_D0_SK4_SK3(str, length, val, format, signed)
4496#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4497 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_SK4_SK3
4498#endif
4499 use pm_kind, only: SKO => SK3, SKG => SK4
4500 character(*,SKG) , intent(in) :: val
4501 character(*, SK) , intent(in) , optional :: format
4502 logical(LK) , intent(in) , optional :: signed
4503 integer(IK) , intent(out) :: length
4504 character(*,SKO) , intent(out) :: str
4505 end subroutine
4506#endif
4507
4508#if SK3_ENABLED
4509 PURE module subroutine setStr_D0_SK3_SK3(str, length, val, format, signed)
4510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4511 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_SK3_SK3
4512#endif
4513 use pm_kind, only: SKO => SK3, SKG => SK3
4514 character(*,SKG) , intent(in) :: val
4515 character(*, SK) , intent(in) , optional :: format
4516 logical(LK) , intent(in) , optional :: signed
4517 integer(IK) , intent(out) :: length
4518 character(*,SKO) , intent(out) :: str
4519 end subroutine
4520#endif
4521
4522#if SK2_ENABLED
4523 PURE module subroutine setStr_D0_SK2_SK3(str, length, val, format, signed)
4524#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4525 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_SK2_SK3
4526#endif
4527 use pm_kind, only: SKO => SK3, SKG => SK2
4528 character(*,SKG) , intent(in) :: val
4529 character(*, SK) , intent(in) , optional :: format
4530 logical(LK) , intent(in) , optional :: signed
4531 integer(IK) , intent(out) :: length
4532 character(*,SKO) , intent(out) :: str
4533 end subroutine
4534#endif
4535
4536#if SK1_ENABLED
4537 PURE module subroutine setStr_D0_SK1_SK3(str, length, val, format, signed)
4538#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4539 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_SK1_SK3
4540#endif
4541 use pm_kind, only: SKO => SK3, SKG => SK1
4542 character(*,SKG) , intent(in) :: val
4543 character(*, SK) , intent(in) , optional :: format
4544 logical(LK) , intent(in) , optional :: signed
4545 integer(IK) , intent(out) :: length
4546 character(*,SKO) , intent(out) :: str
4547 end subroutine
4548#endif
4549
4550 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4551
4552#if IK5_ENABLED
4553 PURE module subroutine setStr_D0_IK5_SK3(str, length, val, format, signed)
4554#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4555 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_IK5_SK3
4556#endif
4557 use pm_kind, only: SKO => SK3, IKG => IK5
4558 integer(IKG) , intent(in) :: val
4559 character(*, SK) , intent(in) , optional :: format
4560 logical(LK) , intent(in) , optional :: signed
4561 integer(IK) , intent(out) :: length
4562 character(*,SKO) , intent(out) :: str
4563 end subroutine
4564#endif
4565
4566#if IK4_ENABLED
4567 PURE module subroutine setStr_D0_IK4_SK3(str, length, val, format, signed)
4568#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4569 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_IK4_SK3
4570#endif
4571 use pm_kind, only: SKO => SK3, IKG => IK4
4572 integer(IKG) , intent(in) :: val
4573 character(*, SK) , intent(in) , optional :: format
4574 logical(LK) , intent(in) , optional :: signed
4575 integer(IK) , intent(out) :: length
4576 character(*,SKO) , intent(out) :: str
4577 end subroutine
4578#endif
4579
4580#if IK3_ENABLED
4581 PURE module subroutine setStr_D0_IK3_SK3(str, length, val, format, signed)
4582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4583 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_IK3_SK3
4584#endif
4585 use pm_kind, only: SKO => SK3, IKG => IK3
4586 integer(IKG) , intent(in) :: val
4587 character(*, SK) , intent(in) , optional :: format
4588 logical(LK) , intent(in) , optional :: signed
4589 integer(IK) , intent(out) :: length
4590 character(*,SKO) , intent(out) :: str
4591 end subroutine
4592#endif
4593
4594#if IK2_ENABLED
4595 PURE module subroutine setStr_D0_IK2_SK3(str, length, val, format, signed)
4596#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4597 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_IK2_SK3
4598#endif
4599 use pm_kind, only: SKO => SK3, IKG => IK2
4600 integer(IKG) , intent(in) :: val
4601 character(*, SK) , intent(in) , optional :: format
4602 logical(LK) , intent(in) , optional :: signed
4603 integer(IK) , intent(out) :: length
4604 character(*,SKO) , intent(out) :: str
4605 end subroutine
4606#endif
4607
4608#if IK1_ENABLED
4609 PURE module subroutine setStr_D0_IK1_SK3(str, length, val, format, signed)
4610#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4611 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_IK1_SK3
4612#endif
4613 use pm_kind, only: SKO => SK3, IKG => IK1
4614 integer(IKG) , intent(in) :: val
4615 character(*, SK) , intent(in) , optional :: format
4616 logical(LK) , intent(in) , optional :: signed
4617 integer(IK) , intent(out) :: length
4618 character(*,SKO) , intent(out) :: str
4619 end subroutine
4620#endif
4621
4622 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4623
4624#if LK5_ENABLED
4625 PURE module subroutine setStr_D0_LK5_SK3(str, length, val, format, signed)
4626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4627 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_LK5_SK3
4628#endif
4629 use pm_kind, only: SKO => SK3, LKG => LK5
4630 logical(LKG) , intent(in) :: val
4631 character(*, SK) , intent(in) , optional :: format
4632 logical(LK) , intent(in) , optional :: signed
4633 integer(IK) , intent(out) :: length
4634 character(*,SKO) , intent(out) :: str
4635 end subroutine
4636#endif
4637
4638#if LK4_ENABLED
4639 PURE module subroutine setStr_D0_LK4_SK3(str, length, val, format, signed)
4640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4641 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_LK4_SK3
4642#endif
4643 use pm_kind, only: SKO => SK3, LKG => LK4
4644 logical(LKG) , intent(in) :: val
4645 character(*, SK) , intent(in) , optional :: format
4646 logical(LK) , intent(in) , optional :: signed
4647 integer(IK) , intent(out) :: length
4648 character(*,SKO) , intent(out) :: str
4649 end subroutine
4650#endif
4651
4652#if LK3_ENABLED
4653 PURE module subroutine setStr_D0_LK3_SK3(str, length, val, format, signed)
4654#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4655 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_LK3_SK3
4656#endif
4657 use pm_kind, only: SKO => SK3, LKG => LK3
4658 logical(LKG) , intent(in) :: val
4659 character(*, SK) , intent(in) , optional :: format
4660 logical(LK) , intent(in) , optional :: signed
4661 integer(IK) , intent(out) :: length
4662 character(*,SKO) , intent(out) :: str
4663 end subroutine
4664#endif
4665
4666#if LK2_ENABLED
4667 PURE module subroutine setStr_D0_LK2_SK3(str, length, val, format, signed)
4668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4669 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_LK2_SK3
4670#endif
4671 use pm_kind, only: SKO => SK3, LKG => LK2
4672 logical(LKG) , intent(in) :: val
4673 character(*, SK) , intent(in) , optional :: format
4674 logical(LK) , intent(in) , optional :: signed
4675 integer(IK) , intent(out) :: length
4676 character(*,SKO) , intent(out) :: str
4677 end subroutine
4678#endif
4679
4680#if LK1_ENABLED
4681 PURE module subroutine setStr_D0_LK1_SK3(str, length, val, format, signed)
4682#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4683 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_LK1_SK3
4684#endif
4685 use pm_kind, only: SKO => SK3, LKG => LK1
4686 logical(LKG) , intent(in) :: val
4687 character(*, SK) , intent(in) , optional :: format
4688 logical(LK) , intent(in) , optional :: signed
4689 integer(IK) , intent(out) :: length
4690 character(*,SKO) , intent(out) :: str
4691 end subroutine
4692#endif
4693
4694 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4695
4696#if CK5_ENABLED
4697 PURE module subroutine setStr_D0_CK5_SK3(str, length, val, format, signed)
4698#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4699 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_CK5_SK3
4700#endif
4701 use pm_kind, only: SKO => SK3, CKG => CK5
4702 complex(CKG) , intent(in) :: val
4703 character(*, SK) , intent(in) , optional :: format
4704 logical(LK) , intent(in) , optional :: signed
4705 integer(IK) , intent(out) :: length
4706 character(*,SKO) , intent(out) :: str
4707 end subroutine
4708#endif
4709
4710#if CK4_ENABLED
4711 PURE module subroutine setStr_D0_CK4_SK3(str, length, val, format, signed)
4712#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4713 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_CK4_SK3
4714#endif
4715 use pm_kind, only: SKO => SK3, CKG => CK4
4716 complex(CKG) , intent(in) :: val
4717 character(*, SK) , intent(in) , optional :: format
4718 logical(LK) , intent(in) , optional :: signed
4719 integer(IK) , intent(out) :: length
4720 character(*,SKO) , intent(out) :: str
4721 end subroutine
4722#endif
4723
4724#if CK3_ENABLED
4725 PURE module subroutine setStr_D0_CK3_SK3(str, length, val, format, signed)
4726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4727 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_CK3_SK3
4728#endif
4729 use pm_kind, only: SKO => SK3, CKG => CK3
4730 complex(CKG) , intent(in) :: val
4731 character(*, SK) , intent(in) , optional :: format
4732 logical(LK) , intent(in) , optional :: signed
4733 integer(IK) , intent(out) :: length
4734 character(*,SKO) , intent(out) :: str
4735 end subroutine
4736#endif
4737
4738#if CK2_ENABLED
4739 PURE module subroutine setStr_D0_CK2_SK3(str, length, val, format, signed)
4740#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4741 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_CK2_SK3
4742#endif
4743 use pm_kind, only: SKO => SK3, CKG => CK2
4744 complex(CKG) , intent(in) :: val
4745 character(*, SK) , intent(in) , optional :: format
4746 logical(LK) , intent(in) , optional :: signed
4747 integer(IK) , intent(out) :: length
4748 character(*,SKO) , intent(out) :: str
4749 end subroutine
4750#endif
4751
4752#if CK1_ENABLED
4753 PURE module subroutine setStr_D0_CK1_SK3(str, length, val, format, signed)
4754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4755 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_CK1_SK3
4756#endif
4757 use pm_kind, only: SKO => SK3, CKG => CK1
4758 complex(CKG) , intent(in) :: val
4759 character(*, SK) , intent(in) , optional :: format
4760 logical(LK) , intent(in) , optional :: signed
4761 integer(IK) , intent(out) :: length
4762 character(*,SKO) , intent(out) :: str
4763 end subroutine
4764#endif
4765
4766 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4767
4768#if RK5_ENABLED
4769 PURE module subroutine setStr_D0_RK5_SK3(str, length, val, format, signed)
4770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4771 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_RK5_SK3
4772#endif
4773 use pm_kind, only: SKO => SK3, RKG => RK5
4774 real(RKG) , intent(in) :: val
4775 character(*, SK) , intent(in) , optional :: format
4776 logical(LK) , intent(in) , optional :: signed
4777 integer(IK) , intent(out) :: length
4778 character(*,SKO) , intent(out) :: str
4779 end subroutine
4780#endif
4781
4782#if RK4_ENABLED
4783 PURE module subroutine setStr_D0_RK4_SK3(str, length, val, format, signed)
4784#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4785 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_RK4_SK3
4786#endif
4787 use pm_kind, only: SKO => SK3, RKG => RK4
4788 real(RKG) , intent(in) :: val
4789 character(*, SK) , intent(in) , optional :: format
4790 logical(LK) , intent(in) , optional :: signed
4791 integer(IK) , intent(out) :: length
4792 character(*,SKO) , intent(out) :: str
4793 end subroutine
4794#endif
4795
4796#if RK3_ENABLED
4797 PURE module subroutine setStr_D0_RK3_SK3(str, length, val, format, signed)
4798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4799 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_RK3_SK3
4800#endif
4801 use pm_kind, only: SKO => SK3, RKG => RK3
4802 real(RKG) , intent(in) :: val
4803 character(*, SK) , intent(in) , optional :: format
4804 logical(LK) , intent(in) , optional :: signed
4805 integer(IK) , intent(out) :: length
4806 character(*,SKO) , intent(out) :: str
4807 end subroutine
4808#endif
4809
4810#if RK2_ENABLED
4811 PURE module subroutine setStr_D0_RK2_SK3(str, length, val, format, signed)
4812#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4813 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_RK2_SK3
4814#endif
4815 use pm_kind, only: SKO => SK3, RKG => RK2
4816 real(RKG) , intent(in) :: val
4817 character(*, SK) , intent(in) , optional :: format
4818 logical(LK) , intent(in) , optional :: signed
4819 integer(IK) , intent(out) :: length
4820 character(*,SKO) , intent(out) :: str
4821 end subroutine
4822#endif
4823
4824#if RK1_ENABLED
4825 PURE module subroutine setStr_D0_RK1_SK3(str, length, val, format, signed)
4826#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4827 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_RK1_SK3
4828#endif
4829 use pm_kind, only: SKO => SK3, RKG => RK1
4830 real(RKG) , intent(in) :: val
4831 character(*, SK) , intent(in) , optional :: format
4832 logical(LK) , intent(in) , optional :: signed
4833 integer(IK) , intent(out) :: length
4834 character(*,SKO) , intent(out) :: str
4835 end subroutine
4836#endif
4837
4838 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4839
4840#if PDT_ENABLED
4841
4842#if SK5_ENABLED
4843 PURE module subroutine setStr_D0_PSSK5_SK3(str, length, val, format, signed)
4844#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4845 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_PSSK5_SK3
4846#endif
4847 use pm_container, only: css_pdt
4848 use pm_kind, only: SKO => SK3, SKG => SK5
4849 type(css_pdt(SKG)) , intent(in) :: val
4850 character(*, SK) , intent(in) , optional :: format
4851 logical(LK) , intent(in) , optional :: signed
4852 integer(IK) , intent(out) :: length
4853 character(*,SKO) , intent(out) :: str
4854 end subroutine
4855#endif
4856
4857#if SK4_ENABLED
4858 PURE module subroutine setStr_D0_PSSK4_SK3(str, length, val, format, signed)
4859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4860 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_PSSK4_SK3
4861#endif
4862 use pm_container, only: css_pdt
4863 use pm_kind, only: SKO => SK3, SKG => SK4
4864 type(css_pdt(SKG)) , intent(in) :: val
4865 character(*, SK) , intent(in) , optional :: format
4866 logical(LK) , intent(in) , optional :: signed
4867 integer(IK) , intent(out) :: length
4868 character(*,SKO) , intent(out) :: str
4869 end subroutine
4870#endif
4871
4872#if SK3_ENABLED
4873 PURE module subroutine setStr_D0_PSSK3_SK3(str, length, val, format, signed)
4874#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4875 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_PSSK3_SK3
4876#endif
4877 use pm_container, only: css_pdt
4878 use pm_kind, only: SKO => SK3, SKG => SK3
4879 type(css_pdt(SKG)) , intent(in) :: val
4880 character(*, SK) , intent(in) , optional :: format
4881 logical(LK) , intent(in) , optional :: signed
4882 integer(IK) , intent(out) :: length
4883 character(*,SKO) , intent(out) :: str
4884 end subroutine
4885#endif
4886
4887#if SK2_ENABLED
4888 PURE module subroutine setStr_D0_PSSK2_SK3(str, length, val, format, signed)
4889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4890 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_PSSK2_SK3
4891#endif
4892 use pm_container, only: css_pdt
4893 use pm_kind, only: SKO => SK3, SKG => SK2
4894 type(css_pdt(SKG)) , intent(in) :: val
4895 character(*, SK) , intent(in) , optional :: format
4896 logical(LK) , intent(in) , optional :: signed
4897 integer(IK) , intent(out) :: length
4898 character(*,SKO) , intent(out) :: str
4899 end subroutine
4900#endif
4901
4902#if SK1_ENABLED
4903 PURE module subroutine setStr_D0_PSSK1_SK3(str, length, val, format, signed)
4904#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4905 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_PSSK1_SK3
4906#endif
4907 use pm_container, only: css_pdt
4908 use pm_kind, only: SKO => SK3, SKG => SK1
4909 type(css_pdt(SKG)) , intent(in) :: val
4910 character(*, SK) , intent(in) , optional :: format
4911 logical(LK) , intent(in) , optional :: signed
4912 integer(IK) , intent(out) :: length
4913 character(*,SKO) , intent(out) :: str
4914 end subroutine
4915#endif
4916
4917#endif
4918!PDT_ENABLED
4919
4920 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4921
4922 PURE module subroutine setStr_D0_BSSK_SK3(str, length, val, format, signed)
4923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4924 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_BSSK_SK3
4925#endif
4926 use pm_container, only: css_type
4927 use pm_kind, only: SKO => SK3, SKG => SK1
4928 type(css_type) , intent(in) :: val
4929 character(*, SK) , intent(in) , optional :: format
4930 logical(LK) , intent(in) , optional :: signed
4931 integer(IK) , intent(out) :: length
4932 character(*,SKO) , intent(out) :: str
4933 end subroutine
4934
4935 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4936
4937 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4938 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4939 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4940
4941 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4942
4943#if SK5_ENABLED
4944 PURE module subroutine setStr_D1_SK5_SK3(str, length, val, format, signed)
4945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4946 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_SK5_SK3
4947#endif
4948 use pm_kind, only: SKO => SK3, SKG => SK5
4949 character(*,SKG), target, intent(in) , contiguous :: val(:)
4950 character(*, SK) , intent(in) , optional :: format
4951 logical(LK) , intent(in) , optional :: signed
4952 integer(IK) , intent(out) :: length
4953 character(*,SKO) , intent(out) :: str
4954 end subroutine
4955#endif
4956
4957#if SK4_ENABLED
4958 PURE module subroutine setStr_D1_SK4_SK3(str, length, val, format, signed)
4959#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4960 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_SK4_SK3
4961#endif
4962 use pm_kind, only: SKO => SK3, SKG => SK4
4963 character(*,SKG), target, intent(in) , contiguous :: val(:)
4964 character(*, SK) , intent(in) , optional :: format
4965 logical(LK) , intent(in) , optional :: signed
4966 integer(IK) , intent(out) :: length
4967 character(*,SKO) , intent(out) :: str
4968 end subroutine
4969#endif
4970
4971#if SK3_ENABLED
4972 PURE module subroutine setStr_D1_SK3_SK3(str, length, val, format, signed)
4973#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4974 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_SK3_SK3
4975#endif
4976 use pm_kind, only: SKO => SK3, SKG => SK3
4977 character(*,SKG), target, intent(in) , contiguous :: val(:)
4978 character(*, SK) , intent(in) , optional :: format
4979 logical(LK) , intent(in) , optional :: signed
4980 integer(IK) , intent(out) :: length
4981 character(*,SKO) , intent(out) :: str
4982 end subroutine
4983#endif
4984
4985#if SK2_ENABLED
4986 PURE module subroutine setStr_D1_SK2_SK3(str, length, val, format, signed)
4987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4988 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_SK2_SK3
4989#endif
4990 use pm_kind, only: SKO => SK3, SKG => SK2
4991 character(*,SKG), target, intent(in) , contiguous :: val(:)
4992 character(*, SK) , intent(in) , optional :: format
4993 logical(LK) , intent(in) , optional :: signed
4994 integer(IK) , intent(out) :: length
4995 character(*,SKO) , intent(out) :: str
4996 end subroutine
4997#endif
4998
4999#if SK1_ENABLED
5000 PURE module subroutine setStr_D1_SK1_SK3(str, length, val, format, signed)
5001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5002 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_SK1_SK3
5003#endif
5004 use pm_kind, only: SKO => SK3, SKG => SK1
5005 character(*,SKG), target, intent(in) , contiguous :: val(:)
5006 character(*, SK) , intent(in) , optional :: format
5007 logical(LK) , intent(in) , optional :: signed
5008 integer(IK) , intent(out) :: length
5009 character(*,SKO) , intent(out) :: str
5010 end subroutine
5011#endif
5012
5013 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5014
5015#if IK5_ENABLED
5016 PURE module subroutine setStr_D1_IK5_SK3(str, length, val, format, signed)
5017#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5018 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_IK5_SK3
5019#endif
5020 use pm_kind, only: SKO => SK3, IKG => IK5
5021 integer(IKG) , intent(in) , contiguous :: val(:)
5022 character(*, SK) , intent(in) , optional :: format
5023 logical(LK) , intent(in) , optional :: signed
5024 integer(IK) , intent(out) :: length
5025 character(*,SKO) , intent(out) :: str
5026 end subroutine
5027#endif
5028
5029#if IK4_ENABLED
5030 PURE module subroutine setStr_D1_IK4_SK3(str, length, val, format, signed)
5031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5032 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_IK4_SK3
5033#endif
5034 use pm_kind, only: SKO => SK3, IKG => IK4
5035 integer(IKG) , intent(in) , contiguous :: val(:)
5036 character(*, SK) , intent(in) , optional :: format
5037 logical(LK) , intent(in) , optional :: signed
5038 integer(IK) , intent(out) :: length
5039 character(*,SKO) , intent(out) :: str
5040 end subroutine
5041#endif
5042
5043#if IK3_ENABLED
5044 PURE module subroutine setStr_D1_IK3_SK3(str, length, val, format, signed)
5045#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5046 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_IK3_SK3
5047#endif
5048 use pm_kind, only: SKO => SK3, IKG => IK3
5049 integer(IKG) , intent(in) , contiguous :: val(:)
5050 character(*, SK) , intent(in) , optional :: format
5051 logical(LK) , intent(in) , optional :: signed
5052 integer(IK) , intent(out) :: length
5053 character(*,SKO) , intent(out) :: str
5054 end subroutine
5055#endif
5056
5057#if IK2_ENABLED
5058 PURE module subroutine setStr_D1_IK2_SK3(str, length, val, format, signed)
5059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5060 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_IK2_SK3
5061#endif
5062 use pm_kind, only: SKO => SK3, IKG => IK2
5063 integer(IKG) , intent(in) , contiguous :: val(:)
5064 character(*, SK) , intent(in) , optional :: format
5065 logical(LK) , intent(in) , optional :: signed
5066 integer(IK) , intent(out) :: length
5067 character(*,SKO) , intent(out) :: str
5068 end subroutine
5069#endif
5070
5071#if IK1_ENABLED
5072 PURE module subroutine setStr_D1_IK1_SK3(str, length, val, format, signed)
5073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5074 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_IK1_SK3
5075#endif
5076 use pm_kind, only: SKO => SK3, IKG => IK1
5077 integer(IKG) , intent(in) , contiguous :: val(:)
5078 character(*, SK) , intent(in) , optional :: format
5079 logical(LK) , intent(in) , optional :: signed
5080 integer(IK) , intent(out) :: length
5081 character(*,SKO) , intent(out) :: str
5082 end subroutine
5083#endif
5084
5085 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5086
5087#if LK5_ENABLED
5088 PURE module subroutine setStr_D1_LK5_SK3(str, length, val, format, signed)
5089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5090 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_LK5_SK3
5091#endif
5092 use pm_kind, only: SKO => SK3, LKG => LK5
5093 logical(LKG) , intent(in) , contiguous :: val(:)
5094 character(*, SK) , intent(in) , optional :: format
5095 logical(LK) , intent(in) , optional :: signed
5096 integer(IK) , intent(out) :: length
5097 character(*,SKO) , intent(out) :: str
5098 end subroutine
5099#endif
5100
5101#if LK4_ENABLED
5102 PURE module subroutine setStr_D1_LK4_SK3(str, length, val, format, signed)
5103#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5104 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_LK4_SK3
5105#endif
5106 use pm_kind, only: SKO => SK3, LKG => LK4
5107 logical(LKG) , intent(in) , contiguous :: val(:)
5108 character(*, SK) , intent(in) , optional :: format
5109 logical(LK) , intent(in) , optional :: signed
5110 integer(IK) , intent(out) :: length
5111 character(*,SKO) , intent(out) :: str
5112 end subroutine
5113#endif
5114
5115#if LK3_ENABLED
5116 PURE module subroutine setStr_D1_LK3_SK3(str, length, val, format, signed)
5117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5118 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_LK3_SK3
5119#endif
5120 use pm_kind, only: SKO => SK3, LKG => LK3
5121 logical(LKG) , intent(in) , contiguous :: val(:)
5122 character(*, SK) , intent(in) , optional :: format
5123 logical(LK) , intent(in) , optional :: signed
5124 integer(IK) , intent(out) :: length
5125 character(*,SKO) , intent(out) :: str
5126 end subroutine
5127#endif
5128
5129#if LK2_ENABLED
5130 PURE module subroutine setStr_D1_LK2_SK3(str, length, val, format, signed)
5131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5132 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_LK2_SK3
5133#endif
5134 use pm_kind, only: SKO => SK3, LKG => LK2
5135 logical(LKG) , intent(in) , contiguous :: val(:)
5136 character(*, SK) , intent(in) , optional :: format
5137 logical(LK) , intent(in) , optional :: signed
5138 integer(IK) , intent(out) :: length
5139 character(*,SKO) , intent(out) :: str
5140 end subroutine
5141#endif
5142
5143#if LK1_ENABLED
5144 PURE module subroutine setStr_D1_LK1_SK3(str, length, val, format, signed)
5145#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5146 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_LK1_SK3
5147#endif
5148 use pm_kind, only: SKO => SK3, LKG => LK1
5149 logical(LKG) , intent(in) , contiguous :: val(:)
5150 character(*, SK) , intent(in) , optional :: format
5151 logical(LK) , intent(in) , optional :: signed
5152 integer(IK) , intent(out) :: length
5153 character(*,SKO) , intent(out) :: str
5154 end subroutine
5155#endif
5156
5157 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5158
5159#if CK5_ENABLED
5160 PURE module subroutine setStr_D1_CK5_SK3(str, length, val, format, signed)
5161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5162 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_CK5_SK3
5163#endif
5164 use pm_kind, only: SKO => SK3, CKG => CK5
5165 complex(CKG) , intent(in) , contiguous :: val(:)
5166 character(*, SK) , intent(in) , optional :: format
5167 logical(LK) , intent(in) , optional :: signed
5168 integer(IK) , intent(out) :: length
5169 character(*,SKO) , intent(out) :: str
5170 end subroutine
5171#endif
5172
5173#if CK4_ENABLED
5174 PURE module subroutine setStr_D1_CK4_SK3(str, length, val, format, signed)
5175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5176 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_CK4_SK3
5177#endif
5178 use pm_kind, only: SKO => SK3, CKG => CK4
5179 complex(CKG) , intent(in) , contiguous :: val(:)
5180 character(*, SK) , intent(in) , optional :: format
5181 logical(LK) , intent(in) , optional :: signed
5182 integer(IK) , intent(out) :: length
5183 character(*,SKO) , intent(out) :: str
5184 end subroutine
5185#endif
5186
5187#if CK3_ENABLED
5188 PURE module subroutine setStr_D1_CK3_SK3(str, length, val, format, signed)
5189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5190 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_CK3_SK3
5191#endif
5192 use pm_kind, only: SKO => SK3, CKG => CK3
5193 complex(CKG) , intent(in) , contiguous :: val(:)
5194 character(*, SK) , intent(in) , optional :: format
5195 logical(LK) , intent(in) , optional :: signed
5196 integer(IK) , intent(out) :: length
5197 character(*,SKO) , intent(out) :: str
5198 end subroutine
5199#endif
5200
5201#if CK2_ENABLED
5202 PURE module subroutine setStr_D1_CK2_SK3(str, length, val, format, signed)
5203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5204 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_CK2_SK3
5205#endif
5206 use pm_kind, only: SKO => SK3, CKG => CK2
5207 complex(CKG) , intent(in) , contiguous :: val(:)
5208 character(*, SK) , intent(in) , optional :: format
5209 logical(LK) , intent(in) , optional :: signed
5210 integer(IK) , intent(out) :: length
5211 character(*,SKO) , intent(out) :: str
5212 end subroutine
5213#endif
5214
5215#if CK1_ENABLED
5216 PURE module subroutine setStr_D1_CK1_SK3(str, length, val, format, signed)
5217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5218 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_CK1_SK3
5219#endif
5220 use pm_kind, only: SKO => SK3, CKG => CK1
5221 complex(CKG) , intent(in) , contiguous :: val(:)
5222 character(*, SK) , intent(in) , optional :: format
5223 logical(LK) , intent(in) , optional :: signed
5224 integer(IK) , intent(out) :: length
5225 character(*,SKO) , intent(out) :: str
5226 end subroutine
5227#endif
5228
5229 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5230
5231#if RK5_ENABLED
5232 PURE module subroutine setStr_D1_RK5_SK3(str, length, val, format, signed)
5233#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5234 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_RK5_SK3
5235#endif
5236 use pm_kind, only: SKO => SK3, RKG => RK5
5237 real(RKG) , intent(in) , contiguous :: val(:)
5238 character(*, SK) , intent(in) , optional :: format
5239 logical(LK) , intent(in) , optional :: signed
5240 integer(IK) , intent(out) :: length
5241 character(*,SKO) , intent(out) :: str
5242 end subroutine
5243#endif
5244
5245#if RK4_ENABLED
5246 PURE module subroutine setStr_D1_RK4_SK3(str, length, val, format, signed)
5247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5248 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_RK4_SK3
5249#endif
5250 use pm_kind, only: SKO => SK3, RKG => RK4
5251 real(RKG) , intent(in) , contiguous :: val(:)
5252 character(*, SK) , intent(in) , optional :: format
5253 logical(LK) , intent(in) , optional :: signed
5254 integer(IK) , intent(out) :: length
5255 character(*,SKO) , intent(out) :: str
5256 end subroutine
5257#endif
5258
5259#if RK3_ENABLED
5260 PURE module subroutine setStr_D1_RK3_SK3(str, length, val, format, signed)
5261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5262 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_RK3_SK3
5263#endif
5264 use pm_kind, only: SKO => SK3, RKG => RK3
5265 real(RKG) , intent(in) , contiguous :: val(:)
5266 character(*, SK) , intent(in) , optional :: format
5267 logical(LK) , intent(in) , optional :: signed
5268 integer(IK) , intent(out) :: length
5269 character(*,SKO) , intent(out) :: str
5270 end subroutine
5271#endif
5272
5273#if RK2_ENABLED
5274 PURE module subroutine setStr_D1_RK2_SK3(str, length, val, format, signed)
5275#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5276 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_RK2_SK3
5277#endif
5278 use pm_kind, only: SKO => SK3, RKG => RK2
5279 real(RKG) , intent(in) , contiguous :: val(:)
5280 character(*, SK) , intent(in) , optional :: format
5281 logical(LK) , intent(in) , optional :: signed
5282 integer(IK) , intent(out) :: length
5283 character(*,SKO) , intent(out) :: str
5284 end subroutine
5285#endif
5286
5287#if RK1_ENABLED
5288 PURE module subroutine setStr_D1_RK1_SK3(str, length, val, format, signed)
5289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5290 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_RK1_SK3
5291#endif
5292 use pm_kind, only: SKO => SK3, RKG => RK1
5293 real(RKG) , intent(in) , contiguous :: val(:)
5294 character(*, SK) , intent(in) , optional :: format
5295 logical(LK) , intent(in) , optional :: signed
5296 integer(IK) , intent(out) :: length
5297 character(*,SKO) , intent(out) :: str
5298 end subroutine
5299#endif
5300
5301 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5302
5303#if PDT_ENABLED
5304
5305#if SK5_ENABLED
5306 PURE module subroutine setStr_D1_PSSK5_SK3(str, length, val, format, signed)
5307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5308 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_PSSK5_SK3
5309#endif
5310 use pm_container, only: css_pdt
5311 use pm_kind, only: SKO => SK3, SKG => SK5
5312 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
5313 character(*, SK) , intent(in) , optional :: format
5314 logical(LK) , intent(in) , optional :: signed
5315 integer(IK) , intent(out) :: length
5316 character(*,SKO) , intent(out) :: str
5317 end subroutine
5318#endif
5319
5320#if SK4_ENABLED
5321 PURE module subroutine setStr_D1_PSSK4_SK3(str, length, val, format, signed)
5322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5323 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_PSSK4_SK3
5324#endif
5325 use pm_container, only: css_pdt
5326 use pm_kind, only: SKO => SK3, SKG => SK4
5327 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
5328 character(*, SK) , intent(in) , optional :: format
5329 logical(LK) , intent(in) , optional :: signed
5330 integer(IK) , intent(out) :: length
5331 character(*,SKO) , intent(out) :: str
5332 end subroutine
5333#endif
5334
5335#if SK3_ENABLED
5336 PURE module subroutine setStr_D1_PSSK3_SK3(str, length, val, format, signed)
5337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5338 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_PSSK3_SK3
5339#endif
5340 use pm_container, only: css_pdt
5341 use pm_kind, only: SKO => SK3, SKG => SK3
5342 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
5343 character(*, SK) , intent(in) , optional :: format
5344 logical(LK) , intent(in) , optional :: signed
5345 integer(IK) , intent(out) :: length
5346 character(*,SKO) , intent(out) :: str
5347 end subroutine
5348#endif
5349
5350#if SK2_ENABLED
5351 PURE module subroutine setStr_D1_PSSK2_SK3(str, length, val, format, signed)
5352#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5353 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_PSSK2_SK3
5354#endif
5355 use pm_container, only: css_pdt
5356 use pm_kind, only: SKO => SK3, SKG => SK2
5357 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
5358 character(*, SK) , intent(in) , optional :: format
5359 logical(LK) , intent(in) , optional :: signed
5360 integer(IK) , intent(out) :: length
5361 character(*,SKO) , intent(out) :: str
5362 end subroutine
5363#endif
5364
5365#if SK1_ENABLED
5366 PURE module subroutine setStr_D1_PSSK1_SK3(str, length, val, format, signed)
5367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5368 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_PSSK1_SK3
5369#endif
5370 use pm_container, only: css_pdt
5371 use pm_kind, only: SKO => SK3, SKG => SK1
5372 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
5373 character(*, SK) , intent(in) , optional :: format
5374 logical(LK) , intent(in) , optional :: signed
5375 integer(IK) , intent(out) :: length
5376 character(*,SKO) , intent(out) :: str
5377 end subroutine
5378#endif
5379
5380#endif
5381!PDT_ENABLED
5382
5383 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5384
5385 PURE module subroutine setStr_D1_BSSK_SK3(str, length, val, format, signed)
5386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5387 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_BSSK_SK3
5388#endif
5389 use pm_container, only: css_type
5390 use pm_kind, only: SKO => SK3, SKG => SK1
5391 type(css_type) , intent(in) , contiguous :: val(:)
5392 character(*, SK) , intent(in) , optional :: format
5393 logical(LK) , intent(in) , optional :: signed
5394 integer(IK) , intent(out) :: length
5395 character(*,SKO) , intent(out) :: str
5396 end subroutine
5397
5398 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5399
5400 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5401 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5402 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5403
5404 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5405
5406#if SK5_ENABLED
5407 PURE module subroutine setStr_D2_SK5_SK3(str, length, val, format, signed)
5408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5409 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_SK5_SK3
5410#endif
5411 use pm_kind, only: SKO => SK3, SKG => SK5
5412 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
5413 character(*, SK) , intent(in) , optional :: format
5414 logical(LK) , intent(in) , optional :: signed
5415 integer(IK) , intent(out) :: length
5416 character(*,SKO) , intent(out) :: str
5417 end subroutine
5418#endif
5419
5420#if SK4_ENABLED
5421 PURE module subroutine setStr_D2_SK4_SK3(str, length, val, format, signed)
5422#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5423 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_SK4_SK3
5424#endif
5425 use pm_kind, only: SKO => SK3, SKG => SK4
5426 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
5427 character(*, SK) , intent(in) , optional :: format
5428 logical(LK) , intent(in) , optional :: signed
5429 integer(IK) , intent(out) :: length
5430 character(*,SKO) , intent(out) :: str
5431 end subroutine
5432#endif
5433
5434#if SK3_ENABLED
5435 PURE module subroutine setStr_D2_SK3_SK3(str, length, val, format, signed)
5436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5437 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_SK3_SK3
5438#endif
5439 use pm_kind, only: SKO => SK3, SKG => SK3
5440 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
5441 character(*, SK) , intent(in) , optional :: format
5442 logical(LK) , intent(in) , optional :: signed
5443 integer(IK) , intent(out) :: length
5444 character(*,SKO) , intent(out) :: str
5445 end subroutine
5446#endif
5447
5448#if SK2_ENABLED
5449 PURE module subroutine setStr_D2_SK2_SK3(str, length, val, format, signed)
5450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5451 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_SK2_SK3
5452#endif
5453 use pm_kind, only: SKO => SK3, SKG => SK2
5454 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
5455 character(*, SK) , intent(in) , optional :: format
5456 logical(LK) , intent(in) , optional :: signed
5457 integer(IK) , intent(out) :: length
5458 character(*,SKO) , intent(out) :: str
5459 end subroutine
5460#endif
5461
5462#if SK1_ENABLED
5463 PURE module subroutine setStr_D2_SK1_SK3(str, length, val, format, signed)
5464#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5465 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_SK1_SK3
5466#endif
5467 use pm_kind, only: SKO => SK3, SKG => SK1
5468 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
5469 character(*, SK) , intent(in) , optional :: format
5470 logical(LK) , intent(in) , optional :: signed
5471 integer(IK) , intent(out) :: length
5472 character(*,SKO) , intent(out) :: str
5473 end subroutine
5474#endif
5475
5476 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5477
5478#if IK5_ENABLED
5479 PURE module subroutine setStr_D2_IK5_SK3(str, length, val, format, signed)
5480#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5481 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_IK5_SK3
5482#endif
5483 use pm_kind, only: SKO => SK3, IKG => IK5
5484 integer(IKG) , intent(in) , contiguous :: val(:,:)
5485 character(*, SK) , intent(in) , optional :: format
5486 logical(LK) , intent(in) , optional :: signed
5487 integer(IK) , intent(out) :: length
5488 character(*,SKO) , intent(out) :: str
5489 end subroutine
5490#endif
5491
5492#if IK4_ENABLED
5493 PURE module subroutine setStr_D2_IK4_SK3(str, length, val, format, signed)
5494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5495 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_IK4_SK3
5496#endif
5497 use pm_kind, only: SKO => SK3, IKG => IK4
5498 integer(IKG) , intent(in) , contiguous :: val(:,:)
5499 character(*, SK) , intent(in) , optional :: format
5500 logical(LK) , intent(in) , optional :: signed
5501 integer(IK) , intent(out) :: length
5502 character(*,SKO) , intent(out) :: str
5503 end subroutine
5504#endif
5505
5506#if IK3_ENABLED
5507 PURE module subroutine setStr_D2_IK3_SK3(str, length, val, format, signed)
5508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5509 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_IK3_SK3
5510#endif
5511 use pm_kind, only: SKO => SK3, IKG => IK3
5512 integer(IKG) , intent(in) , contiguous :: val(:,:)
5513 character(*, SK) , intent(in) , optional :: format
5514 logical(LK) , intent(in) , optional :: signed
5515 integer(IK) , intent(out) :: length
5516 character(*,SKO) , intent(out) :: str
5517 end subroutine
5518#endif
5519
5520#if IK2_ENABLED
5521 PURE module subroutine setStr_D2_IK2_SK3(str, length, val, format, signed)
5522#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5523 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_IK2_SK3
5524#endif
5525 use pm_kind, only: SKO => SK3, IKG => IK2
5526 integer(IKG) , intent(in) , contiguous :: val(:,:)
5527 character(*, SK) , intent(in) , optional :: format
5528 logical(LK) , intent(in) , optional :: signed
5529 integer(IK) , intent(out) :: length
5530 character(*,SKO) , intent(out) :: str
5531 end subroutine
5532#endif
5533
5534#if IK1_ENABLED
5535 PURE module subroutine setStr_D2_IK1_SK3(str, length, val, format, signed)
5536#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5537 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_IK1_SK3
5538#endif
5539 use pm_kind, only: SKO => SK3, IKG => IK1
5540 integer(IKG) , intent(in) , contiguous :: val(:,:)
5541 character(*, SK) , intent(in) , optional :: format
5542 logical(LK) , intent(in) , optional :: signed
5543 integer(IK) , intent(out) :: length
5544 character(*,SKO) , intent(out) :: str
5545 end subroutine
5546#endif
5547
5548 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5549
5550#if LK5_ENABLED
5551 PURE module subroutine setStr_D2_LK5_SK3(str, length, val, format, signed)
5552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5553 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_LK5_SK3
5554#endif
5555 use pm_kind, only: SKO => SK3, LKG => LK5
5556 logical(LKG) , intent(in) , contiguous :: val(:,:)
5557 character(*, SK) , intent(in) , optional :: format
5558 logical(LK) , intent(in) , optional :: signed
5559 integer(IK) , intent(out) :: length
5560 character(*,SKO) , intent(out) :: str
5561 end subroutine
5562#endif
5563
5564#if LK4_ENABLED
5565 PURE module subroutine setStr_D2_LK4_SK3(str, length, val, format, signed)
5566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5567 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_LK4_SK3
5568#endif
5569 use pm_kind, only: SKO => SK3, LKG => LK4
5570 logical(LKG) , intent(in) , contiguous :: val(:,:)
5571 character(*, SK) , intent(in) , optional :: format
5572 logical(LK) , intent(in) , optional :: signed
5573 integer(IK) , intent(out) :: length
5574 character(*,SKO) , intent(out) :: str
5575 end subroutine
5576#endif
5577
5578#if LK3_ENABLED
5579 PURE module subroutine setStr_D2_LK3_SK3(str, length, val, format, signed)
5580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5581 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_LK3_SK3
5582#endif
5583 use pm_kind, only: SKO => SK3, LKG => LK3
5584 logical(LKG) , intent(in) , contiguous :: val(:,:)
5585 character(*, SK) , intent(in) , optional :: format
5586 logical(LK) , intent(in) , optional :: signed
5587 integer(IK) , intent(out) :: length
5588 character(*,SKO) , intent(out) :: str
5589 end subroutine
5590#endif
5591
5592#if LK2_ENABLED
5593 PURE module subroutine setStr_D2_LK2_SK3(str, length, val, format, signed)
5594#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5595 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_LK2_SK3
5596#endif
5597 use pm_kind, only: SKO => SK3, LKG => LK2
5598 logical(LKG) , intent(in) , contiguous :: val(:,:)
5599 character(*, SK) , intent(in) , optional :: format
5600 logical(LK) , intent(in) , optional :: signed
5601 integer(IK) , intent(out) :: length
5602 character(*,SKO) , intent(out) :: str
5603 end subroutine
5604#endif
5605
5606#if LK1_ENABLED
5607 PURE module subroutine setStr_D2_LK1_SK3(str, length, val, format, signed)
5608#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5609 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_LK1_SK3
5610#endif
5611 use pm_kind, only: SKO => SK3, LKG => LK1
5612 logical(LKG) , intent(in) , contiguous :: val(:,:)
5613 character(*, SK) , intent(in) , optional :: format
5614 logical(LK) , intent(in) , optional :: signed
5615 integer(IK) , intent(out) :: length
5616 character(*,SKO) , intent(out) :: str
5617 end subroutine
5618#endif
5619
5620 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5621
5622#if CK5_ENABLED
5623 PURE module subroutine setStr_D2_CK5_SK3(str, length, val, format, signed)
5624#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5625 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_CK5_SK3
5626#endif
5627 use pm_kind, only: SKO => SK3, CKG => CK5
5628 complex(CKG) , intent(in) , contiguous :: val(:,:)
5629 character(*, SK) , intent(in) , optional :: format
5630 logical(LK) , intent(in) , optional :: signed
5631 integer(IK) , intent(out) :: length
5632 character(*,SKO) , intent(out) :: str
5633 end subroutine
5634#endif
5635
5636#if CK4_ENABLED
5637 PURE module subroutine setStr_D2_CK4_SK3(str, length, val, format, signed)
5638#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5639 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_CK4_SK3
5640#endif
5641 use pm_kind, only: SKO => SK3, CKG => CK4
5642 complex(CKG) , intent(in) , contiguous :: val(:,:)
5643 character(*, SK) , intent(in) , optional :: format
5644 logical(LK) , intent(in) , optional :: signed
5645 integer(IK) , intent(out) :: length
5646 character(*,SKO) , intent(out) :: str
5647 end subroutine
5648#endif
5649
5650#if CK3_ENABLED
5651 PURE module subroutine setStr_D2_CK3_SK3(str, length, val, format, signed)
5652#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5653 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_CK3_SK3
5654#endif
5655 use pm_kind, only: SKO => SK3, CKG => CK3
5656 complex(CKG) , intent(in) , contiguous :: val(:,:)
5657 character(*, SK) , intent(in) , optional :: format
5658 logical(LK) , intent(in) , optional :: signed
5659 integer(IK) , intent(out) :: length
5660 character(*,SKO) , intent(out) :: str
5661 end subroutine
5662#endif
5663
5664#if CK2_ENABLED
5665 PURE module subroutine setStr_D2_CK2_SK3(str, length, val, format, signed)
5666#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5667 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_CK2_SK3
5668#endif
5669 use pm_kind, only: SKO => SK3, CKG => CK2
5670 complex(CKG) , intent(in) , contiguous :: val(:,:)
5671 character(*, SK) , intent(in) , optional :: format
5672 logical(LK) , intent(in) , optional :: signed
5673 integer(IK) , intent(out) :: length
5674 character(*,SKO) , intent(out) :: str
5675 end subroutine
5676#endif
5677
5678#if CK1_ENABLED
5679 PURE module subroutine setStr_D2_CK1_SK3(str, length, val, format, signed)
5680#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5681 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_CK1_SK3
5682#endif
5683 use pm_kind, only: SKO => SK3, CKG => CK1
5684 complex(CKG) , intent(in) , contiguous :: val(:,:)
5685 character(*, SK) , intent(in) , optional :: format
5686 logical(LK) , intent(in) , optional :: signed
5687 integer(IK) , intent(out) :: length
5688 character(*,SKO) , intent(out) :: str
5689 end subroutine
5690#endif
5691
5692 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5693
5694#if RK5_ENABLED
5695 PURE module subroutine setStr_D2_RK5_SK3(str, length, val, format, signed)
5696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5697 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_RK5_SK3
5698#endif
5699 use pm_kind, only: SKO => SK3, RKG => RK5
5700 real(RKG) , intent(in) , contiguous :: val(:,:)
5701 character(*, SK) , intent(in) , optional :: format
5702 logical(LK) , intent(in) , optional :: signed
5703 integer(IK) , intent(out) :: length
5704 character(*,SKO) , intent(out) :: str
5705 end subroutine
5706#endif
5707
5708#if RK4_ENABLED
5709 PURE module subroutine setStr_D2_RK4_SK3(str, length, val, format, signed)
5710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5711 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_RK4_SK3
5712#endif
5713 use pm_kind, only: SKO => SK3, RKG => RK4
5714 real(RKG) , intent(in) , contiguous :: val(:,:)
5715 character(*, SK) , intent(in) , optional :: format
5716 logical(LK) , intent(in) , optional :: signed
5717 integer(IK) , intent(out) :: length
5718 character(*,SKO) , intent(out) :: str
5719 end subroutine
5720#endif
5721
5722#if RK3_ENABLED
5723 PURE module subroutine setStr_D2_RK3_SK3(str, length, val, format, signed)
5724#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5725 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_RK3_SK3
5726#endif
5727 use pm_kind, only: SKO => SK3, RKG => RK3
5728 real(RKG) , intent(in) , contiguous :: val(:,:)
5729 character(*, SK) , intent(in) , optional :: format
5730 logical(LK) , intent(in) , optional :: signed
5731 integer(IK) , intent(out) :: length
5732 character(*,SKO) , intent(out) :: str
5733 end subroutine
5734#endif
5735
5736#if RK2_ENABLED
5737 PURE module subroutine setStr_D2_RK2_SK3(str, length, val, format, signed)
5738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5739 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_RK2_SK3
5740#endif
5741 use pm_kind, only: SKO => SK3, RKG => RK2
5742 real(RKG) , intent(in) , contiguous :: val(:,:)
5743 character(*, SK) , intent(in) , optional :: format
5744 logical(LK) , intent(in) , optional :: signed
5745 integer(IK) , intent(out) :: length
5746 character(*,SKO) , intent(out) :: str
5747 end subroutine
5748#endif
5749
5750#if RK1_ENABLED
5751 PURE module subroutine setStr_D2_RK1_SK3(str, length, val, format, signed)
5752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5753 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_RK1_SK3
5754#endif
5755 use pm_kind, only: SKO => SK3, RKG => RK1
5756 real(RKG) , intent(in) , contiguous :: val(:,:)
5757 character(*, SK) , intent(in) , optional :: format
5758 logical(LK) , intent(in) , optional :: signed
5759 integer(IK) , intent(out) :: length
5760 character(*,SKO) , intent(out) :: str
5761 end subroutine
5762#endif
5763
5764 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5765
5766#if PDT_ENABLED
5767
5768#if SK5_ENABLED
5769 PURE module subroutine setStr_D2_PSSK5_SK3(str, length, val, format, signed)
5770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5771 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_PSSK5_SK3
5772#endif
5773 use pm_container, only: css_pdt
5774 use pm_kind, only: SKO => SK3, SKG => SK5
5775 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
5776 character(*, SK) , intent(in) , optional :: format
5777 logical(LK) , intent(in) , optional :: signed
5778 integer(IK) , intent(out) :: length
5779 character(*,SKO) , intent(out) :: str
5780 end subroutine
5781#endif
5782
5783#if SK4_ENABLED
5784 PURE module subroutine setStr_D2_PSSK4_SK3(str, length, val, format, signed)
5785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5786 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_PSSK4_SK3
5787#endif
5788 use pm_container, only: css_pdt
5789 use pm_kind, only: SKO => SK3, SKG => SK4
5790 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
5791 character(*, SK) , intent(in) , optional :: format
5792 logical(LK) , intent(in) , optional :: signed
5793 integer(IK) , intent(out) :: length
5794 character(*,SKO) , intent(out) :: str
5795 end subroutine
5796#endif
5797
5798#if SK3_ENABLED
5799 PURE module subroutine setStr_D2_PSSK3_SK3(str, length, val, format, signed)
5800#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5801 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_PSSK3_SK3
5802#endif
5803 use pm_container, only: css_pdt
5804 use pm_kind, only: SKO => SK3, SKG => SK3
5805 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
5806 character(*, SK) , intent(in) , optional :: format
5807 logical(LK) , intent(in) , optional :: signed
5808 integer(IK) , intent(out) :: length
5809 character(*,SKO) , intent(out) :: str
5810 end subroutine
5811#endif
5812
5813#if SK2_ENABLED
5814 PURE module subroutine setStr_D2_PSSK2_SK3(str, length, val, format, signed)
5815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5816 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_PSSK2_SK3
5817#endif
5818 use pm_container, only: css_pdt
5819 use pm_kind, only: SKO => SK3, SKG => SK2
5820 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
5821 character(*, SK) , intent(in) , optional :: format
5822 logical(LK) , intent(in) , optional :: signed
5823 integer(IK) , intent(out) :: length
5824 character(*,SKO) , intent(out) :: str
5825 end subroutine
5826#endif
5827
5828#if SK1_ENABLED
5829 PURE module subroutine setStr_D2_PSSK1_SK3(str, length, val, format, signed)
5830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5831 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_PSSK1_SK3
5832#endif
5833 use pm_container, only: css_pdt
5834 use pm_kind, only: SKO => SK3, SKG => SK1
5835 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
5836 character(*, SK) , intent(in) , optional :: format
5837 logical(LK) , intent(in) , optional :: signed
5838 integer(IK) , intent(out) :: length
5839 character(*,SKO) , intent(out) :: str
5840 end subroutine
5841#endif
5842
5843#endif
5844!PDT_ENABLED
5845
5846 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5847
5848 PURE module subroutine setStr_D2_BSSK_SK3(str, length, val, format, signed)
5849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5850 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_BSSK_SK3
5851#endif
5852 use pm_container, only: css_type
5853 use pm_kind, only: SKO => SK3, SKG => SK1
5854 type(css_type) , intent(in) , contiguous :: val(:,:)
5855 character(*, SK) , intent(in) , optional :: format
5856 logical(LK) , intent(in) , optional :: signed
5857 integer(IK) , intent(out) :: length
5858 character(*,SKO) , intent(out) :: str
5859 end subroutine
5860
5861 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5862
5863 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5864 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5865 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5866
5867 end interface
5868#endif
5869
5870 ! SKO => SK2
5871
5872#if SK2_ENABLED
5873 interface setStr
5874
5875 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5876 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5877 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5878
5879 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5880
5881#if SK5_ENABLED
5882 PURE module subroutine setStr_D0_SK5_SK2(str, length, val, format, signed)
5883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5884 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_SK5_SK2
5885#endif
5886 use pm_kind, only: SKO => SK2, SKG => SK5
5887 character(*,SKG) , intent(in) :: val
5888 character(*, SK) , intent(in) , optional :: format
5889 logical(LK) , intent(in) , optional :: signed
5890 integer(IK) , intent(out) :: length
5891 character(*,SKO) , intent(out) :: str
5892 end subroutine
5893#endif
5894
5895#if SK4_ENABLED
5896 PURE module subroutine setStr_D0_SK4_SK2(str, length, val, format, signed)
5897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5898 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_SK4_SK2
5899#endif
5900 use pm_kind, only: SKO => SK2, SKG => SK4
5901 character(*,SKG) , intent(in) :: val
5902 character(*, SK) , intent(in) , optional :: format
5903 logical(LK) , intent(in) , optional :: signed
5904 integer(IK) , intent(out) :: length
5905 character(*,SKO) , intent(out) :: str
5906 end subroutine
5907#endif
5908
5909#if SK3_ENABLED
5910 PURE module subroutine setStr_D0_SK3_SK2(str, length, val, format, signed)
5911#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5912 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_SK3_SK2
5913#endif
5914 use pm_kind, only: SKO => SK2, SKG => SK3
5915 character(*,SKG) , intent(in) :: val
5916 character(*, SK) , intent(in) , optional :: format
5917 logical(LK) , intent(in) , optional :: signed
5918 integer(IK) , intent(out) :: length
5919 character(*,SKO) , intent(out) :: str
5920 end subroutine
5921#endif
5922
5923#if SK2_ENABLED
5924 PURE module subroutine setStr_D0_SK2_SK2(str, length, val, format, signed)
5925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5926 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_SK2_SK2
5927#endif
5928 use pm_kind, only: SKO => SK2, SKG => SK2
5929 character(*,SKG) , intent(in) :: val
5930 character(*, SK) , intent(in) , optional :: format
5931 logical(LK) , intent(in) , optional :: signed
5932 integer(IK) , intent(out) :: length
5933 character(*,SKO) , intent(out) :: str
5934 end subroutine
5935#endif
5936
5937#if SK1_ENABLED
5938 PURE module subroutine setStr_D0_SK1_SK2(str, length, val, format, signed)
5939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5940 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_SK1_SK2
5941#endif
5942 use pm_kind, only: SKO => SK2, SKG => SK1
5943 character(*,SKG) , intent(in) :: val
5944 character(*, SK) , intent(in) , optional :: format
5945 logical(LK) , intent(in) , optional :: signed
5946 integer(IK) , intent(out) :: length
5947 character(*,SKO) , intent(out) :: str
5948 end subroutine
5949#endif
5950
5951 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5952
5953#if IK5_ENABLED
5954 PURE module subroutine setStr_D0_IK5_SK2(str, length, val, format, signed)
5955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5956 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_IK5_SK2
5957#endif
5958 use pm_kind, only: SKO => SK2, IKG => IK5
5959 integer(IKG) , intent(in) :: val
5960 character(*, SK) , intent(in) , optional :: format
5961 logical(LK) , intent(in) , optional :: signed
5962 integer(IK) , intent(out) :: length
5963 character(*,SKO) , intent(out) :: str
5964 end subroutine
5965#endif
5966
5967#if IK4_ENABLED
5968 PURE module subroutine setStr_D0_IK4_SK2(str, length, val, format, signed)
5969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5970 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_IK4_SK2
5971#endif
5972 use pm_kind, only: SKO => SK2, IKG => IK4
5973 integer(IKG) , intent(in) :: val
5974 character(*, SK) , intent(in) , optional :: format
5975 logical(LK) , intent(in) , optional :: signed
5976 integer(IK) , intent(out) :: length
5977 character(*,SKO) , intent(out) :: str
5978 end subroutine
5979#endif
5980
5981#if IK3_ENABLED
5982 PURE module subroutine setStr_D0_IK3_SK2(str, length, val, format, signed)
5983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5984 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_IK3_SK2
5985#endif
5986 use pm_kind, only: SKO => SK2, IKG => IK3
5987 integer(IKG) , intent(in) :: val
5988 character(*, SK) , intent(in) , optional :: format
5989 logical(LK) , intent(in) , optional :: signed
5990 integer(IK) , intent(out) :: length
5991 character(*,SKO) , intent(out) :: str
5992 end subroutine
5993#endif
5994
5995#if IK2_ENABLED
5996 PURE module subroutine setStr_D0_IK2_SK2(str, length, val, format, signed)
5997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5998 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_IK2_SK2
5999#endif
6000 use pm_kind, only: SKO => SK2, IKG => IK2
6001 integer(IKG) , intent(in) :: val
6002 character(*, SK) , intent(in) , optional :: format
6003 logical(LK) , intent(in) , optional :: signed
6004 integer(IK) , intent(out) :: length
6005 character(*,SKO) , intent(out) :: str
6006 end subroutine
6007#endif
6008
6009#if IK1_ENABLED
6010 PURE module subroutine setStr_D0_IK1_SK2(str, length, val, format, signed)
6011#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6012 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_IK1_SK2
6013#endif
6014 use pm_kind, only: SKO => SK2, IKG => IK1
6015 integer(IKG) , intent(in) :: val
6016 character(*, SK) , intent(in) , optional :: format
6017 logical(LK) , intent(in) , optional :: signed
6018 integer(IK) , intent(out) :: length
6019 character(*,SKO) , intent(out) :: str
6020 end subroutine
6021#endif
6022
6023 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6024
6025#if LK5_ENABLED
6026 PURE module subroutine setStr_D0_LK5_SK2(str, length, val, format, signed)
6027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6028 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_LK5_SK2
6029#endif
6030 use pm_kind, only: SKO => SK2, LKG => LK5
6031 logical(LKG) , intent(in) :: val
6032 character(*, SK) , intent(in) , optional :: format
6033 logical(LK) , intent(in) , optional :: signed
6034 integer(IK) , intent(out) :: length
6035 character(*,SKO) , intent(out) :: str
6036 end subroutine
6037#endif
6038
6039#if LK4_ENABLED
6040 PURE module subroutine setStr_D0_LK4_SK2(str, length, val, format, signed)
6041#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6042 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_LK4_SK2
6043#endif
6044 use pm_kind, only: SKO => SK2, LKG => LK4
6045 logical(LKG) , intent(in) :: val
6046 character(*, SK) , intent(in) , optional :: format
6047 logical(LK) , intent(in) , optional :: signed
6048 integer(IK) , intent(out) :: length
6049 character(*,SKO) , intent(out) :: str
6050 end subroutine
6051#endif
6052
6053#if LK3_ENABLED
6054 PURE module subroutine setStr_D0_LK3_SK2(str, length, val, format, signed)
6055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6056 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_LK3_SK2
6057#endif
6058 use pm_kind, only: SKO => SK2, LKG => LK3
6059 logical(LKG) , intent(in) :: val
6060 character(*, SK) , intent(in) , optional :: format
6061 logical(LK) , intent(in) , optional :: signed
6062 integer(IK) , intent(out) :: length
6063 character(*,SKO) , intent(out) :: str
6064 end subroutine
6065#endif
6066
6067#if LK2_ENABLED
6068 PURE module subroutine setStr_D0_LK2_SK2(str, length, val, format, signed)
6069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6070 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_LK2_SK2
6071#endif
6072 use pm_kind, only: SKO => SK2, LKG => LK2
6073 logical(LKG) , intent(in) :: val
6074 character(*, SK) , intent(in) , optional :: format
6075 logical(LK) , intent(in) , optional :: signed
6076 integer(IK) , intent(out) :: length
6077 character(*,SKO) , intent(out) :: str
6078 end subroutine
6079#endif
6080
6081#if LK1_ENABLED
6082 PURE module subroutine setStr_D0_LK1_SK2(str, length, val, format, signed)
6083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6084 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_LK1_SK2
6085#endif
6086 use pm_kind, only: SKO => SK2, LKG => LK1
6087 logical(LKG) , intent(in) :: val
6088 character(*, SK) , intent(in) , optional :: format
6089 logical(LK) , intent(in) , optional :: signed
6090 integer(IK) , intent(out) :: length
6091 character(*,SKO) , intent(out) :: str
6092 end subroutine
6093#endif
6094
6095 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6096
6097#if CK5_ENABLED
6098 PURE module subroutine setStr_D0_CK5_SK2(str, length, val, format, signed)
6099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6100 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_CK5_SK2
6101#endif
6102 use pm_kind, only: SKO => SK2, CKG => CK5
6103 complex(CKG) , intent(in) :: val
6104 character(*, SK) , intent(in) , optional :: format
6105 logical(LK) , intent(in) , optional :: signed
6106 integer(IK) , intent(out) :: length
6107 character(*,SKO) , intent(out) :: str
6108 end subroutine
6109#endif
6110
6111#if CK4_ENABLED
6112 PURE module subroutine setStr_D0_CK4_SK2(str, length, val, format, signed)
6113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6114 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_CK4_SK2
6115#endif
6116 use pm_kind, only: SKO => SK2, CKG => CK4
6117 complex(CKG) , intent(in) :: val
6118 character(*, SK) , intent(in) , optional :: format
6119 logical(LK) , intent(in) , optional :: signed
6120 integer(IK) , intent(out) :: length
6121 character(*,SKO) , intent(out) :: str
6122 end subroutine
6123#endif
6124
6125#if CK3_ENABLED
6126 PURE module subroutine setStr_D0_CK3_SK2(str, length, val, format, signed)
6127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6128 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_CK3_SK2
6129#endif
6130 use pm_kind, only: SKO => SK2, CKG => CK3
6131 complex(CKG) , intent(in) :: val
6132 character(*, SK) , intent(in) , optional :: format
6133 logical(LK) , intent(in) , optional :: signed
6134 integer(IK) , intent(out) :: length
6135 character(*,SKO) , intent(out) :: str
6136 end subroutine
6137#endif
6138
6139#if CK2_ENABLED
6140 PURE module subroutine setStr_D0_CK2_SK2(str, length, val, format, signed)
6141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6142 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_CK2_SK2
6143#endif
6144 use pm_kind, only: SKO => SK2, CKG => CK2
6145 complex(CKG) , intent(in) :: val
6146 character(*, SK) , intent(in) , optional :: format
6147 logical(LK) , intent(in) , optional :: signed
6148 integer(IK) , intent(out) :: length
6149 character(*,SKO) , intent(out) :: str
6150 end subroutine
6151#endif
6152
6153#if CK1_ENABLED
6154 PURE module subroutine setStr_D0_CK1_SK2(str, length, val, format, signed)
6155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6156 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_CK1_SK2
6157#endif
6158 use pm_kind, only: SKO => SK2, CKG => CK1
6159 complex(CKG) , intent(in) :: val
6160 character(*, SK) , intent(in) , optional :: format
6161 logical(LK) , intent(in) , optional :: signed
6162 integer(IK) , intent(out) :: length
6163 character(*,SKO) , intent(out) :: str
6164 end subroutine
6165#endif
6166
6167 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6168
6169#if RK5_ENABLED
6170 PURE module subroutine setStr_D0_RK5_SK2(str, length, val, format, signed)
6171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6172 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_RK5_SK2
6173#endif
6174 use pm_kind, only: SKO => SK2, RKG => RK5
6175 real(RKG) , intent(in) :: val
6176 character(*, SK) , intent(in) , optional :: format
6177 logical(LK) , intent(in) , optional :: signed
6178 integer(IK) , intent(out) :: length
6179 character(*,SKO) , intent(out) :: str
6180 end subroutine
6181#endif
6182
6183#if RK4_ENABLED
6184 PURE module subroutine setStr_D0_RK4_SK2(str, length, val, format, signed)
6185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6186 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_RK4_SK2
6187#endif
6188 use pm_kind, only: SKO => SK2, RKG => RK4
6189 real(RKG) , intent(in) :: val
6190 character(*, SK) , intent(in) , optional :: format
6191 logical(LK) , intent(in) , optional :: signed
6192 integer(IK) , intent(out) :: length
6193 character(*,SKO) , intent(out) :: str
6194 end subroutine
6195#endif
6196
6197#if RK3_ENABLED
6198 PURE module subroutine setStr_D0_RK3_SK2(str, length, val, format, signed)
6199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6200 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_RK3_SK2
6201#endif
6202 use pm_kind, only: SKO => SK2, RKG => RK3
6203 real(RKG) , intent(in) :: val
6204 character(*, SK) , intent(in) , optional :: format
6205 logical(LK) , intent(in) , optional :: signed
6206 integer(IK) , intent(out) :: length
6207 character(*,SKO) , intent(out) :: str
6208 end subroutine
6209#endif
6210
6211#if RK2_ENABLED
6212 PURE module subroutine setStr_D0_RK2_SK2(str, length, val, format, signed)
6213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6214 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_RK2_SK2
6215#endif
6216 use pm_kind, only: SKO => SK2, RKG => RK2
6217 real(RKG) , intent(in) :: val
6218 character(*, SK) , intent(in) , optional :: format
6219 logical(LK) , intent(in) , optional :: signed
6220 integer(IK) , intent(out) :: length
6221 character(*,SKO) , intent(out) :: str
6222 end subroutine
6223#endif
6224
6225#if RK1_ENABLED
6226 PURE module subroutine setStr_D0_RK1_SK2(str, length, val, format, signed)
6227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6228 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_RK1_SK2
6229#endif
6230 use pm_kind, only: SKO => SK2, RKG => RK1
6231 real(RKG) , intent(in) :: val
6232 character(*, SK) , intent(in) , optional :: format
6233 logical(LK) , intent(in) , optional :: signed
6234 integer(IK) , intent(out) :: length
6235 character(*,SKO) , intent(out) :: str
6236 end subroutine
6237#endif
6238
6239 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6240
6241#if PDT_ENABLED
6242
6243#if SK5_ENABLED
6244 PURE module subroutine setStr_D0_PSSK5_SK2(str, length, val, format, signed)
6245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6246 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_PSSK5_SK2
6247#endif
6248 use pm_container, only: css_pdt
6249 use pm_kind, only: SKO => SK2, SKG => SK5
6250 type(css_pdt(SKG)) , intent(in) :: val
6251 character(*, SK) , intent(in) , optional :: format
6252 logical(LK) , intent(in) , optional :: signed
6253 integer(IK) , intent(out) :: length
6254 character(*,SKO) , intent(out) :: str
6255 end subroutine
6256#endif
6257
6258#if SK4_ENABLED
6259 PURE module subroutine setStr_D0_PSSK4_SK2(str, length, val, format, signed)
6260#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6261 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_PSSK4_SK2
6262#endif
6263 use pm_container, only: css_pdt
6264 use pm_kind, only: SKO => SK2, SKG => SK4
6265 type(css_pdt(SKG)) , intent(in) :: val
6266 character(*, SK) , intent(in) , optional :: format
6267 logical(LK) , intent(in) , optional :: signed
6268 integer(IK) , intent(out) :: length
6269 character(*,SKO) , intent(out) :: str
6270 end subroutine
6271#endif
6272
6273#if SK3_ENABLED
6274 PURE module subroutine setStr_D0_PSSK3_SK2(str, length, val, format, signed)
6275#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6276 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_PSSK3_SK2
6277#endif
6278 use pm_container, only: css_pdt
6279 use pm_kind, only: SKO => SK2, SKG => SK3
6280 type(css_pdt(SKG)) , intent(in) :: val
6281 character(*, SK) , intent(in) , optional :: format
6282 logical(LK) , intent(in) , optional :: signed
6283 integer(IK) , intent(out) :: length
6284 character(*,SKO) , intent(out) :: str
6285 end subroutine
6286#endif
6287
6288#if SK2_ENABLED
6289 PURE module subroutine setStr_D0_PSSK2_SK2(str, length, val, format, signed)
6290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6291 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_PSSK2_SK2
6292#endif
6293 use pm_container, only: css_pdt
6294 use pm_kind, only: SKO => SK2, SKG => SK2
6295 type(css_pdt(SKG)) , intent(in) :: val
6296 character(*, SK) , intent(in) , optional :: format
6297 logical(LK) , intent(in) , optional :: signed
6298 integer(IK) , intent(out) :: length
6299 character(*,SKO) , intent(out) :: str
6300 end subroutine
6301#endif
6302
6303#if SK1_ENABLED
6304 PURE module subroutine setStr_D0_PSSK1_SK2(str, length, val, format, signed)
6305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6306 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_PSSK1_SK2
6307#endif
6308 use pm_container, only: css_pdt
6309 use pm_kind, only: SKO => SK2, SKG => SK1
6310 type(css_pdt(SKG)) , intent(in) :: val
6311 character(*, SK) , intent(in) , optional :: format
6312 logical(LK) , intent(in) , optional :: signed
6313 integer(IK) , intent(out) :: length
6314 character(*,SKO) , intent(out) :: str
6315 end subroutine
6316#endif
6317
6318#endif
6319!PDT_ENABLED
6320
6321 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6322
6323 PURE module subroutine setStr_D0_BSSK_SK2(str, length, val, format, signed)
6324#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6325 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_BSSK_SK2
6326#endif
6327 use pm_container, only: css_type
6328 use pm_kind, only: SKO => SK2, SKG => SK1
6329 type(css_type) , intent(in) :: val
6330 character(*, SK) , intent(in) , optional :: format
6331 logical(LK) , intent(in) , optional :: signed
6332 integer(IK) , intent(out) :: length
6333 character(*,SKO) , intent(out) :: str
6334 end subroutine
6335
6336 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6337
6338 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6339 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6340 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6341
6342 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6343
6344#if SK5_ENABLED
6345 PURE module subroutine setStr_D1_SK5_SK2(str, length, val, format, signed)
6346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6347 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_SK5_SK2
6348#endif
6349 use pm_kind, only: SKO => SK2, SKG => SK5
6350 character(*,SKG), target, intent(in) , contiguous :: val(:)
6351 character(*, SK) , intent(in) , optional :: format
6352 logical(LK) , intent(in) , optional :: signed
6353 integer(IK) , intent(out) :: length
6354 character(*,SKO) , intent(out) :: str
6355 end subroutine
6356#endif
6357
6358#if SK4_ENABLED
6359 PURE module subroutine setStr_D1_SK4_SK2(str, length, val, format, signed)
6360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6361 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_SK4_SK2
6362#endif
6363 use pm_kind, only: SKO => SK2, SKG => SK4
6364 character(*,SKG), target, intent(in) , contiguous :: val(:)
6365 character(*, SK) , intent(in) , optional :: format
6366 logical(LK) , intent(in) , optional :: signed
6367 integer(IK) , intent(out) :: length
6368 character(*,SKO) , intent(out) :: str
6369 end subroutine
6370#endif
6371
6372#if SK3_ENABLED
6373 PURE module subroutine setStr_D1_SK3_SK2(str, length, val, format, signed)
6374#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6375 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_SK3_SK2
6376#endif
6377 use pm_kind, only: SKO => SK2, SKG => SK3
6378 character(*,SKG), target, intent(in) , contiguous :: val(:)
6379 character(*, SK) , intent(in) , optional :: format
6380 logical(LK) , intent(in) , optional :: signed
6381 integer(IK) , intent(out) :: length
6382 character(*,SKO) , intent(out) :: str
6383 end subroutine
6384#endif
6385
6386#if SK2_ENABLED
6387 PURE module subroutine setStr_D1_SK2_SK2(str, length, val, format, signed)
6388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6389 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_SK2_SK2
6390#endif
6391 use pm_kind, only: SKO => SK2, SKG => SK2
6392 character(*,SKG), target, intent(in) , contiguous :: val(:)
6393 character(*, SK) , intent(in) , optional :: format
6394 logical(LK) , intent(in) , optional :: signed
6395 integer(IK) , intent(out) :: length
6396 character(*,SKO) , intent(out) :: str
6397 end subroutine
6398#endif
6399
6400#if SK1_ENABLED
6401 PURE module subroutine setStr_D1_SK1_SK2(str, length, val, format, signed)
6402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6403 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_SK1_SK2
6404#endif
6405 use pm_kind, only: SKO => SK2, SKG => SK1
6406 character(*,SKG), target, intent(in) , contiguous :: val(:)
6407 character(*, SK) , intent(in) , optional :: format
6408 logical(LK) , intent(in) , optional :: signed
6409 integer(IK) , intent(out) :: length
6410 character(*,SKO) , intent(out) :: str
6411 end subroutine
6412#endif
6413
6414 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6415
6416#if IK5_ENABLED
6417 PURE module subroutine setStr_D1_IK5_SK2(str, length, val, format, signed)
6418#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6419 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_IK5_SK2
6420#endif
6421 use pm_kind, only: SKO => SK2, IKG => IK5
6422 integer(IKG) , intent(in) , contiguous :: val(:)
6423 character(*, SK) , intent(in) , optional :: format
6424 logical(LK) , intent(in) , optional :: signed
6425 integer(IK) , intent(out) :: length
6426 character(*,SKO) , intent(out) :: str
6427 end subroutine
6428#endif
6429
6430#if IK4_ENABLED
6431 PURE module subroutine setStr_D1_IK4_SK2(str, length, val, format, signed)
6432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6433 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_IK4_SK2
6434#endif
6435 use pm_kind, only: SKO => SK2, IKG => IK4
6436 integer(IKG) , intent(in) , contiguous :: val(:)
6437 character(*, SK) , intent(in) , optional :: format
6438 logical(LK) , intent(in) , optional :: signed
6439 integer(IK) , intent(out) :: length
6440 character(*,SKO) , intent(out) :: str
6441 end subroutine
6442#endif
6443
6444#if IK3_ENABLED
6445 PURE module subroutine setStr_D1_IK3_SK2(str, length, val, format, signed)
6446#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6447 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_IK3_SK2
6448#endif
6449 use pm_kind, only: SKO => SK2, IKG => IK3
6450 integer(IKG) , intent(in) , contiguous :: val(:)
6451 character(*, SK) , intent(in) , optional :: format
6452 logical(LK) , intent(in) , optional :: signed
6453 integer(IK) , intent(out) :: length
6454 character(*,SKO) , intent(out) :: str
6455 end subroutine
6456#endif
6457
6458#if IK2_ENABLED
6459 PURE module subroutine setStr_D1_IK2_SK2(str, length, val, format, signed)
6460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6461 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_IK2_SK2
6462#endif
6463 use pm_kind, only: SKO => SK2, IKG => IK2
6464 integer(IKG) , intent(in) , contiguous :: val(:)
6465 character(*, SK) , intent(in) , optional :: format
6466 logical(LK) , intent(in) , optional :: signed
6467 integer(IK) , intent(out) :: length
6468 character(*,SKO) , intent(out) :: str
6469 end subroutine
6470#endif
6471
6472#if IK1_ENABLED
6473 PURE module subroutine setStr_D1_IK1_SK2(str, length, val, format, signed)
6474#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6475 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_IK1_SK2
6476#endif
6477 use pm_kind, only: SKO => SK2, IKG => IK1
6478 integer(IKG) , intent(in) , contiguous :: val(:)
6479 character(*, SK) , intent(in) , optional :: format
6480 logical(LK) , intent(in) , optional :: signed
6481 integer(IK) , intent(out) :: length
6482 character(*,SKO) , intent(out) :: str
6483 end subroutine
6484#endif
6485
6486 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6487
6488#if LK5_ENABLED
6489 PURE module subroutine setStr_D1_LK5_SK2(str, length, val, format, signed)
6490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6491 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_LK5_SK2
6492#endif
6493 use pm_kind, only: SKO => SK2, LKG => LK5
6494 logical(LKG) , intent(in) , contiguous :: val(:)
6495 character(*, SK) , intent(in) , optional :: format
6496 logical(LK) , intent(in) , optional :: signed
6497 integer(IK) , intent(out) :: length
6498 character(*,SKO) , intent(out) :: str
6499 end subroutine
6500#endif
6501
6502#if LK4_ENABLED
6503 PURE module subroutine setStr_D1_LK4_SK2(str, length, val, format, signed)
6504#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6505 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_LK4_SK2
6506#endif
6507 use pm_kind, only: SKO => SK2, LKG => LK4
6508 logical(LKG) , intent(in) , contiguous :: val(:)
6509 character(*, SK) , intent(in) , optional :: format
6510 logical(LK) , intent(in) , optional :: signed
6511 integer(IK) , intent(out) :: length
6512 character(*,SKO) , intent(out) :: str
6513 end subroutine
6514#endif
6515
6516#if LK3_ENABLED
6517 PURE module subroutine setStr_D1_LK3_SK2(str, length, val, format, signed)
6518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6519 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_LK3_SK2
6520#endif
6521 use pm_kind, only: SKO => SK2, LKG => LK3
6522 logical(LKG) , intent(in) , contiguous :: val(:)
6523 character(*, SK) , intent(in) , optional :: format
6524 logical(LK) , intent(in) , optional :: signed
6525 integer(IK) , intent(out) :: length
6526 character(*,SKO) , intent(out) :: str
6527 end subroutine
6528#endif
6529
6530#if LK2_ENABLED
6531 PURE module subroutine setStr_D1_LK2_SK2(str, length, val, format, signed)
6532#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6533 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_LK2_SK2
6534#endif
6535 use pm_kind, only: SKO => SK2, LKG => LK2
6536 logical(LKG) , intent(in) , contiguous :: val(:)
6537 character(*, SK) , intent(in) , optional :: format
6538 logical(LK) , intent(in) , optional :: signed
6539 integer(IK) , intent(out) :: length
6540 character(*,SKO) , intent(out) :: str
6541 end subroutine
6542#endif
6543
6544#if LK1_ENABLED
6545 PURE module subroutine setStr_D1_LK1_SK2(str, length, val, format, signed)
6546#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6547 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_LK1_SK2
6548#endif
6549 use pm_kind, only: SKO => SK2, LKG => LK1
6550 logical(LKG) , intent(in) , contiguous :: val(:)
6551 character(*, SK) , intent(in) , optional :: format
6552 logical(LK) , intent(in) , optional :: signed
6553 integer(IK) , intent(out) :: length
6554 character(*,SKO) , intent(out) :: str
6555 end subroutine
6556#endif
6557
6558 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6559
6560#if CK5_ENABLED
6561 PURE module subroutine setStr_D1_CK5_SK2(str, length, val, format, signed)
6562#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6563 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_CK5_SK2
6564#endif
6565 use pm_kind, only: SKO => SK2, CKG => CK5
6566 complex(CKG) , intent(in) , contiguous :: val(:)
6567 character(*, SK) , intent(in) , optional :: format
6568 logical(LK) , intent(in) , optional :: signed
6569 integer(IK) , intent(out) :: length
6570 character(*,SKO) , intent(out) :: str
6571 end subroutine
6572#endif
6573
6574#if CK4_ENABLED
6575 PURE module subroutine setStr_D1_CK4_SK2(str, length, val, format, signed)
6576#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6577 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_CK4_SK2
6578#endif
6579 use pm_kind, only: SKO => SK2, CKG => CK4
6580 complex(CKG) , intent(in) , contiguous :: val(:)
6581 character(*, SK) , intent(in) , optional :: format
6582 logical(LK) , intent(in) , optional :: signed
6583 integer(IK) , intent(out) :: length
6584 character(*,SKO) , intent(out) :: str
6585 end subroutine
6586#endif
6587
6588#if CK3_ENABLED
6589 PURE module subroutine setStr_D1_CK3_SK2(str, length, val, format, signed)
6590#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6591 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_CK3_SK2
6592#endif
6593 use pm_kind, only: SKO => SK2, CKG => CK3
6594 complex(CKG) , intent(in) , contiguous :: val(:)
6595 character(*, SK) , intent(in) , optional :: format
6596 logical(LK) , intent(in) , optional :: signed
6597 integer(IK) , intent(out) :: length
6598 character(*,SKO) , intent(out) :: str
6599 end subroutine
6600#endif
6601
6602#if CK2_ENABLED
6603 PURE module subroutine setStr_D1_CK2_SK2(str, length, val, format, signed)
6604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6605 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_CK2_SK2
6606#endif
6607 use pm_kind, only: SKO => SK2, CKG => CK2
6608 complex(CKG) , intent(in) , contiguous :: val(:)
6609 character(*, SK) , intent(in) , optional :: format
6610 logical(LK) , intent(in) , optional :: signed
6611 integer(IK) , intent(out) :: length
6612 character(*,SKO) , intent(out) :: str
6613 end subroutine
6614#endif
6615
6616#if CK1_ENABLED
6617 PURE module subroutine setStr_D1_CK1_SK2(str, length, val, format, signed)
6618#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6619 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_CK1_SK2
6620#endif
6621 use pm_kind, only: SKO => SK2, CKG => CK1
6622 complex(CKG) , intent(in) , contiguous :: val(:)
6623 character(*, SK) , intent(in) , optional :: format
6624 logical(LK) , intent(in) , optional :: signed
6625 integer(IK) , intent(out) :: length
6626 character(*,SKO) , intent(out) :: str
6627 end subroutine
6628#endif
6629
6630 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6631
6632#if RK5_ENABLED
6633 PURE module subroutine setStr_D1_RK5_SK2(str, length, val, format, signed)
6634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6635 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_RK5_SK2
6636#endif
6637 use pm_kind, only: SKO => SK2, RKG => RK5
6638 real(RKG) , intent(in) , contiguous :: val(:)
6639 character(*, SK) , intent(in) , optional :: format
6640 logical(LK) , intent(in) , optional :: signed
6641 integer(IK) , intent(out) :: length
6642 character(*,SKO) , intent(out) :: str
6643 end subroutine
6644#endif
6645
6646#if RK4_ENABLED
6647 PURE module subroutine setStr_D1_RK4_SK2(str, length, val, format, signed)
6648#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6649 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_RK4_SK2
6650#endif
6651 use pm_kind, only: SKO => SK2, RKG => RK4
6652 real(RKG) , intent(in) , contiguous :: val(:)
6653 character(*, SK) , intent(in) , optional :: format
6654 logical(LK) , intent(in) , optional :: signed
6655 integer(IK) , intent(out) :: length
6656 character(*,SKO) , intent(out) :: str
6657 end subroutine
6658#endif
6659
6660#if RK3_ENABLED
6661 PURE module subroutine setStr_D1_RK3_SK2(str, length, val, format, signed)
6662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6663 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_RK3_SK2
6664#endif
6665 use pm_kind, only: SKO => SK2, RKG => RK3
6666 real(RKG) , intent(in) , contiguous :: val(:)
6667 character(*, SK) , intent(in) , optional :: format
6668 logical(LK) , intent(in) , optional :: signed
6669 integer(IK) , intent(out) :: length
6670 character(*,SKO) , intent(out) :: str
6671 end subroutine
6672#endif
6673
6674#if RK2_ENABLED
6675 PURE module subroutine setStr_D1_RK2_SK2(str, length, val, format, signed)
6676#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6677 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_RK2_SK2
6678#endif
6679 use pm_kind, only: SKO => SK2, RKG => RK2
6680 real(RKG) , intent(in) , contiguous :: val(:)
6681 character(*, SK) , intent(in) , optional :: format
6682 logical(LK) , intent(in) , optional :: signed
6683 integer(IK) , intent(out) :: length
6684 character(*,SKO) , intent(out) :: str
6685 end subroutine
6686#endif
6687
6688#if RK1_ENABLED
6689 PURE module subroutine setStr_D1_RK1_SK2(str, length, val, format, signed)
6690#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6691 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_RK1_SK2
6692#endif
6693 use pm_kind, only: SKO => SK2, RKG => RK1
6694 real(RKG) , intent(in) , contiguous :: val(:)
6695 character(*, SK) , intent(in) , optional :: format
6696 logical(LK) , intent(in) , optional :: signed
6697 integer(IK) , intent(out) :: length
6698 character(*,SKO) , intent(out) :: str
6699 end subroutine
6700#endif
6701
6702 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6703
6704#if PDT_ENABLED
6705
6706#if SK5_ENABLED
6707 PURE module subroutine setStr_D1_PSSK5_SK2(str, length, val, format, signed)
6708#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6709 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_PSSK5_SK2
6710#endif
6711 use pm_container, only: css_pdt
6712 use pm_kind, only: SKO => SK2, SKG => SK5
6713 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
6714 character(*, SK) , intent(in) , optional :: format
6715 logical(LK) , intent(in) , optional :: signed
6716 integer(IK) , intent(out) :: length
6717 character(*,SKO) , intent(out) :: str
6718 end subroutine
6719#endif
6720
6721#if SK4_ENABLED
6722 PURE module subroutine setStr_D1_PSSK4_SK2(str, length, val, format, signed)
6723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6724 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_PSSK4_SK2
6725#endif
6726 use pm_container, only: css_pdt
6727 use pm_kind, only: SKO => SK2, SKG => SK4
6728 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
6729 character(*, SK) , intent(in) , optional :: format
6730 logical(LK) , intent(in) , optional :: signed
6731 integer(IK) , intent(out) :: length
6732 character(*,SKO) , intent(out) :: str
6733 end subroutine
6734#endif
6735
6736#if SK3_ENABLED
6737 PURE module subroutine setStr_D1_PSSK3_SK2(str, length, val, format, signed)
6738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6739 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_PSSK3_SK2
6740#endif
6741 use pm_container, only: css_pdt
6742 use pm_kind, only: SKO => SK2, SKG => SK3
6743 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
6744 character(*, SK) , intent(in) , optional :: format
6745 logical(LK) , intent(in) , optional :: signed
6746 integer(IK) , intent(out) :: length
6747 character(*,SKO) , intent(out) :: str
6748 end subroutine
6749#endif
6750
6751#if SK2_ENABLED
6752 PURE module subroutine setStr_D1_PSSK2_SK2(str, length, val, format, signed)
6753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6754 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_PSSK2_SK2
6755#endif
6756 use pm_container, only: css_pdt
6757 use pm_kind, only: SKO => SK2, SKG => SK2
6758 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
6759 character(*, SK) , intent(in) , optional :: format
6760 logical(LK) , intent(in) , optional :: signed
6761 integer(IK) , intent(out) :: length
6762 character(*,SKO) , intent(out) :: str
6763 end subroutine
6764#endif
6765
6766#if SK1_ENABLED
6767 PURE module subroutine setStr_D1_PSSK1_SK2(str, length, val, format, signed)
6768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6769 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_PSSK1_SK2
6770#endif
6771 use pm_container, only: css_pdt
6772 use pm_kind, only: SKO => SK2, SKG => SK1
6773 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
6774 character(*, SK) , intent(in) , optional :: format
6775 logical(LK) , intent(in) , optional :: signed
6776 integer(IK) , intent(out) :: length
6777 character(*,SKO) , intent(out) :: str
6778 end subroutine
6779#endif
6780
6781#endif
6782!PDT_ENABLED
6783
6784 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6785
6786 PURE module subroutine setStr_D1_BSSK_SK2(str, length, val, format, signed)
6787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6788 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_BSSK_SK2
6789#endif
6790 use pm_container, only: css_type
6791 use pm_kind, only: SKO => SK2, SKG => SK1
6792 type(css_type) , intent(in) , contiguous :: val(:)
6793 character(*, SK) , intent(in) , optional :: format
6794 logical(LK) , intent(in) , optional :: signed
6795 integer(IK) , intent(out) :: length
6796 character(*,SKO) , intent(out) :: str
6797 end subroutine
6798
6799 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6800
6801 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6802 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6803 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6804
6805 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6806
6807#if SK5_ENABLED
6808 PURE module subroutine setStr_D2_SK5_SK2(str, length, val, format, signed)
6809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6810 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_SK5_SK2
6811#endif
6812 use pm_kind, only: SKO => SK2, SKG => SK5
6813 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
6814 character(*, SK) , intent(in) , optional :: format
6815 logical(LK) , intent(in) , optional :: signed
6816 integer(IK) , intent(out) :: length
6817 character(*,SKO) , intent(out) :: str
6818 end subroutine
6819#endif
6820
6821#if SK4_ENABLED
6822 PURE module subroutine setStr_D2_SK4_SK2(str, length, val, format, signed)
6823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6824 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_SK4_SK2
6825#endif
6826 use pm_kind, only: SKO => SK2, SKG => SK4
6827 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
6828 character(*, SK) , intent(in) , optional :: format
6829 logical(LK) , intent(in) , optional :: signed
6830 integer(IK) , intent(out) :: length
6831 character(*,SKO) , intent(out) :: str
6832 end subroutine
6833#endif
6834
6835#if SK3_ENABLED
6836 PURE module subroutine setStr_D2_SK3_SK2(str, length, val, format, signed)
6837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6838 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_SK3_SK2
6839#endif
6840 use pm_kind, only: SKO => SK2, SKG => SK3
6841 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
6842 character(*, SK) , intent(in) , optional :: format
6843 logical(LK) , intent(in) , optional :: signed
6844 integer(IK) , intent(out) :: length
6845 character(*,SKO) , intent(out) :: str
6846 end subroutine
6847#endif
6848
6849#if SK2_ENABLED
6850 PURE module subroutine setStr_D2_SK2_SK2(str, length, val, format, signed)
6851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6852 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_SK2_SK2
6853#endif
6854 use pm_kind, only: SKO => SK2, SKG => SK2
6855 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
6856 character(*, SK) , intent(in) , optional :: format
6857 logical(LK) , intent(in) , optional :: signed
6858 integer(IK) , intent(out) :: length
6859 character(*,SKO) , intent(out) :: str
6860 end subroutine
6861#endif
6862
6863#if SK1_ENABLED
6864 PURE module subroutine setStr_D2_SK1_SK2(str, length, val, format, signed)
6865#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6866 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_SK1_SK2
6867#endif
6868 use pm_kind, only: SKO => SK2, SKG => SK1
6869 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
6870 character(*, SK) , intent(in) , optional :: format
6871 logical(LK) , intent(in) , optional :: signed
6872 integer(IK) , intent(out) :: length
6873 character(*,SKO) , intent(out) :: str
6874 end subroutine
6875#endif
6876
6877 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6878
6879#if IK5_ENABLED
6880 PURE module subroutine setStr_D2_IK5_SK2(str, length, val, format, signed)
6881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6882 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_IK5_SK2
6883#endif
6884 use pm_kind, only: SKO => SK2, IKG => IK5
6885 integer(IKG) , intent(in) , contiguous :: val(:,:)
6886 character(*, SK) , intent(in) , optional :: format
6887 logical(LK) , intent(in) , optional :: signed
6888 integer(IK) , intent(out) :: length
6889 character(*,SKO) , intent(out) :: str
6890 end subroutine
6891#endif
6892
6893#if IK4_ENABLED
6894 PURE module subroutine setStr_D2_IK4_SK2(str, length, val, format, signed)
6895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6896 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_IK4_SK2
6897#endif
6898 use pm_kind, only: SKO => SK2, IKG => IK4
6899 integer(IKG) , intent(in) , contiguous :: val(:,:)
6900 character(*, SK) , intent(in) , optional :: format
6901 logical(LK) , intent(in) , optional :: signed
6902 integer(IK) , intent(out) :: length
6903 character(*,SKO) , intent(out) :: str
6904 end subroutine
6905#endif
6906
6907#if IK3_ENABLED
6908 PURE module subroutine setStr_D2_IK3_SK2(str, length, val, format, signed)
6909#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6910 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_IK3_SK2
6911#endif
6912 use pm_kind, only: SKO => SK2, IKG => IK3
6913 integer(IKG) , intent(in) , contiguous :: val(:,:)
6914 character(*, SK) , intent(in) , optional :: format
6915 logical(LK) , intent(in) , optional :: signed
6916 integer(IK) , intent(out) :: length
6917 character(*,SKO) , intent(out) :: str
6918 end subroutine
6919#endif
6920
6921#if IK2_ENABLED
6922 PURE module subroutine setStr_D2_IK2_SK2(str, length, val, format, signed)
6923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6924 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_IK2_SK2
6925#endif
6926 use pm_kind, only: SKO => SK2, IKG => IK2
6927 integer(IKG) , intent(in) , contiguous :: val(:,:)
6928 character(*, SK) , intent(in) , optional :: format
6929 logical(LK) , intent(in) , optional :: signed
6930 integer(IK) , intent(out) :: length
6931 character(*,SKO) , intent(out) :: str
6932 end subroutine
6933#endif
6934
6935#if IK1_ENABLED
6936 PURE module subroutine setStr_D2_IK1_SK2(str, length, val, format, signed)
6937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6938 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_IK1_SK2
6939#endif
6940 use pm_kind, only: SKO => SK2, IKG => IK1
6941 integer(IKG) , intent(in) , contiguous :: val(:,:)
6942 character(*, SK) , intent(in) , optional :: format
6943 logical(LK) , intent(in) , optional :: signed
6944 integer(IK) , intent(out) :: length
6945 character(*,SKO) , intent(out) :: str
6946 end subroutine
6947#endif
6948
6949 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6950
6951#if LK5_ENABLED
6952 PURE module subroutine setStr_D2_LK5_SK2(str, length, val, format, signed)
6953#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6954 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_LK5_SK2
6955#endif
6956 use pm_kind, only: SKO => SK2, LKG => LK5
6957 logical(LKG) , intent(in) , contiguous :: val(:,:)
6958 character(*, SK) , intent(in) , optional :: format
6959 logical(LK) , intent(in) , optional :: signed
6960 integer(IK) , intent(out) :: length
6961 character(*,SKO) , intent(out) :: str
6962 end subroutine
6963#endif
6964
6965#if LK4_ENABLED
6966 PURE module subroutine setStr_D2_LK4_SK2(str, length, val, format, signed)
6967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6968 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_LK4_SK2
6969#endif
6970 use pm_kind, only: SKO => SK2, LKG => LK4
6971 logical(LKG) , intent(in) , contiguous :: val(:,:)
6972 character(*, SK) , intent(in) , optional :: format
6973 logical(LK) , intent(in) , optional :: signed
6974 integer(IK) , intent(out) :: length
6975 character(*,SKO) , intent(out) :: str
6976 end subroutine
6977#endif
6978
6979#if LK3_ENABLED
6980 PURE module subroutine setStr_D2_LK3_SK2(str, length, val, format, signed)
6981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6982 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_LK3_SK2
6983#endif
6984 use pm_kind, only: SKO => SK2, LKG => LK3
6985 logical(LKG) , intent(in) , contiguous :: val(:,:)
6986 character(*, SK) , intent(in) , optional :: format
6987 logical(LK) , intent(in) , optional :: signed
6988 integer(IK) , intent(out) :: length
6989 character(*,SKO) , intent(out) :: str
6990 end subroutine
6991#endif
6992
6993#if LK2_ENABLED
6994 PURE module subroutine setStr_D2_LK2_SK2(str, length, val, format, signed)
6995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6996 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_LK2_SK2
6997#endif
6998 use pm_kind, only: SKO => SK2, LKG => LK2
6999 logical(LKG) , intent(in) , contiguous :: val(:,:)
7000 character(*, SK) , intent(in) , optional :: format
7001 logical(LK) , intent(in) , optional :: signed
7002 integer(IK) , intent(out) :: length
7003 character(*,SKO) , intent(out) :: str
7004 end subroutine
7005#endif
7006
7007#if LK1_ENABLED
7008 PURE module subroutine setStr_D2_LK1_SK2(str, length, val, format, signed)
7009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7010 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_LK1_SK2
7011#endif
7012 use pm_kind, only: SKO => SK2, LKG => LK1
7013 logical(LKG) , intent(in) , contiguous :: val(:,:)
7014 character(*, SK) , intent(in) , optional :: format
7015 logical(LK) , intent(in) , optional :: signed
7016 integer(IK) , intent(out) :: length
7017 character(*,SKO) , intent(out) :: str
7018 end subroutine
7019#endif
7020
7021 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7022
7023#if CK5_ENABLED
7024 PURE module subroutine setStr_D2_CK5_SK2(str, length, val, format, signed)
7025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7026 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_CK5_SK2
7027#endif
7028 use pm_kind, only: SKO => SK2, CKG => CK5
7029 complex(CKG) , intent(in) , contiguous :: val(:,:)
7030 character(*, SK) , intent(in) , optional :: format
7031 logical(LK) , intent(in) , optional :: signed
7032 integer(IK) , intent(out) :: length
7033 character(*,SKO) , intent(out) :: str
7034 end subroutine
7035#endif
7036
7037#if CK4_ENABLED
7038 PURE module subroutine setStr_D2_CK4_SK2(str, length, val, format, signed)
7039#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7040 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_CK4_SK2
7041#endif
7042 use pm_kind, only: SKO => SK2, CKG => CK4
7043 complex(CKG) , intent(in) , contiguous :: val(:,:)
7044 character(*, SK) , intent(in) , optional :: format
7045 logical(LK) , intent(in) , optional :: signed
7046 integer(IK) , intent(out) :: length
7047 character(*,SKO) , intent(out) :: str
7048 end subroutine
7049#endif
7050
7051#if CK3_ENABLED
7052 PURE module subroutine setStr_D2_CK3_SK2(str, length, val, format, signed)
7053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7054 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_CK3_SK2
7055#endif
7056 use pm_kind, only: SKO => SK2, CKG => CK3
7057 complex(CKG) , intent(in) , contiguous :: val(:,:)
7058 character(*, SK) , intent(in) , optional :: format
7059 logical(LK) , intent(in) , optional :: signed
7060 integer(IK) , intent(out) :: length
7061 character(*,SKO) , intent(out) :: str
7062 end subroutine
7063#endif
7064
7065#if CK2_ENABLED
7066 PURE module subroutine setStr_D2_CK2_SK2(str, length, val, format, signed)
7067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7068 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_CK2_SK2
7069#endif
7070 use pm_kind, only: SKO => SK2, CKG => CK2
7071 complex(CKG) , intent(in) , contiguous :: val(:,:)
7072 character(*, SK) , intent(in) , optional :: format
7073 logical(LK) , intent(in) , optional :: signed
7074 integer(IK) , intent(out) :: length
7075 character(*,SKO) , intent(out) :: str
7076 end subroutine
7077#endif
7078
7079#if CK1_ENABLED
7080 PURE module subroutine setStr_D2_CK1_SK2(str, length, val, format, signed)
7081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7082 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_CK1_SK2
7083#endif
7084 use pm_kind, only: SKO => SK2, CKG => CK1
7085 complex(CKG) , intent(in) , contiguous :: val(:,:)
7086 character(*, SK) , intent(in) , optional :: format
7087 logical(LK) , intent(in) , optional :: signed
7088 integer(IK) , intent(out) :: length
7089 character(*,SKO) , intent(out) :: str
7090 end subroutine
7091#endif
7092
7093 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7094
7095#if RK5_ENABLED
7096 PURE module subroutine setStr_D2_RK5_SK2(str, length, val, format, signed)
7097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7098 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_RK5_SK2
7099#endif
7100 use pm_kind, only: SKO => SK2, RKG => RK5
7101 real(RKG) , intent(in) , contiguous :: val(:,:)
7102 character(*, SK) , intent(in) , optional :: format
7103 logical(LK) , intent(in) , optional :: signed
7104 integer(IK) , intent(out) :: length
7105 character(*,SKO) , intent(out) :: str
7106 end subroutine
7107#endif
7108
7109#if RK4_ENABLED
7110 PURE module subroutine setStr_D2_RK4_SK2(str, length, val, format, signed)
7111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7112 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_RK4_SK2
7113#endif
7114 use pm_kind, only: SKO => SK2, RKG => RK4
7115 real(RKG) , intent(in) , contiguous :: val(:,:)
7116 character(*, SK) , intent(in) , optional :: format
7117 logical(LK) , intent(in) , optional :: signed
7118 integer(IK) , intent(out) :: length
7119 character(*,SKO) , intent(out) :: str
7120 end subroutine
7121#endif
7122
7123#if RK3_ENABLED
7124 PURE module subroutine setStr_D2_RK3_SK2(str, length, val, format, signed)
7125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7126 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_RK3_SK2
7127#endif
7128 use pm_kind, only: SKO => SK2, RKG => RK3
7129 real(RKG) , intent(in) , contiguous :: val(:,:)
7130 character(*, SK) , intent(in) , optional :: format
7131 logical(LK) , intent(in) , optional :: signed
7132 integer(IK) , intent(out) :: length
7133 character(*,SKO) , intent(out) :: str
7134 end subroutine
7135#endif
7136
7137#if RK2_ENABLED
7138 PURE module subroutine setStr_D2_RK2_SK2(str, length, val, format, signed)
7139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7140 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_RK2_SK2
7141#endif
7142 use pm_kind, only: SKO => SK2, RKG => RK2
7143 real(RKG) , intent(in) , contiguous :: val(:,:)
7144 character(*, SK) , intent(in) , optional :: format
7145 logical(LK) , intent(in) , optional :: signed
7146 integer(IK) , intent(out) :: length
7147 character(*,SKO) , intent(out) :: str
7148 end subroutine
7149#endif
7150
7151#if RK1_ENABLED
7152 PURE module subroutine setStr_D2_RK1_SK2(str, length, val, format, signed)
7153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7154 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_RK1_SK2
7155#endif
7156 use pm_kind, only: SKO => SK2, RKG => RK1
7157 real(RKG) , intent(in) , contiguous :: val(:,:)
7158 character(*, SK) , intent(in) , optional :: format
7159 logical(LK) , intent(in) , optional :: signed
7160 integer(IK) , intent(out) :: length
7161 character(*,SKO) , intent(out) :: str
7162 end subroutine
7163#endif
7164
7165 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7166
7167#if PDT_ENABLED
7168
7169#if SK5_ENABLED
7170 PURE module subroutine setStr_D2_PSSK5_SK2(str, length, val, format, signed)
7171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7172 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_PSSK5_SK2
7173#endif
7174 use pm_container, only: css_pdt
7175 use pm_kind, only: SKO => SK2, SKG => SK5
7176 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
7177 character(*, SK) , intent(in) , optional :: format
7178 logical(LK) , intent(in) , optional :: signed
7179 integer(IK) , intent(out) :: length
7180 character(*,SKO) , intent(out) :: str
7181 end subroutine
7182#endif
7183
7184#if SK4_ENABLED
7185 PURE module subroutine setStr_D2_PSSK4_SK2(str, length, val, format, signed)
7186#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7187 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_PSSK4_SK2
7188#endif
7189 use pm_container, only: css_pdt
7190 use pm_kind, only: SKO => SK2, SKG => SK4
7191 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
7192 character(*, SK) , intent(in) , optional :: format
7193 logical(LK) , intent(in) , optional :: signed
7194 integer(IK) , intent(out) :: length
7195 character(*,SKO) , intent(out) :: str
7196 end subroutine
7197#endif
7198
7199#if SK3_ENABLED
7200 PURE module subroutine setStr_D2_PSSK3_SK2(str, length, val, format, signed)
7201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7202 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_PSSK3_SK2
7203#endif
7204 use pm_container, only: css_pdt
7205 use pm_kind, only: SKO => SK2, SKG => SK3
7206 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
7207 character(*, SK) , intent(in) , optional :: format
7208 logical(LK) , intent(in) , optional :: signed
7209 integer(IK) , intent(out) :: length
7210 character(*,SKO) , intent(out) :: str
7211 end subroutine
7212#endif
7213
7214#if SK2_ENABLED
7215 PURE module subroutine setStr_D2_PSSK2_SK2(str, length, val, format, signed)
7216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7217 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_PSSK2_SK2
7218#endif
7219 use pm_container, only: css_pdt
7220 use pm_kind, only: SKO => SK2, SKG => SK2
7221 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
7222 character(*, SK) , intent(in) , optional :: format
7223 logical(LK) , intent(in) , optional :: signed
7224 integer(IK) , intent(out) :: length
7225 character(*,SKO) , intent(out) :: str
7226 end subroutine
7227#endif
7228
7229#if SK1_ENABLED
7230 PURE module subroutine setStr_D2_PSSK1_SK2(str, length, val, format, signed)
7231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7232 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_PSSK1_SK2
7233#endif
7234 use pm_container, only: css_pdt
7235 use pm_kind, only: SKO => SK2, SKG => SK1
7236 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
7237 character(*, SK) , intent(in) , optional :: format
7238 logical(LK) , intent(in) , optional :: signed
7239 integer(IK) , intent(out) :: length
7240 character(*,SKO) , intent(out) :: str
7241 end subroutine
7242#endif
7243
7244#endif
7245!PDT_ENABLED
7246
7247 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7248
7249 PURE module subroutine setStr_D2_BSSK_SK2(str, length, val, format, signed)
7250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7251 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_BSSK_SK2
7252#endif
7253 use pm_container, only: css_type
7254 use pm_kind, only: SKO => SK2, SKG => SK1
7255 type(css_type) , intent(in) , contiguous :: val(:,:)
7256 character(*, SK) , intent(in) , optional :: format
7257 logical(LK) , intent(in) , optional :: signed
7258 integer(IK) , intent(out) :: length
7259 character(*,SKO) , intent(out) :: str
7260 end subroutine
7261
7262 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7263
7264 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7265 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7266 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7267
7268 end interface
7269#endif
7270
7271 ! SKO => SK1
7272
7273#if SK1_ENABLED
7274 interface setStr
7275
7276 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7277 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7278 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7279
7280 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7281
7282#if SK5_ENABLED
7283 PURE module subroutine setStr_D0_SK5_SK1(str, length, val, format, signed)
7284#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7285 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_SK5_SK1
7286#endif
7287 use pm_kind, only: SKO => SK1, SKG => SK5
7288 character(*,SKG) , intent(in) :: val
7289 character(*, SK) , intent(in) , optional :: format
7290 logical(LK) , intent(in) , optional :: signed
7291 integer(IK) , intent(out) :: length
7292 character(*,SKO) , intent(out) :: str
7293 end subroutine
7294#endif
7295
7296#if SK4_ENABLED
7297 PURE module subroutine setStr_D0_SK4_SK1(str, length, val, format, signed)
7298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7299 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_SK4_SK1
7300#endif
7301 use pm_kind, only: SKO => SK1, SKG => SK4
7302 character(*,SKG) , intent(in) :: val
7303 character(*, SK) , intent(in) , optional :: format
7304 logical(LK) , intent(in) , optional :: signed
7305 integer(IK) , intent(out) :: length
7306 character(*,SKO) , intent(out) :: str
7307 end subroutine
7308#endif
7309
7310#if SK3_ENABLED
7311 PURE module subroutine setStr_D0_SK3_SK1(str, length, val, format, signed)
7312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7313 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_SK3_SK1
7314#endif
7315 use pm_kind, only: SKO => SK1, SKG => SK3
7316 character(*,SKG) , intent(in) :: val
7317 character(*, SK) , intent(in) , optional :: format
7318 logical(LK) , intent(in) , optional :: signed
7319 integer(IK) , intent(out) :: length
7320 character(*,SKO) , intent(out) :: str
7321 end subroutine
7322#endif
7323
7324#if SK2_ENABLED
7325 PURE module subroutine setStr_D0_SK2_SK1(str, length, val, format, signed)
7326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7327 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_SK2_SK1
7328#endif
7329 use pm_kind, only: SKO => SK1, SKG => SK2
7330 character(*,SKG) , intent(in) :: val
7331 character(*, SK) , intent(in) , optional :: format
7332 logical(LK) , intent(in) , optional :: signed
7333 integer(IK) , intent(out) :: length
7334 character(*,SKO) , intent(out) :: str
7335 end subroutine
7336#endif
7337
7338#if SK1_ENABLED
7339 PURE module subroutine setStr_D0_SK1_SK1(str, length, val, format, signed)
7340#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7341 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_SK1_SK1
7342#endif
7343 use pm_kind, only: SKO => SK1, SKG => SK1
7344 character(*,SKG) , intent(in) :: val
7345 character(*, SK) , intent(in) , optional :: format
7346 logical(LK) , intent(in) , optional :: signed
7347 integer(IK) , intent(out) :: length
7348 character(*,SKO) , intent(out) :: str
7349 end subroutine
7350#endif
7351
7352 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7353
7354#if IK5_ENABLED
7355 PURE module subroutine setStr_D0_IK5_SK1(str, length, val, format, signed)
7356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7357 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_IK5_SK1
7358#endif
7359 use pm_kind, only: SKO => SK1, IKG => IK5
7360 integer(IKG) , intent(in) :: val
7361 character(*, SK) , intent(in) , optional :: format
7362 logical(LK) , intent(in) , optional :: signed
7363 integer(IK) , intent(out) :: length
7364 character(*,SKO) , intent(out) :: str
7365 end subroutine
7366#endif
7367
7368#if IK4_ENABLED
7369 PURE module subroutine setStr_D0_IK4_SK1(str, length, val, format, signed)
7370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7371 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_IK4_SK1
7372#endif
7373 use pm_kind, only: SKO => SK1, IKG => IK4
7374 integer(IKG) , intent(in) :: val
7375 character(*, SK) , intent(in) , optional :: format
7376 logical(LK) , intent(in) , optional :: signed
7377 integer(IK) , intent(out) :: length
7378 character(*,SKO) , intent(out) :: str
7379 end subroutine
7380#endif
7381
7382#if IK3_ENABLED
7383 PURE module subroutine setStr_D0_IK3_SK1(str, length, val, format, signed)
7384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7385 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_IK3_SK1
7386#endif
7387 use pm_kind, only: SKO => SK1, IKG => IK3
7388 integer(IKG) , intent(in) :: val
7389 character(*, SK) , intent(in) , optional :: format
7390 logical(LK) , intent(in) , optional :: signed
7391 integer(IK) , intent(out) :: length
7392 character(*,SKO) , intent(out) :: str
7393 end subroutine
7394#endif
7395
7396#if IK2_ENABLED
7397 PURE module subroutine setStr_D0_IK2_SK1(str, length, val, format, signed)
7398#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7399 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_IK2_SK1
7400#endif
7401 use pm_kind, only: SKO => SK1, IKG => IK2
7402 integer(IKG) , intent(in) :: val
7403 character(*, SK) , intent(in) , optional :: format
7404 logical(LK) , intent(in) , optional :: signed
7405 integer(IK) , intent(out) :: length
7406 character(*,SKO) , intent(out) :: str
7407 end subroutine
7408#endif
7409
7410#if IK1_ENABLED
7411 PURE module subroutine setStr_D0_IK1_SK1(str, length, val, format, signed)
7412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7413 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_IK1_SK1
7414#endif
7415 use pm_kind, only: SKO => SK1, IKG => IK1
7416 integer(IKG) , intent(in) :: val
7417 character(*, SK) , intent(in) , optional :: format
7418 logical(LK) , intent(in) , optional :: signed
7419 integer(IK) , intent(out) :: length
7420 character(*,SKO) , intent(out) :: str
7421 end subroutine
7422#endif
7423
7424 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7425
7426#if LK5_ENABLED
7427 PURE module subroutine setStr_D0_LK5_SK1(str, length, val, format, signed)
7428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7429 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_LK5_SK1
7430#endif
7431 use pm_kind, only: SKO => SK1, LKG => LK5
7432 logical(LKG) , intent(in) :: val
7433 character(*, SK) , intent(in) , optional :: format
7434 logical(LK) , intent(in) , optional :: signed
7435 integer(IK) , intent(out) :: length
7436 character(*,SKO) , intent(out) :: str
7437 end subroutine
7438#endif
7439
7440#if LK4_ENABLED
7441 PURE module subroutine setStr_D0_LK4_SK1(str, length, val, format, signed)
7442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7443 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_LK4_SK1
7444#endif
7445 use pm_kind, only: SKO => SK1, LKG => LK4
7446 logical(LKG) , intent(in) :: val
7447 character(*, SK) , intent(in) , optional :: format
7448 logical(LK) , intent(in) , optional :: signed
7449 integer(IK) , intent(out) :: length
7450 character(*,SKO) , intent(out) :: str
7451 end subroutine
7452#endif
7453
7454#if LK3_ENABLED
7455 PURE module subroutine setStr_D0_LK3_SK1(str, length, val, format, signed)
7456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7457 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_LK3_SK1
7458#endif
7459 use pm_kind, only: SKO => SK1, LKG => LK3
7460 logical(LKG) , intent(in) :: val
7461 character(*, SK) , intent(in) , optional :: format
7462 logical(LK) , intent(in) , optional :: signed
7463 integer(IK) , intent(out) :: length
7464 character(*,SKO) , intent(out) :: str
7465 end subroutine
7466#endif
7467
7468#if LK2_ENABLED
7469 PURE module subroutine setStr_D0_LK2_SK1(str, length, val, format, signed)
7470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7471 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_LK2_SK1
7472#endif
7473 use pm_kind, only: SKO => SK1, LKG => LK2
7474 logical(LKG) , intent(in) :: val
7475 character(*, SK) , intent(in) , optional :: format
7476 logical(LK) , intent(in) , optional :: signed
7477 integer(IK) , intent(out) :: length
7478 character(*,SKO) , intent(out) :: str
7479 end subroutine
7480#endif
7481
7482#if LK1_ENABLED
7483 PURE module subroutine setStr_D0_LK1_SK1(str, length, val, format, signed)
7484#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7485 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_LK1_SK1
7486#endif
7487 use pm_kind, only: SKO => SK1, LKG => LK1
7488 logical(LKG) , intent(in) :: val
7489 character(*, SK) , intent(in) , optional :: format
7490 logical(LK) , intent(in) , optional :: signed
7491 integer(IK) , intent(out) :: length
7492 character(*,SKO) , intent(out) :: str
7493 end subroutine
7494#endif
7495
7496 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7497
7498#if CK5_ENABLED
7499 PURE module subroutine setStr_D0_CK5_SK1(str, length, val, format, signed)
7500#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7501 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_CK5_SK1
7502#endif
7503 use pm_kind, only: SKO => SK1, CKG => CK5
7504 complex(CKG) , intent(in) :: val
7505 character(*, SK) , intent(in) , optional :: format
7506 logical(LK) , intent(in) , optional :: signed
7507 integer(IK) , intent(out) :: length
7508 character(*,SKO) , intent(out) :: str
7509 end subroutine
7510#endif
7511
7512#if CK4_ENABLED
7513 PURE module subroutine setStr_D0_CK4_SK1(str, length, val, format, signed)
7514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7515 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_CK4_SK1
7516#endif
7517 use pm_kind, only: SKO => SK1, CKG => CK4
7518 complex(CKG) , intent(in) :: val
7519 character(*, SK) , intent(in) , optional :: format
7520 logical(LK) , intent(in) , optional :: signed
7521 integer(IK) , intent(out) :: length
7522 character(*,SKO) , intent(out) :: str
7523 end subroutine
7524#endif
7525
7526#if CK3_ENABLED
7527 PURE module subroutine setStr_D0_CK3_SK1(str, length, val, format, signed)
7528#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7529 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_CK3_SK1
7530#endif
7531 use pm_kind, only: SKO => SK1, CKG => CK3
7532 complex(CKG) , intent(in) :: val
7533 character(*, SK) , intent(in) , optional :: format
7534 logical(LK) , intent(in) , optional :: signed
7535 integer(IK) , intent(out) :: length
7536 character(*,SKO) , intent(out) :: str
7537 end subroutine
7538#endif
7539
7540#if CK2_ENABLED
7541 PURE module subroutine setStr_D0_CK2_SK1(str, length, val, format, signed)
7542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7543 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_CK2_SK1
7544#endif
7545 use pm_kind, only: SKO => SK1, CKG => CK2
7546 complex(CKG) , intent(in) :: val
7547 character(*, SK) , intent(in) , optional :: format
7548 logical(LK) , intent(in) , optional :: signed
7549 integer(IK) , intent(out) :: length
7550 character(*,SKO) , intent(out) :: str
7551 end subroutine
7552#endif
7553
7554#if CK1_ENABLED
7555 PURE module subroutine setStr_D0_CK1_SK1(str, length, val, format, signed)
7556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7557 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_CK1_SK1
7558#endif
7559 use pm_kind, only: SKO => SK1, CKG => CK1
7560 complex(CKG) , intent(in) :: val
7561 character(*, SK) , intent(in) , optional :: format
7562 logical(LK) , intent(in) , optional :: signed
7563 integer(IK) , intent(out) :: length
7564 character(*,SKO) , intent(out) :: str
7565 end subroutine
7566#endif
7567
7568 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7569
7570#if RK5_ENABLED
7571 PURE module subroutine setStr_D0_RK5_SK1(str, length, val, format, signed)
7572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7573 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_RK5_SK1
7574#endif
7575 use pm_kind, only: SKO => SK1, RKG => RK5
7576 real(RKG) , intent(in) :: val
7577 character(*, SK) , intent(in) , optional :: format
7578 logical(LK) , intent(in) , optional :: signed
7579 integer(IK) , intent(out) :: length
7580 character(*,SKO) , intent(out) :: str
7581 end subroutine
7582#endif
7583
7584#if RK4_ENABLED
7585 PURE module subroutine setStr_D0_RK4_SK1(str, length, val, format, signed)
7586#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7587 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_RK4_SK1
7588#endif
7589 use pm_kind, only: SKO => SK1, RKG => RK4
7590 real(RKG) , intent(in) :: val
7591 character(*, SK) , intent(in) , optional :: format
7592 logical(LK) , intent(in) , optional :: signed
7593 integer(IK) , intent(out) :: length
7594 character(*,SKO) , intent(out) :: str
7595 end subroutine
7596#endif
7597
7598#if RK3_ENABLED
7599 PURE module subroutine setStr_D0_RK3_SK1(str, length, val, format, signed)
7600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7601 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_RK3_SK1
7602#endif
7603 use pm_kind, only: SKO => SK1, RKG => RK3
7604 real(RKG) , intent(in) :: val
7605 character(*, SK) , intent(in) , optional :: format
7606 logical(LK) , intent(in) , optional :: signed
7607 integer(IK) , intent(out) :: length
7608 character(*,SKO) , intent(out) :: str
7609 end subroutine
7610#endif
7611
7612#if RK2_ENABLED
7613 PURE module subroutine setStr_D0_RK2_SK1(str, length, val, format, signed)
7614#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7615 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_RK2_SK1
7616#endif
7617 use pm_kind, only: SKO => SK1, RKG => RK2
7618 real(RKG) , intent(in) :: val
7619 character(*, SK) , intent(in) , optional :: format
7620 logical(LK) , intent(in) , optional :: signed
7621 integer(IK) , intent(out) :: length
7622 character(*,SKO) , intent(out) :: str
7623 end subroutine
7624#endif
7625
7626#if RK1_ENABLED
7627 PURE module subroutine setStr_D0_RK1_SK1(str, length, val, format, signed)
7628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7629 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_RK1_SK1
7630#endif
7631 use pm_kind, only: SKO => SK1, RKG => RK1
7632 real(RKG) , intent(in) :: val
7633 character(*, SK) , intent(in) , optional :: format
7634 logical(LK) , intent(in) , optional :: signed
7635 integer(IK) , intent(out) :: length
7636 character(*,SKO) , intent(out) :: str
7637 end subroutine
7638#endif
7639
7640 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7641
7642#if PDT_ENABLED
7643
7644#if SK5_ENABLED
7645 PURE module subroutine setStr_D0_PSSK5_SK1(str, length, val, format, signed)
7646#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7647 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_PSSK5_SK1
7648#endif
7649 use pm_container, only: css_pdt
7650 use pm_kind, only: SKO => SK1, SKG => SK5
7651 type(css_pdt(SKG)) , intent(in) :: val
7652 character(*, SK) , intent(in) , optional :: format
7653 logical(LK) , intent(in) , optional :: signed
7654 integer(IK) , intent(out) :: length
7655 character(*,SKO) , intent(out) :: str
7656 end subroutine
7657#endif
7658
7659#if SK4_ENABLED
7660 PURE module subroutine setStr_D0_PSSK4_SK1(str, length, val, format, signed)
7661#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7662 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_PSSK4_SK1
7663#endif
7664 use pm_container, only: css_pdt
7665 use pm_kind, only: SKO => SK1, SKG => SK4
7666 type(css_pdt(SKG)) , intent(in) :: val
7667 character(*, SK) , intent(in) , optional :: format
7668 logical(LK) , intent(in) , optional :: signed
7669 integer(IK) , intent(out) :: length
7670 character(*,SKO) , intent(out) :: str
7671 end subroutine
7672#endif
7673
7674#if SK3_ENABLED
7675 PURE module subroutine setStr_D0_PSSK3_SK1(str, length, val, format, signed)
7676#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7677 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_PSSK3_SK1
7678#endif
7679 use pm_container, only: css_pdt
7680 use pm_kind, only: SKO => SK1, SKG => SK3
7681 type(css_pdt(SKG)) , intent(in) :: val
7682 character(*, SK) , intent(in) , optional :: format
7683 logical(LK) , intent(in) , optional :: signed
7684 integer(IK) , intent(out) :: length
7685 character(*,SKO) , intent(out) :: str
7686 end subroutine
7687#endif
7688
7689#if SK2_ENABLED
7690 PURE module subroutine setStr_D0_PSSK2_SK1(str, length, val, format, signed)
7691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7692 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_PSSK2_SK1
7693#endif
7694 use pm_container, only: css_pdt
7695 use pm_kind, only: SKO => SK1, SKG => SK2
7696 type(css_pdt(SKG)) , intent(in) :: val
7697 character(*, SK) , intent(in) , optional :: format
7698 logical(LK) , intent(in) , optional :: signed
7699 integer(IK) , intent(out) :: length
7700 character(*,SKO) , intent(out) :: str
7701 end subroutine
7702#endif
7703
7704#if SK1_ENABLED
7705 PURE module subroutine setStr_D0_PSSK1_SK1(str, length, val, format, signed)
7706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7707 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_PSSK1_SK1
7708#endif
7709 use pm_container, only: css_pdt
7710 use pm_kind, only: SKO => SK1, SKG => SK1
7711 type(css_pdt(SKG)) , intent(in) :: val
7712 character(*, SK) , intent(in) , optional :: format
7713 logical(LK) , intent(in) , optional :: signed
7714 integer(IK) , intent(out) :: length
7715 character(*,SKO) , intent(out) :: str
7716 end subroutine
7717#endif
7718
7719#endif
7720!PDT_ENABLED
7721
7722 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7723
7724 PURE module subroutine setStr_D0_BSSK_SK1(str, length, val, format, signed)
7725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7726 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D0_BSSK_SK1
7727#endif
7728 use pm_container, only: css_type
7729 use pm_kind, only: SKO => SK1, SKG => SK1
7730 type(css_type) , intent(in) :: val
7731 character(*, SK) , intent(in) , optional :: format
7732 logical(LK) , intent(in) , optional :: signed
7733 integer(IK) , intent(out) :: length
7734 character(*,SKO) , intent(out) :: str
7735 end subroutine
7736
7737 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7738
7739 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7740 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7741 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7742
7743 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7744
7745#if SK5_ENABLED
7746 PURE module subroutine setStr_D1_SK5_SK1(str, length, val, format, signed)
7747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7748 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_SK5_SK1
7749#endif
7750 use pm_kind, only: SKO => SK1, SKG => SK5
7751 character(*,SKG), target, intent(in) , contiguous :: val(:)
7752 character(*, SK) , intent(in) , optional :: format
7753 logical(LK) , intent(in) , optional :: signed
7754 integer(IK) , intent(out) :: length
7755 character(*,SKO) , intent(out) :: str
7756 end subroutine
7757#endif
7758
7759#if SK4_ENABLED
7760 PURE module subroutine setStr_D1_SK4_SK1(str, length, val, format, signed)
7761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7762 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_SK4_SK1
7763#endif
7764 use pm_kind, only: SKO => SK1, SKG => SK4
7765 character(*,SKG), target, intent(in) , contiguous :: val(:)
7766 character(*, SK) , intent(in) , optional :: format
7767 logical(LK) , intent(in) , optional :: signed
7768 integer(IK) , intent(out) :: length
7769 character(*,SKO) , intent(out) :: str
7770 end subroutine
7771#endif
7772
7773#if SK3_ENABLED
7774 PURE module subroutine setStr_D1_SK3_SK1(str, length, val, format, signed)
7775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7776 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_SK3_SK1
7777#endif
7778 use pm_kind, only: SKO => SK1, SKG => SK3
7779 character(*,SKG), target, intent(in) , contiguous :: val(:)
7780 character(*, SK) , intent(in) , optional :: format
7781 logical(LK) , intent(in) , optional :: signed
7782 integer(IK) , intent(out) :: length
7783 character(*,SKO) , intent(out) :: str
7784 end subroutine
7785#endif
7786
7787#if SK2_ENABLED
7788 PURE module subroutine setStr_D1_SK2_SK1(str, length, val, format, signed)
7789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7790 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_SK2_SK1
7791#endif
7792 use pm_kind, only: SKO => SK1, SKG => SK2
7793 character(*,SKG), target, intent(in) , contiguous :: val(:)
7794 character(*, SK) , intent(in) , optional :: format
7795 logical(LK) , intent(in) , optional :: signed
7796 integer(IK) , intent(out) :: length
7797 character(*,SKO) , intent(out) :: str
7798 end subroutine
7799#endif
7800
7801#if SK1_ENABLED
7802 PURE module subroutine setStr_D1_SK1_SK1(str, length, val, format, signed)
7803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7804 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_SK1_SK1
7805#endif
7806 use pm_kind, only: SKO => SK1, SKG => SK1
7807 character(*,SKG), target, intent(in) , contiguous :: val(:)
7808 character(*, SK) , intent(in) , optional :: format
7809 logical(LK) , intent(in) , optional :: signed
7810 integer(IK) , intent(out) :: length
7811 character(*,SKO) , intent(out) :: str
7812 end subroutine
7813#endif
7814
7815 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7816
7817#if IK5_ENABLED
7818 PURE module subroutine setStr_D1_IK5_SK1(str, length, val, format, signed)
7819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7820 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_IK5_SK1
7821#endif
7822 use pm_kind, only: SKO => SK1, IKG => IK5
7823 integer(IKG) , intent(in) , contiguous :: val(:)
7824 character(*, SK) , intent(in) , optional :: format
7825 logical(LK) , intent(in) , optional :: signed
7826 integer(IK) , intent(out) :: length
7827 character(*,SKO) , intent(out) :: str
7828 end subroutine
7829#endif
7830
7831#if IK4_ENABLED
7832 PURE module subroutine setStr_D1_IK4_SK1(str, length, val, format, signed)
7833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7834 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_IK4_SK1
7835#endif
7836 use pm_kind, only: SKO => SK1, IKG => IK4
7837 integer(IKG) , intent(in) , contiguous :: val(:)
7838 character(*, SK) , intent(in) , optional :: format
7839 logical(LK) , intent(in) , optional :: signed
7840 integer(IK) , intent(out) :: length
7841 character(*,SKO) , intent(out) :: str
7842 end subroutine
7843#endif
7844
7845#if IK3_ENABLED
7846 PURE module subroutine setStr_D1_IK3_SK1(str, length, val, format, signed)
7847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7848 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_IK3_SK1
7849#endif
7850 use pm_kind, only: SKO => SK1, IKG => IK3
7851 integer(IKG) , intent(in) , contiguous :: val(:)
7852 character(*, SK) , intent(in) , optional :: format
7853 logical(LK) , intent(in) , optional :: signed
7854 integer(IK) , intent(out) :: length
7855 character(*,SKO) , intent(out) :: str
7856 end subroutine
7857#endif
7858
7859#if IK2_ENABLED
7860 PURE module subroutine setStr_D1_IK2_SK1(str, length, val, format, signed)
7861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7862 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_IK2_SK1
7863#endif
7864 use pm_kind, only: SKO => SK1, IKG => IK2
7865 integer(IKG) , intent(in) , contiguous :: val(:)
7866 character(*, SK) , intent(in) , optional :: format
7867 logical(LK) , intent(in) , optional :: signed
7868 integer(IK) , intent(out) :: length
7869 character(*,SKO) , intent(out) :: str
7870 end subroutine
7871#endif
7872
7873#if IK1_ENABLED
7874 PURE module subroutine setStr_D1_IK1_SK1(str, length, val, format, signed)
7875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7876 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_IK1_SK1
7877#endif
7878 use pm_kind, only: SKO => SK1, IKG => IK1
7879 integer(IKG) , intent(in) , contiguous :: val(:)
7880 character(*, SK) , intent(in) , optional :: format
7881 logical(LK) , intent(in) , optional :: signed
7882 integer(IK) , intent(out) :: length
7883 character(*,SKO) , intent(out) :: str
7884 end subroutine
7885#endif
7886
7887 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7888
7889#if LK5_ENABLED
7890 PURE module subroutine setStr_D1_LK5_SK1(str, length, val, format, signed)
7891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7892 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_LK5_SK1
7893#endif
7894 use pm_kind, only: SKO => SK1, LKG => LK5
7895 logical(LKG) , intent(in) , contiguous :: val(:)
7896 character(*, SK) , intent(in) , optional :: format
7897 logical(LK) , intent(in) , optional :: signed
7898 integer(IK) , intent(out) :: length
7899 character(*,SKO) , intent(out) :: str
7900 end subroutine
7901#endif
7902
7903#if LK4_ENABLED
7904 PURE module subroutine setStr_D1_LK4_SK1(str, length, val, format, signed)
7905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7906 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_LK4_SK1
7907#endif
7908 use pm_kind, only: SKO => SK1, LKG => LK4
7909 logical(LKG) , intent(in) , contiguous :: val(:)
7910 character(*, SK) , intent(in) , optional :: format
7911 logical(LK) , intent(in) , optional :: signed
7912 integer(IK) , intent(out) :: length
7913 character(*,SKO) , intent(out) :: str
7914 end subroutine
7915#endif
7916
7917#if LK3_ENABLED
7918 PURE module subroutine setStr_D1_LK3_SK1(str, length, val, format, signed)
7919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7920 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_LK3_SK1
7921#endif
7922 use pm_kind, only: SKO => SK1, LKG => LK3
7923 logical(LKG) , intent(in) , contiguous :: val(:)
7924 character(*, SK) , intent(in) , optional :: format
7925 logical(LK) , intent(in) , optional :: signed
7926 integer(IK) , intent(out) :: length
7927 character(*,SKO) , intent(out) :: str
7928 end subroutine
7929#endif
7930
7931#if LK2_ENABLED
7932 PURE module subroutine setStr_D1_LK2_SK1(str, length, val, format, signed)
7933#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7934 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_LK2_SK1
7935#endif
7936 use pm_kind, only: SKO => SK1, LKG => LK2
7937 logical(LKG) , intent(in) , contiguous :: val(:)
7938 character(*, SK) , intent(in) , optional :: format
7939 logical(LK) , intent(in) , optional :: signed
7940 integer(IK) , intent(out) :: length
7941 character(*,SKO) , intent(out) :: str
7942 end subroutine
7943#endif
7944
7945#if LK1_ENABLED
7946 PURE module subroutine setStr_D1_LK1_SK1(str, length, val, format, signed)
7947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7948 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_LK1_SK1
7949#endif
7950 use pm_kind, only: SKO => SK1, LKG => LK1
7951 logical(LKG) , intent(in) , contiguous :: val(:)
7952 character(*, SK) , intent(in) , optional :: format
7953 logical(LK) , intent(in) , optional :: signed
7954 integer(IK) , intent(out) :: length
7955 character(*,SKO) , intent(out) :: str
7956 end subroutine
7957#endif
7958
7959 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7960
7961#if CK5_ENABLED
7962 PURE module subroutine setStr_D1_CK5_SK1(str, length, val, format, signed)
7963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7964 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_CK5_SK1
7965#endif
7966 use pm_kind, only: SKO => SK1, CKG => CK5
7967 complex(CKG) , intent(in) , contiguous :: val(:)
7968 character(*, SK) , intent(in) , optional :: format
7969 logical(LK) , intent(in) , optional :: signed
7970 integer(IK) , intent(out) :: length
7971 character(*,SKO) , intent(out) :: str
7972 end subroutine
7973#endif
7974
7975#if CK4_ENABLED
7976 PURE module subroutine setStr_D1_CK4_SK1(str, length, val, format, signed)
7977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7978 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_CK4_SK1
7979#endif
7980 use pm_kind, only: SKO => SK1, CKG => CK4
7981 complex(CKG) , intent(in) , contiguous :: val(:)
7982 character(*, SK) , intent(in) , optional :: format
7983 logical(LK) , intent(in) , optional :: signed
7984 integer(IK) , intent(out) :: length
7985 character(*,SKO) , intent(out) :: str
7986 end subroutine
7987#endif
7988
7989#if CK3_ENABLED
7990 PURE module subroutine setStr_D1_CK3_SK1(str, length, val, format, signed)
7991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7992 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_CK3_SK1
7993#endif
7994 use pm_kind, only: SKO => SK1, CKG => CK3
7995 complex(CKG) , intent(in) , contiguous :: val(:)
7996 character(*, SK) , intent(in) , optional :: format
7997 logical(LK) , intent(in) , optional :: signed
7998 integer(IK) , intent(out) :: length
7999 character(*,SKO) , intent(out) :: str
8000 end subroutine
8001#endif
8002
8003#if CK2_ENABLED
8004 PURE module subroutine setStr_D1_CK2_SK1(str, length, val, format, signed)
8005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8006 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_CK2_SK1
8007#endif
8008 use pm_kind, only: SKO => SK1, CKG => CK2
8009 complex(CKG) , intent(in) , contiguous :: val(:)
8010 character(*, SK) , intent(in) , optional :: format
8011 logical(LK) , intent(in) , optional :: signed
8012 integer(IK) , intent(out) :: length
8013 character(*,SKO) , intent(out) :: str
8014 end subroutine
8015#endif
8016
8017#if CK1_ENABLED
8018 PURE module subroutine setStr_D1_CK1_SK1(str, length, val, format, signed)
8019#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8020 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_CK1_SK1
8021#endif
8022 use pm_kind, only: SKO => SK1, CKG => CK1
8023 complex(CKG) , intent(in) , contiguous :: val(:)
8024 character(*, SK) , intent(in) , optional :: format
8025 logical(LK) , intent(in) , optional :: signed
8026 integer(IK) , intent(out) :: length
8027 character(*,SKO) , intent(out) :: str
8028 end subroutine
8029#endif
8030
8031 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8032
8033#if RK5_ENABLED
8034 PURE module subroutine setStr_D1_RK5_SK1(str, length, val, format, signed)
8035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8036 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_RK5_SK1
8037#endif
8038 use pm_kind, only: SKO => SK1, RKG => RK5
8039 real(RKG) , intent(in) , contiguous :: val(:)
8040 character(*, SK) , intent(in) , optional :: format
8041 logical(LK) , intent(in) , optional :: signed
8042 integer(IK) , intent(out) :: length
8043 character(*,SKO) , intent(out) :: str
8044 end subroutine
8045#endif
8046
8047#if RK4_ENABLED
8048 PURE module subroutine setStr_D1_RK4_SK1(str, length, val, format, signed)
8049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8050 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_RK4_SK1
8051#endif
8052 use pm_kind, only: SKO => SK1, RKG => RK4
8053 real(RKG) , intent(in) , contiguous :: val(:)
8054 character(*, SK) , intent(in) , optional :: format
8055 logical(LK) , intent(in) , optional :: signed
8056 integer(IK) , intent(out) :: length
8057 character(*,SKO) , intent(out) :: str
8058 end subroutine
8059#endif
8060
8061#if RK3_ENABLED
8062 PURE module subroutine setStr_D1_RK3_SK1(str, length, val, format, signed)
8063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8064 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_RK3_SK1
8065#endif
8066 use pm_kind, only: SKO => SK1, RKG => RK3
8067 real(RKG) , intent(in) , contiguous :: val(:)
8068 character(*, SK) , intent(in) , optional :: format
8069 logical(LK) , intent(in) , optional :: signed
8070 integer(IK) , intent(out) :: length
8071 character(*,SKO) , intent(out) :: str
8072 end subroutine
8073#endif
8074
8075#if RK2_ENABLED
8076 PURE module subroutine setStr_D1_RK2_SK1(str, length, val, format, signed)
8077#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8078 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_RK2_SK1
8079#endif
8080 use pm_kind, only: SKO => SK1, RKG => RK2
8081 real(RKG) , intent(in) , contiguous :: val(:)
8082 character(*, SK) , intent(in) , optional :: format
8083 logical(LK) , intent(in) , optional :: signed
8084 integer(IK) , intent(out) :: length
8085 character(*,SKO) , intent(out) :: str
8086 end subroutine
8087#endif
8088
8089#if RK1_ENABLED
8090 PURE module subroutine setStr_D1_RK1_SK1(str, length, val, format, signed)
8091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8092 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_RK1_SK1
8093#endif
8094 use pm_kind, only: SKO => SK1, RKG => RK1
8095 real(RKG) , intent(in) , contiguous :: val(:)
8096 character(*, SK) , intent(in) , optional :: format
8097 logical(LK) , intent(in) , optional :: signed
8098 integer(IK) , intent(out) :: length
8099 character(*,SKO) , intent(out) :: str
8100 end subroutine
8101#endif
8102
8103 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8104
8105#if PDT_ENABLED
8106
8107#if SK5_ENABLED
8108 PURE module subroutine setStr_D1_PSSK5_SK1(str, length, val, format, signed)
8109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8110 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_PSSK5_SK1
8111#endif
8112 use pm_container, only: css_pdt
8113 use pm_kind, only: SKO => SK1, SKG => SK5
8114 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
8115 character(*, SK) , intent(in) , optional :: format
8116 logical(LK) , intent(in) , optional :: signed
8117 integer(IK) , intent(out) :: length
8118 character(*,SKO) , intent(out) :: str
8119 end subroutine
8120#endif
8121
8122#if SK4_ENABLED
8123 PURE module subroutine setStr_D1_PSSK4_SK1(str, length, val, format, signed)
8124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8125 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_PSSK4_SK1
8126#endif
8127 use pm_container, only: css_pdt
8128 use pm_kind, only: SKO => SK1, SKG => SK4
8129 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
8130 character(*, SK) , intent(in) , optional :: format
8131 logical(LK) , intent(in) , optional :: signed
8132 integer(IK) , intent(out) :: length
8133 character(*,SKO) , intent(out) :: str
8134 end subroutine
8135#endif
8136
8137#if SK3_ENABLED
8138 PURE module subroutine setStr_D1_PSSK3_SK1(str, length, val, format, signed)
8139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8140 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_PSSK3_SK1
8141#endif
8142 use pm_container, only: css_pdt
8143 use pm_kind, only: SKO => SK1, SKG => SK3
8144 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
8145 character(*, SK) , intent(in) , optional :: format
8146 logical(LK) , intent(in) , optional :: signed
8147 integer(IK) , intent(out) :: length
8148 character(*,SKO) , intent(out) :: str
8149 end subroutine
8150#endif
8151
8152#if SK2_ENABLED
8153 PURE module subroutine setStr_D1_PSSK2_SK1(str, length, val, format, signed)
8154#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8155 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_PSSK2_SK1
8156#endif
8157 use pm_container, only: css_pdt
8158 use pm_kind, only: SKO => SK1, SKG => SK2
8159 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
8160 character(*, SK) , intent(in) , optional :: format
8161 logical(LK) , intent(in) , optional :: signed
8162 integer(IK) , intent(out) :: length
8163 character(*,SKO) , intent(out) :: str
8164 end subroutine
8165#endif
8166
8167#if SK1_ENABLED
8168 PURE module subroutine setStr_D1_PSSK1_SK1(str, length, val, format, signed)
8169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8170 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_PSSK1_SK1
8171#endif
8172 use pm_container, only: css_pdt
8173 use pm_kind, only: SKO => SK1, SKG => SK1
8174 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:)
8175 character(*, SK) , intent(in) , optional :: format
8176 logical(LK) , intent(in) , optional :: signed
8177 integer(IK) , intent(out) :: length
8178 character(*,SKO) , intent(out) :: str
8179 end subroutine
8180#endif
8181
8182#endif
8183!PDT_ENABLED
8184
8185 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8186
8187 PURE module subroutine setStr_D1_BSSK_SK1(str, length, val, format, signed)
8188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8189 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D1_BSSK_SK1
8190#endif
8191 use pm_container, only: css_type
8192 use pm_kind, only: SKO => SK1, SKG => SK1
8193 type(css_type) , intent(in) , contiguous :: val(:)
8194 character(*, SK) , intent(in) , optional :: format
8195 logical(LK) , intent(in) , optional :: signed
8196 integer(IK) , intent(out) :: length
8197 character(*,SKO) , intent(out) :: str
8198 end subroutine
8199
8200 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8201
8202 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8203 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8204 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8205
8206 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8207
8208#if SK5_ENABLED
8209 PURE module subroutine setStr_D2_SK5_SK1(str, length, val, format, signed)
8210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8211 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_SK5_SK1
8212#endif
8213 use pm_kind, only: SKO => SK1, SKG => SK5
8214 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
8215 character(*, SK) , intent(in) , optional :: format
8216 logical(LK) , intent(in) , optional :: signed
8217 integer(IK) , intent(out) :: length
8218 character(*,SKO) , intent(out) :: str
8219 end subroutine
8220#endif
8221
8222#if SK4_ENABLED
8223 PURE module subroutine setStr_D2_SK4_SK1(str, length, val, format, signed)
8224#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8225 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_SK4_SK1
8226#endif
8227 use pm_kind, only: SKO => SK1, SKG => SK4
8228 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
8229 character(*, SK) , intent(in) , optional :: format
8230 logical(LK) , intent(in) , optional :: signed
8231 integer(IK) , intent(out) :: length
8232 character(*,SKO) , intent(out) :: str
8233 end subroutine
8234#endif
8235
8236#if SK3_ENABLED
8237 PURE module subroutine setStr_D2_SK3_SK1(str, length, val, format, signed)
8238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8239 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_SK3_SK1
8240#endif
8241 use pm_kind, only: SKO => SK1, SKG => SK3
8242 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
8243 character(*, SK) , intent(in) , optional :: format
8244 logical(LK) , intent(in) , optional :: signed
8245 integer(IK) , intent(out) :: length
8246 character(*,SKO) , intent(out) :: str
8247 end subroutine
8248#endif
8249
8250#if SK2_ENABLED
8251 PURE module subroutine setStr_D2_SK2_SK1(str, length, val, format, signed)
8252#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8253 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_SK2_SK1
8254#endif
8255 use pm_kind, only: SKO => SK1, SKG => SK2
8256 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
8257 character(*, SK) , intent(in) , optional :: format
8258 logical(LK) , intent(in) , optional :: signed
8259 integer(IK) , intent(out) :: length
8260 character(*,SKO) , intent(out) :: str
8261 end subroutine
8262#endif
8263
8264#if SK1_ENABLED
8265 PURE module subroutine setStr_D2_SK1_SK1(str, length, val, format, signed)
8266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8267 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_SK1_SK1
8268#endif
8269 use pm_kind, only: SKO => SK1, SKG => SK1
8270 character(*,SKG), target, intent(in) , contiguous :: val(:,:)
8271 character(*, SK) , intent(in) , optional :: format
8272 logical(LK) , intent(in) , optional :: signed
8273 integer(IK) , intent(out) :: length
8274 character(*,SKO) , intent(out) :: str
8275 end subroutine
8276#endif
8277
8278 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8279
8280#if IK5_ENABLED
8281 PURE module subroutine setStr_D2_IK5_SK1(str, length, val, format, signed)
8282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8283 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_IK5_SK1
8284#endif
8285 use pm_kind, only: SKO => SK1, IKG => IK5
8286 integer(IKG) , intent(in) , contiguous :: val(:,:)
8287 character(*, SK) , intent(in) , optional :: format
8288 logical(LK) , intent(in) , optional :: signed
8289 integer(IK) , intent(out) :: length
8290 character(*,SKO) , intent(out) :: str
8291 end subroutine
8292#endif
8293
8294#if IK4_ENABLED
8295 PURE module subroutine setStr_D2_IK4_SK1(str, length, val, format, signed)
8296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8297 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_IK4_SK1
8298#endif
8299 use pm_kind, only: SKO => SK1, IKG => IK4
8300 integer(IKG) , intent(in) , contiguous :: val(:,:)
8301 character(*, SK) , intent(in) , optional :: format
8302 logical(LK) , intent(in) , optional :: signed
8303 integer(IK) , intent(out) :: length
8304 character(*,SKO) , intent(out) :: str
8305 end subroutine
8306#endif
8307
8308#if IK3_ENABLED
8309 PURE module subroutine setStr_D2_IK3_SK1(str, length, val, format, signed)
8310#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8311 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_IK3_SK1
8312#endif
8313 use pm_kind, only: SKO => SK1, IKG => IK3
8314 integer(IKG) , intent(in) , contiguous :: val(:,:)
8315 character(*, SK) , intent(in) , optional :: format
8316 logical(LK) , intent(in) , optional :: signed
8317 integer(IK) , intent(out) :: length
8318 character(*,SKO) , intent(out) :: str
8319 end subroutine
8320#endif
8321
8322#if IK2_ENABLED
8323 PURE module subroutine setStr_D2_IK2_SK1(str, length, val, format, signed)
8324#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8325 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_IK2_SK1
8326#endif
8327 use pm_kind, only: SKO => SK1, IKG => IK2
8328 integer(IKG) , intent(in) , contiguous :: val(:,:)
8329 character(*, SK) , intent(in) , optional :: format
8330 logical(LK) , intent(in) , optional :: signed
8331 integer(IK) , intent(out) :: length
8332 character(*,SKO) , intent(out) :: str
8333 end subroutine
8334#endif
8335
8336#if IK1_ENABLED
8337 PURE module subroutine setStr_D2_IK1_SK1(str, length, val, format, signed)
8338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8339 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_IK1_SK1
8340#endif
8341 use pm_kind, only: SKO => SK1, IKG => IK1
8342 integer(IKG) , intent(in) , contiguous :: val(:,:)
8343 character(*, SK) , intent(in) , optional :: format
8344 logical(LK) , intent(in) , optional :: signed
8345 integer(IK) , intent(out) :: length
8346 character(*,SKO) , intent(out) :: str
8347 end subroutine
8348#endif
8349
8350 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8351
8352#if LK5_ENABLED
8353 PURE module subroutine setStr_D2_LK5_SK1(str, length, val, format, signed)
8354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8355 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_LK5_SK1
8356#endif
8357 use pm_kind, only: SKO => SK1, LKG => LK5
8358 logical(LKG) , intent(in) , contiguous :: val(:,:)
8359 character(*, SK) , intent(in) , optional :: format
8360 logical(LK) , intent(in) , optional :: signed
8361 integer(IK) , intent(out) :: length
8362 character(*,SKO) , intent(out) :: str
8363 end subroutine
8364#endif
8365
8366#if LK4_ENABLED
8367 PURE module subroutine setStr_D2_LK4_SK1(str, length, val, format, signed)
8368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8369 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_LK4_SK1
8370#endif
8371 use pm_kind, only: SKO => SK1, LKG => LK4
8372 logical(LKG) , intent(in) , contiguous :: val(:,:)
8373 character(*, SK) , intent(in) , optional :: format
8374 logical(LK) , intent(in) , optional :: signed
8375 integer(IK) , intent(out) :: length
8376 character(*,SKO) , intent(out) :: str
8377 end subroutine
8378#endif
8379
8380#if LK3_ENABLED
8381 PURE module subroutine setStr_D2_LK3_SK1(str, length, val, format, signed)
8382#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8383 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_LK3_SK1
8384#endif
8385 use pm_kind, only: SKO => SK1, LKG => LK3
8386 logical(LKG) , intent(in) , contiguous :: val(:,:)
8387 character(*, SK) , intent(in) , optional :: format
8388 logical(LK) , intent(in) , optional :: signed
8389 integer(IK) , intent(out) :: length
8390 character(*,SKO) , intent(out) :: str
8391 end subroutine
8392#endif
8393
8394#if LK2_ENABLED
8395 PURE module subroutine setStr_D2_LK2_SK1(str, length, val, format, signed)
8396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8397 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_LK2_SK1
8398#endif
8399 use pm_kind, only: SKO => SK1, LKG => LK2
8400 logical(LKG) , intent(in) , contiguous :: val(:,:)
8401 character(*, SK) , intent(in) , optional :: format
8402 logical(LK) , intent(in) , optional :: signed
8403 integer(IK) , intent(out) :: length
8404 character(*,SKO) , intent(out) :: str
8405 end subroutine
8406#endif
8407
8408#if LK1_ENABLED
8409 PURE module subroutine setStr_D2_LK1_SK1(str, length, val, format, signed)
8410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8411 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_LK1_SK1
8412#endif
8413 use pm_kind, only: SKO => SK1, LKG => LK1
8414 logical(LKG) , intent(in) , contiguous :: val(:,:)
8415 character(*, SK) , intent(in) , optional :: format
8416 logical(LK) , intent(in) , optional :: signed
8417 integer(IK) , intent(out) :: length
8418 character(*,SKO) , intent(out) :: str
8419 end subroutine
8420#endif
8421
8422 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8423
8424#if CK5_ENABLED
8425 PURE module subroutine setStr_D2_CK5_SK1(str, length, val, format, signed)
8426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8427 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_CK5_SK1
8428#endif
8429 use pm_kind, only: SKO => SK1, CKG => CK5
8430 complex(CKG) , intent(in) , contiguous :: val(:,:)
8431 character(*, SK) , intent(in) , optional :: format
8432 logical(LK) , intent(in) , optional :: signed
8433 integer(IK) , intent(out) :: length
8434 character(*,SKO) , intent(out) :: str
8435 end subroutine
8436#endif
8437
8438#if CK4_ENABLED
8439 PURE module subroutine setStr_D2_CK4_SK1(str, length, val, format, signed)
8440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8441 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_CK4_SK1
8442#endif
8443 use pm_kind, only: SKO => SK1, CKG => CK4
8444 complex(CKG) , intent(in) , contiguous :: val(:,:)
8445 character(*, SK) , intent(in) , optional :: format
8446 logical(LK) , intent(in) , optional :: signed
8447 integer(IK) , intent(out) :: length
8448 character(*,SKO) , intent(out) :: str
8449 end subroutine
8450#endif
8451
8452#if CK3_ENABLED
8453 PURE module subroutine setStr_D2_CK3_SK1(str, length, val, format, signed)
8454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8455 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_CK3_SK1
8456#endif
8457 use pm_kind, only: SKO => SK1, CKG => CK3
8458 complex(CKG) , intent(in) , contiguous :: val(:,:)
8459 character(*, SK) , intent(in) , optional :: format
8460 logical(LK) , intent(in) , optional :: signed
8461 integer(IK) , intent(out) :: length
8462 character(*,SKO) , intent(out) :: str
8463 end subroutine
8464#endif
8465
8466#if CK2_ENABLED
8467 PURE module subroutine setStr_D2_CK2_SK1(str, length, val, format, signed)
8468#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8469 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_CK2_SK1
8470#endif
8471 use pm_kind, only: SKO => SK1, CKG => CK2
8472 complex(CKG) , intent(in) , contiguous :: val(:,:)
8473 character(*, SK) , intent(in) , optional :: format
8474 logical(LK) , intent(in) , optional :: signed
8475 integer(IK) , intent(out) :: length
8476 character(*,SKO) , intent(out) :: str
8477 end subroutine
8478#endif
8479
8480#if CK1_ENABLED
8481 PURE module subroutine setStr_D2_CK1_SK1(str, length, val, format, signed)
8482#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8483 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_CK1_SK1
8484#endif
8485 use pm_kind, only: SKO => SK1, CKG => CK1
8486 complex(CKG) , intent(in) , contiguous :: val(:,:)
8487 character(*, SK) , intent(in) , optional :: format
8488 logical(LK) , intent(in) , optional :: signed
8489 integer(IK) , intent(out) :: length
8490 character(*,SKO) , intent(out) :: str
8491 end subroutine
8492#endif
8493
8494 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8495
8496#if RK5_ENABLED
8497 PURE module subroutine setStr_D2_RK5_SK1(str, length, val, format, signed)
8498#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8499 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_RK5_SK1
8500#endif
8501 use pm_kind, only: SKO => SK1, RKG => RK5
8502 real(RKG) , intent(in) , contiguous :: val(:,:)
8503 character(*, SK) , intent(in) , optional :: format
8504 logical(LK) , intent(in) , optional :: signed
8505 integer(IK) , intent(out) :: length
8506 character(*,SKO) , intent(out) :: str
8507 end subroutine
8508#endif
8509
8510#if RK4_ENABLED
8511 PURE module subroutine setStr_D2_RK4_SK1(str, length, val, format, signed)
8512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8513 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_RK4_SK1
8514#endif
8515 use pm_kind, only: SKO => SK1, RKG => RK4
8516 real(RKG) , intent(in) , contiguous :: val(:,:)
8517 character(*, SK) , intent(in) , optional :: format
8518 logical(LK) , intent(in) , optional :: signed
8519 integer(IK) , intent(out) :: length
8520 character(*,SKO) , intent(out) :: str
8521 end subroutine
8522#endif
8523
8524#if RK3_ENABLED
8525 PURE module subroutine setStr_D2_RK3_SK1(str, length, val, format, signed)
8526#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8527 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_RK3_SK1
8528#endif
8529 use pm_kind, only: SKO => SK1, RKG => RK3
8530 real(RKG) , intent(in) , contiguous :: val(:,:)
8531 character(*, SK) , intent(in) , optional :: format
8532 logical(LK) , intent(in) , optional :: signed
8533 integer(IK) , intent(out) :: length
8534 character(*,SKO) , intent(out) :: str
8535 end subroutine
8536#endif
8537
8538#if RK2_ENABLED
8539 PURE module subroutine setStr_D2_RK2_SK1(str, length, val, format, signed)
8540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8541 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_RK2_SK1
8542#endif
8543 use pm_kind, only: SKO => SK1, RKG => RK2
8544 real(RKG) , intent(in) , contiguous :: val(:,:)
8545 character(*, SK) , intent(in) , optional :: format
8546 logical(LK) , intent(in) , optional :: signed
8547 integer(IK) , intent(out) :: length
8548 character(*,SKO) , intent(out) :: str
8549 end subroutine
8550#endif
8551
8552#if RK1_ENABLED
8553 PURE module subroutine setStr_D2_RK1_SK1(str, length, val, format, signed)
8554#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8555 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_RK1_SK1
8556#endif
8557 use pm_kind, only: SKO => SK1, RKG => RK1
8558 real(RKG) , intent(in) , contiguous :: val(:,:)
8559 character(*, SK) , intent(in) , optional :: format
8560 logical(LK) , intent(in) , optional :: signed
8561 integer(IK) , intent(out) :: length
8562 character(*,SKO) , intent(out) :: str
8563 end subroutine
8564#endif
8565
8566 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8567
8568#if PDT_ENABLED
8569
8570#if SK5_ENABLED
8571 PURE module subroutine setStr_D2_PSSK5_SK1(str, length, val, format, signed)
8572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8573 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_PSSK5_SK1
8574#endif
8575 use pm_container, only: css_pdt
8576 use pm_kind, only: SKO => SK1, SKG => SK5
8577 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
8578 character(*, SK) , intent(in) , optional :: format
8579 logical(LK) , intent(in) , optional :: signed
8580 integer(IK) , intent(out) :: length
8581 character(*,SKO) , intent(out) :: str
8582 end subroutine
8583#endif
8584
8585#if SK4_ENABLED
8586 PURE module subroutine setStr_D2_PSSK4_SK1(str, length, val, format, signed)
8587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8588 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_PSSK4_SK1
8589#endif
8590 use pm_container, only: css_pdt
8591 use pm_kind, only: SKO => SK1, SKG => SK4
8592 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
8593 character(*, SK) , intent(in) , optional :: format
8594 logical(LK) , intent(in) , optional :: signed
8595 integer(IK) , intent(out) :: length
8596 character(*,SKO) , intent(out) :: str
8597 end subroutine
8598#endif
8599
8600#if SK3_ENABLED
8601 PURE module subroutine setStr_D2_PSSK3_SK1(str, length, val, format, signed)
8602#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8603 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_PSSK3_SK1
8604#endif
8605 use pm_container, only: css_pdt
8606 use pm_kind, only: SKO => SK1, SKG => SK3
8607 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
8608 character(*, SK) , intent(in) , optional :: format
8609 logical(LK) , intent(in) , optional :: signed
8610 integer(IK) , intent(out) :: length
8611 character(*,SKO) , intent(out) :: str
8612 end subroutine
8613#endif
8614
8615#if SK2_ENABLED
8616 PURE module subroutine setStr_D2_PSSK2_SK1(str, length, val, format, signed)
8617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8618 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_PSSK2_SK1
8619#endif
8620 use pm_container, only: css_pdt
8621 use pm_kind, only: SKO => SK1, SKG => SK2
8622 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
8623 character(*, SK) , intent(in) , optional :: format
8624 logical(LK) , intent(in) , optional :: signed
8625 integer(IK) , intent(out) :: length
8626 character(*,SKO) , intent(out) :: str
8627 end subroutine
8628#endif
8629
8630#if SK1_ENABLED
8631 PURE module subroutine setStr_D2_PSSK1_SK1(str, length, val, format, signed)
8632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8633 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_PSSK1_SK1
8634#endif
8635 use pm_container, only: css_pdt
8636 use pm_kind, only: SKO => SK1, SKG => SK1
8637 type(css_pdt(SKG)) , intent(in) , contiguous :: val(:,:)
8638 character(*, SK) , intent(in) , optional :: format
8639 logical(LK) , intent(in) , optional :: signed
8640 integer(IK) , intent(out) :: length
8641 character(*,SKO) , intent(out) :: str
8642 end subroutine
8643#endif
8644
8645#endif
8646!PDT_ENABLED
8647
8648 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8649
8650 PURE module subroutine setStr_D2_BSSK_SK1(str, length, val, format, signed)
8651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8652 !DEC$ ATTRIBUTES DLLEXPORT :: setStr_D2_BSSK_SK1
8653#endif
8654 use pm_container, only: css_type
8655 use pm_kind, only: SKO => SK1, SKG => SK1
8656 type(css_type) , intent(in) , contiguous :: val(:,:)
8657 character(*, SK) , intent(in) , optional :: format
8658 logical(LK) , intent(in) , optional :: signed
8659 integer(IK) , intent(out) :: length
8660 character(*,SKO) , intent(out) :: str
8661 end subroutine
8662
8663 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8664
8665 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8666 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8667 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8668
8669 end interface
8670#endif
8671
8672!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8673
8674end module pm_val2str ! LCOV_EXCL_LINE
pm_val2str::getStr
Generate and return the conversion of the input value to an output Fortran string,...
Definition: pm_val2str.F90:167
pm_val2str::setStr
Generate and return the conversion of the input value to an output Fortran string,...
Definition: pm_val2str.F90:1670
pm_container
This module contains the derived types for generating allocatable containers of scalar,...
Definition: pm_container.F90:113
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::SK5
integer, parameter SK5
Definition: pm_kind.F90:326
pm_kind::LK1
integer, parameter LK1
Definition: pm_kind.F90:412
pm_kind::IK3
integer, parameter IK3
Definition: pm_kind.F90:368
pm_kind::RK5
integer, parameter RK5
Definition: pm_kind.F90:478
pm_kind::RK4
integer, parameter RK4
Definition: pm_kind.F90:489
pm_kind::SK1
integer, parameter SK1
Definition: pm_kind.F90:346
pm_kind::IK1
integer, parameter IK1
Definition: pm_kind.F90:382
pm_kind::LK5
integer, parameter LK5
Definition: pm_kind.F90:392
pm_kind::RK2
integer, parameter RK2
Definition: pm_kind.F90:511
pm_kind::CK1
integer, parameter CK1
Definition: pm_kind.F90:464
pm_kind::RK3
integer, parameter RK3
Definition: pm_kind.F90:500
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
pm_kind::LK2
integer, parameter LK2
Definition: pm_kind.F90:407
pm_kind::LK4
integer, parameter LK4
Definition: pm_kind.F90:397
pm_kind::CK5
integer, parameter CK5
Definition: pm_kind.F90:420
pm_kind::CK4
integer, parameter CK4
Definition: pm_kind.F90:431
pm_kind::SK4
integer, parameter SK4
Definition: pm_kind.F90:331
pm_kind::LK3
integer, parameter LK3
Definition: pm_kind.F90:402
pm_kind::IK2
integer, parameter IK2
Definition: pm_kind.F90:375
pm_kind::CK2
integer, parameter CK2
Definition: pm_kind.F90:453
pm_kind::SK2
integer, parameter SK2
Definition: pm_kind.F90:341
pm_kind::CK3
integer, parameter CK3
Definition: pm_kind.F90:442
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
pm_kind::IK4
integer, parameter IK4
Definition: pm_kind.F90:361
pm_kind::IK5
integer, parameter IK5
Definition: pm_kind.F90:354
pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
pm_kind::RK1
integer, parameter RK1
Definition: pm_kind.F90:522
pm_kind::SK3
integer, parameter SK3
Definition: pm_kind.F90:336
pm_val2str
This module contains the generic procedures for converting values of different types and kinds to For...
Definition: pm_val2str.F90:58
pm_val2str::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_val2str.F90:66
pm_container::css_pdt
This is the css_pdt parameterized type for generating instances of container of scalar of string obje...
Definition: pm_container.F90:783
pm_container::css_type
This is the css_type type for generating instances of container of scalar of string objects.
Definition: pm_container.F90:191