ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_io.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
241
242!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
243
245#if 1
246#define __CONTIGUOUS
247#else
248#define __CONTIGUOUS, contiguous
249#endif
250
251
252module pm_io
253
254 use pm_err, only: mark_type
255 use pm_err, only: note_type
256 use pm_err, only: warn_type
257 use pm_err, only: stop_type
258 use pm_val2str, only: getStr
259 use pm_kind, only: SK, IK, LK
260 use pm_option, only: getOption
261 use pm_container, only: css_type
262 use iso_fortran_env, only: output_unit
264
265 implicit none
266
267 character(*, SK), parameter :: MODULE_NAME = "@pm_io"
268
285 character(4, SK) :: ascii = SK_".txt"
286 character(4, SK) :: binary = SK_".bin"
287 character(2, SK) :: c = SK_".c"
288 character(4, SK) :: cobol = SK_".cbl"
289 character(4, SK) :: cpp = SK_".cpp"
290 character(3, SK) :: csharp = SK_".cs"
291 character(3, SK) :: go = SK_".go"
292 character(4, SK) :: fortran = SK_".F90"
293 character(5, SK) :: java = SK_".java"
294 character(3, SK) :: javascript = SK_".js"
295 character(3, SK) :: julia = SK_".jl"
296 character(2, SK) :: matlab = SK_".m"
297 character(4, SK) :: mathematica = SK_".wls"
298 character(3, SK) :: python = SK_".py"
299 character(2, SK) :: r = SK_".R"
300 character(3, SK) :: rust = SK_".rs"
301 character(4, SK) :: sas = SK_".sas"
302 character(6, SK) :: swift = SK_".swift"
303 end type
304
316 type(filext_type), parameter :: filext = filext_type()
317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
318 !DIR$ ATTRIBUTES DLLEXPORT :: filext
319#endif
320
321!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
322
323 !integer(IK) , parameter :: DISPLAY_WIDTH = 132_IK
324 !integer(IK) , parameter :: DISPLAY_THICKNESS_HORZ = 4_IK
325 !integer(IK) , parameter :: DISPLAY_THICKNESS_VERT = 1_IK
326
329 character(*, SK), parameter :: MFILL = SK_"%"
330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
331 !DIR$ ATTRIBUTES DLLEXPORT :: MFILL
332#endif
333
336 character(1, SK), parameter :: TAB = achar(9, SK)
337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
338 !DIR$ ATTRIBUTES DLLEXPORT :: TAB
339#endif
340
343 character(*, SK), parameter :: TABEQV = repeat(SK_" ", 4)
344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
345 !DIR$ ATTRIBUTES DLLEXPORT :: TABEQV
346#endif
347
350 character(*, SK), parameter :: INDENT = TABEQV !//TABEQV
351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
352 !DIR$ ATTRIBUTES DLLEXPORT :: INDENT
353#endif
354
357 character(*, SK), parameter :: FORMAT_GENERIC_BLANK = SK_"(*(g0,:,' '))"
358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
359 !DIR$ ATTRIBUTES DLLEXPORT :: FORMAT_GENERIC_BLANK
360#endif
361
364 character(*, SK), parameter :: FORMAT_GENERIC_BLANK_TABBED = SK_"('"//INDENT//SK_"',*(g0,:,' '))"
365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
366 !DIR$ ATTRIBUTES DLLEXPORT :: FORMAT_GENERIC_BLANK_TABBED
367#endif
368
371 character(*, SK), parameter :: FORMAT_GENERIC_DISPLAY = SK_"(sp,*(g0,:,', '))"
372#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
373 !DIR$ ATTRIBUTES DLLEXPORT :: FORMAT_GENERIC_DISPLAY
374#endif
375
379 character(*, SK), parameter :: FORMAT_GENERIC_DISPLAY_COMPLEX_MATH = SK_"(sp,*(2g0,'i',:,', '))"
380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
381 !DIR$ ATTRIBUTES DLLEXPORT :: FORMAT_GENERIC_DISPLAY_COMPLEX_MATH
382#endif
383
387 character(*, SK), parameter :: FORMAT_GENERIC_DISPLAY_COMPLEX_FORTRAN = SK_"(sp,*('(',g0,', ',g0,')',:,', '))"
388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
389 !DIR$ ATTRIBUTES DLLEXPORT :: FORMAT_GENERIC_DISPLAY_COMPLEX_FORTRAN
390#endif
391
394 character(1, SK), parameter :: SPINNER(4) = [ "|" , "/" , "-" , "\" ]
395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
396 !DIR$ ATTRIBUTES DLLEXPORT :: SPINNER
397#endif
398
399!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
400
401 integer(IK) , parameter :: LEN_IOMSG = 511_IK
404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
405 !DIR$ ATTRIBUTES DLLEXPORT :: LEN_IOMSG
406#endif
407
408 integer(IK) , parameter :: LEN_RECORD = 8191_IK
411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
412 !DIR$ ATTRIBUTES DLLEXPORT :: LEN_RECORD
413#endif
414
415!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
416
483 character(:, SK), allocatable :: string
484 character(:, SK), allocatable :: integer
485 character(:, SK), allocatable :: logical
486 character(:, SK), allocatable :: complex
487 character(:, SK), allocatable :: real
488 end type
489
491 interface field_type
492 pure elemental module function field_typer(string, integer, logical, complex, real) result(field)
493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
494 !DEC$ ATTRIBUTES DLLEXPORT :: field_typer
495#endif
496 character(*, SK), intent(in), optional :: string, integer, logical, complex, real
497 type(field_type) :: field
498 end function
499 end interface
501
502!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
503
529 type, abstract :: form_type
530 end type
531
532!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
533
565 type, extends(form_type) :: unknown_type
566 end type
567
592 type(unknown_type), parameter :: unknown = unknown_type()
593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
594 !DIR$ ATTRIBUTES DLLEXPORT :: unknown
595#endif
596
597!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
598
630 type, extends(form_type) :: unformatted_type
631 end type
632
657 type(unformatted_type), parameter :: unformatted = unformatted_type()
658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
659 !DIR$ ATTRIBUTES DLLEXPORT :: unformatted
660#endif
661
662!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
663
695 type, extends(form_type) :: formatted_type
696 end type
697
722 type(formatted_type), parameter :: formatted = formatted_type()
723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
724 !DIR$ ATTRIBUTES DLLEXPORT :: formatted
725#endif
726
727!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
728
760 type, extends(formatted_type) :: csv_type
761 end type
762
787 type(csv_type), parameter :: csv = csv_type()
788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
789 !DIR$ ATTRIBUTES DLLEXPORT :: csv
790#endif
791
792!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
793
825 type, extends(formatted_type) :: fld_type
826 end type
827
852 type(fld_type), parameter :: fld = fld_type()
853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
854 !DIR$ ATTRIBUTES DLLEXPORT :: fld
855#endif
856
857!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
858
859! > \brief
860! > Generate and return the maximum record length (`recl`) attribute of a `sequential` access file,
861! > or a user-specified connected file (or unit).
862! >
863! > \param[in] file : The input scalar of type `character` of default kind \SK representing the
864! > path of a file whose `recl` is to be returned, if it is already opened.<br>
865! > (**optional**, must not be present if `unit` is present.)
866! > \param[in] unit : The input scalar of type `integer` of default kind \IK representing the
867! > unit of a file whose `recl` is to be returned, if it is already opened.<br>
868! > (**optional**, must not be present if `file` is present.)
869! >
870! > \return
871! > `recl` : The output scalar of type `integer` of default kind \IK representing the maximum record length of
872! > the file specified via the input `file` or `unit` arguments. If both `file` and `unit` are missing,
873! > then the `recl` of the a temporary `sequential` access file with `status = "scratch"` will be returned.
874! >
875! > \interface{getRecl}
876! > \code{.F90}
877! >
878! > use pm_io, only: getRecl
879! >
880! > recl = getRecl()
881! > recl = getRecl(file)
882! > recl = getRecl(unit)
883! >
884! > \endcode
885! >
886! > \remark
887! > The default `recl` for a `sequential`-access `scratch` file is<br>
888! > -# `huge(0)` under the GNU Fortran compiler.
889! > -# `132` under the Intel Fortran compiler.
890! >
891! > \impure
892! >
893! > \elemental
894! >
895! > \see
896! > [getFileUnit](@ref pm_io::getFileUnit)<br>
897! > [isPreconnected](@ref pm_io::isPreconnected)<br>
898! >
899! > \example{getRecl}
900! > \include{lineno} example/pm_io/getRecl/main.F90
901! > \compile{getRecl}
902! > \output{getRecl}
903! > \include{lineno} example/pm_io/getRecl/main.out.F90
904! > \test
905! > [test_pm_io](@ref test_pm_io)
906! >
907! > \final{getRecl}
908! >
909! > \author
910! > Amir Shahmoradi, Tuesday March 7, 2017, 3:50 AM, Institute for Computational Engineering and Sciences (ICES), The University of Texas Austin<br>
911! interface getRecl
912!
913! impure elemental function getRecl() result(recl)
914!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
915! !DEC$ ATTRIBUTES DLLEXPORT :: getRecl
916!#endif
917! use pm_kind, only: IK
918! integer(IK) :: recl
919! end function
920!
921! impure elemental function getReclFile(file) result(recl)
922!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
923! !DEC$ ATTRIBUTES DLLEXPORT :: getReclFile
924!#endif
925! use pm_kind, only: IK
926! character(*, SK), intent(in) :: file
927! integer(IK) :: recl
928! end function
929!
930! impure elemental function getReclUnit(unit) result(recl)
931!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
932! !DEC$ ATTRIBUTES DLLEXPORT :: getReclUnit
933!#endif
934! use pm_kind, only: IK
935! integer(IK) , intent(in) :: unit
936! integer(IK) :: recl
937! end function
938!
939! end interface
940
941!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
942
1040 character(10,SK) :: access = SK_"sequential"
1041 character( 9,SK) :: action = SK_"readwrite"
1042 character( 3,SK) :: asynchronous = SK_"no"
1043 character( 4,SK) :: blank = SK_"null"
1044 character( 5,SK) :: decimal = SK_"point"
1045 character(10,SK) :: delim = SK_"none"
1046 character( 7,SK) :: encoding = SK_"default"
1047 character(11,SK) :: form = SK_"formatted"
1048 integer(IK) :: iostat = 0_IK
1049 character( 3,SK) :: pad = SK_"yes"
1050 character( 6,SK) :: position = SK_"asis"
1051 integer(IK) :: recl = huge(0_IK)
1052 character(17,SK) :: round = SK_"processor_defined"
1053 character(17,SK) :: sign = SK_"processor_defined"
1054 character( 7,SK) :: status = SK_"unknown"
1055 integer(IK) :: unit = -1_IK
1056 character(:, SK), allocatable :: iomsg
1057 character(:, SK), allocatable :: file
1058 end type
1059
1060
1190 interface openArg_type
1191 impure elemental module function openArg_typer ( access &
1192 , action &
1193 , asynchronous &
1194 , blank &
1195 , decimal &
1196 , delim &
1197 , encoding &
1198 , form &
1199 , pad &
1200 , position &
1201 , recl &
1202 , round &
1203 , sign &
1204 , status &
1205 , unit &
1206 , file &
1207 , iostat &
1208 , iomsg &
1209 ) result(openArg)
1210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1211 !DEC$ ATTRIBUTES DLLEXPORT :: openArg_typer
1212#endif
1213 character(*, SK), intent(in) , optional :: access
1214 character(*, SK), intent(in) , optional :: action
1215 character(*, SK), intent(in) , optional :: asynchronous
1216 character(*, SK), intent(in) , optional :: blank
1217 character(*, SK), intent(in) , optional :: decimal
1218 character(*, SK), intent(in) , optional :: delim
1219 character(*, SK), intent(in) , optional :: encoding
1220 character(*, SK), intent(in) , optional :: form
1221 character(*, SK), intent(in) , optional :: pad
1222 character(*, SK), intent(in) , optional :: position
1223 integer(IK) , intent(in) , optional :: recl
1224 character(*, SK), intent(in) , optional :: round
1225 character(*, SK), intent(in) , optional :: sign
1226 character(*, SK), intent(in) , optional :: status
1227 integer(IK) , intent(in) , optional :: unit
1228 character(*, SK), intent(in) , optional :: file
1229 character(*, SK), intent(inout) , optional :: iomsg
1230 integer(IK) , intent(out) , optional :: iostat
1231 type(openArg_type) :: openArg
1232 end function
1233 end interface
1234
1235!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1236
1289 interface isOpen
1290
1291 impure elemental module function isOpenUnit(unit) result(opened)
1292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1293 !DEC$ ATTRIBUTES DLLEXPORT :: isOpenUnit
1294#endif
1295 integer(IK) , intent(in) :: unit
1296 logical(LK) :: opened
1297 end function
1298
1299 impure elemental module function isOpenFile(file) result(opened)
1300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1301 !DEC$ ATTRIBUTES DLLEXPORT :: isOpenFile
1302#endif
1303 character(*, SK), intent(in) :: file
1304 logical(LK) :: opened
1305 end function
1306
1307! impure elemental module function isOpenUnitII(unit, iostat, iomsg) result(opened)
1308!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1309! !DEC$ ATTRIBUTES DLLEXPORT :: isOpenUnitII
1310!#endif
1311! integer(IK) , intent(in) :: unit
1312! integer(IK) , intent(out) :: iostat
1313! character(*, SK), intent(inout) :: iomsg
1314! logical(LK) :: opened
1315! end function
1316!
1317! impure elemental module function isOpenFileII(file, iostat, iomsg) result(opened)
1318!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1319! !DEC$ ATTRIBUTES DLLEXPORT :: isOpenFileII
1320!#endif
1321! character(*, SK), intent(in) :: file
1322! integer(IK) , intent(out) :: iostat
1323! character(*, SK), intent(inout) :: iomsg
1324! logical(LK) :: opened
1325! end function
1326
1327 end interface
1328
1329!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1330
1384 interface getAction
1385
1386 impure elemental module function getActionUnit(unit) result(action)
1387#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1388 !DEC$ ATTRIBUTES DLLEXPORT :: getActionUnit
1389#endif
1390 integer(IK) , intent(in) :: unit
1391 character(9, SK) :: action
1392 end function
1393
1394 impure elemental module function getActionFile(file) result(action)
1395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1396 !DEC$ ATTRIBUTES DLLEXPORT :: getActionFile
1397#endif
1398 character(*, SK), intent(in) :: file
1399 character(9, SK) :: action
1400 end function
1401
1402 end interface
1403
1404!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1405
1503
1504 module function getCountRecordFile(file, isCountable, del, iostat, iomsg) result(nrecord)
1505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1506 !DEC$ ATTRIBUTES DLLEXPORT :: getCountRecordFile
1507#endif
1508 use iso_fortran_env, only: iostat_end
1509 character(*, SK), intent(in) :: file
1510 procedure(logical(LK)) , optional :: isCountable
1511 logical(LK) , intent(in) , optional :: del
1512 integer(IK) , intent(out) , optional :: iostat
1513 character(*, SK), intent(inout) , optional :: iomsg
1514 integer(IK) :: nrecord
1515 end function
1516
1517 module function getCountRecordUnit(unit, isCountable, del, iostat, iomsg) result(nrecord)
1518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1519 !DEC$ ATTRIBUTES DLLEXPORT :: getCountRecordUnit
1520#endif
1521 use iso_fortran_env, only: iostat_end
1522 integer(IK) , intent(in) :: unit
1523 procedure(logical(LK)) , optional :: isCountable
1524 logical(LK) , intent(in) , optional :: del
1525 integer(IK) , intent(out) , optional :: iostat
1526 character(*, SK), intent(inout) , optional :: iomsg
1527 integer(IK) :: nrecord
1528 end function
1529
1530 end interface
1531
1532!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1533
1587
1588 module function getContentsFromUnit_SK(unit, del) result(contents)
1589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1590 !DEC$ ATTRIBUTES DLLEXPORT :: getContentsFromUnit_SK
1591#endif
1592 use pm_kind, only: SKG => SK
1593 integer(IK) , intent(in) :: unit
1594 logical(LK) , intent(in) , optional :: del
1595 character(:,SKG), allocatable :: contents
1596 end function
1597
1598 module function getContentsFromFile_SK(file, del) result(contents)
1599#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1600 !DEC$ ATTRIBUTES DLLEXPORT :: getContentsFromFile_SK
1601#endif
1602 use pm_kind, only: SKG => SK
1603 character(*, SK), intent(in) :: file
1604 logical(LK) , intent(in) , optional :: del
1605 character(:,SKG), allocatable :: contents
1606 end function
1607
1608 end interface
1609
1610!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1611
1679
1680 module subroutine setContentsFromUnitCDD_SK(unit, contents, del)
1681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1682 !DEC$ ATTRIBUTES DLLEXPORT :: setContentsFromUnitCDD_SK
1683#endif
1684 use pm_kind, only: SKG => SK
1685 integer(IK) , intent(in) :: unit
1686 character(:,SKG), intent(out) , allocatable :: contents
1687 logical(LK) , intent(in) , optional :: del
1688 end subroutine
1689
1690 module subroutine setContentsFromUnitCII_SK(unit, contents, iostat, iomsg, del)
1691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1692 !DEC$ ATTRIBUTES DLLEXPORT :: setContentsFromUnitCII_SK
1693#endif
1694 use pm_kind, only: SKG => SK
1695 integer(IK) , intent(in) :: unit
1696 character(:,SKG), intent(out) , allocatable :: contents
1697 integer(IK) , intent(out) :: iostat
1698 character(*, SK), intent(inout) :: iomsg
1699 logical(LK) , intent(in) , optional :: del
1700 end subroutine
1701
1702 module subroutine setContentsFromFileCDD_SK(file, contents, del)
1703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1704 !DEC$ ATTRIBUTES DLLEXPORT :: setContentsFromFileCDD_SK
1705#endif
1706 use pm_kind, only: SKG => SK
1707 character(*, SK), intent(in) :: file
1708 character(:,SKG), intent(out) , allocatable :: contents
1709 logical(LK) , intent(in) , optional :: del
1710 end subroutine
1711
1712 module subroutine setContentsFromFileCII_SK(file, contents, iostat, iomsg, del)
1713#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1714 !DEC$ ATTRIBUTES DLLEXPORT :: setContentsFromFileCII_SK
1715#endif
1716 use pm_kind, only: SKG => SK
1717 character(*, SK), intent(in) :: file
1718 character(:,SKG), intent(out) , allocatable :: contents
1719 integer(IK) , intent(out) :: iostat
1720 character(*, SK), intent(inout) :: iomsg
1721 logical(LK) , intent(in) , optional :: del
1722 end subroutine
1723
1724 end interface
1725
1726!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1727
1792
1793! module subroutine setContentsToUnitCDD_SK(unit, contents)
1794!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1795! !DEC$ ATTRIBUTES DLLEXPORT :: setContentsToUnitCDD_SK
1796!#endif
1797! use pm_kind, only: SKG => SK
1798! integer(IK) , intent(in) :: unit
1799! character(*,SKG), intent(in) :: contents
1800! end subroutine
1801!
1802! module subroutine setContentsToUnitCII_SK(unit, contents, iostat, iomsg)
1803!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1804! !DEC$ ATTRIBUTES DLLEXPORT :: setContentsToUnitCII_SK
1805!#endif
1806! use pm_kind, only: SKG => SK
1807! integer(IK) , intent(in) :: unit
1808! character(*,SKG), intent(in) :: contents
1809! integer(IK) , intent(out) :: iostat
1810! character(*, SK), intent(inout) :: iomsg
1811! end subroutine
1812
1813 module subroutine setContentsToFileCDD_SK(file, contents)
1814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1815 !DEC$ ATTRIBUTES DLLEXPORT :: setContentsToFileCDD_SK
1816#endif
1817 use pm_kind, only: SKG => SK
1818 character(*, SK), intent(in) :: file
1819 character(*,SKG), intent(in) :: contents
1820 end subroutine
1821
1822 module subroutine setContentsToFileCII_SK(file, contents, iostat, iomsg)
1823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1824 !DEC$ ATTRIBUTES DLLEXPORT :: setContentsToFileCII_SK
1825#endif
1826 use pm_kind, only: SKG => SK
1827 character(*, SK), intent(in) :: file
1828 character(*,SKG), intent(in) :: contents
1829 integer(IK) , intent(out) :: iostat
1830 character(*, SK), intent(inout) :: iomsg
1831 end subroutine
1832
1833 end interface
1834
1835!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1836
1890 module subroutine setFileClosed_IK(unit, del, iostat, iomsg)
1891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1892 !DEC$ ATTRIBUTES DLLEXPORT :: setFileClosed_IK
1893#endif
1894 integer(IK) , intent(in) :: unit
1895 logical(LK) , intent(in) , optional :: del
1896 integer(IK) , intent(out) , optional :: iostat
1897 character(*, SK), intent(inout) , optional :: iomsg
1898 end subroutine
1899 end interface
1900
1901!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1902
1972
1973 module function getRecordFromUnit_SK(unit, iostat, iomsg, linefed) result(record)
1974#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1975 !DEC$ ATTRIBUTES DLLEXPORT :: getRecordFromUnit_SK
1976#endif
1977 use pm_kind, only: SKG => SK
1978 integer(IK) , intent(in) :: unit
1979 integer(IK) , intent(out) , optional :: iostat
1980 character(*, SK), intent(inout) , optional :: iomsg
1981 logical(LK) , intent(in) , optional :: linefed
1982 character(:,SKG), allocatable :: record
1983 end function
1984
1985 end interface
1986
1987!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1988 end do
2115
2116 module subroutine setRecordFromUR_SK(unit, record, lb, ub, linefed)
2117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2118 !DEC$ ATTRIBUTES DLLEXPORT :: setRecordFromUR_SK
2119#endif
2120 use pm_kind, only: SKG => SK
2121 integer(IK) , intent(in) :: unit
2122 character(:,SKG), intent(inout) , allocatable :: record
2123 integer(IK) , intent(in) , optional :: lb
2124 integer(IK) , intent(out) , optional :: ub
2125 logical(LK) , intent(in) , optional :: linefed
2126 end subroutine
2127
2128 module subroutine setRecordFromURII_SK(unit, record, iostat, iomsg, lb, ub, linefed)
2129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2130 !DEC$ ATTRIBUTES DLLEXPORT :: setRecordFromURII_SK
2131#endif
2132 use pm_kind, only: SKG => SK
2133 integer(IK) , intent(in) :: unit
2134 character(:,SKG), intent(inout) , allocatable :: record
2135 integer(IK) , intent(out) :: iostat
2136 character(*, SK), intent(inout) :: iomsg
2137 integer(IK) , intent(in) , optional :: lb
2138 integer(IK) , intent(out) , optional :: ub
2139 logical(LK) , intent(in) , optional :: linefed
2140 end subroutine
2141
2142 end interface
2143
2144!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2145
2227 module function getCountRecordLeft_IK(unit, isCountable, reset, iostat, iomsg) result(nrecord)
2228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2229 !DEC$ ATTRIBUTES DLLEXPORT :: getCountRecordLeft_IK
2230#endif
2231 integer(IK) , intent(in) :: unit
2232 procedure(logical(LK)) , optional :: isCountable
2233 logical(LK) , intent(in) , optional :: reset
2234 integer(IK) , intent(out) , optional :: iostat
2235 character(*, SK) , intent(inout) , optional :: iomsg
2236 integer(IK) :: nrecord
2237 end function
2238 end interface
2239
2240!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2241
2387
2388 ! D1 file NO
2389
2391
2392 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2393
2394#if SK5_ENABLED
2395 module function getErrTableReadFile_NO_D1_SK5(file, table, header, sep, roff, iomsg) result(err)
2396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2397 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D1_SK5
2398#endif
2399 use pm_kind, only: SKG => SK5
2400 character(*,SKG) , intent(out) , allocatable :: table(:)
2401 character(:, SK) , intent(out) , allocatable , optional :: header
2402 character(*, SK) , intent(in) :: file
2403 character(*, SK) , intent(in) , optional :: sep
2404 character(*, SK) , intent(inout) , optional :: iomsg
2405 integer(IK) , intent(in) , optional :: roff
2406 integer(IK) :: err
2407 end function
2408#endif
2409
2410#if SK4_ENABLED
2411 module function getErrTableReadFile_NO_D1_SK4(file, table, header, sep, roff, iomsg) result(err)
2412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2413 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D1_SK4
2414#endif
2415 use pm_kind, only: SKG => SK4
2416 character(*,SKG) , intent(out) , allocatable :: table(:)
2417 character(:, SK) , intent(out) , allocatable , optional :: header
2418 character(*, SK) , intent(in) :: file
2419 character(*, SK) , intent(in) , optional :: sep
2420 character(*, SK) , intent(inout) , optional :: iomsg
2421 integer(IK) , intent(in) , optional :: roff
2422 integer(IK) :: err
2423 end function
2424#endif
2425
2426#if SK3_ENABLED
2427 module function getErrTableReadFile_NO_D1_SK3(file, table, header, sep, roff, iomsg) result(err)
2428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2429 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D1_SK3
2430#endif
2431 use pm_kind, only: SKG => SK3
2432 character(*,SKG) , intent(out) , allocatable :: table(:)
2433 character(:, SK) , intent(out) , allocatable , optional :: header
2434 character(*, SK) , intent(in) :: file
2435 character(*, SK) , intent(in) , optional :: sep
2436 character(*, SK) , intent(inout) , optional :: iomsg
2437 integer(IK) , intent(in) , optional :: roff
2438 integer(IK) :: err
2439 end function
2440#endif
2441
2442#if SK2_ENABLED
2443 module function getErrTableReadFile_NO_D1_SK2(file, table, header, sep, roff, iomsg) result(err)
2444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2445 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D1_SK2
2446#endif
2447 use pm_kind, only: SKG => SK2
2448 character(*,SKG) , intent(out) , allocatable :: table(:)
2449 character(:, SK) , intent(out) , allocatable , optional :: header
2450 character(*, SK) , intent(in) :: file
2451 character(*, SK) , intent(in) , optional :: sep
2452 character(*, SK) , intent(inout) , optional :: iomsg
2453 integer(IK) , intent(in) , optional :: roff
2454 integer(IK) :: err
2455 end function
2456#endif
2457
2458#if SK1_ENABLED
2459 module function getErrTableReadFile_NO_D1_SK1(file, table, header, sep, roff, iomsg) result(err)
2460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2461 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D1_SK1
2462#endif
2463 use pm_kind, only: SKG => SK1
2464 character(*,SKG) , intent(out) , allocatable :: table(:)
2465 character(:, SK) , intent(out) , allocatable , optional :: header
2466 character(*, SK) , intent(in) :: file
2467 character(*, SK) , intent(in) , optional :: sep
2468 character(*, SK) , intent(inout) , optional :: iomsg
2469 integer(IK) , intent(in) , optional :: roff
2470 integer(IK) :: err
2471 end function
2472#endif
2473
2474 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2475
2476#if IK5_ENABLED
2477 module function getErrTableReadFile_NO_D1_IK5(file, table, header, sep, roff, iomsg) result(err)
2478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2479 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D1_IK5
2480#endif
2481 use pm_kind, only: IKG => IK5
2482 integer(IKG) , intent(out) , allocatable :: table(:)
2483 character(:, SK) , intent(out) , allocatable , optional :: header
2484 character(*, SK) , intent(in) :: file
2485 character(*, SK) , intent(in) , optional :: sep
2486 character(*, SK) , intent(inout) , optional :: iomsg
2487 integer(IK) , intent(in) , optional :: roff
2488 integer(IK) :: err
2489 end function
2490#endif
2491
2492#if IK4_ENABLED
2493 module function getErrTableReadFile_NO_D1_IK4(file, table, header, sep, roff, iomsg) result(err)
2494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2495 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D1_IK4
2496#endif
2497 use pm_kind, only: IKG => IK4
2498 integer(IKG) , intent(out) , allocatable :: table(:)
2499 character(:, SK) , intent(out) , allocatable , optional :: header
2500 character(*, SK) , intent(in) :: file
2501 character(*, SK) , intent(in) , optional :: sep
2502 character(*, SK) , intent(inout) , optional :: iomsg
2503 integer(IK) , intent(in) , optional :: roff
2504 integer(IK) :: err
2505 end function
2506#endif
2507
2508#if IK3_ENABLED
2509 module function getErrTableReadFile_NO_D1_IK3(file, table, header, sep, roff, iomsg) result(err)
2510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2511 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D1_IK3
2512#endif
2513 use pm_kind, only: IKG => IK3
2514 integer(IKG) , intent(out) , allocatable :: table(:)
2515 character(:, SK) , intent(out) , allocatable , optional :: header
2516 character(*, SK) , intent(in) :: file
2517 character(*, SK) , intent(in) , optional :: sep
2518 character(*, SK) , intent(inout) , optional :: iomsg
2519 integer(IK) , intent(in) , optional :: roff
2520 integer(IK) :: err
2521 end function
2522#endif
2523
2524#if IK2_ENABLED
2525 module function getErrTableReadFile_NO_D1_IK2(file, table, header, sep, roff, iomsg) result(err)
2526#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2527 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D1_IK2
2528#endif
2529 use pm_kind, only: IKG => IK2
2530 integer(IKG) , intent(out) , allocatable :: table(:)
2531 character(:, SK) , intent(out) , allocatable , optional :: header
2532 character(*, SK) , intent(in) :: file
2533 character(*, SK) , intent(in) , optional :: sep
2534 character(*, SK) , intent(inout) , optional :: iomsg
2535 integer(IK) , intent(in) , optional :: roff
2536 integer(IK) :: err
2537 end function
2538#endif
2539
2540#if IK1_ENABLED
2541 module function getErrTableReadFile_NO_D1_IK1(file, table, header, sep, roff, iomsg) result(err)
2542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2543 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D1_IK1
2544#endif
2545 use pm_kind, only: IKG => IK1
2546 integer(IKG) , intent(out) , allocatable :: table(:)
2547 character(:, SK) , intent(out) , allocatable , optional :: header
2548 character(*, SK) , intent(in) :: file
2549 character(*, SK) , intent(in) , optional :: sep
2550 character(*, SK) , intent(inout) , optional :: iomsg
2551 integer(IK) , intent(in) , optional :: roff
2552 integer(IK) :: err
2553 end function
2554#endif
2555
2556 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2557
2558#if LK5_ENABLED
2559 module function getErrTableReadFile_NO_D1_LK5(file, table, header, sep, roff, iomsg) result(err)
2560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2561 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D1_LK5
2562#endif
2563 use pm_kind, only: LKG => LK5
2564 logical(LKG) , intent(out) , allocatable :: table(:)
2565 character(:, SK) , intent(out) , allocatable , optional :: header
2566 character(*, SK) , intent(in) :: file
2567 character(*, SK) , intent(in) , optional :: sep
2568 character(*, SK) , intent(inout) , optional :: iomsg
2569 integer(IK) , intent(in) , optional :: roff
2570 integer(IK) :: err
2571 end function
2572#endif
2573
2574#if LK4_ENABLED
2575 module function getErrTableReadFile_NO_D1_LK4(file, table, header, sep, roff, iomsg) result(err)
2576#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2577 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D1_LK4
2578#endif
2579 use pm_kind, only: LKG => LK4
2580 logical(LKG) , intent(out) , allocatable :: table(:)
2581 character(:, SK) , intent(out) , allocatable , optional :: header
2582 character(*, SK) , intent(in) :: file
2583 character(*, SK) , intent(in) , optional :: sep
2584 character(*, SK) , intent(inout) , optional :: iomsg
2585 integer(IK) , intent(in) , optional :: roff
2586 integer(IK) :: err
2587 end function
2588#endif
2589
2590#if LK3_ENABLED
2591 module function getErrTableReadFile_NO_D1_LK3(file, table, header, sep, roff, iomsg) result(err)
2592#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2593 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D1_LK3
2594#endif
2595 use pm_kind, only: LKG => LK3
2596 logical(LKG) , intent(out) , allocatable :: table(:)
2597 character(:, SK) , intent(out) , allocatable , optional :: header
2598 character(*, SK) , intent(in) :: file
2599 character(*, SK) , intent(in) , optional :: sep
2600 character(*, SK) , intent(inout) , optional :: iomsg
2601 integer(IK) , intent(in) , optional :: roff
2602 integer(IK) :: err
2603 end function
2604#endif
2605
2606#if LK2_ENABLED
2607 module function getErrTableReadFile_NO_D1_LK2(file, table, header, sep, roff, iomsg) result(err)
2608#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2609 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D1_LK2
2610#endif
2611 use pm_kind, only: LKG => LK2
2612 logical(LKG) , intent(out) , allocatable :: table(:)
2613 character(:, SK) , intent(out) , allocatable , optional :: header
2614 character(*, SK) , intent(in) :: file
2615 character(*, SK) , intent(in) , optional :: sep
2616 character(*, SK) , intent(inout) , optional :: iomsg
2617 integer(IK) , intent(in) , optional :: roff
2618 integer(IK) :: err
2619 end function
2620#endif
2621
2622#if LK1_ENABLED
2623 module function getErrTableReadFile_NO_D1_LK1(file, table, header, sep, roff, iomsg) result(err)
2624#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2625 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D1_LK1
2626#endif
2627 use pm_kind, only: LKG => LK1
2628 logical(LKG) , intent(out) , allocatable :: table(:)
2629 character(:, SK) , intent(out) , allocatable , optional :: header
2630 character(*, SK) , intent(in) :: file
2631 character(*, SK) , intent(in) , optional :: sep
2632 character(*, SK) , intent(inout) , optional :: iomsg
2633 integer(IK) , intent(in) , optional :: roff
2634 integer(IK) :: err
2635 end function
2636#endif
2637
2638 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2639
2640#if CK5_ENABLED
2641 module function getErrTableReadFile_NO_D1_CK5(file, table, header, sep, roff, iomsg) result(err)
2642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2643 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D1_CK5
2644#endif
2645 use pm_kind, only: CKG => CK5
2646 complex(CKG) , intent(out) , allocatable :: table(:)
2647 character(:, SK) , intent(out) , allocatable , optional :: header
2648 character(*, SK) , intent(in) :: file
2649 character(*, SK) , intent(in) , optional :: sep
2650 character(*, SK) , intent(inout) , optional :: iomsg
2651 integer(IK) , intent(in) , optional :: roff
2652 integer(IK) :: err
2653 end function
2654#endif
2655
2656#if CK4_ENABLED
2657 module function getErrTableReadFile_NO_D1_CK4(file, table, header, sep, roff, iomsg) result(err)
2658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2659 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D1_CK4
2660#endif
2661 use pm_kind, only: CKG => CK4
2662 complex(CKG) , intent(out) , allocatable :: table(:)
2663 character(:, SK) , intent(out) , allocatable , optional :: header
2664 character(*, SK) , intent(in) :: file
2665 character(*, SK) , intent(in) , optional :: sep
2666 character(*, SK) , intent(inout) , optional :: iomsg
2667 integer(IK) , intent(in) , optional :: roff
2668 integer(IK) :: err
2669 end function
2670#endif
2671
2672#if CK3_ENABLED
2673 module function getErrTableReadFile_NO_D1_CK3(file, table, header, sep, roff, iomsg) result(err)
2674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2675 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D1_CK3
2676#endif
2677 use pm_kind, only: CKG => CK3
2678 complex(CKG) , intent(out) , allocatable :: table(:)
2679 character(:, SK) , intent(out) , allocatable , optional :: header
2680 character(*, SK) , intent(in) :: file
2681 character(*, SK) , intent(in) , optional :: sep
2682 character(*, SK) , intent(inout) , optional :: iomsg
2683 integer(IK) , intent(in) , optional :: roff
2684 integer(IK) :: err
2685 end function
2686#endif
2687
2688#if CK2_ENABLED
2689 module function getErrTableReadFile_NO_D1_CK2(file, table, header, sep, roff, iomsg) result(err)
2690#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2691 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D1_CK2
2692#endif
2693 use pm_kind, only: CKG => CK2
2694 complex(CKG) , intent(out) , allocatable :: table(:)
2695 character(:, SK) , intent(out) , allocatable , optional :: header
2696 character(*, SK) , intent(in) :: file
2697 character(*, SK) , intent(in) , optional :: sep
2698 character(*, SK) , intent(inout) , optional :: iomsg
2699 integer(IK) , intent(in) , optional :: roff
2700 integer(IK) :: err
2701 end function
2702#endif
2703
2704#if CK1_ENABLED
2705 module function getErrTableReadFile_NO_D1_CK1(file, table, header, sep, roff, iomsg) result(err)
2706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2707 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D1_CK1
2708#endif
2709 use pm_kind, only: CKG => CK1
2710 complex(CKG) , intent(out) , allocatable :: table(:)
2711 character(:, SK) , intent(out) , allocatable , optional :: header
2712 character(*, SK) , intent(in) :: file
2713 character(*, SK) , intent(in) , optional :: sep
2714 character(*, SK) , intent(inout) , optional :: iomsg
2715 integer(IK) , intent(in) , optional :: roff
2716 integer(IK) :: err
2717 end function
2718#endif
2719
2720 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2721
2722#if RK5_ENABLED
2723 module function getErrTableReadFile_NO_D1_RK5(file, table, header, sep, roff, iomsg) result(err)
2724#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2725 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D1_RK5
2726#endif
2727 use pm_kind, only: RKG => RK5
2728 real(RKG) , intent(out) , allocatable :: table(:)
2729 character(:, SK) , intent(out) , allocatable , optional :: header
2730 character(*, SK) , intent(in) :: file
2731 character(*, SK) , intent(in) , optional :: sep
2732 character(*, SK) , intent(inout) , optional :: iomsg
2733 integer(IK) , intent(in) , optional :: roff
2734 integer(IK) :: err
2735 end function
2736#endif
2737
2738#if RK4_ENABLED
2739 module function getErrTableReadFile_NO_D1_RK4(file, table, header, sep, roff, iomsg) result(err)
2740#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2741 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D1_RK4
2742#endif
2743 use pm_kind, only: RKG => RK4
2744 real(RKG) , intent(out) , allocatable :: table(:)
2745 character(:, SK) , intent(out) , allocatable , optional :: header
2746 character(*, SK) , intent(in) :: file
2747 character(*, SK) , intent(in) , optional :: sep
2748 character(*, SK) , intent(inout) , optional :: iomsg
2749 integer(IK) , intent(in) , optional :: roff
2750 integer(IK) :: err
2751 end function
2752#endif
2753
2754#if RK3_ENABLED
2755 module function getErrTableReadFile_NO_D1_RK3(file, table, header, sep, roff, iomsg) result(err)
2756#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2757 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D1_RK3
2758#endif
2759 use pm_kind, only: RKG => RK3
2760 real(RKG) , intent(out) , allocatable :: table(:)
2761 character(:, SK) , intent(out) , allocatable , optional :: header
2762 character(*, SK) , intent(in) :: file
2763 character(*, SK) , intent(in) , optional :: sep
2764 character(*, SK) , intent(inout) , optional :: iomsg
2765 integer(IK) , intent(in) , optional :: roff
2766 integer(IK) :: err
2767 end function
2768#endif
2769
2770#if RK2_ENABLED
2771 module function getErrTableReadFile_NO_D1_RK2(file, table, header, sep, roff, iomsg) result(err)
2772#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2773 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D1_RK2
2774#endif
2775 use pm_kind, only: RKG => RK2
2776 real(RKG) , intent(out) , allocatable :: table(:)
2777 character(:, SK) , intent(out) , allocatable , optional :: header
2778 character(*, SK) , intent(in) :: file
2779 character(*, SK) , intent(in) , optional :: sep
2780 character(*, SK) , intent(inout) , optional :: iomsg
2781 integer(IK) , intent(in) , optional :: roff
2782 integer(IK) :: err
2783 end function
2784#endif
2785
2786#if RK1_ENABLED
2787 module function getErrTableReadFile_NO_D1_RK1(file, table, header, sep, roff, iomsg) result(err)
2788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2789 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D1_RK1
2790#endif
2791 use pm_kind, only: RKG => RK1
2792 real(RKG) , intent(out) , allocatable :: table(:)
2793 character(:, SK) , intent(out) , allocatable , optional :: header
2794 character(*, SK) , intent(in) :: file
2795 character(*, SK) , intent(in) , optional :: sep
2796 character(*, SK) , intent(inout) , optional :: iomsg
2797 integer(IK) , intent(in) , optional :: roff
2798 integer(IK) :: err
2799 end function
2800#endif
2801
2802 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2803
2804 end interface
2805
2806 ! D2 file NO
2807
2808 interface getErrTableRead
2809
2810 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2811
2812#if SK5_ENABLED
2813 module function getErrTableReadFile_NO_D2_SK5(file, table, header, sep, roff, iomsg) result(err)
2814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2815 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D2_SK5
2816#endif
2817 use pm_kind, only: SKG => SK5
2818 character(*,SKG) , intent(out) , allocatable :: table(:,:)
2819 character(:, SK) , intent(out) , allocatable , optional :: header
2820 character(*, SK) , intent(in) :: file
2821 character(*, SK) , intent(in) , optional :: sep
2822 character(*, SK) , intent(inout) , optional :: iomsg
2823 integer(IK) , intent(in) , optional :: roff
2824 integer(IK) :: err
2825 end function
2826#endif
2827
2828#if SK4_ENABLED
2829 module function getErrTableReadFile_NO_D2_SK4(file, table, header, sep, roff, iomsg) result(err)
2830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2831 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D2_SK4
2832#endif
2833 use pm_kind, only: SKG => SK4
2834 character(*,SKG) , intent(out) , allocatable :: table(:,:)
2835 character(:, SK) , intent(out) , allocatable , optional :: header
2836 character(*, SK) , intent(in) :: file
2837 character(*, SK) , intent(in) , optional :: sep
2838 character(*, SK) , intent(inout) , optional :: iomsg
2839 integer(IK) , intent(in) , optional :: roff
2840 integer(IK) :: err
2841 end function
2842#endif
2843
2844#if SK3_ENABLED
2845 module function getErrTableReadFile_NO_D2_SK3(file, table, header, sep, roff, iomsg) result(err)
2846#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2847 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D2_SK3
2848#endif
2849 use pm_kind, only: SKG => SK3
2850 character(*,SKG) , intent(out) , allocatable :: table(:,:)
2851 character(:, SK) , intent(out) , allocatable , optional :: header
2852 character(*, SK) , intent(in) :: file
2853 character(*, SK) , intent(in) , optional :: sep
2854 character(*, SK) , intent(inout) , optional :: iomsg
2855 integer(IK) , intent(in) , optional :: roff
2856 integer(IK) :: err
2857 end function
2858#endif
2859
2860#if SK2_ENABLED
2861 module function getErrTableReadFile_NO_D2_SK2(file, table, header, sep, roff, iomsg) result(err)
2862#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2863 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D2_SK2
2864#endif
2865 use pm_kind, only: SKG => SK2
2866 character(*,SKG) , intent(out) , allocatable :: table(:,:)
2867 character(:, SK) , intent(out) , allocatable , optional :: header
2868 character(*, SK) , intent(in) :: file
2869 character(*, SK) , intent(in) , optional :: sep
2870 character(*, SK) , intent(inout) , optional :: iomsg
2871 integer(IK) , intent(in) , optional :: roff
2872 integer(IK) :: err
2873 end function
2874#endif
2875
2876#if SK1_ENABLED
2877 module function getErrTableReadFile_NO_D2_SK1(file, table, header, sep, roff, iomsg) result(err)
2878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2879 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D2_SK1
2880#endif
2881 use pm_kind, only: SKG => SK1
2882 character(*,SKG) , intent(out) , allocatable :: table(:,:)
2883 character(:, SK) , intent(out) , allocatable , optional :: header
2884 character(*, SK) , intent(in) :: file
2885 character(*, SK) , intent(in) , optional :: sep
2886 character(*, SK) , intent(inout) , optional :: iomsg
2887 integer(IK) , intent(in) , optional :: roff
2888 integer(IK) :: err
2889 end function
2890#endif
2891
2892 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2893
2894#if IK5_ENABLED
2895 module function getErrTableReadFile_NO_D2_IK5(file, table, header, sep, roff, iomsg) result(err)
2896#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2897 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D2_IK5
2898#endif
2899 use pm_kind, only: IKG => IK5
2900 integer(IKG) , intent(out) , allocatable :: table(:,:)
2901 character(:, SK) , intent(out) , allocatable , optional :: header
2902 character(*, SK) , intent(in) :: file
2903 character(*, SK) , intent(in) , optional :: sep
2904 character(*, SK) , intent(inout) , optional :: iomsg
2905 integer(IK) , intent(in) , optional :: roff
2906 integer(IK) :: err
2907 end function
2908#endif
2909
2910#if IK4_ENABLED
2911 module function getErrTableReadFile_NO_D2_IK4(file, table, header, sep, roff, iomsg) result(err)
2912#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2913 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D2_IK4
2914#endif
2915 use pm_kind, only: IKG => IK4
2916 integer(IKG) , intent(out) , allocatable :: table(:,:)
2917 character(:, SK) , intent(out) , allocatable , optional :: header
2918 character(*, SK) , intent(in) :: file
2919 character(*, SK) , intent(in) , optional :: sep
2920 character(*, SK) , intent(inout) , optional :: iomsg
2921 integer(IK) , intent(in) , optional :: roff
2922 integer(IK) :: err
2923 end function
2924#endif
2925
2926#if IK3_ENABLED
2927 module function getErrTableReadFile_NO_D2_IK3(file, table, header, sep, roff, iomsg) result(err)
2928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2929 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D2_IK3
2930#endif
2931 use pm_kind, only: IKG => IK3
2932 integer(IKG) , intent(out) , allocatable :: table(:,:)
2933 character(:, SK) , intent(out) , allocatable , optional :: header
2934 character(*, SK) , intent(in) :: file
2935 character(*, SK) , intent(in) , optional :: sep
2936 character(*, SK) , intent(inout) , optional :: iomsg
2937 integer(IK) , intent(in) , optional :: roff
2938 integer(IK) :: err
2939 end function
2940#endif
2941
2942#if IK2_ENABLED
2943 module function getErrTableReadFile_NO_D2_IK2(file, table, header, sep, roff, iomsg) result(err)
2944#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2945 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D2_IK2
2946#endif
2947 use pm_kind, only: IKG => IK2
2948 integer(IKG) , intent(out) , allocatable :: table(:,:)
2949 character(:, SK) , intent(out) , allocatable , optional :: header
2950 character(*, SK) , intent(in) :: file
2951 character(*, SK) , intent(in) , optional :: sep
2952 character(*, SK) , intent(inout) , optional :: iomsg
2953 integer(IK) , intent(in) , optional :: roff
2954 integer(IK) :: err
2955 end function
2956#endif
2957
2958#if IK1_ENABLED
2959 module function getErrTableReadFile_NO_D2_IK1(file, table, header, sep, roff, iomsg) result(err)
2960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2961 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D2_IK1
2962#endif
2963 use pm_kind, only: IKG => IK1
2964 integer(IKG) , intent(out) , allocatable :: table(:,:)
2965 character(:, SK) , intent(out) , allocatable , optional :: header
2966 character(*, SK) , intent(in) :: file
2967 character(*, SK) , intent(in) , optional :: sep
2968 character(*, SK) , intent(inout) , optional :: iomsg
2969 integer(IK) , intent(in) , optional :: roff
2970 integer(IK) :: err
2971 end function
2972#endif
2973
2974 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2975
2976#if LK5_ENABLED
2977 module function getErrTableReadFile_NO_D2_LK5(file, table, header, sep, roff, iomsg) result(err)
2978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2979 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D2_LK5
2980#endif
2981 use pm_kind, only: LKG => LK5
2982 logical(LKG) , intent(out) , allocatable :: table(:,:)
2983 character(:, SK) , intent(out) , allocatable , optional :: header
2984 character(*, SK) , intent(in) :: file
2985 character(*, SK) , intent(in) , optional :: sep
2986 character(*, SK) , intent(inout) , optional :: iomsg
2987 integer(IK) , intent(in) , optional :: roff
2988 integer(IK) :: err
2989 end function
2990#endif
2991
2992#if LK4_ENABLED
2993 module function getErrTableReadFile_NO_D2_LK4(file, table, header, sep, roff, iomsg) result(err)
2994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2995 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D2_LK4
2996#endif
2997 use pm_kind, only: LKG => LK4
2998 logical(LKG) , intent(out) , allocatable :: table(:,:)
2999 character(:, SK) , intent(out) , allocatable , optional :: header
3000 character(*, SK) , intent(in) :: file
3001 character(*, SK) , intent(in) , optional :: sep
3002 character(*, SK) , intent(inout) , optional :: iomsg
3003 integer(IK) , intent(in) , optional :: roff
3004 integer(IK) :: err
3005 end function
3006#endif
3007
3008#if LK3_ENABLED
3009 module function getErrTableReadFile_NO_D2_LK3(file, table, header, sep, roff, iomsg) result(err)
3010#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3011 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D2_LK3
3012#endif
3013 use pm_kind, only: LKG => LK3
3014 logical(LKG) , intent(out) , allocatable :: table(:,:)
3015 character(:, SK) , intent(out) , allocatable , optional :: header
3016 character(*, SK) , intent(in) :: file
3017 character(*, SK) , intent(in) , optional :: sep
3018 character(*, SK) , intent(inout) , optional :: iomsg
3019 integer(IK) , intent(in) , optional :: roff
3020 integer(IK) :: err
3021 end function
3022#endif
3023
3024#if LK2_ENABLED
3025 module function getErrTableReadFile_NO_D2_LK2(file, table, header, sep, roff, iomsg) result(err)
3026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3027 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D2_LK2
3028#endif
3029 use pm_kind, only: LKG => LK2
3030 logical(LKG) , intent(out) , allocatable :: table(:,:)
3031 character(:, SK) , intent(out) , allocatable , optional :: header
3032 character(*, SK) , intent(in) :: file
3033 character(*, SK) , intent(in) , optional :: sep
3034 character(*, SK) , intent(inout) , optional :: iomsg
3035 integer(IK) , intent(in) , optional :: roff
3036 integer(IK) :: err
3037 end function
3038#endif
3039
3040#if LK1_ENABLED
3041 module function getErrTableReadFile_NO_D2_LK1(file, table, header, sep, roff, iomsg) result(err)
3042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3043 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D2_LK1
3044#endif
3045 use pm_kind, only: LKG => LK1
3046 logical(LKG) , intent(out) , allocatable :: table(:,:)
3047 character(:, SK) , intent(out) , allocatable , optional :: header
3048 character(*, SK) , intent(in) :: file
3049 character(*, SK) , intent(in) , optional :: sep
3050 character(*, SK) , intent(inout) , optional :: iomsg
3051 integer(IK) , intent(in) , optional :: roff
3052 integer(IK) :: err
3053 end function
3054#endif
3055
3056 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3057
3058#if CK5_ENABLED
3059 module function getErrTableReadFile_NO_D2_CK5(file, table, header, sep, roff, iomsg) result(err)
3060#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3061 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D2_CK5
3062#endif
3063 use pm_kind, only: CKG => CK5
3064 complex(CKG) , intent(out) , allocatable :: table(:,:)
3065 character(:, SK) , intent(out) , allocatable , optional :: header
3066 character(*, SK) , intent(in) :: file
3067 character(*, SK) , intent(in) , optional :: sep
3068 character(*, SK) , intent(inout) , optional :: iomsg
3069 integer(IK) , intent(in) , optional :: roff
3070 integer(IK) :: err
3071 end function
3072#endif
3073
3074#if CK4_ENABLED
3075 module function getErrTableReadFile_NO_D2_CK4(file, table, header, sep, roff, iomsg) result(err)
3076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3077 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D2_CK4
3078#endif
3079 use pm_kind, only: CKG => CK4
3080 complex(CKG) , intent(out) , allocatable :: table(:,:)
3081 character(:, SK) , intent(out) , allocatable , optional :: header
3082 character(*, SK) , intent(in) :: file
3083 character(*, SK) , intent(in) , optional :: sep
3084 character(*, SK) , intent(inout) , optional :: iomsg
3085 integer(IK) , intent(in) , optional :: roff
3086 integer(IK) :: err
3087 end function
3088#endif
3089
3090#if CK3_ENABLED
3091 module function getErrTableReadFile_NO_D2_CK3(file, table, header, sep, roff, iomsg) result(err)
3092#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3093 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D2_CK3
3094#endif
3095 use pm_kind, only: CKG => CK3
3096 complex(CKG) , intent(out) , allocatable :: table(:,:)
3097 character(:, SK) , intent(out) , allocatable , optional :: header
3098 character(*, SK) , intent(in) :: file
3099 character(*, SK) , intent(in) , optional :: sep
3100 character(*, SK) , intent(inout) , optional :: iomsg
3101 integer(IK) , intent(in) , optional :: roff
3102 integer(IK) :: err
3103 end function
3104#endif
3105
3106#if CK2_ENABLED
3107 module function getErrTableReadFile_NO_D2_CK2(file, table, header, sep, roff, iomsg) result(err)
3108#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3109 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D2_CK2
3110#endif
3111 use pm_kind, only: CKG => CK2
3112 complex(CKG) , intent(out) , allocatable :: table(:,:)
3113 character(:, SK) , intent(out) , allocatable , optional :: header
3114 character(*, SK) , intent(in) :: file
3115 character(*, SK) , intent(in) , optional :: sep
3116 character(*, SK) , intent(inout) , optional :: iomsg
3117 integer(IK) , intent(in) , optional :: roff
3118 integer(IK) :: err
3119 end function
3120#endif
3121
3122#if CK1_ENABLED
3123 module function getErrTableReadFile_NO_D2_CK1(file, table, header, sep, roff, iomsg) result(err)
3124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3125 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D2_CK1
3126#endif
3127 use pm_kind, only: CKG => CK1
3128 complex(CKG) , intent(out) , allocatable :: table(:,:)
3129 character(:, SK) , intent(out) , allocatable , optional :: header
3130 character(*, SK) , intent(in) :: file
3131 character(*, SK) , intent(in) , optional :: sep
3132 character(*, SK) , intent(inout) , optional :: iomsg
3133 integer(IK) , intent(in) , optional :: roff
3134 integer(IK) :: err
3135 end function
3136#endif
3137
3138 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3139
3140#if RK5_ENABLED
3141 module function getErrTableReadFile_NO_D2_RK5(file, table, header, sep, roff, iomsg) result(err)
3142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3143 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D2_RK5
3144#endif
3145 use pm_kind, only: RKG => RK5
3146 real(RKG) , intent(out) , allocatable :: table(:,:)
3147 character(:, SK) , intent(out) , allocatable , optional :: header
3148 character(*, SK) , intent(in) :: file
3149 character(*, SK) , intent(in) , optional :: sep
3150 character(*, SK) , intent(inout) , optional :: iomsg
3151 integer(IK) , intent(in) , optional :: roff
3152 integer(IK) :: err
3153 end function
3154#endif
3155
3156#if RK4_ENABLED
3157 module function getErrTableReadFile_NO_D2_RK4(file, table, header, sep, roff, iomsg) result(err)
3158#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3159 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D2_RK4
3160#endif
3161 use pm_kind, only: RKG => RK4
3162 real(RKG) , intent(out) , allocatable :: table(:,:)
3163 character(:, SK) , intent(out) , allocatable , optional :: header
3164 character(*, SK) , intent(in) :: file
3165 character(*, SK) , intent(in) , optional :: sep
3166 character(*, SK) , intent(inout) , optional :: iomsg
3167 integer(IK) , intent(in) , optional :: roff
3168 integer(IK) :: err
3169 end function
3170#endif
3171
3172#if RK3_ENABLED
3173 module function getErrTableReadFile_NO_D2_RK3(file, table, header, sep, roff, iomsg) result(err)
3174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3175 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D2_RK3
3176#endif
3177 use pm_kind, only: RKG => RK3
3178 real(RKG) , intent(out) , allocatable :: table(:,:)
3179 character(:, SK) , intent(out) , allocatable , optional :: header
3180 character(*, SK) , intent(in) :: file
3181 character(*, SK) , intent(in) , optional :: sep
3182 character(*, SK) , intent(inout) , optional :: iomsg
3183 integer(IK) , intent(in) , optional :: roff
3184 integer(IK) :: err
3185 end function
3186#endif
3187
3188#if RK2_ENABLED
3189 module function getErrTableReadFile_NO_D2_RK2(file, table, header, sep, roff, iomsg) result(err)
3190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3191 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D2_RK2
3192#endif
3193 use pm_kind, only: RKG => RK2
3194 real(RKG) , intent(out) , allocatable :: table(:,:)
3195 character(:, SK) , intent(out) , allocatable , optional :: header
3196 character(*, SK) , intent(in) :: file
3197 character(*, SK) , intent(in) , optional :: sep
3198 character(*, SK) , intent(inout) , optional :: iomsg
3199 integer(IK) , intent(in) , optional :: roff
3200 integer(IK) :: err
3201 end function
3202#endif
3203
3204#if RK1_ENABLED
3205 module function getErrTableReadFile_NO_D2_RK1(file, table, header, sep, roff, iomsg) result(err)
3206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3207 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_NO_D2_RK1
3208#endif
3209 use pm_kind, only: RKG => RK1
3210 real(RKG) , intent(out) , allocatable :: table(:,:)
3211 character(:, SK) , intent(out) , allocatable , optional :: header
3212 character(*, SK) , intent(in) :: file
3213 character(*, SK) , intent(in) , optional :: sep
3214 character(*, SK) , intent(inout) , optional :: iomsg
3215 integer(IK) , intent(in) , optional :: roff
3216 integer(IK) :: err
3217 end function
3218#endif
3219
3220 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3221
3222 end interface
3223
3224 ! D1 unit NO
3225
3226 interface getErrTableRead
3227
3228 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3229
3230#if SK5_ENABLED
3231 module function getErrTableReadUnit_NO_D1_SK5(unit, table, header, sep, roff, iomsg) result(err)
3232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3233 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D1_SK5
3234#endif
3235 use pm_kind, only: SKG => SK5
3236 character(*,SKG) , intent(out) , allocatable :: table(:)
3237 character(:, SK) , intent(out) , allocatable , optional :: header
3238 character(*, SK) , intent(in) , optional :: sep
3239 character(*, SK) , intent(inout) , optional :: iomsg
3240 integer(IK) , intent(in) , optional :: roff
3241 integer(IK) , intent(in) :: unit
3242 integer(IK) :: err
3243 end function
3244#endif
3245
3246#if SK4_ENABLED
3247 module function getErrTableReadUnit_NO_D1_SK4(unit, table, header, sep, roff, iomsg) result(err)
3248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3249 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D1_SK4
3250#endif
3251 use pm_kind, only: SKG => SK4
3252 character(*,SKG) , intent(out) , allocatable :: table(:)
3253 character(:, SK) , intent(out) , allocatable , optional :: header
3254 character(*, SK) , intent(in) , optional :: sep
3255 character(*, SK) , intent(inout) , optional :: iomsg
3256 integer(IK) , intent(in) , optional :: roff
3257 integer(IK) , intent(in) :: unit
3258 integer(IK) :: err
3259 end function
3260#endif
3261
3262#if SK3_ENABLED
3263 module function getErrTableReadUnit_NO_D1_SK3(unit, table, header, sep, roff, iomsg) result(err)
3264#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3265 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D1_SK3
3266#endif
3267 use pm_kind, only: SKG => SK3
3268 character(*,SKG) , intent(out) , allocatable :: table(:)
3269 character(:, SK) , intent(out) , allocatable , optional :: header
3270 character(*, SK) , intent(in) , optional :: sep
3271 character(*, SK) , intent(inout) , optional :: iomsg
3272 integer(IK) , intent(in) , optional :: roff
3273 integer(IK) , intent(in) :: unit
3274 integer(IK) :: err
3275 end function
3276#endif
3277
3278#if SK2_ENABLED
3279 module function getErrTableReadUnit_NO_D1_SK2(unit, table, header, sep, roff, iomsg) result(err)
3280#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3281 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D1_SK2
3282#endif
3283 use pm_kind, only: SKG => SK2
3284 character(*,SKG) , intent(out) , allocatable :: table(:)
3285 character(:, SK) , intent(out) , allocatable , optional :: header
3286 character(*, SK) , intent(in) , optional :: sep
3287 character(*, SK) , intent(inout) , optional :: iomsg
3288 integer(IK) , intent(in) , optional :: roff
3289 integer(IK) , intent(in) :: unit
3290 integer(IK) :: err
3291 end function
3292#endif
3293
3294#if SK1_ENABLED
3295 module function getErrTableReadUnit_NO_D1_SK1(unit, table, header, sep, roff, iomsg) result(err)
3296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3297 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D1_SK1
3298#endif
3299 use pm_kind, only: SKG => SK1
3300 character(*,SKG) , intent(out) , allocatable :: table(:)
3301 character(:, SK) , intent(out) , allocatable , optional :: header
3302 character(*, SK) , intent(in) , optional :: sep
3303 character(*, SK) , intent(inout) , optional :: iomsg
3304 integer(IK) , intent(in) , optional :: roff
3305 integer(IK) , intent(in) :: unit
3306 integer(IK) :: err
3307 end function
3308#endif
3309
3310 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3311
3312#if IK5_ENABLED
3313 module function getErrTableReadUnit_NO_D1_IK5(unit, table, header, sep, roff, iomsg) result(err)
3314#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3315 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D1_IK5
3316#endif
3317 use pm_kind, only: IKG => IK5
3318 integer(IKG) , intent(out) , allocatable :: table(:)
3319 character(:, SK) , intent(out) , allocatable , optional :: header
3320 character(*, SK) , intent(in) , optional :: sep
3321 character(*, SK) , intent(inout) , optional :: iomsg
3322 integer(IK) , intent(in) , optional :: roff
3323 integer(IK) , intent(in) :: unit
3324 integer(IK) :: err
3325 end function
3326#endif
3327
3328#if IK4_ENABLED
3329 module function getErrTableReadUnit_NO_D1_IK4(unit, table, header, sep, roff, iomsg) result(err)
3330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3331 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D1_IK4
3332#endif
3333 use pm_kind, only: IKG => IK4
3334 integer(IKG) , intent(out) , allocatable :: table(:)
3335 character(:, SK) , intent(out) , allocatable , optional :: header
3336 character(*, SK) , intent(in) , optional :: sep
3337 character(*, SK) , intent(inout) , optional :: iomsg
3338 integer(IK) , intent(in) , optional :: roff
3339 integer(IK) , intent(in) :: unit
3340 integer(IK) :: err
3341 end function
3342#endif
3343
3344#if IK3_ENABLED
3345 module function getErrTableReadUnit_NO_D1_IK3(unit, table, header, sep, roff, iomsg) result(err)
3346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3347 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D1_IK3
3348#endif
3349 use pm_kind, only: IKG => IK3
3350 integer(IKG) , intent(out) , allocatable :: table(:)
3351 character(:, SK) , intent(out) , allocatable , optional :: header
3352 character(*, SK) , intent(in) , optional :: sep
3353 character(*, SK) , intent(inout) , optional :: iomsg
3354 integer(IK) , intent(in) , optional :: roff
3355 integer(IK) , intent(in) :: unit
3356 integer(IK) :: err
3357 end function
3358#endif
3359
3360#if IK2_ENABLED
3361 module function getErrTableReadUnit_NO_D1_IK2(unit, table, header, sep, roff, iomsg) result(err)
3362#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3363 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D1_IK2
3364#endif
3365 use pm_kind, only: IKG => IK2
3366 integer(IKG) , intent(out) , allocatable :: table(:)
3367 character(:, SK) , intent(out) , allocatable , optional :: header
3368 character(*, SK) , intent(in) , optional :: sep
3369 character(*, SK) , intent(inout) , optional :: iomsg
3370 integer(IK) , intent(in) , optional :: roff
3371 integer(IK) , intent(in) :: unit
3372 integer(IK) :: err
3373 end function
3374#endif
3375
3376#if IK1_ENABLED
3377 module function getErrTableReadUnit_NO_D1_IK1(unit, table, header, sep, roff, iomsg) result(err)
3378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3379 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D1_IK1
3380#endif
3381 use pm_kind, only: IKG => IK1
3382 integer(IKG) , intent(out) , allocatable :: table(:)
3383 character(:, SK) , intent(out) , allocatable , optional :: header
3384 character(*, SK) , intent(in) , optional :: sep
3385 character(*, SK) , intent(inout) , optional :: iomsg
3386 integer(IK) , intent(in) , optional :: roff
3387 integer(IK) , intent(in) :: unit
3388 integer(IK) :: err
3389 end function
3390#endif
3391
3392 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3393
3394#if LK5_ENABLED
3395 module function getErrTableReadUnit_NO_D1_LK5(unit, table, header, sep, roff, iomsg) result(err)
3396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3397 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D1_LK5
3398#endif
3399 use pm_kind, only: LKG => LK5
3400 logical(LKG) , intent(out) , allocatable :: table(:)
3401 character(:, SK) , intent(out) , allocatable , optional :: header
3402 character(*, SK) , intent(in) , optional :: sep
3403 character(*, SK) , intent(inout) , optional :: iomsg
3404 integer(IK) , intent(in) , optional :: roff
3405 integer(IK) , intent(in) :: unit
3406 integer(IK) :: err
3407 end function
3408#endif
3409
3410#if LK4_ENABLED
3411 module function getErrTableReadUnit_NO_D1_LK4(unit, table, header, sep, roff, iomsg) result(err)
3412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3413 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D1_LK4
3414#endif
3415 use pm_kind, only: LKG => LK4
3416 logical(LKG) , intent(out) , allocatable :: table(:)
3417 character(:, SK) , intent(out) , allocatable , optional :: header
3418 character(*, SK) , intent(in) , optional :: sep
3419 character(*, SK) , intent(inout) , optional :: iomsg
3420 integer(IK) , intent(in) , optional :: roff
3421 integer(IK) , intent(in) :: unit
3422 integer(IK) :: err
3423 end function
3424#endif
3425
3426#if LK3_ENABLED
3427 module function getErrTableReadUnit_NO_D1_LK3(unit, table, header, sep, roff, iomsg) result(err)
3428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3429 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D1_LK3
3430#endif
3431 use pm_kind, only: LKG => LK3
3432 logical(LKG) , intent(out) , allocatable :: table(:)
3433 character(:, SK) , intent(out) , allocatable , optional :: header
3434 character(*, SK) , intent(in) , optional :: sep
3435 character(*, SK) , intent(inout) , optional :: iomsg
3436 integer(IK) , intent(in) , optional :: roff
3437 integer(IK) , intent(in) :: unit
3438 integer(IK) :: err
3439 end function
3440#endif
3441
3442#if LK2_ENABLED
3443 module function getErrTableReadUnit_NO_D1_LK2(unit, table, header, sep, roff, iomsg) result(err)
3444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3445 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D1_LK2
3446#endif
3447 use pm_kind, only: LKG => LK2
3448 logical(LKG) , intent(out) , allocatable :: table(:)
3449 character(:, SK) , intent(out) , allocatable , optional :: header
3450 character(*, SK) , intent(in) , optional :: sep
3451 character(*, SK) , intent(inout) , optional :: iomsg
3452 integer(IK) , intent(in) , optional :: roff
3453 integer(IK) , intent(in) :: unit
3454 integer(IK) :: err
3455 end function
3456#endif
3457
3458#if LK1_ENABLED
3459 module function getErrTableReadUnit_NO_D1_LK1(unit, table, header, sep, roff, iomsg) result(err)
3460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3461 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D1_LK1
3462#endif
3463 use pm_kind, only: LKG => LK1
3464 logical(LKG) , intent(out) , allocatable :: table(:)
3465 character(:, SK) , intent(out) , allocatable , optional :: header
3466 character(*, SK) , intent(in) , optional :: sep
3467 character(*, SK) , intent(inout) , optional :: iomsg
3468 integer(IK) , intent(in) , optional :: roff
3469 integer(IK) , intent(in) :: unit
3470 integer(IK) :: err
3471 end function
3472#endif
3473
3474 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3475
3476#if CK5_ENABLED
3477 module function getErrTableReadUnit_NO_D1_CK5(unit, table, header, sep, roff, iomsg) result(err)
3478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3479 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D1_CK5
3480#endif
3481 use pm_kind, only: CKG => CK5
3482 complex(CKG) , intent(out) , allocatable :: table(:)
3483 character(:, SK) , intent(out) , allocatable , optional :: header
3484 character(*, SK) , intent(in) , optional :: sep
3485 character(*, SK) , intent(inout) , optional :: iomsg
3486 integer(IK) , intent(in) , optional :: roff
3487 integer(IK) , intent(in) :: unit
3488 integer(IK) :: err
3489 end function
3490#endif
3491
3492#if CK4_ENABLED
3493 module function getErrTableReadUnit_NO_D1_CK4(unit, table, header, sep, roff, iomsg) result(err)
3494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3495 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D1_CK4
3496#endif
3497 use pm_kind, only: CKG => CK4
3498 complex(CKG) , intent(out) , allocatable :: table(:)
3499 character(:, SK) , intent(out) , allocatable , optional :: header
3500 character(*, SK) , intent(in) , optional :: sep
3501 character(*, SK) , intent(inout) , optional :: iomsg
3502 integer(IK) , intent(in) , optional :: roff
3503 integer(IK) , intent(in) :: unit
3504 integer(IK) :: err
3505 end function
3506#endif
3507
3508#if CK3_ENABLED
3509 module function getErrTableReadUnit_NO_D1_CK3(unit, table, header, sep, roff, iomsg) result(err)
3510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3511 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D1_CK3
3512#endif
3513 use pm_kind, only: CKG => CK3
3514 complex(CKG) , intent(out) , allocatable :: table(:)
3515 character(:, SK) , intent(out) , allocatable , optional :: header
3516 character(*, SK) , intent(in) , optional :: sep
3517 character(*, SK) , intent(inout) , optional :: iomsg
3518 integer(IK) , intent(in) , optional :: roff
3519 integer(IK) , intent(in) :: unit
3520 integer(IK) :: err
3521 end function
3522#endif
3523
3524#if CK2_ENABLED
3525 module function getErrTableReadUnit_NO_D1_CK2(unit, table, header, sep, roff, iomsg) result(err)
3526#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3527 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D1_CK2
3528#endif
3529 use pm_kind, only: CKG => CK2
3530 complex(CKG) , intent(out) , allocatable :: table(:)
3531 character(:, SK) , intent(out) , allocatable , optional :: header
3532 character(*, SK) , intent(in) , optional :: sep
3533 character(*, SK) , intent(inout) , optional :: iomsg
3534 integer(IK) , intent(in) , optional :: roff
3535 integer(IK) , intent(in) :: unit
3536 integer(IK) :: err
3537 end function
3538#endif
3539
3540#if CK1_ENABLED
3541 module function getErrTableReadUnit_NO_D1_CK1(unit, table, header, sep, roff, iomsg) result(err)
3542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3543 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D1_CK1
3544#endif
3545 use pm_kind, only: CKG => CK1
3546 complex(CKG) , intent(out) , allocatable :: table(:)
3547 character(:, SK) , intent(out) , allocatable , optional :: header
3548 character(*, SK) , intent(in) , optional :: sep
3549 character(*, SK) , intent(inout) , optional :: iomsg
3550 integer(IK) , intent(in) , optional :: roff
3551 integer(IK) , intent(in) :: unit
3552 integer(IK) :: err
3553 end function
3554#endif
3555
3556 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3557
3558#if RK5_ENABLED
3559 module function getErrTableReadUnit_NO_D1_RK5(unit, table, header, sep, roff, iomsg) result(err)
3560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3561 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D1_RK5
3562#endif
3563 use pm_kind, only: RKG => RK5
3564 real(RKG) , intent(out) , allocatable :: table(:)
3565 character(:, SK) , intent(out) , allocatable , optional :: header
3566 character(*, SK) , intent(in) , optional :: sep
3567 character(*, SK) , intent(inout) , optional :: iomsg
3568 integer(IK) , intent(in) , optional :: roff
3569 integer(IK) , intent(in) :: unit
3570 integer(IK) :: err
3571 end function
3572#endif
3573
3574#if RK4_ENABLED
3575 module function getErrTableReadUnit_NO_D1_RK4(unit, table, header, sep, roff, iomsg) result(err)
3576#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3577 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D1_RK4
3578#endif
3579 use pm_kind, only: RKG => RK4
3580 real(RKG) , intent(out) , allocatable :: table(:)
3581 character(:, SK) , intent(out) , allocatable , optional :: header
3582 character(*, SK) , intent(in) , optional :: sep
3583 character(*, SK) , intent(inout) , optional :: iomsg
3584 integer(IK) , intent(in) , optional :: roff
3585 integer(IK) , intent(in) :: unit
3586 integer(IK) :: err
3587 end function
3588#endif
3589
3590#if RK3_ENABLED
3591 module function getErrTableReadUnit_NO_D1_RK3(unit, table, header, sep, roff, iomsg) result(err)
3592#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3593 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D1_RK3
3594#endif
3595 use pm_kind, only: RKG => RK3
3596 real(RKG) , intent(out) , allocatable :: table(:)
3597 character(:, SK) , intent(out) , allocatable , optional :: header
3598 character(*, SK) , intent(in) , optional :: sep
3599 character(*, SK) , intent(inout) , optional :: iomsg
3600 integer(IK) , intent(in) , optional :: roff
3601 integer(IK) , intent(in) :: unit
3602 integer(IK) :: err
3603 end function
3604#endif
3605
3606#if RK2_ENABLED
3607 module function getErrTableReadUnit_NO_D1_RK2(unit, table, header, sep, roff, iomsg) result(err)
3608#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3609 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D1_RK2
3610#endif
3611 use pm_kind, only: RKG => RK2
3612 real(RKG) , intent(out) , allocatable :: table(:)
3613 character(:, SK) , intent(out) , allocatable , optional :: header
3614 character(*, SK) , intent(in) , optional :: sep
3615 character(*, SK) , intent(inout) , optional :: iomsg
3616 integer(IK) , intent(in) , optional :: roff
3617 integer(IK) , intent(in) :: unit
3618 integer(IK) :: err
3619 end function
3620#endif
3621
3622#if RK1_ENABLED
3623 module function getErrTableReadUnit_NO_D1_RK1(unit, table, header, sep, roff, iomsg) result(err)
3624#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3625 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D1_RK1
3626#endif
3627 use pm_kind, only: RKG => RK1
3628 real(RKG) , intent(out) , allocatable :: table(:)
3629 character(:, SK) , intent(out) , allocatable , optional :: header
3630 character(*, SK) , intent(in) , optional :: sep
3631 character(*, SK) , intent(inout) , optional :: iomsg
3632 integer(IK) , intent(in) , optional :: roff
3633 integer(IK) , intent(in) :: unit
3634 integer(IK) :: err
3635 end function
3636#endif
3637
3638 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3639
3640 end interface
3641
3642 ! D2 unit NO
3643
3644 interface getErrTableRead
3645
3646 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3647
3648#if SK5_ENABLED
3649 module function getErrTableReadUnit_NO_D2_SK5(unit, table, header, sep, roff, iomsg) result(err)
3650#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3651 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D2_SK5
3652#endif
3653 use pm_kind, only: SKG => SK5
3654 character(*,SKG) , intent(out) , allocatable :: table(:,:)
3655 character(:, SK) , intent(out) , allocatable , optional :: header
3656 character(*, SK) , intent(in) , optional :: sep
3657 character(*, SK) , intent(inout) , optional :: iomsg
3658 integer(IK) , intent(in) , optional :: roff
3659 integer(IK) , intent(in) :: unit
3660 integer(IK) :: err
3661 end function
3662#endif
3663
3664#if SK4_ENABLED
3665 module function getErrTableReadUnit_NO_D2_SK4(unit, table, header, sep, roff, iomsg) result(err)
3666#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3667 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D2_SK4
3668#endif
3669 use pm_kind, only: SKG => SK4
3670 character(*,SKG) , intent(out) , allocatable :: table(:,:)
3671 character(:, SK) , intent(out) , allocatable , optional :: header
3672 character(*, SK) , intent(in) , optional :: sep
3673 character(*, SK) , intent(inout) , optional :: iomsg
3674 integer(IK) , intent(in) , optional :: roff
3675 integer(IK) , intent(in) :: unit
3676 integer(IK) :: err
3677 end function
3678#endif
3679
3680#if SK3_ENABLED
3681 module function getErrTableReadUnit_NO_D2_SK3(unit, table, header, sep, roff, iomsg) result(err)
3682#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3683 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D2_SK3
3684#endif
3685 use pm_kind, only: SKG => SK3
3686 character(*,SKG) , intent(out) , allocatable :: table(:,:)
3687 character(:, SK) , intent(out) , allocatable , optional :: header
3688 character(*, SK) , intent(in) , optional :: sep
3689 character(*, SK) , intent(inout) , optional :: iomsg
3690 integer(IK) , intent(in) , optional :: roff
3691 integer(IK) , intent(in) :: unit
3692 integer(IK) :: err
3693 end function
3694#endif
3695
3696#if SK2_ENABLED
3697 module function getErrTableReadUnit_NO_D2_SK2(unit, table, header, sep, roff, iomsg) result(err)
3698#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3699 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D2_SK2
3700#endif
3701 use pm_kind, only: SKG => SK2
3702 character(*,SKG) , intent(out) , allocatable :: table(:,:)
3703 character(:, SK) , intent(out) , allocatable , optional :: header
3704 character(*, SK) , intent(in) , optional :: sep
3705 character(*, SK) , intent(inout) , optional :: iomsg
3706 integer(IK) , intent(in) , optional :: roff
3707 integer(IK) , intent(in) :: unit
3708 integer(IK) :: err
3709 end function
3710#endif
3711
3712#if SK1_ENABLED
3713 module function getErrTableReadUnit_NO_D2_SK1(unit, table, header, sep, roff, iomsg) result(err)
3714#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3715 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D2_SK1
3716#endif
3717 use pm_kind, only: SKG => SK1
3718 character(*,SKG) , intent(out) , allocatable :: table(:,:)
3719 character(:, SK) , intent(out) , allocatable , optional :: header
3720 character(*, SK) , intent(in) , optional :: sep
3721 character(*, SK) , intent(inout) , optional :: iomsg
3722 integer(IK) , intent(in) , optional :: roff
3723 integer(IK) , intent(in) :: unit
3724 integer(IK) :: err
3725 end function
3726#endif
3727
3728 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3729
3730#if IK5_ENABLED
3731 module function getErrTableReadUnit_NO_D2_IK5(unit, table, header, sep, roff, iomsg) result(err)
3732#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3733 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D2_IK5
3734#endif
3735 use pm_kind, only: IKG => IK5
3736 integer(IKG) , intent(out) , allocatable :: table(:,:)
3737 character(:, SK) , intent(out) , allocatable , optional :: header
3738 character(*, SK) , intent(in) , optional :: sep
3739 character(*, SK) , intent(inout) , optional :: iomsg
3740 integer(IK) , intent(in) , optional :: roff
3741 integer(IK) , intent(in) :: unit
3742 integer(IK) :: err
3743 end function
3744#endif
3745
3746#if IK4_ENABLED
3747 module function getErrTableReadUnit_NO_D2_IK4(unit, table, header, sep, roff, iomsg) result(err)
3748#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3749 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D2_IK4
3750#endif
3751 use pm_kind, only: IKG => IK4
3752 integer(IKG) , intent(out) , allocatable :: table(:,:)
3753 character(:, SK) , intent(out) , allocatable , optional :: header
3754 character(*, SK) , intent(in) , optional :: sep
3755 character(*, SK) , intent(inout) , optional :: iomsg
3756 integer(IK) , intent(in) , optional :: roff
3757 integer(IK) , intent(in) :: unit
3758 integer(IK) :: err
3759 end function
3760#endif
3761
3762#if IK3_ENABLED
3763 module function getErrTableReadUnit_NO_D2_IK3(unit, table, header, sep, roff, iomsg) result(err)
3764#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3765 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D2_IK3
3766#endif
3767 use pm_kind, only: IKG => IK3
3768 integer(IKG) , intent(out) , allocatable :: table(:,:)
3769 character(:, SK) , intent(out) , allocatable , optional :: header
3770 character(*, SK) , intent(in) , optional :: sep
3771 character(*, SK) , intent(inout) , optional :: iomsg
3772 integer(IK) , intent(in) , optional :: roff
3773 integer(IK) , intent(in) :: unit
3774 integer(IK) :: err
3775 end function
3776#endif
3777
3778#if IK2_ENABLED
3779 module function getErrTableReadUnit_NO_D2_IK2(unit, table, header, sep, roff, iomsg) result(err)
3780#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3781 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D2_IK2
3782#endif
3783 use pm_kind, only: IKG => IK2
3784 integer(IKG) , intent(out) , allocatable :: table(:,:)
3785 character(:, SK) , intent(out) , allocatable , optional :: header
3786 character(*, SK) , intent(in) , optional :: sep
3787 character(*, SK) , intent(inout) , optional :: iomsg
3788 integer(IK) , intent(in) , optional :: roff
3789 integer(IK) , intent(in) :: unit
3790 integer(IK) :: err
3791 end function
3792#endif
3793
3794#if IK1_ENABLED
3795 module function getErrTableReadUnit_NO_D2_IK1(unit, table, header, sep, roff, iomsg) result(err)
3796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3797 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D2_IK1
3798#endif
3799 use pm_kind, only: IKG => IK1
3800 integer(IKG) , intent(out) , allocatable :: table(:,:)
3801 character(:, SK) , intent(out) , allocatable , optional :: header
3802 character(*, SK) , intent(in) , optional :: sep
3803 character(*, SK) , intent(inout) , optional :: iomsg
3804 integer(IK) , intent(in) , optional :: roff
3805 integer(IK) , intent(in) :: unit
3806 integer(IK) :: err
3807 end function
3808#endif
3809
3810 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3811
3812#if LK5_ENABLED
3813 module function getErrTableReadUnit_NO_D2_LK5(unit, table, header, sep, roff, iomsg) result(err)
3814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3815 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D2_LK5
3816#endif
3817 use pm_kind, only: LKG => LK5
3818 logical(LKG) , intent(out) , allocatable :: table(:,:)
3819 character(:, SK) , intent(out) , allocatable , optional :: header
3820 character(*, SK) , intent(in) , optional :: sep
3821 character(*, SK) , intent(inout) , optional :: iomsg
3822 integer(IK) , intent(in) , optional :: roff
3823 integer(IK) , intent(in) :: unit
3824 integer(IK) :: err
3825 end function
3826#endif
3827
3828#if LK4_ENABLED
3829 module function getErrTableReadUnit_NO_D2_LK4(unit, table, header, sep, roff, iomsg) result(err)
3830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3831 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D2_LK4
3832#endif
3833 use pm_kind, only: LKG => LK4
3834 logical(LKG) , intent(out) , allocatable :: table(:,:)
3835 character(:, SK) , intent(out) , allocatable , optional :: header
3836 character(*, SK) , intent(in) , optional :: sep
3837 character(*, SK) , intent(inout) , optional :: iomsg
3838 integer(IK) , intent(in) , optional :: roff
3839 integer(IK) , intent(in) :: unit
3840 integer(IK) :: err
3841 end function
3842#endif
3843
3844#if LK3_ENABLED
3845 module function getErrTableReadUnit_NO_D2_LK3(unit, table, header, sep, roff, iomsg) result(err)
3846#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3847 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D2_LK3
3848#endif
3849 use pm_kind, only: LKG => LK3
3850 logical(LKG) , intent(out) , allocatable :: table(:,:)
3851 character(:, SK) , intent(out) , allocatable , optional :: header
3852 character(*, SK) , intent(in) , optional :: sep
3853 character(*, SK) , intent(inout) , optional :: iomsg
3854 integer(IK) , intent(in) , optional :: roff
3855 integer(IK) , intent(in) :: unit
3856 integer(IK) :: err
3857 end function
3858#endif
3859
3860#if LK2_ENABLED
3861 module function getErrTableReadUnit_NO_D2_LK2(unit, table, header, sep, roff, iomsg) result(err)
3862#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3863 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D2_LK2
3864#endif
3865 use pm_kind, only: LKG => LK2
3866 logical(LKG) , intent(out) , allocatable :: table(:,:)
3867 character(:, SK) , intent(out) , allocatable , optional :: header
3868 character(*, SK) , intent(in) , optional :: sep
3869 character(*, SK) , intent(inout) , optional :: iomsg
3870 integer(IK) , intent(in) , optional :: roff
3871 integer(IK) , intent(in) :: unit
3872 integer(IK) :: err
3873 end function
3874#endif
3875
3876#if LK1_ENABLED
3877 module function getErrTableReadUnit_NO_D2_LK1(unit, table, header, sep, roff, iomsg) result(err)
3878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3879 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D2_LK1
3880#endif
3881 use pm_kind, only: LKG => LK1
3882 logical(LKG) , intent(out) , allocatable :: table(:,:)
3883 character(:, SK) , intent(out) , allocatable , optional :: header
3884 character(*, SK) , intent(in) , optional :: sep
3885 character(*, SK) , intent(inout) , optional :: iomsg
3886 integer(IK) , intent(in) , optional :: roff
3887 integer(IK) , intent(in) :: unit
3888 integer(IK) :: err
3889 end function
3890#endif
3891
3892 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3893
3894#if CK5_ENABLED
3895 module function getErrTableReadUnit_NO_D2_CK5(unit, table, header, sep, roff, iomsg) result(err)
3896#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3897 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D2_CK5
3898#endif
3899 use pm_kind, only: CKG => CK5
3900 complex(CKG) , intent(out) , allocatable :: table(:,:)
3901 character(:, SK) , intent(out) , allocatable , optional :: header
3902 character(*, SK) , intent(in) , optional :: sep
3903 character(*, SK) , intent(inout) , optional :: iomsg
3904 integer(IK) , intent(in) , optional :: roff
3905 integer(IK) , intent(in) :: unit
3906 integer(IK) :: err
3907 end function
3908#endif
3909
3910#if CK4_ENABLED
3911 module function getErrTableReadUnit_NO_D2_CK4(unit, table, header, sep, roff, iomsg) result(err)
3912#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3913 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D2_CK4
3914#endif
3915 use pm_kind, only: CKG => CK4
3916 complex(CKG) , intent(out) , allocatable :: table(:,:)
3917 character(:, SK) , intent(out) , allocatable , optional :: header
3918 character(*, SK) , intent(in) , optional :: sep
3919 character(*, SK) , intent(inout) , optional :: iomsg
3920 integer(IK) , intent(in) , optional :: roff
3921 integer(IK) , intent(in) :: unit
3922 integer(IK) :: err
3923 end function
3924#endif
3925
3926#if CK3_ENABLED
3927 module function getErrTableReadUnit_NO_D2_CK3(unit, table, header, sep, roff, iomsg) result(err)
3928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3929 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D2_CK3
3930#endif
3931 use pm_kind, only: CKG => CK3
3932 complex(CKG) , intent(out) , allocatable :: table(:,:)
3933 character(:, SK) , intent(out) , allocatable , optional :: header
3934 character(*, SK) , intent(in) , optional :: sep
3935 character(*, SK) , intent(inout) , optional :: iomsg
3936 integer(IK) , intent(in) , optional :: roff
3937 integer(IK) , intent(in) :: unit
3938 integer(IK) :: err
3939 end function
3940#endif
3941
3942#if CK2_ENABLED
3943 module function getErrTableReadUnit_NO_D2_CK2(unit, table, header, sep, roff, iomsg) result(err)
3944#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3945 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D2_CK2
3946#endif
3947 use pm_kind, only: CKG => CK2
3948 complex(CKG) , intent(out) , allocatable :: table(:,:)
3949 character(:, SK) , intent(out) , allocatable , optional :: header
3950 character(*, SK) , intent(in) , optional :: sep
3951 character(*, SK) , intent(inout) , optional :: iomsg
3952 integer(IK) , intent(in) , optional :: roff
3953 integer(IK) , intent(in) :: unit
3954 integer(IK) :: err
3955 end function
3956#endif
3957
3958#if CK1_ENABLED
3959 module function getErrTableReadUnit_NO_D2_CK1(unit, table, header, sep, roff, iomsg) result(err)
3960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3961 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D2_CK1
3962#endif
3963 use pm_kind, only: CKG => CK1
3964 complex(CKG) , intent(out) , allocatable :: table(:,:)
3965 character(:, SK) , intent(out) , allocatable , optional :: header
3966 character(*, SK) , intent(in) , optional :: sep
3967 character(*, SK) , intent(inout) , optional :: iomsg
3968 integer(IK) , intent(in) , optional :: roff
3969 integer(IK) , intent(in) :: unit
3970 integer(IK) :: err
3971 end function
3972#endif
3973
3974 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3975
3976#if RK5_ENABLED
3977 module function getErrTableReadUnit_NO_D2_RK5(unit, table, header, sep, roff, iomsg) result(err)
3978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3979 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D2_RK5
3980#endif
3981 use pm_kind, only: RKG => RK5
3982 real(RKG) , intent(out) , allocatable :: table(:,:)
3983 character(:, SK) , intent(out) , allocatable , optional :: header
3984 character(*, SK) , intent(in) , optional :: sep
3985 character(*, SK) , intent(inout) , optional :: iomsg
3986 integer(IK) , intent(in) , optional :: roff
3987 integer(IK) , intent(in) :: unit
3988 integer(IK) :: err
3989 end function
3990#endif
3991
3992#if RK4_ENABLED
3993 module function getErrTableReadUnit_NO_D2_RK4(unit, table, header, sep, roff, iomsg) result(err)
3994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3995 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D2_RK4
3996#endif
3997 use pm_kind, only: RKG => RK4
3998 real(RKG) , intent(out) , allocatable :: table(:,:)
3999 character(:, SK) , intent(out) , allocatable , optional :: header
4000 character(*, SK) , intent(in) , optional :: sep
4001 character(*, SK) , intent(inout) , optional :: iomsg
4002 integer(IK) , intent(in) , optional :: roff
4003 integer(IK) , intent(in) :: unit
4004 integer(IK) :: err
4005 end function
4006#endif
4007
4008#if RK3_ENABLED
4009 module function getErrTableReadUnit_NO_D2_RK3(unit, table, header, sep, roff, iomsg) result(err)
4010#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4011 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D2_RK3
4012#endif
4013 use pm_kind, only: RKG => RK3
4014 real(RKG) , intent(out) , allocatable :: table(:,:)
4015 character(:, SK) , intent(out) , allocatable , optional :: header
4016 character(*, SK) , intent(in) , optional :: sep
4017 character(*, SK) , intent(inout) , optional :: iomsg
4018 integer(IK) , intent(in) , optional :: roff
4019 integer(IK) , intent(in) :: unit
4020 integer(IK) :: err
4021 end function
4022#endif
4023
4024#if RK2_ENABLED
4025 module function getErrTableReadUnit_NO_D2_RK2(unit, table, header, sep, roff, iomsg) result(err)
4026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4027 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D2_RK2
4028#endif
4029 use pm_kind, only: RKG => RK2
4030 real(RKG) , intent(out) , allocatable :: table(:,:)
4031 character(:, SK) , intent(out) , allocatable , optional :: header
4032 character(*, SK) , intent(in) , optional :: sep
4033 character(*, SK) , intent(inout) , optional :: iomsg
4034 integer(IK) , intent(in) , optional :: roff
4035 integer(IK) , intent(in) :: unit
4036 integer(IK) :: err
4037 end function
4038#endif
4039
4040#if RK1_ENABLED
4041 module function getErrTableReadUnit_NO_D2_RK1(unit, table, header, sep, roff, iomsg) result(err)
4042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4043 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_NO_D2_RK1
4044#endif
4045 use pm_kind, only: RKG => RK1
4046 real(RKG) , intent(out) , allocatable :: table(:,:)
4047 character(:, SK) , intent(out) , allocatable , optional :: header
4048 character(*, SK) , intent(in) , optional :: sep
4049 character(*, SK) , intent(inout) , optional :: iomsg
4050 integer(IK) , intent(in) , optional :: roff
4051 integer(IK) , intent(in) :: unit
4052 integer(IK) :: err
4053 end function
4054#endif
4055
4056 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4057
4058 end interface
4059
4060 ! D1 file TO
4061
4062 interface getErrTableRead
4063
4064 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4065
4066#if SK5_ENABLED
4067 module function getErrTableReadFile_TO_D1_SK5(file, table, operation, header, sep, roff, iomsg) result(err)
4068#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4069 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D1_SK5
4070#endif
4071 use pm_kind, only: SKG => SK5
4072 character(*,SKG) , intent(out) , allocatable :: table(:)
4073 character(:, SK) , intent(out) , allocatable , optional :: header
4074 character(*, SK) , intent(in) :: file
4075 character(*, SK) , intent(in) , optional :: sep
4076 character(*, SK) , intent(inout) , optional :: iomsg
4077 type(trans_type) , intent(in) :: operation
4078 integer(IK) , intent(in) , optional :: roff
4079 integer(IK) :: err
4080 end function
4081#endif
4082
4083#if SK4_ENABLED
4084 module function getErrTableReadFile_TO_D1_SK4(file, table, operation, header, sep, roff, iomsg) result(err)
4085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4086 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D1_SK4
4087#endif
4088 use pm_kind, only: SKG => SK4
4089 character(*,SKG) , intent(out) , allocatable :: table(:)
4090 character(:, SK) , intent(out) , allocatable , optional :: header
4091 character(*, SK) , intent(in) :: file
4092 character(*, SK) , intent(in) , optional :: sep
4093 character(*, SK) , intent(inout) , optional :: iomsg
4094 type(trans_type) , intent(in) :: operation
4095 integer(IK) , intent(in) , optional :: roff
4096 integer(IK) :: err
4097 end function
4098#endif
4099
4100#if SK3_ENABLED
4101 module function getErrTableReadFile_TO_D1_SK3(file, table, operation, header, sep, roff, iomsg) result(err)
4102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4103 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D1_SK3
4104#endif
4105 use pm_kind, only: SKG => SK3
4106 character(*,SKG) , intent(out) , allocatable :: table(:)
4107 character(:, SK) , intent(out) , allocatable , optional :: header
4108 character(*, SK) , intent(in) :: file
4109 character(*, SK) , intent(in) , optional :: sep
4110 character(*, SK) , intent(inout) , optional :: iomsg
4111 type(trans_type) , intent(in) :: operation
4112 integer(IK) , intent(in) , optional :: roff
4113 integer(IK) :: err
4114 end function
4115#endif
4116
4117#if SK2_ENABLED
4118 module function getErrTableReadFile_TO_D1_SK2(file, table, operation, header, sep, roff, iomsg) result(err)
4119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4120 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D1_SK2
4121#endif
4122 use pm_kind, only: SKG => SK2
4123 character(*,SKG) , intent(out) , allocatable :: table(:)
4124 character(:, SK) , intent(out) , allocatable , optional :: header
4125 character(*, SK) , intent(in) :: file
4126 character(*, SK) , intent(in) , optional :: sep
4127 character(*, SK) , intent(inout) , optional :: iomsg
4128 type(trans_type) , intent(in) :: operation
4129 integer(IK) , intent(in) , optional :: roff
4130 integer(IK) :: err
4131 end function
4132#endif
4133
4134#if SK1_ENABLED
4135 module function getErrTableReadFile_TO_D1_SK1(file, table, operation, header, sep, roff, iomsg) result(err)
4136#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4137 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D1_SK1
4138#endif
4139 use pm_kind, only: SKG => SK1
4140 character(*,SKG) , intent(out) , allocatable :: table(:)
4141 character(:, SK) , intent(out) , allocatable , optional :: header
4142 character(*, SK) , intent(in) :: file
4143 character(*, SK) , intent(in) , optional :: sep
4144 character(*, SK) , intent(inout) , optional :: iomsg
4145 type(trans_type) , intent(in) :: operation
4146 integer(IK) , intent(in) , optional :: roff
4147 integer(IK) :: err
4148 end function
4149#endif
4150
4151 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4152
4153#if IK5_ENABLED
4154 module function getErrTableReadFile_TO_D1_IK5(file, table, operation, header, sep, roff, iomsg) result(err)
4155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4156 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D1_IK5
4157#endif
4158 use pm_kind, only: IKG => IK5
4159 integer(IKG) , intent(out) , allocatable :: table(:)
4160 character(:, SK) , intent(out) , allocatable , optional :: header
4161 character(*, SK) , intent(in) :: file
4162 character(*, SK) , intent(in) , optional :: sep
4163 character(*, SK) , intent(inout) , optional :: iomsg
4164 type(trans_type) , intent(in) :: operation
4165 integer(IK) , intent(in) , optional :: roff
4166 integer(IK) :: err
4167 end function
4168#endif
4169
4170#if IK4_ENABLED
4171 module function getErrTableReadFile_TO_D1_IK4(file, table, operation, header, sep, roff, iomsg) result(err)
4172#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4173 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D1_IK4
4174#endif
4175 use pm_kind, only: IKG => IK4
4176 integer(IKG) , intent(out) , allocatable :: table(:)
4177 character(:, SK) , intent(out) , allocatable , optional :: header
4178 character(*, SK) , intent(in) :: file
4179 character(*, SK) , intent(in) , optional :: sep
4180 character(*, SK) , intent(inout) , optional :: iomsg
4181 type(trans_type) , intent(in) :: operation
4182 integer(IK) , intent(in) , optional :: roff
4183 integer(IK) :: err
4184 end function
4185#endif
4186
4187#if IK3_ENABLED
4188 module function getErrTableReadFile_TO_D1_IK3(file, table, operation, header, sep, roff, iomsg) result(err)
4189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4190 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D1_IK3
4191#endif
4192 use pm_kind, only: IKG => IK3
4193 integer(IKG) , intent(out) , allocatable :: table(:)
4194 character(:, SK) , intent(out) , allocatable , optional :: header
4195 character(*, SK) , intent(in) :: file
4196 character(*, SK) , intent(in) , optional :: sep
4197 character(*, SK) , intent(inout) , optional :: iomsg
4198 type(trans_type) , intent(in) :: operation
4199 integer(IK) , intent(in) , optional :: roff
4200 integer(IK) :: err
4201 end function
4202#endif
4203
4204#if IK2_ENABLED
4205 module function getErrTableReadFile_TO_D1_IK2(file, table, operation, header, sep, roff, iomsg) result(err)
4206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4207 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D1_IK2
4208#endif
4209 use pm_kind, only: IKG => IK2
4210 integer(IKG) , intent(out) , allocatable :: table(:)
4211 character(:, SK) , intent(out) , allocatable , optional :: header
4212 character(*, SK) , intent(in) :: file
4213 character(*, SK) , intent(in) , optional :: sep
4214 character(*, SK) , intent(inout) , optional :: iomsg
4215 type(trans_type) , intent(in) :: operation
4216 integer(IK) , intent(in) , optional :: roff
4217 integer(IK) :: err
4218 end function
4219#endif
4220
4221#if IK1_ENABLED
4222 module function getErrTableReadFile_TO_D1_IK1(file, table, operation, header, sep, roff, iomsg) result(err)
4223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4224 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D1_IK1
4225#endif
4226 use pm_kind, only: IKG => IK1
4227 integer(IKG) , intent(out) , allocatable :: table(:)
4228 character(:, SK) , intent(out) , allocatable , optional :: header
4229 character(*, SK) , intent(in) :: file
4230 character(*, SK) , intent(in) , optional :: sep
4231 character(*, SK) , intent(inout) , optional :: iomsg
4232 type(trans_type) , intent(in) :: operation
4233 integer(IK) , intent(in) , optional :: roff
4234 integer(IK) :: err
4235 end function
4236#endif
4237
4238 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4239
4240#if LK5_ENABLED
4241 module function getErrTableReadFile_TO_D1_LK5(file, table, operation, header, sep, roff, iomsg) result(err)
4242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4243 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D1_LK5
4244#endif
4245 use pm_kind, only: LKG => LK5
4246 logical(LKG) , intent(out) , allocatable :: table(:)
4247 character(:, SK) , intent(out) , allocatable , optional :: header
4248 character(*, SK) , intent(in) :: file
4249 character(*, SK) , intent(in) , optional :: sep
4250 character(*, SK) , intent(inout) , optional :: iomsg
4251 type(trans_type) , intent(in) :: operation
4252 integer(IK) , intent(in) , optional :: roff
4253 integer(IK) :: err
4254 end function
4255#endif
4256
4257#if LK4_ENABLED
4258 module function getErrTableReadFile_TO_D1_LK4(file, table, operation, header, sep, roff, iomsg) result(err)
4259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4260 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D1_LK4
4261#endif
4262 use pm_kind, only: LKG => LK4
4263 logical(LKG) , intent(out) , allocatable :: table(:)
4264 character(:, SK) , intent(out) , allocatable , optional :: header
4265 character(*, SK) , intent(in) :: file
4266 character(*, SK) , intent(in) , optional :: sep
4267 character(*, SK) , intent(inout) , optional :: iomsg
4268 type(trans_type) , intent(in) :: operation
4269 integer(IK) , intent(in) , optional :: roff
4270 integer(IK) :: err
4271 end function
4272#endif
4273
4274#if LK3_ENABLED
4275 module function getErrTableReadFile_TO_D1_LK3(file, table, operation, header, sep, roff, iomsg) result(err)
4276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4277 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D1_LK3
4278#endif
4279 use pm_kind, only: LKG => LK3
4280 logical(LKG) , intent(out) , allocatable :: table(:)
4281 character(:, SK) , intent(out) , allocatable , optional :: header
4282 character(*, SK) , intent(in) :: file
4283 character(*, SK) , intent(in) , optional :: sep
4284 character(*, SK) , intent(inout) , optional :: iomsg
4285 type(trans_type) , intent(in) :: operation
4286 integer(IK) , intent(in) , optional :: roff
4287 integer(IK) :: err
4288 end function
4289#endif
4290
4291#if LK2_ENABLED
4292 module function getErrTableReadFile_TO_D1_LK2(file, table, operation, header, sep, roff, iomsg) result(err)
4293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4294 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D1_LK2
4295#endif
4296 use pm_kind, only: LKG => LK2
4297 logical(LKG) , intent(out) , allocatable :: table(:)
4298 character(:, SK) , intent(out) , allocatable , optional :: header
4299 character(*, SK) , intent(in) :: file
4300 character(*, SK) , intent(in) , optional :: sep
4301 character(*, SK) , intent(inout) , optional :: iomsg
4302 type(trans_type) , intent(in) :: operation
4303 integer(IK) , intent(in) , optional :: roff
4304 integer(IK) :: err
4305 end function
4306#endif
4307
4308#if LK1_ENABLED
4309 module function getErrTableReadFile_TO_D1_LK1(file, table, operation, header, sep, roff, iomsg) result(err)
4310#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4311 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D1_LK1
4312#endif
4313 use pm_kind, only: LKG => LK1
4314 logical(LKG) , intent(out) , allocatable :: table(:)
4315 character(:, SK) , intent(out) , allocatable , optional :: header
4316 character(*, SK) , intent(in) :: file
4317 character(*, SK) , intent(in) , optional :: sep
4318 character(*, SK) , intent(inout) , optional :: iomsg
4319 type(trans_type) , intent(in) :: operation
4320 integer(IK) , intent(in) , optional :: roff
4321 integer(IK) :: err
4322 end function
4323#endif
4324
4325 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4326
4327#if CK5_ENABLED
4328 module function getErrTableReadFile_TO_D1_CK5(file, table, operation, header, sep, roff, iomsg) result(err)
4329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4330 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D1_CK5
4331#endif
4332 use pm_kind, only: CKG => CK5
4333 complex(CKG) , intent(out) , allocatable :: table(:)
4334 character(:, SK) , intent(out) , allocatable , optional :: header
4335 character(*, SK) , intent(in) :: file
4336 character(*, SK) , intent(in) , optional :: sep
4337 character(*, SK) , intent(inout) , optional :: iomsg
4338 type(trans_type) , intent(in) :: operation
4339 integer(IK) , intent(in) , optional :: roff
4340 integer(IK) :: err
4341 end function
4342#endif
4343
4344#if CK4_ENABLED
4345 module function getErrTableReadFile_TO_D1_CK4(file, table, operation, header, sep, roff, iomsg) result(err)
4346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4347 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D1_CK4
4348#endif
4349 use pm_kind, only: CKG => CK4
4350 complex(CKG) , intent(out) , allocatable :: table(:)
4351 character(:, SK) , intent(out) , allocatable , optional :: header
4352 character(*, SK) , intent(in) :: file
4353 character(*, SK) , intent(in) , optional :: sep
4354 character(*, SK) , intent(inout) , optional :: iomsg
4355 type(trans_type) , intent(in) :: operation
4356 integer(IK) , intent(in) , optional :: roff
4357 integer(IK) :: err
4358 end function
4359#endif
4360
4361#if CK3_ENABLED
4362 module function getErrTableReadFile_TO_D1_CK3(file, table, operation, header, sep, roff, iomsg) result(err)
4363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4364 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D1_CK3
4365#endif
4366 use pm_kind, only: CKG => CK3
4367 complex(CKG) , intent(out) , allocatable :: table(:)
4368 character(:, SK) , intent(out) , allocatable , optional :: header
4369 character(*, SK) , intent(in) :: file
4370 character(*, SK) , intent(in) , optional :: sep
4371 character(*, SK) , intent(inout) , optional :: iomsg
4372 type(trans_type) , intent(in) :: operation
4373 integer(IK) , intent(in) , optional :: roff
4374 integer(IK) :: err
4375 end function
4376#endif
4377
4378#if CK2_ENABLED
4379 module function getErrTableReadFile_TO_D1_CK2(file, table, operation, header, sep, roff, iomsg) result(err)
4380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4381 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D1_CK2
4382#endif
4383 use pm_kind, only: CKG => CK2
4384 complex(CKG) , intent(out) , allocatable :: table(:)
4385 character(:, SK) , intent(out) , allocatable , optional :: header
4386 character(*, SK) , intent(in) :: file
4387 character(*, SK) , intent(in) , optional :: sep
4388 character(*, SK) , intent(inout) , optional :: iomsg
4389 type(trans_type) , intent(in) :: operation
4390 integer(IK) , intent(in) , optional :: roff
4391 integer(IK) :: err
4392 end function
4393#endif
4394
4395#if CK1_ENABLED
4396 module function getErrTableReadFile_TO_D1_CK1(file, table, operation, header, sep, roff, iomsg) result(err)
4397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4398 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D1_CK1
4399#endif
4400 use pm_kind, only: CKG => CK1
4401 complex(CKG) , intent(out) , allocatable :: table(:)
4402 character(:, SK) , intent(out) , allocatable , optional :: header
4403 character(*, SK) , intent(in) :: file
4404 character(*, SK) , intent(in) , optional :: sep
4405 character(*, SK) , intent(inout) , optional :: iomsg
4406 type(trans_type) , intent(in) :: operation
4407 integer(IK) , intent(in) , optional :: roff
4408 integer(IK) :: err
4409 end function
4410#endif
4411
4412 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4413
4414#if RK5_ENABLED
4415 module function getErrTableReadFile_TO_D1_RK5(file, table, operation, header, sep, roff, iomsg) result(err)
4416#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4417 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D1_RK5
4418#endif
4419 use pm_kind, only: RKG => RK5
4420 real(RKG) , intent(out) , allocatable :: table(:)
4421 character(:, SK) , intent(out) , allocatable , optional :: header
4422 character(*, SK) , intent(in) :: file
4423 character(*, SK) , intent(in) , optional :: sep
4424 character(*, SK) , intent(inout) , optional :: iomsg
4425 type(trans_type) , intent(in) :: operation
4426 integer(IK) , intent(in) , optional :: roff
4427 integer(IK) :: err
4428 end function
4429#endif
4430
4431#if RK4_ENABLED
4432 module function getErrTableReadFile_TO_D1_RK4(file, table, operation, header, sep, roff, iomsg) result(err)
4433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4434 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D1_RK4
4435#endif
4436 use pm_kind, only: RKG => RK4
4437 real(RKG) , intent(out) , allocatable :: table(:)
4438 character(:, SK) , intent(out) , allocatable , optional :: header
4439 character(*, SK) , intent(in) :: file
4440 character(*, SK) , intent(in) , optional :: sep
4441 character(*, SK) , intent(inout) , optional :: iomsg
4442 type(trans_type) , intent(in) :: operation
4443 integer(IK) , intent(in) , optional :: roff
4444 integer(IK) :: err
4445 end function
4446#endif
4447
4448#if RK3_ENABLED
4449 module function getErrTableReadFile_TO_D1_RK3(file, table, operation, header, sep, roff, iomsg) result(err)
4450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4451 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D1_RK3
4452#endif
4453 use pm_kind, only: RKG => RK3
4454 real(RKG) , intent(out) , allocatable :: table(:)
4455 character(:, SK) , intent(out) , allocatable , optional :: header
4456 character(*, SK) , intent(in) :: file
4457 character(*, SK) , intent(in) , optional :: sep
4458 character(*, SK) , intent(inout) , optional :: iomsg
4459 type(trans_type) , intent(in) :: operation
4460 integer(IK) , intent(in) , optional :: roff
4461 integer(IK) :: err
4462 end function
4463#endif
4464
4465#if RK2_ENABLED
4466 module function getErrTableReadFile_TO_D1_RK2(file, table, operation, header, sep, roff, iomsg) result(err)
4467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4468 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D1_RK2
4469#endif
4470 use pm_kind, only: RKG => RK2
4471 real(RKG) , intent(out) , allocatable :: table(:)
4472 character(:, SK) , intent(out) , allocatable , optional :: header
4473 character(*, SK) , intent(in) :: file
4474 character(*, SK) , intent(in) , optional :: sep
4475 character(*, SK) , intent(inout) , optional :: iomsg
4476 type(trans_type) , intent(in) :: operation
4477 integer(IK) , intent(in) , optional :: roff
4478 integer(IK) :: err
4479 end function
4480#endif
4481
4482#if RK1_ENABLED
4483 module function getErrTableReadFile_TO_D1_RK1(file, table, operation, header, sep, roff, iomsg) result(err)
4484#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4485 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D1_RK1
4486#endif
4487 use pm_kind, only: RKG => RK1
4488 real(RKG) , intent(out) , allocatable :: table(:)
4489 character(:, SK) , intent(out) , allocatable , optional :: header
4490 character(*, SK) , intent(in) :: file
4491 character(*, SK) , intent(in) , optional :: sep
4492 character(*, SK) , intent(inout) , optional :: iomsg
4493 type(trans_type) , intent(in) :: operation
4494 integer(IK) , intent(in) , optional :: roff
4495 integer(IK) :: err
4496 end function
4497#endif
4498
4499 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4500
4501 end interface
4502
4503 ! D1 unit TO
4504
4505 interface getErrTableRead
4506
4507 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4508
4509#if SK5_ENABLED
4510 module function getErrTableReadUnit_TO_D1_SK5(unit, table, operation, header, sep, roff, iomsg) result(err)
4511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4512 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D1_SK5
4513#endif
4514 use pm_kind, only: SKG => SK5
4515 character(*,SKG) , intent(out) , allocatable :: table(:)
4516 character(:, SK) , intent(out) , allocatable , optional :: header
4517 character(*, SK) , intent(in) , optional :: sep
4518 character(*, SK) , intent(inout) , optional :: iomsg
4519 type(trans_type) , intent(in) :: operation
4520 integer(IK) , intent(in) , optional :: roff
4521 integer(IK) , intent(in) :: unit
4522 integer(IK) :: err
4523 end function
4524#endif
4525
4526#if SK4_ENABLED
4527 module function getErrTableReadUnit_TO_D1_SK4(unit, table, operation, header, sep, roff, iomsg) result(err)
4528#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4529 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D1_SK4
4530#endif
4531 use pm_kind, only: SKG => SK4
4532 character(*,SKG) , intent(out) , allocatable :: table(:)
4533 character(:, SK) , intent(out) , allocatable , optional :: header
4534 character(*, SK) , intent(in) , optional :: sep
4535 character(*, SK) , intent(inout) , optional :: iomsg
4536 type(trans_type) , intent(in) :: operation
4537 integer(IK) , intent(in) , optional :: roff
4538 integer(IK) , intent(in) :: unit
4539 integer(IK) :: err
4540 end function
4541#endif
4542
4543#if SK3_ENABLED
4544 module function getErrTableReadUnit_TO_D1_SK3(unit, table, operation, header, sep, roff, iomsg) result(err)
4545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4546 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D1_SK3
4547#endif
4548 use pm_kind, only: SKG => SK3
4549 character(*,SKG) , intent(out) , allocatable :: table(:)
4550 character(:, SK) , intent(out) , allocatable , optional :: header
4551 character(*, SK) , intent(in) , optional :: sep
4552 character(*, SK) , intent(inout) , optional :: iomsg
4553 type(trans_type) , intent(in) :: operation
4554 integer(IK) , intent(in) , optional :: roff
4555 integer(IK) , intent(in) :: unit
4556 integer(IK) :: err
4557 end function
4558#endif
4559
4560#if SK2_ENABLED
4561 module function getErrTableReadUnit_TO_D1_SK2(unit, table, operation, header, sep, roff, iomsg) result(err)
4562#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4563 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D1_SK2
4564#endif
4565 use pm_kind, only: SKG => SK2
4566 character(*,SKG) , intent(out) , allocatable :: table(:)
4567 character(:, SK) , intent(out) , allocatable , optional :: header
4568 character(*, SK) , intent(in) , optional :: sep
4569 character(*, SK) , intent(inout) , optional :: iomsg
4570 type(trans_type) , intent(in) :: operation
4571 integer(IK) , intent(in) , optional :: roff
4572 integer(IK) , intent(in) :: unit
4573 integer(IK) :: err
4574 end function
4575#endif
4576
4577#if SK1_ENABLED
4578 module function getErrTableReadUnit_TO_D1_SK1(unit, table, operation, header, sep, roff, iomsg) result(err)
4579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4580 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D1_SK1
4581#endif
4582 use pm_kind, only: SKG => SK1
4583 character(*,SKG) , intent(out) , allocatable :: table(:)
4584 character(:, SK) , intent(out) , allocatable , optional :: header
4585 character(*, SK) , intent(in) , optional :: sep
4586 character(*, SK) , intent(inout) , optional :: iomsg
4587 type(trans_type) , intent(in) :: operation
4588 integer(IK) , intent(in) , optional :: roff
4589 integer(IK) , intent(in) :: unit
4590 integer(IK) :: err
4591 end function
4592#endif
4593
4594 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4595
4596#if IK5_ENABLED
4597 module function getErrTableReadUnit_TO_D1_IK5(unit, table, operation, header, sep, roff, iomsg) result(err)
4598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4599 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D1_IK5
4600#endif
4601 use pm_kind, only: IKG => IK5
4602 integer(IKG) , intent(out) , allocatable :: table(:)
4603 character(:, SK) , intent(out) , allocatable , optional :: header
4604 character(*, SK) , intent(in) , optional :: sep
4605 character(*, SK) , intent(inout) , optional :: iomsg
4606 type(trans_type) , intent(in) :: operation
4607 integer(IK) , intent(in) , optional :: roff
4608 integer(IK) , intent(in) :: unit
4609 integer(IK) :: err
4610 end function
4611#endif
4612
4613#if IK4_ENABLED
4614 module function getErrTableReadUnit_TO_D1_IK4(unit, table, operation, header, sep, roff, iomsg) result(err)
4615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4616 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D1_IK4
4617#endif
4618 use pm_kind, only: IKG => IK4
4619 integer(IKG) , intent(out) , allocatable :: table(:)
4620 character(:, SK) , intent(out) , allocatable , optional :: header
4621 character(*, SK) , intent(in) , optional :: sep
4622 character(*, SK) , intent(inout) , optional :: iomsg
4623 type(trans_type) , intent(in) :: operation
4624 integer(IK) , intent(in) , optional :: roff
4625 integer(IK) , intent(in) :: unit
4626 integer(IK) :: err
4627 end function
4628#endif
4629
4630#if IK3_ENABLED
4631 module function getErrTableReadUnit_TO_D1_IK3(unit, table, operation, header, sep, roff, iomsg) result(err)
4632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4633 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D1_IK3
4634#endif
4635 use pm_kind, only: IKG => IK3
4636 integer(IKG) , intent(out) , allocatable :: table(:)
4637 character(:, SK) , intent(out) , allocatable , optional :: header
4638 character(*, SK) , intent(in) , optional :: sep
4639 character(*, SK) , intent(inout) , optional :: iomsg
4640 type(trans_type) , intent(in) :: operation
4641 integer(IK) , intent(in) , optional :: roff
4642 integer(IK) , intent(in) :: unit
4643 integer(IK) :: err
4644 end function
4645#endif
4646
4647#if IK2_ENABLED
4648 module function getErrTableReadUnit_TO_D1_IK2(unit, table, operation, header, sep, roff, iomsg) result(err)
4649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4650 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D1_IK2
4651#endif
4652 use pm_kind, only: IKG => IK2
4653 integer(IKG) , intent(out) , allocatable :: table(:)
4654 character(:, SK) , intent(out) , allocatable , optional :: header
4655 character(*, SK) , intent(in) , optional :: sep
4656 character(*, SK) , intent(inout) , optional :: iomsg
4657 type(trans_type) , intent(in) :: operation
4658 integer(IK) , intent(in) , optional :: roff
4659 integer(IK) , intent(in) :: unit
4660 integer(IK) :: err
4661 end function
4662#endif
4663
4664#if IK1_ENABLED
4665 module function getErrTableReadUnit_TO_D1_IK1(unit, table, operation, header, sep, roff, iomsg) result(err)
4666#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4667 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D1_IK1
4668#endif
4669 use pm_kind, only: IKG => IK1
4670 integer(IKG) , intent(out) , allocatable :: table(:)
4671 character(:, SK) , intent(out) , allocatable , optional :: header
4672 character(*, SK) , intent(in) , optional :: sep
4673 character(*, SK) , intent(inout) , optional :: iomsg
4674 type(trans_type) , intent(in) :: operation
4675 integer(IK) , intent(in) , optional :: roff
4676 integer(IK) , intent(in) :: unit
4677 integer(IK) :: err
4678 end function
4679#endif
4680
4681 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4682
4683#if LK5_ENABLED
4684 module function getErrTableReadUnit_TO_D1_LK5(unit, table, operation, header, sep, roff, iomsg) result(err)
4685#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4686 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D1_LK5
4687#endif
4688 use pm_kind, only: LKG => LK5
4689 logical(LKG) , intent(out) , allocatable :: table(:)
4690 character(:, SK) , intent(out) , allocatable , optional :: header
4691 character(*, SK) , intent(in) , optional :: sep
4692 character(*, SK) , intent(inout) , optional :: iomsg
4693 type(trans_type) , intent(in) :: operation
4694 integer(IK) , intent(in) , optional :: roff
4695 integer(IK) , intent(in) :: unit
4696 integer(IK) :: err
4697 end function
4698#endif
4699
4700#if LK4_ENABLED
4701 module function getErrTableReadUnit_TO_D1_LK4(unit, table, operation, header, sep, roff, iomsg) result(err)
4702#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4703 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D1_LK4
4704#endif
4705 use pm_kind, only: LKG => LK4
4706 logical(LKG) , intent(out) , allocatable :: table(:)
4707 character(:, SK) , intent(out) , allocatable , optional :: header
4708 character(*, SK) , intent(in) , optional :: sep
4709 character(*, SK) , intent(inout) , optional :: iomsg
4710 type(trans_type) , intent(in) :: operation
4711 integer(IK) , intent(in) , optional :: roff
4712 integer(IK) , intent(in) :: unit
4713 integer(IK) :: err
4714 end function
4715#endif
4716
4717#if LK3_ENABLED
4718 module function getErrTableReadUnit_TO_D1_LK3(unit, table, operation, header, sep, roff, iomsg) result(err)
4719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4720 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D1_LK3
4721#endif
4722 use pm_kind, only: LKG => LK3
4723 logical(LKG) , intent(out) , allocatable :: table(:)
4724 character(:, SK) , intent(out) , allocatable , optional :: header
4725 character(*, SK) , intent(in) , optional :: sep
4726 character(*, SK) , intent(inout) , optional :: iomsg
4727 type(trans_type) , intent(in) :: operation
4728 integer(IK) , intent(in) , optional :: roff
4729 integer(IK) , intent(in) :: unit
4730 integer(IK) :: err
4731 end function
4732#endif
4733
4734#if LK2_ENABLED
4735 module function getErrTableReadUnit_TO_D1_LK2(unit, table, operation, header, sep, roff, iomsg) result(err)
4736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4737 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D1_LK2
4738#endif
4739 use pm_kind, only: LKG => LK2
4740 logical(LKG) , intent(out) , allocatable :: table(:)
4741 character(:, SK) , intent(out) , allocatable , optional :: header
4742 character(*, SK) , intent(in) , optional :: sep
4743 character(*, SK) , intent(inout) , optional :: iomsg
4744 type(trans_type) , intent(in) :: operation
4745 integer(IK) , intent(in) , optional :: roff
4746 integer(IK) , intent(in) :: unit
4747 integer(IK) :: err
4748 end function
4749#endif
4750
4751#if LK1_ENABLED
4752 module function getErrTableReadUnit_TO_D1_LK1(unit, table, operation, header, sep, roff, iomsg) result(err)
4753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4754 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D1_LK1
4755#endif
4756 use pm_kind, only: LKG => LK1
4757 logical(LKG) , intent(out) , allocatable :: table(:)
4758 character(:, SK) , intent(out) , allocatable , optional :: header
4759 character(*, SK) , intent(in) , optional :: sep
4760 character(*, SK) , intent(inout) , optional :: iomsg
4761 type(trans_type) , intent(in) :: operation
4762 integer(IK) , intent(in) , optional :: roff
4763 integer(IK) , intent(in) :: unit
4764 integer(IK) :: err
4765 end function
4766#endif
4767
4768 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4769
4770#if CK5_ENABLED
4771 module function getErrTableReadUnit_TO_D1_CK5(unit, table, operation, header, sep, roff, iomsg) result(err)
4772#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4773 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D1_CK5
4774#endif
4775 use pm_kind, only: CKG => CK5
4776 complex(CKG) , intent(out) , allocatable :: table(:)
4777 character(:, SK) , intent(out) , allocatable , optional :: header
4778 character(*, SK) , intent(in) , optional :: sep
4779 character(*, SK) , intent(inout) , optional :: iomsg
4780 type(trans_type) , intent(in) :: operation
4781 integer(IK) , intent(in) , optional :: roff
4782 integer(IK) , intent(in) :: unit
4783 integer(IK) :: err
4784 end function
4785#endif
4786
4787#if CK4_ENABLED
4788 module function getErrTableReadUnit_TO_D1_CK4(unit, table, operation, header, sep, roff, iomsg) result(err)
4789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4790 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D1_CK4
4791#endif
4792 use pm_kind, only: CKG => CK4
4793 complex(CKG) , intent(out) , allocatable :: table(:)
4794 character(:, SK) , intent(out) , allocatable , optional :: header
4795 character(*, SK) , intent(in) , optional :: sep
4796 character(*, SK) , intent(inout) , optional :: iomsg
4797 type(trans_type) , intent(in) :: operation
4798 integer(IK) , intent(in) , optional :: roff
4799 integer(IK) , intent(in) :: unit
4800 integer(IK) :: err
4801 end function
4802#endif
4803
4804#if CK3_ENABLED
4805 module function getErrTableReadUnit_TO_D1_CK3(unit, table, operation, header, sep, roff, iomsg) result(err)
4806#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4807 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D1_CK3
4808#endif
4809 use pm_kind, only: CKG => CK3
4810 complex(CKG) , intent(out) , allocatable :: table(:)
4811 character(:, SK) , intent(out) , allocatable , optional :: header
4812 character(*, SK) , intent(in) , optional :: sep
4813 character(*, SK) , intent(inout) , optional :: iomsg
4814 type(trans_type) , intent(in) :: operation
4815 integer(IK) , intent(in) , optional :: roff
4816 integer(IK) , intent(in) :: unit
4817 integer(IK) :: err
4818 end function
4819#endif
4820
4821#if CK2_ENABLED
4822 module function getErrTableReadUnit_TO_D1_CK2(unit, table, operation, header, sep, roff, iomsg) result(err)
4823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4824 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D1_CK2
4825#endif
4826 use pm_kind, only: CKG => CK2
4827 complex(CKG) , intent(out) , allocatable :: table(:)
4828 character(:, SK) , intent(out) , allocatable , optional :: header
4829 character(*, SK) , intent(in) , optional :: sep
4830 character(*, SK) , intent(inout) , optional :: iomsg
4831 type(trans_type) , intent(in) :: operation
4832 integer(IK) , intent(in) , optional :: roff
4833 integer(IK) , intent(in) :: unit
4834 integer(IK) :: err
4835 end function
4836#endif
4837
4838#if CK1_ENABLED
4839 module function getErrTableReadUnit_TO_D1_CK1(unit, table, operation, header, sep, roff, iomsg) result(err)
4840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4841 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D1_CK1
4842#endif
4843 use pm_kind, only: CKG => CK1
4844 complex(CKG) , intent(out) , allocatable :: table(:)
4845 character(:, SK) , intent(out) , allocatable , optional :: header
4846 character(*, SK) , intent(in) , optional :: sep
4847 character(*, SK) , intent(inout) , optional :: iomsg
4848 type(trans_type) , intent(in) :: operation
4849 integer(IK) , intent(in) , optional :: roff
4850 integer(IK) , intent(in) :: unit
4851 integer(IK) :: err
4852 end function
4853#endif
4854
4855 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4856
4857#if RK5_ENABLED
4858 module function getErrTableReadUnit_TO_D1_RK5(unit, table, operation, header, sep, roff, iomsg) result(err)
4859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4860 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D1_RK5
4861#endif
4862 use pm_kind, only: RKG => RK5
4863 real(RKG) , intent(out) , allocatable :: table(:)
4864 character(:, SK) , intent(out) , allocatable , optional :: header
4865 character(*, SK) , intent(in) , optional :: sep
4866 character(*, SK) , intent(inout) , optional :: iomsg
4867 type(trans_type) , intent(in) :: operation
4868 integer(IK) , intent(in) , optional :: roff
4869 integer(IK) , intent(in) :: unit
4870 integer(IK) :: err
4871 end function
4872#endif
4873
4874#if RK4_ENABLED
4875 module function getErrTableReadUnit_TO_D1_RK4(unit, table, operation, header, sep, roff, iomsg) result(err)
4876#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4877 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D1_RK4
4878#endif
4879 use pm_kind, only: RKG => RK4
4880 real(RKG) , intent(out) , allocatable :: table(:)
4881 character(:, SK) , intent(out) , allocatable , optional :: header
4882 character(*, SK) , intent(in) , optional :: sep
4883 character(*, SK) , intent(inout) , optional :: iomsg
4884 type(trans_type) , intent(in) :: operation
4885 integer(IK) , intent(in) , optional :: roff
4886 integer(IK) , intent(in) :: unit
4887 integer(IK) :: err
4888 end function
4889#endif
4890
4891#if RK3_ENABLED
4892 module function getErrTableReadUnit_TO_D1_RK3(unit, table, operation, header, sep, roff, iomsg) result(err)
4893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4894 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D1_RK3
4895#endif
4896 use pm_kind, only: RKG => RK3
4897 real(RKG) , intent(out) , allocatable :: table(:)
4898 character(:, SK) , intent(out) , allocatable , optional :: header
4899 character(*, SK) , intent(in) , optional :: sep
4900 character(*, SK) , intent(inout) , optional :: iomsg
4901 type(trans_type) , intent(in) :: operation
4902 integer(IK) , intent(in) , optional :: roff
4903 integer(IK) , intent(in) :: unit
4904 integer(IK) :: err
4905 end function
4906#endif
4907
4908#if RK2_ENABLED
4909 module function getErrTableReadUnit_TO_D1_RK2(unit, table, operation, header, sep, roff, iomsg) result(err)
4910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4911 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D1_RK2
4912#endif
4913 use pm_kind, only: RKG => RK2
4914 real(RKG) , intent(out) , allocatable :: table(:)
4915 character(:, SK) , intent(out) , allocatable , optional :: header
4916 character(*, SK) , intent(in) , optional :: sep
4917 character(*, SK) , intent(inout) , optional :: iomsg
4918 type(trans_type) , intent(in) :: operation
4919 integer(IK) , intent(in) , optional :: roff
4920 integer(IK) , intent(in) :: unit
4921 integer(IK) :: err
4922 end function
4923#endif
4924
4925#if RK1_ENABLED
4926 module function getErrTableReadUnit_TO_D1_RK1(unit, table, operation, header, sep, roff, iomsg) result(err)
4927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4928 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D1_RK1
4929#endif
4930 use pm_kind, only: RKG => RK1
4931 real(RKG) , intent(out) , allocatable :: table(:)
4932 character(:, SK) , intent(out) , allocatable , optional :: header
4933 character(*, SK) , intent(in) , optional :: sep
4934 character(*, SK) , intent(inout) , optional :: iomsg
4935 type(trans_type) , intent(in) :: operation
4936 integer(IK) , intent(in) , optional :: roff
4937 integer(IK) , intent(in) :: unit
4938 integer(IK) :: err
4939 end function
4940#endif
4941
4942 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4943
4944 end interface
4945
4946 ! D2 file TO
4947
4948 interface getErrTableRead
4949
4950 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4951
4952#if SK5_ENABLED
4953 module function getErrTableReadFile_TO_D2_SK5(file, table, operation, header, sep, roff, iomsg) result(err)
4954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4955 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D2_SK5
4956#endif
4957 use pm_kind, only: SKG => SK5
4958 character(*,SKG) , intent(out) , allocatable :: table(:,:)
4959 character(:, SK) , intent(out) , allocatable , optional :: header
4960 character(*, SK) , intent(in) :: file
4961 character(*, SK) , intent(in) , optional :: sep
4962 character(*, SK) , intent(inout) , optional :: iomsg
4963 type(trans_type) , intent(in) :: operation
4964 integer(IK) , intent(in) , optional :: roff
4965 integer(IK) :: err
4966 end function
4967#endif
4968
4969#if SK4_ENABLED
4970 module function getErrTableReadFile_TO_D2_SK4(file, table, operation, header, sep, roff, iomsg) result(err)
4971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4972 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D2_SK4
4973#endif
4974 use pm_kind, only: SKG => SK4
4975 character(*,SKG) , intent(out) , allocatable :: table(:,:)
4976 character(:, SK) , intent(out) , allocatable , optional :: header
4977 character(*, SK) , intent(in) :: file
4978 character(*, SK) , intent(in) , optional :: sep
4979 character(*, SK) , intent(inout) , optional :: iomsg
4980 type(trans_type) , intent(in) :: operation
4981 integer(IK) , intent(in) , optional :: roff
4982 integer(IK) :: err
4983 end function
4984#endif
4985
4986#if SK3_ENABLED
4987 module function getErrTableReadFile_TO_D2_SK3(file, table, operation, header, sep, roff, iomsg) result(err)
4988#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4989 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D2_SK3
4990#endif
4991 use pm_kind, only: SKG => SK3
4992 character(*,SKG) , intent(out) , allocatable :: table(:,:)
4993 character(:, SK) , intent(out) , allocatable , optional :: header
4994 character(*, SK) , intent(in) :: file
4995 character(*, SK) , intent(in) , optional :: sep
4996 character(*, SK) , intent(inout) , optional :: iomsg
4997 type(trans_type) , intent(in) :: operation
4998 integer(IK) , intent(in) , optional :: roff
4999 integer(IK) :: err
5000 end function
5001#endif
5002
5003#if SK2_ENABLED
5004 module function getErrTableReadFile_TO_D2_SK2(file, table, operation, header, sep, roff, iomsg) result(err)
5005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5006 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D2_SK2
5007#endif
5008 use pm_kind, only: SKG => SK2
5009 character(*,SKG) , intent(out) , allocatable :: table(:,:)
5010 character(:, SK) , intent(out) , allocatable , optional :: header
5011 character(*, SK) , intent(in) :: file
5012 character(*, SK) , intent(in) , optional :: sep
5013 character(*, SK) , intent(inout) , optional :: iomsg
5014 type(trans_type) , intent(in) :: operation
5015 integer(IK) , intent(in) , optional :: roff
5016 integer(IK) :: err
5017 end function
5018#endif
5019
5020#if SK1_ENABLED
5021 module function getErrTableReadFile_TO_D2_SK1(file, table, operation, header, sep, roff, iomsg) result(err)
5022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5023 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D2_SK1
5024#endif
5025 use pm_kind, only: SKG => SK1
5026 character(*,SKG) , intent(out) , allocatable :: table(:,:)
5027 character(:, SK) , intent(out) , allocatable , optional :: header
5028 character(*, SK) , intent(in) :: file
5029 character(*, SK) , intent(in) , optional :: sep
5030 character(*, SK) , intent(inout) , optional :: iomsg
5031 type(trans_type) , intent(in) :: operation
5032 integer(IK) , intent(in) , optional :: roff
5033 integer(IK) :: err
5034 end function
5035#endif
5036
5037 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5038
5039#if IK5_ENABLED
5040 module function getErrTableReadFile_TO_D2_IK5(file, table, operation, header, sep, roff, iomsg) result(err)
5041#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5042 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D2_IK5
5043#endif
5044 use pm_kind, only: IKG => IK5
5045 integer(IKG) , intent(out) , allocatable :: table(:,:)
5046 character(:, SK) , intent(out) , allocatable , optional :: header
5047 character(*, SK) , intent(in) :: file
5048 character(*, SK) , intent(in) , optional :: sep
5049 character(*, SK) , intent(inout) , optional :: iomsg
5050 type(trans_type) , intent(in) :: operation
5051 integer(IK) , intent(in) , optional :: roff
5052 integer(IK) :: err
5053 end function
5054#endif
5055
5056#if IK4_ENABLED
5057 module function getErrTableReadFile_TO_D2_IK4(file, table, operation, header, sep, roff, iomsg) result(err)
5058#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5059 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D2_IK4
5060#endif
5061 use pm_kind, only: IKG => IK4
5062 integer(IKG) , intent(out) , allocatable :: table(:,:)
5063 character(:, SK) , intent(out) , allocatable , optional :: header
5064 character(*, SK) , intent(in) :: file
5065 character(*, SK) , intent(in) , optional :: sep
5066 character(*, SK) , intent(inout) , optional :: iomsg
5067 type(trans_type) , intent(in) :: operation
5068 integer(IK) , intent(in) , optional :: roff
5069 integer(IK) :: err
5070 end function
5071#endif
5072
5073#if IK3_ENABLED
5074 module function getErrTableReadFile_TO_D2_IK3(file, table, operation, header, sep, roff, iomsg) result(err)
5075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5076 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D2_IK3
5077#endif
5078 use pm_kind, only: IKG => IK3
5079 integer(IKG) , intent(out) , allocatable :: table(:,:)
5080 character(:, SK) , intent(out) , allocatable , optional :: header
5081 character(*, SK) , intent(in) :: file
5082 character(*, SK) , intent(in) , optional :: sep
5083 character(*, SK) , intent(inout) , optional :: iomsg
5084 type(trans_type) , intent(in) :: operation
5085 integer(IK) , intent(in) , optional :: roff
5086 integer(IK) :: err
5087 end function
5088#endif
5089
5090#if IK2_ENABLED
5091 module function getErrTableReadFile_TO_D2_IK2(file, table, operation, header, sep, roff, iomsg) result(err)
5092#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5093 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D2_IK2
5094#endif
5095 use pm_kind, only: IKG => IK2
5096 integer(IKG) , intent(out) , allocatable :: table(:,:)
5097 character(:, SK) , intent(out) , allocatable , optional :: header
5098 character(*, SK) , intent(in) :: file
5099 character(*, SK) , intent(in) , optional :: sep
5100 character(*, SK) , intent(inout) , optional :: iomsg
5101 type(trans_type) , intent(in) :: operation
5102 integer(IK) , intent(in) , optional :: roff
5103 integer(IK) :: err
5104 end function
5105#endif
5106
5107#if IK1_ENABLED
5108 module function getErrTableReadFile_TO_D2_IK1(file, table, operation, header, sep, roff, iomsg) result(err)
5109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5110 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D2_IK1
5111#endif
5112 use pm_kind, only: IKG => IK1
5113 integer(IKG) , intent(out) , allocatable :: table(:,:)
5114 character(:, SK) , intent(out) , allocatable , optional :: header
5115 character(*, SK) , intent(in) :: file
5116 character(*, SK) , intent(in) , optional :: sep
5117 character(*, SK) , intent(inout) , optional :: iomsg
5118 type(trans_type) , intent(in) :: operation
5119 integer(IK) , intent(in) , optional :: roff
5120 integer(IK) :: err
5121 end function
5122#endif
5123
5124 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5125
5126#if LK5_ENABLED
5127 module function getErrTableReadFile_TO_D2_LK5(file, table, operation, header, sep, roff, iomsg) result(err)
5128#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5129 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D2_LK5
5130#endif
5131 use pm_kind, only: LKG => LK5
5132 logical(LKG) , intent(out) , allocatable :: table(:,:)
5133 character(:, SK) , intent(out) , allocatable , optional :: header
5134 character(*, SK) , intent(in) :: file
5135 character(*, SK) , intent(in) , optional :: sep
5136 character(*, SK) , intent(inout) , optional :: iomsg
5137 type(trans_type) , intent(in) :: operation
5138 integer(IK) , intent(in) , optional :: roff
5139 integer(IK) :: err
5140 end function
5141#endif
5142
5143#if LK4_ENABLED
5144 module function getErrTableReadFile_TO_D2_LK4(file, table, operation, header, sep, roff, iomsg) result(err)
5145#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5146 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D2_LK4
5147#endif
5148 use pm_kind, only: LKG => LK4
5149 logical(LKG) , intent(out) , allocatable :: table(:,:)
5150 character(:, SK) , intent(out) , allocatable , optional :: header
5151 character(*, SK) , intent(in) :: file
5152 character(*, SK) , intent(in) , optional :: sep
5153 character(*, SK) , intent(inout) , optional :: iomsg
5154 type(trans_type) , intent(in) :: operation
5155 integer(IK) , intent(in) , optional :: roff
5156 integer(IK) :: err
5157 end function
5158#endif
5159
5160#if LK3_ENABLED
5161 module function getErrTableReadFile_TO_D2_LK3(file, table, operation, header, sep, roff, iomsg) result(err)
5162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5163 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D2_LK3
5164#endif
5165 use pm_kind, only: LKG => LK3
5166 logical(LKG) , intent(out) , allocatable :: table(:,:)
5167 character(:, SK) , intent(out) , allocatable , optional :: header
5168 character(*, SK) , intent(in) :: file
5169 character(*, SK) , intent(in) , optional :: sep
5170 character(*, SK) , intent(inout) , optional :: iomsg
5171 type(trans_type) , intent(in) :: operation
5172 integer(IK) , intent(in) , optional :: roff
5173 integer(IK) :: err
5174 end function
5175#endif
5176
5177#if LK2_ENABLED
5178 module function getErrTableReadFile_TO_D2_LK2(file, table, operation, header, sep, roff, iomsg) result(err)
5179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5180 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D2_LK2
5181#endif
5182 use pm_kind, only: LKG => LK2
5183 logical(LKG) , intent(out) , allocatable :: table(:,:)
5184 character(:, SK) , intent(out) , allocatable , optional :: header
5185 character(*, SK) , intent(in) :: file
5186 character(*, SK) , intent(in) , optional :: sep
5187 character(*, SK) , intent(inout) , optional :: iomsg
5188 type(trans_type) , intent(in) :: operation
5189 integer(IK) , intent(in) , optional :: roff
5190 integer(IK) :: err
5191 end function
5192#endif
5193
5194#if LK1_ENABLED
5195 module function getErrTableReadFile_TO_D2_LK1(file, table, operation, header, sep, roff, iomsg) result(err)
5196#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5197 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D2_LK1
5198#endif
5199 use pm_kind, only: LKG => LK1
5200 logical(LKG) , intent(out) , allocatable :: table(:,:)
5201 character(:, SK) , intent(out) , allocatable , optional :: header
5202 character(*, SK) , intent(in) :: file
5203 character(*, SK) , intent(in) , optional :: sep
5204 character(*, SK) , intent(inout) , optional :: iomsg
5205 type(trans_type) , intent(in) :: operation
5206 integer(IK) , intent(in) , optional :: roff
5207 integer(IK) :: err
5208 end function
5209#endif
5210
5211 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5212
5213#if CK5_ENABLED
5214 module function getErrTableReadFile_TO_D2_CK5(file, table, operation, header, sep, roff, iomsg) result(err)
5215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5216 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D2_CK5
5217#endif
5218 use pm_kind, only: CKG => CK5
5219 complex(CKG) , intent(out) , allocatable :: table(:,:)
5220 character(:, SK) , intent(out) , allocatable , optional :: header
5221 character(*, SK) , intent(in) :: file
5222 character(*, SK) , intent(in) , optional :: sep
5223 character(*, SK) , intent(inout) , optional :: iomsg
5224 type(trans_type) , intent(in) :: operation
5225 integer(IK) , intent(in) , optional :: roff
5226 integer(IK) :: err
5227 end function
5228#endif
5229
5230#if CK4_ENABLED
5231 module function getErrTableReadFile_TO_D2_CK4(file, table, operation, header, sep, roff, iomsg) result(err)
5232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5233 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D2_CK4
5234#endif
5235 use pm_kind, only: CKG => CK4
5236 complex(CKG) , intent(out) , allocatable :: table(:,:)
5237 character(:, SK) , intent(out) , allocatable , optional :: header
5238 character(*, SK) , intent(in) :: file
5239 character(*, SK) , intent(in) , optional :: sep
5240 character(*, SK) , intent(inout) , optional :: iomsg
5241 type(trans_type) , intent(in) :: operation
5242 integer(IK) , intent(in) , optional :: roff
5243 integer(IK) :: err
5244 end function
5245#endif
5246
5247#if CK3_ENABLED
5248 module function getErrTableReadFile_TO_D2_CK3(file, table, operation, header, sep, roff, iomsg) result(err)
5249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5250 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D2_CK3
5251#endif
5252 use pm_kind, only: CKG => CK3
5253 complex(CKG) , intent(out) , allocatable :: table(:,:)
5254 character(:, SK) , intent(out) , allocatable , optional :: header
5255 character(*, SK) , intent(in) :: file
5256 character(*, SK) , intent(in) , optional :: sep
5257 character(*, SK) , intent(inout) , optional :: iomsg
5258 type(trans_type) , intent(in) :: operation
5259 integer(IK) , intent(in) , optional :: roff
5260 integer(IK) :: err
5261 end function
5262#endif
5263
5264#if CK2_ENABLED
5265 module function getErrTableReadFile_TO_D2_CK2(file, table, operation, header, sep, roff, iomsg) result(err)
5266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5267 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D2_CK2
5268#endif
5269 use pm_kind, only: CKG => CK2
5270 complex(CKG) , intent(out) , allocatable :: table(:,:)
5271 character(:, SK) , intent(out) , allocatable , optional :: header
5272 character(*, SK) , intent(in) :: file
5273 character(*, SK) , intent(in) , optional :: sep
5274 character(*, SK) , intent(inout) , optional :: iomsg
5275 type(trans_type) , intent(in) :: operation
5276 integer(IK) , intent(in) , optional :: roff
5277 integer(IK) :: err
5278 end function
5279#endif
5280
5281#if CK1_ENABLED
5282 module function getErrTableReadFile_TO_D2_CK1(file, table, operation, header, sep, roff, iomsg) result(err)
5283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5284 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D2_CK1
5285#endif
5286 use pm_kind, only: CKG => CK1
5287 complex(CKG) , intent(out) , allocatable :: table(:,:)
5288 character(:, SK) , intent(out) , allocatable , optional :: header
5289 character(*, SK) , intent(in) :: file
5290 character(*, SK) , intent(in) , optional :: sep
5291 character(*, SK) , intent(inout) , optional :: iomsg
5292 type(trans_type) , intent(in) :: operation
5293 integer(IK) , intent(in) , optional :: roff
5294 integer(IK) :: err
5295 end function
5296#endif
5297
5298 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5299
5300#if RK5_ENABLED
5301 module function getErrTableReadFile_TO_D2_RK5(file, table, operation, header, sep, roff, iomsg) result(err)
5302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5303 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D2_RK5
5304#endif
5305 use pm_kind, only: RKG => RK5
5306 real(RKG) , intent(out) , allocatable :: table(:,:)
5307 character(:, SK) , intent(out) , allocatable , optional :: header
5308 character(*, SK) , intent(in) :: file
5309 character(*, SK) , intent(in) , optional :: sep
5310 character(*, SK) , intent(inout) , optional :: iomsg
5311 type(trans_type) , intent(in) :: operation
5312 integer(IK) , intent(in) , optional :: roff
5313 integer(IK) :: err
5314 end function
5315#endif
5316
5317#if RK4_ENABLED
5318 module function getErrTableReadFile_TO_D2_RK4(file, table, operation, header, sep, roff, iomsg) result(err)
5319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5320 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D2_RK4
5321#endif
5322 use pm_kind, only: RKG => RK4
5323 real(RKG) , intent(out) , allocatable :: table(:,:)
5324 character(:, SK) , intent(out) , allocatable , optional :: header
5325 character(*, SK) , intent(in) :: file
5326 character(*, SK) , intent(in) , optional :: sep
5327 character(*, SK) , intent(inout) , optional :: iomsg
5328 type(trans_type) , intent(in) :: operation
5329 integer(IK) , intent(in) , optional :: roff
5330 integer(IK) :: err
5331 end function
5332#endif
5333
5334#if RK3_ENABLED
5335 module function getErrTableReadFile_TO_D2_RK3(file, table, operation, header, sep, roff, iomsg) result(err)
5336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5337 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D2_RK3
5338#endif
5339 use pm_kind, only: RKG => RK3
5340 real(RKG) , intent(out) , allocatable :: table(:,:)
5341 character(:, SK) , intent(out) , allocatable , optional :: header
5342 character(*, SK) , intent(in) :: file
5343 character(*, SK) , intent(in) , optional :: sep
5344 character(*, SK) , intent(inout) , optional :: iomsg
5345 type(trans_type) , intent(in) :: operation
5346 integer(IK) , intent(in) , optional :: roff
5347 integer(IK) :: err
5348 end function
5349#endif
5350
5351#if RK2_ENABLED
5352 module function getErrTableReadFile_TO_D2_RK2(file, table, operation, header, sep, roff, iomsg) result(err)
5353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5354 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D2_RK2
5355#endif
5356 use pm_kind, only: RKG => RK2
5357 real(RKG) , intent(out) , allocatable :: table(:,:)
5358 character(:, SK) , intent(out) , allocatable , optional :: header
5359 character(*, SK) , intent(in) :: file
5360 character(*, SK) , intent(in) , optional :: sep
5361 character(*, SK) , intent(inout) , optional :: iomsg
5362 type(trans_type) , intent(in) :: operation
5363 integer(IK) , intent(in) , optional :: roff
5364 integer(IK) :: err
5365 end function
5366#endif
5367
5368#if RK1_ENABLED
5369 module function getErrTableReadFile_TO_D2_RK1(file, table, operation, header, sep, roff, iomsg) result(err)
5370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5371 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadFile_TO_D2_RK1
5372#endif
5373 use pm_kind, only: RKG => RK1
5374 real(RKG) , intent(out) , allocatable :: table(:,:)
5375 character(:, SK) , intent(out) , allocatable , optional :: header
5376 character(*, SK) , intent(in) :: file
5377 character(*, SK) , intent(in) , optional :: sep
5378 character(*, SK) , intent(inout) , optional :: iomsg
5379 type(trans_type) , intent(in) :: operation
5380 integer(IK) , intent(in) , optional :: roff
5381 integer(IK) :: err
5382 end function
5383#endif
5384
5385 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5386
5387 end interface
5388
5389 ! D2 unit TO
5390
5391 interface getErrTableRead
5392
5393 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5394
5395#if SK5_ENABLED
5396 module function getErrTableReadUnit_TO_D2_SK5(unit, table, operation, header, sep, roff, iomsg) result(err)
5397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5398 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D2_SK5
5399#endif
5400 use pm_kind, only: SKG => SK5
5401 character(*,SKG) , intent(out) , allocatable :: table(:,:)
5402 character(:, SK) , intent(out) , allocatable , optional :: header
5403 character(*, SK) , intent(in) , optional :: sep
5404 character(*, SK) , intent(inout) , optional :: iomsg
5405 type(trans_type) , intent(in) :: operation
5406 integer(IK) , intent(in) , optional :: roff
5407 integer(IK) , intent(in) :: unit
5408 integer(IK) :: err
5409 end function
5410#endif
5411
5412#if SK4_ENABLED
5413 module function getErrTableReadUnit_TO_D2_SK4(unit, table, operation, header, sep, roff, iomsg) result(err)
5414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5415 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D2_SK4
5416#endif
5417 use pm_kind, only: SKG => SK4
5418 character(*,SKG) , intent(out) , allocatable :: table(:,:)
5419 character(:, SK) , intent(out) , allocatable , optional :: header
5420 character(*, SK) , intent(in) , optional :: sep
5421 character(*, SK) , intent(inout) , optional :: iomsg
5422 type(trans_type) , intent(in) :: operation
5423 integer(IK) , intent(in) , optional :: roff
5424 integer(IK) , intent(in) :: unit
5425 integer(IK) :: err
5426 end function
5427#endif
5428
5429#if SK3_ENABLED
5430 module function getErrTableReadUnit_TO_D2_SK3(unit, table, operation, header, sep, roff, iomsg) result(err)
5431#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5432 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D2_SK3
5433#endif
5434 use pm_kind, only: SKG => SK3
5435 character(*,SKG) , intent(out) , allocatable :: table(:,:)
5436 character(:, SK) , intent(out) , allocatable , optional :: header
5437 character(*, SK) , intent(in) , optional :: sep
5438 character(*, SK) , intent(inout) , optional :: iomsg
5439 type(trans_type) , intent(in) :: operation
5440 integer(IK) , intent(in) , optional :: roff
5441 integer(IK) , intent(in) :: unit
5442 integer(IK) :: err
5443 end function
5444#endif
5445
5446#if SK2_ENABLED
5447 module function getErrTableReadUnit_TO_D2_SK2(unit, table, operation, header, sep, roff, iomsg) result(err)
5448#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5449 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D2_SK2
5450#endif
5451 use pm_kind, only: SKG => SK2
5452 character(*,SKG) , intent(out) , allocatable :: table(:,:)
5453 character(:, SK) , intent(out) , allocatable , optional :: header
5454 character(*, SK) , intent(in) , optional :: sep
5455 character(*, SK) , intent(inout) , optional :: iomsg
5456 type(trans_type) , intent(in) :: operation
5457 integer(IK) , intent(in) , optional :: roff
5458 integer(IK) , intent(in) :: unit
5459 integer(IK) :: err
5460 end function
5461#endif
5462
5463#if SK1_ENABLED
5464 module function getErrTableReadUnit_TO_D2_SK1(unit, table, operation, header, sep, roff, iomsg) result(err)
5465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5466 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D2_SK1
5467#endif
5468 use pm_kind, only: SKG => SK1
5469 character(*,SKG) , intent(out) , allocatable :: table(:,:)
5470 character(:, SK) , intent(out) , allocatable , optional :: header
5471 character(*, SK) , intent(in) , optional :: sep
5472 character(*, SK) , intent(inout) , optional :: iomsg
5473 type(trans_type) , intent(in) :: operation
5474 integer(IK) , intent(in) , optional :: roff
5475 integer(IK) , intent(in) :: unit
5476 integer(IK) :: err
5477 end function
5478#endif
5479
5480 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5481
5482#if IK5_ENABLED
5483 module function getErrTableReadUnit_TO_D2_IK5(unit, table, operation, header, sep, roff, iomsg) result(err)
5484#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5485 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D2_IK5
5486#endif
5487 use pm_kind, only: IKG => IK5
5488 integer(IKG) , intent(out) , allocatable :: table(:,:)
5489 character(:, SK) , intent(out) , allocatable , optional :: header
5490 character(*, SK) , intent(in) , optional :: sep
5491 character(*, SK) , intent(inout) , optional :: iomsg
5492 type(trans_type) , intent(in) :: operation
5493 integer(IK) , intent(in) , optional :: roff
5494 integer(IK) , intent(in) :: unit
5495 integer(IK) :: err
5496 end function
5497#endif
5498
5499#if IK4_ENABLED
5500 module function getErrTableReadUnit_TO_D2_IK4(unit, table, operation, header, sep, roff, iomsg) result(err)
5501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5502 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D2_IK4
5503#endif
5504 use pm_kind, only: IKG => IK4
5505 integer(IKG) , intent(out) , allocatable :: table(:,:)
5506 character(:, SK) , intent(out) , allocatable , optional :: header
5507 character(*, SK) , intent(in) , optional :: sep
5508 character(*, SK) , intent(inout) , optional :: iomsg
5509 type(trans_type) , intent(in) :: operation
5510 integer(IK) , intent(in) , optional :: roff
5511 integer(IK) , intent(in) :: unit
5512 integer(IK) :: err
5513 end function
5514#endif
5515
5516#if IK3_ENABLED
5517 module function getErrTableReadUnit_TO_D2_IK3(unit, table, operation, header, sep, roff, iomsg) result(err)
5518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5519 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D2_IK3
5520#endif
5521 use pm_kind, only: IKG => IK3
5522 integer(IKG) , intent(out) , allocatable :: table(:,:)
5523 character(:, SK) , intent(out) , allocatable , optional :: header
5524 character(*, SK) , intent(in) , optional :: sep
5525 character(*, SK) , intent(inout) , optional :: iomsg
5526 type(trans_type) , intent(in) :: operation
5527 integer(IK) , intent(in) , optional :: roff
5528 integer(IK) , intent(in) :: unit
5529 integer(IK) :: err
5530 end function
5531#endif
5532
5533#if IK2_ENABLED
5534 module function getErrTableReadUnit_TO_D2_IK2(unit, table, operation, header, sep, roff, iomsg) result(err)
5535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5536 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D2_IK2
5537#endif
5538 use pm_kind, only: IKG => IK2
5539 integer(IKG) , intent(out) , allocatable :: table(:,:)
5540 character(:, SK) , intent(out) , allocatable , optional :: header
5541 character(*, SK) , intent(in) , optional :: sep
5542 character(*, SK) , intent(inout) , optional :: iomsg
5543 type(trans_type) , intent(in) :: operation
5544 integer(IK) , intent(in) , optional :: roff
5545 integer(IK) , intent(in) :: unit
5546 integer(IK) :: err
5547 end function
5548#endif
5549
5550#if IK1_ENABLED
5551 module function getErrTableReadUnit_TO_D2_IK1(unit, table, operation, header, sep, roff, iomsg) result(err)
5552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5553 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D2_IK1
5554#endif
5555 use pm_kind, only: IKG => IK1
5556 integer(IKG) , intent(out) , allocatable :: table(:,:)
5557 character(:, SK) , intent(out) , allocatable , optional :: header
5558 character(*, SK) , intent(in) , optional :: sep
5559 character(*, SK) , intent(inout) , optional :: iomsg
5560 type(trans_type) , intent(in) :: operation
5561 integer(IK) , intent(in) , optional :: roff
5562 integer(IK) , intent(in) :: unit
5563 integer(IK) :: err
5564 end function
5565#endif
5566
5567 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5568
5569#if LK5_ENABLED
5570 module function getErrTableReadUnit_TO_D2_LK5(unit, table, operation, header, sep, roff, iomsg) result(err)
5571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5572 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D2_LK5
5573#endif
5574 use pm_kind, only: LKG => LK5
5575 logical(LKG) , intent(out) , allocatable :: table(:,:)
5576 character(:, SK) , intent(out) , allocatable , optional :: header
5577 character(*, SK) , intent(in) , optional :: sep
5578 character(*, SK) , intent(inout) , optional :: iomsg
5579 type(trans_type) , intent(in) :: operation
5580 integer(IK) , intent(in) , optional :: roff
5581 integer(IK) , intent(in) :: unit
5582 integer(IK) :: err
5583 end function
5584#endif
5585
5586#if LK4_ENABLED
5587 module function getErrTableReadUnit_TO_D2_LK4(unit, table, operation, header, sep, roff, iomsg) result(err)
5588#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5589 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D2_LK4
5590#endif
5591 use pm_kind, only: LKG => LK4
5592 logical(LKG) , intent(out) , allocatable :: table(:,:)
5593 character(:, SK) , intent(out) , allocatable , optional :: header
5594 character(*, SK) , intent(in) , optional :: sep
5595 character(*, SK) , intent(inout) , optional :: iomsg
5596 type(trans_type) , intent(in) :: operation
5597 integer(IK) , intent(in) , optional :: roff
5598 integer(IK) , intent(in) :: unit
5599 integer(IK) :: err
5600 end function
5601#endif
5602
5603#if LK3_ENABLED
5604 module function getErrTableReadUnit_TO_D2_LK3(unit, table, operation, header, sep, roff, iomsg) result(err)
5605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5606 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D2_LK3
5607#endif
5608 use pm_kind, only: LKG => LK3
5609 logical(LKG) , intent(out) , allocatable :: table(:,:)
5610 character(:, SK) , intent(out) , allocatable , optional :: header
5611 character(*, SK) , intent(in) , optional :: sep
5612 character(*, SK) , intent(inout) , optional :: iomsg
5613 type(trans_type) , intent(in) :: operation
5614 integer(IK) , intent(in) , optional :: roff
5615 integer(IK) , intent(in) :: unit
5616 integer(IK) :: err
5617 end function
5618#endif
5619
5620#if LK2_ENABLED
5621 module function getErrTableReadUnit_TO_D2_LK2(unit, table, operation, header, sep, roff, iomsg) result(err)
5622#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5623 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D2_LK2
5624#endif
5625 use pm_kind, only: LKG => LK2
5626 logical(LKG) , intent(out) , allocatable :: table(:,:)
5627 character(:, SK) , intent(out) , allocatable , optional :: header
5628 character(*, SK) , intent(in) , optional :: sep
5629 character(*, SK) , intent(inout) , optional :: iomsg
5630 type(trans_type) , intent(in) :: operation
5631 integer(IK) , intent(in) , optional :: roff
5632 integer(IK) , intent(in) :: unit
5633 integer(IK) :: err
5634 end function
5635#endif
5636
5637#if LK1_ENABLED
5638 module function getErrTableReadUnit_TO_D2_LK1(unit, table, operation, header, sep, roff, iomsg) result(err)
5639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5640 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D2_LK1
5641#endif
5642 use pm_kind, only: LKG => LK1
5643 logical(LKG) , intent(out) , allocatable :: table(:,:)
5644 character(:, SK) , intent(out) , allocatable , optional :: header
5645 character(*, SK) , intent(in) , optional :: sep
5646 character(*, SK) , intent(inout) , optional :: iomsg
5647 type(trans_type) , intent(in) :: operation
5648 integer(IK) , intent(in) , optional :: roff
5649 integer(IK) , intent(in) :: unit
5650 integer(IK) :: err
5651 end function
5652#endif
5653
5654 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5655
5656#if CK5_ENABLED
5657 module function getErrTableReadUnit_TO_D2_CK5(unit, table, operation, header, sep, roff, iomsg) result(err)
5658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5659 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D2_CK5
5660#endif
5661 use pm_kind, only: CKG => CK5
5662 complex(CKG) , intent(out) , allocatable :: table(:,:)
5663 character(:, SK) , intent(out) , allocatable , optional :: header
5664 character(*, SK) , intent(in) , optional :: sep
5665 character(*, SK) , intent(inout) , optional :: iomsg
5666 type(trans_type) , intent(in) :: operation
5667 integer(IK) , intent(in) , optional :: roff
5668 integer(IK) , intent(in) :: unit
5669 integer(IK) :: err
5670 end function
5671#endif
5672
5673#if CK4_ENABLED
5674 module function getErrTableReadUnit_TO_D2_CK4(unit, table, operation, header, sep, roff, iomsg) result(err)
5675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5676 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D2_CK4
5677#endif
5678 use pm_kind, only: CKG => CK4
5679 complex(CKG) , intent(out) , allocatable :: table(:,:)
5680 character(:, SK) , intent(out) , allocatable , optional :: header
5681 character(*, SK) , intent(in) , optional :: sep
5682 character(*, SK) , intent(inout) , optional :: iomsg
5683 type(trans_type) , intent(in) :: operation
5684 integer(IK) , intent(in) , optional :: roff
5685 integer(IK) , intent(in) :: unit
5686 integer(IK) :: err
5687 end function
5688#endif
5689
5690#if CK3_ENABLED
5691 module function getErrTableReadUnit_TO_D2_CK3(unit, table, operation, header, sep, roff, iomsg) result(err)
5692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5693 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D2_CK3
5694#endif
5695 use pm_kind, only: CKG => CK3
5696 complex(CKG) , intent(out) , allocatable :: table(:,:)
5697 character(:, SK) , intent(out) , allocatable , optional :: header
5698 character(*, SK) , intent(in) , optional :: sep
5699 character(*, SK) , intent(inout) , optional :: iomsg
5700 type(trans_type) , intent(in) :: operation
5701 integer(IK) , intent(in) , optional :: roff
5702 integer(IK) , intent(in) :: unit
5703 integer(IK) :: err
5704 end function
5705#endif
5706
5707#if CK2_ENABLED
5708 module function getErrTableReadUnit_TO_D2_CK2(unit, table, operation, header, sep, roff, iomsg) result(err)
5709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5710 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D2_CK2
5711#endif
5712 use pm_kind, only: CKG => CK2
5713 complex(CKG) , intent(out) , allocatable :: table(:,:)
5714 character(:, SK) , intent(out) , allocatable , optional :: header
5715 character(*, SK) , intent(in) , optional :: sep
5716 character(*, SK) , intent(inout) , optional :: iomsg
5717 type(trans_type) , intent(in) :: operation
5718 integer(IK) , intent(in) , optional :: roff
5719 integer(IK) , intent(in) :: unit
5720 integer(IK) :: err
5721 end function
5722#endif
5723
5724#if CK1_ENABLED
5725 module function getErrTableReadUnit_TO_D2_CK1(unit, table, operation, header, sep, roff, iomsg) result(err)
5726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5727 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D2_CK1
5728#endif
5729 use pm_kind, only: CKG => CK1
5730 complex(CKG) , intent(out) , allocatable :: table(:,:)
5731 character(:, SK) , intent(out) , allocatable , optional :: header
5732 character(*, SK) , intent(in) , optional :: sep
5733 character(*, SK) , intent(inout) , optional :: iomsg
5734 type(trans_type) , intent(in) :: operation
5735 integer(IK) , intent(in) , optional :: roff
5736 integer(IK) , intent(in) :: unit
5737 integer(IK) :: err
5738 end function
5739#endif
5740
5741 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5742
5743#if RK5_ENABLED
5744 module function getErrTableReadUnit_TO_D2_RK5(unit, table, operation, header, sep, roff, iomsg) result(err)
5745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5746 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D2_RK5
5747#endif
5748 use pm_kind, only: RKG => RK5
5749 real(RKG) , intent(out) , allocatable :: table(:,:)
5750 character(:, SK) , intent(out) , allocatable , optional :: header
5751 character(*, SK) , intent(in) , optional :: sep
5752 character(*, SK) , intent(inout) , optional :: iomsg
5753 type(trans_type) , intent(in) :: operation
5754 integer(IK) , intent(in) , optional :: roff
5755 integer(IK) , intent(in) :: unit
5756 integer(IK) :: err
5757 end function
5758#endif
5759
5760#if RK4_ENABLED
5761 module function getErrTableReadUnit_TO_D2_RK4(unit, table, operation, header, sep, roff, iomsg) result(err)
5762#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5763 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D2_RK4
5764#endif
5765 use pm_kind, only: RKG => RK4
5766 real(RKG) , intent(out) , allocatable :: table(:,:)
5767 character(:, SK) , intent(out) , allocatable , optional :: header
5768 character(*, SK) , intent(in) , optional :: sep
5769 character(*, SK) , intent(inout) , optional :: iomsg
5770 type(trans_type) , intent(in) :: operation
5771 integer(IK) , intent(in) , optional :: roff
5772 integer(IK) , intent(in) :: unit
5773 integer(IK) :: err
5774 end function
5775#endif
5776
5777#if RK3_ENABLED
5778 module function getErrTableReadUnit_TO_D2_RK3(unit, table, operation, header, sep, roff, iomsg) result(err)
5779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5780 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D2_RK3
5781#endif
5782 use pm_kind, only: RKG => RK3
5783 real(RKG) , intent(out) , allocatable :: table(:,:)
5784 character(:, SK) , intent(out) , allocatable , optional :: header
5785 character(*, SK) , intent(in) , optional :: sep
5786 character(*, SK) , intent(inout) , optional :: iomsg
5787 type(trans_type) , intent(in) :: operation
5788 integer(IK) , intent(in) , optional :: roff
5789 integer(IK) , intent(in) :: unit
5790 integer(IK) :: err
5791 end function
5792#endif
5793
5794#if RK2_ENABLED
5795 module function getErrTableReadUnit_TO_D2_RK2(unit, table, operation, header, sep, roff, iomsg) result(err)
5796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5797 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D2_RK2
5798#endif
5799 use pm_kind, only: RKG => RK2
5800 real(RKG) , intent(out) , allocatable :: table(:,:)
5801 character(:, SK) , intent(out) , allocatable , optional :: header
5802 character(*, SK) , intent(in) , optional :: sep
5803 character(*, SK) , intent(inout) , optional :: iomsg
5804 type(trans_type) , intent(in) :: operation
5805 integer(IK) , intent(in) , optional :: roff
5806 integer(IK) , intent(in) :: unit
5807 integer(IK) :: err
5808 end function
5809#endif
5810
5811#if RK1_ENABLED
5812 module function getErrTableReadUnit_TO_D2_RK1(unit, table, operation, header, sep, roff, iomsg) result(err)
5813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5814 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableReadUnit_TO_D2_RK1
5815#endif
5816 use pm_kind, only: RKG => RK1
5817 real(RKG) , intent(out) , allocatable :: table(:,:)
5818 character(:, SK) , intent(out) , allocatable , optional :: header
5819 character(*, SK) , intent(in) , optional :: sep
5820 character(*, SK) , intent(inout) , optional :: iomsg
5821 type(trans_type) , intent(in) :: operation
5822 integer(IK) , intent(in) , optional :: roff
5823 integer(IK) , intent(in) :: unit
5824 integer(IK) :: err
5825 end function
5826#endif
5827
5828 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5829
5830 end interface
5831
5832!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5833
5937
5938 ! D1 file NO
5939
5941
5942 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5943
5944#if SK5_ENABLED
5945 module function getErrTableWriteFile_NO_D1_SK5(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
5946#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5947 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_SK5
5948#endif
5949 use pm_kind, only: SKG => SK5
5950 character(*,SKG) , intent(in) , contiguous :: table(:)
5951 character(*, SK) , intent(in) , optional :: file, header, sep
5952 character(*, SK) , intent(in) , optional :: deliml, delimr
5953 character(*, SK) , intent(inout) , optional :: iomsg
5954 integer(IK) , intent(in) , optional :: roff
5955 integer(IK) :: err
5956 end function
5957#endif
5958
5959#if SK4_ENABLED
5960 module function getErrTableWriteFile_NO_D1_SK4(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
5961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5962 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_SK4
5963#endif
5964 use pm_kind, only: SKG => SK4
5965 character(*,SKG) , intent(in) , contiguous :: table(:)
5966 character(*, SK) , intent(in) , optional :: file, header, sep
5967 character(*, SK) , intent(in) , optional :: deliml, delimr
5968 character(*, SK) , intent(inout) , optional :: iomsg
5969 integer(IK) , intent(in) , optional :: roff
5970 integer(IK) :: err
5971 end function
5972#endif
5973
5974#if SK3_ENABLED
5975 module function getErrTableWriteFile_NO_D1_SK3(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
5976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5977 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_SK3
5978#endif
5979 use pm_kind, only: SKG => SK3
5980 character(*,SKG) , intent(in) , contiguous :: table(:)
5981 character(*, SK) , intent(in) , optional :: file, header, sep
5982 character(*, SK) , intent(in) , optional :: deliml, delimr
5983 character(*, SK) , intent(inout) , optional :: iomsg
5984 integer(IK) , intent(in) , optional :: roff
5985 integer(IK) :: err
5986 end function
5987#endif
5988
5989#if SK2_ENABLED
5990 module function getErrTableWriteFile_NO_D1_SK2(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
5991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5992 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_SK2
5993#endif
5994 use pm_kind, only: SKG => SK2
5995 character(*,SKG) , intent(in) , contiguous :: table(:)
5996 character(*, SK) , intent(in) , optional :: file, header, sep
5997 character(*, SK) , intent(in) , optional :: deliml, delimr
5998 character(*, SK) , intent(inout) , optional :: iomsg
5999 integer(IK) , intent(in) , optional :: roff
6000 integer(IK) :: err
6001 end function
6002#endif
6003
6004#if SK1_ENABLED
6005 module function getErrTableWriteFile_NO_D1_SK1(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6006#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6007 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_SK1
6008#endif
6009 use pm_kind, only: SKG => SK1
6010 character(*,SKG) , intent(in) , contiguous :: table(:)
6011 character(*, SK) , intent(in) , optional :: file, header, sep
6012 character(*, SK) , intent(in) , optional :: deliml, delimr
6013 character(*, SK) , intent(inout) , optional :: iomsg
6014 integer(IK) , intent(in) , optional :: roff
6015 integer(IK) :: err
6016 end function
6017#endif
6018
6019 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6020
6021#if IK5_ENABLED
6022 module function getErrTableWriteFile_NO_D1_IK5(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6023#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6024 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_IK5
6025#endif
6026 use pm_kind, only: IKG => IK5
6027 integer(IKG) , intent(in) , contiguous :: table(:)
6028 character(*, SK) , intent(in) , optional :: file, header, sep
6029 character(*, SK) , intent(in) , optional :: deliml, delimr
6030 character(*, SK) , intent(inout) , optional :: iomsg
6031 integer(IK) , intent(in) , optional :: roff
6032 integer(IK) :: err
6033 end function
6034#endif
6035
6036#if IK4_ENABLED
6037 module function getErrTableWriteFile_NO_D1_IK4(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6039 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_IK4
6040#endif
6041 use pm_kind, only: IKG => IK4
6042 integer(IKG) , intent(in) , contiguous :: table(:)
6043 character(*, SK) , intent(in) , optional :: file, header, sep
6044 character(*, SK) , intent(in) , optional :: deliml, delimr
6045 character(*, SK) , intent(inout) , optional :: iomsg
6046 integer(IK) , intent(in) , optional :: roff
6047 integer(IK) :: err
6048 end function
6049#endif
6050
6051#if IK3_ENABLED
6052 module function getErrTableWriteFile_NO_D1_IK3(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6054 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_IK3
6055#endif
6056 use pm_kind, only: IKG => IK3
6057 integer(IKG) , intent(in) , contiguous :: table(:)
6058 character(*, SK) , intent(in) , optional :: file, header, sep
6059 character(*, SK) , intent(in) , optional :: deliml, delimr
6060 character(*, SK) , intent(inout) , optional :: iomsg
6061 integer(IK) , intent(in) , optional :: roff
6062 integer(IK) :: err
6063 end function
6064#endif
6065
6066#if IK2_ENABLED
6067 module function getErrTableWriteFile_NO_D1_IK2(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6068#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6069 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_IK2
6070#endif
6071 use pm_kind, only: IKG => IK2
6072 integer(IKG) , intent(in) , contiguous :: table(:)
6073 character(*, SK) , intent(in) , optional :: file, header, sep
6074 character(*, SK) , intent(in) , optional :: deliml, delimr
6075 character(*, SK) , intent(inout) , optional :: iomsg
6076 integer(IK) , intent(in) , optional :: roff
6077 integer(IK) :: err
6078 end function
6079#endif
6080
6081#if IK1_ENABLED
6082 module function getErrTableWriteFile_NO_D1_IK1(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6084 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_IK1
6085#endif
6086 use pm_kind, only: IKG => IK1
6087 integer(IKG) , intent(in) , contiguous :: table(:)
6088 character(*, SK) , intent(in) , optional :: file, header, sep
6089 character(*, SK) , intent(in) , optional :: deliml, delimr
6090 character(*, SK) , intent(inout) , optional :: iomsg
6091 integer(IK) , intent(in) , optional :: roff
6092 integer(IK) :: err
6093 end function
6094#endif
6095
6096 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6097
6098#if LK5_ENABLED
6099 module function getErrTableWriteFile_NO_D1_LK5(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6100#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6101 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_LK5
6102#endif
6103 use pm_kind, only: LKG => LK5
6104 logical(LKG) , intent(in) , contiguous :: table(:)
6105 character(*, SK) , intent(in) , optional :: file, header, sep
6106 character(*, SK) , intent(in) , optional :: deliml, delimr
6107 character(*, SK) , intent(inout) , optional :: iomsg
6108 integer(IK) , intent(in) , optional :: roff
6109 integer(IK) :: err
6110 end function
6111#endif
6112
6113#if LK4_ENABLED
6114 module function getErrTableWriteFile_NO_D1_LK4(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6116 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_LK4
6117#endif
6118 use pm_kind, only: LKG => LK4
6119 logical(LKG) , intent(in) , contiguous :: table(:)
6120 character(*, SK) , intent(in) , optional :: file, header, sep
6121 character(*, SK) , intent(in) , optional :: deliml, delimr
6122 character(*, SK) , intent(inout) , optional :: iomsg
6123 integer(IK) , intent(in) , optional :: roff
6124 integer(IK) :: err
6125 end function
6126#endif
6127
6128#if LK3_ENABLED
6129 module function getErrTableWriteFile_NO_D1_LK3(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6130#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6131 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_LK3
6132#endif
6133 use pm_kind, only: LKG => LK3
6134 logical(LKG) , intent(in) , contiguous :: table(:)
6135 character(*, SK) , intent(in) , optional :: file, header, sep
6136 character(*, SK) , intent(in) , optional :: deliml, delimr
6137 character(*, SK) , intent(inout) , optional :: iomsg
6138 integer(IK) , intent(in) , optional :: roff
6139 integer(IK) :: err
6140 end function
6141#endif
6142
6143#if LK2_ENABLED
6144 module function getErrTableWriteFile_NO_D1_LK2(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6145#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6146 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_LK2
6147#endif
6148 use pm_kind, only: LKG => LK2
6149 logical(LKG) , intent(in) , contiguous :: table(:)
6150 character(*, SK) , intent(in) , optional :: file, header, sep
6151 character(*, SK) , intent(in) , optional :: deliml, delimr
6152 character(*, SK) , intent(inout) , optional :: iomsg
6153 integer(IK) , intent(in) , optional :: roff
6154 integer(IK) :: err
6155 end function
6156#endif
6157
6158#if LK1_ENABLED
6159 module function getErrTableWriteFile_NO_D1_LK1(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6160#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6161 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_LK1
6162#endif
6163 use pm_kind, only: LKG => LK1
6164 logical(LKG) , intent(in) , contiguous :: table(:)
6165 character(*, SK) , intent(in) , optional :: file, header, sep
6166 character(*, SK) , intent(in) , optional :: deliml, delimr
6167 character(*, SK) , intent(inout) , optional :: iomsg
6168 integer(IK) , intent(in) , optional :: roff
6169 integer(IK) :: err
6170 end function
6171#endif
6172
6173 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6174
6175#if CK5_ENABLED
6176 module function getErrTableWriteFile_NO_D1_CK5(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6178 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_CK5
6179#endif
6180 use pm_kind, only: CKG => CK5
6181 complex(CKG) , intent(in) , contiguous :: table(:)
6182 character(*, SK) , intent(in) , optional :: file, header, sep
6183 character(*, SK) , intent(in) , optional :: deliml, delimr
6184 character(*, SK) , intent(inout) , optional :: iomsg
6185 integer(IK) , intent(in) , optional :: roff
6186 integer(IK) :: err
6187 end function
6188#endif
6189
6190#if CK4_ENABLED
6191 module function getErrTableWriteFile_NO_D1_CK4(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6192#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6193 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_CK4
6194#endif
6195 use pm_kind, only: CKG => CK4
6196 complex(CKG) , intent(in) , contiguous :: table(:)
6197 character(*, SK) , intent(in) , optional :: file, header, sep
6198 character(*, SK) , intent(in) , optional :: deliml, delimr
6199 character(*, SK) , intent(inout) , optional :: iomsg
6200 integer(IK) , intent(in) , optional :: roff
6201 integer(IK) :: err
6202 end function
6203#endif
6204
6205#if CK3_ENABLED
6206 module function getErrTableWriteFile_NO_D1_CK3(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6208 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_CK3
6209#endif
6210 use pm_kind, only: CKG => CK3
6211 complex(CKG) , intent(in) , contiguous :: table(:)
6212 character(*, SK) , intent(in) , optional :: file, header, sep
6213 character(*, SK) , intent(in) , optional :: deliml, delimr
6214 character(*, SK) , intent(inout) , optional :: iomsg
6215 integer(IK) , intent(in) , optional :: roff
6216 integer(IK) :: err
6217 end function
6218#endif
6219
6220#if CK2_ENABLED
6221 module function getErrTableWriteFile_NO_D1_CK2(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6222#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6223 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_CK2
6224#endif
6225 use pm_kind, only: CKG => CK2
6226 complex(CKG) , intent(in) , contiguous :: table(:)
6227 character(*, SK) , intent(in) , optional :: file, header, sep
6228 character(*, SK) , intent(in) , optional :: deliml, delimr
6229 character(*, SK) , intent(inout) , optional :: iomsg
6230 integer(IK) , intent(in) , optional :: roff
6231 integer(IK) :: err
6232 end function
6233#endif
6234
6235#if CK1_ENABLED
6236 module function getErrTableWriteFile_NO_D1_CK1(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6238 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_CK1
6239#endif
6240 use pm_kind, only: CKG => CK1
6241 complex(CKG) , intent(in) , contiguous :: table(:)
6242 character(*, SK) , intent(in) , optional :: file, header, sep
6243 character(*, SK) , intent(in) , optional :: deliml, delimr
6244 character(*, SK) , intent(inout) , optional :: iomsg
6245 integer(IK) , intent(in) , optional :: roff
6246 integer(IK) :: err
6247 end function
6248#endif
6249
6250 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6251
6252#if RK5_ENABLED
6253 module function getErrTableWriteFile_NO_D1_RK5(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6255 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_RK5
6256#endif
6257 use pm_kind, only: RKG => RK5
6258 real(RKG) , intent(in) , contiguous :: table(:)
6259 character(*, SK) , intent(in) , optional :: file, header, sep
6260 character(*, SK) , intent(in) , optional :: deliml, delimr
6261 character(*, SK) , intent(inout) , optional :: iomsg
6262 integer(IK) , intent(in) , optional :: roff
6263 integer(IK) :: err
6264 end function
6265#endif
6266
6267#if RK4_ENABLED
6268 module function getErrTableWriteFile_NO_D1_RK4(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6270 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_RK4
6271#endif
6272 use pm_kind, only: RKG => RK4
6273 real(RKG) , intent(in) , contiguous :: table(:)
6274 character(*, SK) , intent(in) , optional :: file, header, sep
6275 character(*, SK) , intent(in) , optional :: deliml, delimr
6276 character(*, SK) , intent(inout) , optional :: iomsg
6277 integer(IK) , intent(in) , optional :: roff
6278 integer(IK) :: err
6279 end function
6280#endif
6281
6282#if RK3_ENABLED
6283 module function getErrTableWriteFile_NO_D1_RK3(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6284#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6285 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_RK3
6286#endif
6287 use pm_kind, only: RKG => RK3
6288 real(RKG) , intent(in) , contiguous :: table(:)
6289 character(*, SK) , intent(in) , optional :: file, header, sep
6290 character(*, SK) , intent(in) , optional :: deliml, delimr
6291 character(*, SK) , intent(inout) , optional :: iomsg
6292 integer(IK) , intent(in) , optional :: roff
6293 integer(IK) :: err
6294 end function
6295#endif
6296
6297#if RK2_ENABLED
6298 module function getErrTableWriteFile_NO_D1_RK2(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6300 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_RK2
6301#endif
6302 use pm_kind, only: RKG => RK2
6303 real(RKG) , intent(in) , contiguous :: table(:)
6304 character(*, SK) , intent(in) , optional :: file, header, sep
6305 character(*, SK) , intent(in) , optional :: deliml, delimr
6306 character(*, SK) , intent(inout) , optional :: iomsg
6307 integer(IK) , intent(in) , optional :: roff
6308 integer(IK) :: err
6309 end function
6310#endif
6311
6312#if RK1_ENABLED
6313 module function getErrTableWriteFile_NO_D1_RK1(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6314#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6315 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_RK1
6316#endif
6317 use pm_kind, only: RKG => RK1
6318 real(RKG) , intent(in) , contiguous :: table(:)
6319 character(*, SK) , intent(in) , optional :: file, header, sep
6320 character(*, SK) , intent(in) , optional :: deliml, delimr
6321 character(*, SK) , intent(inout) , optional :: iomsg
6322 integer(IK) , intent(in) , optional :: roff
6323 integer(IK) :: err
6324 end function
6325#endif
6326
6327 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6328
6329 end interface
6330
6331 ! D1 unit NO
6332
6333 interface getErrTableWrite
6334
6335 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6336
6337#if SK5_ENABLED
6338 module function getErrTableWriteUnit_NO_D1_SK5(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6340 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_SK5
6341#endif
6342 use pm_kind, only: SKG => SK5
6343 character(*,SKG) , intent(in) , contiguous :: table(:)
6344 character(*, SK) , intent(in) , optional :: header, sep
6345 character(*, SK) , intent(in) , optional :: deliml, delimr
6346 character(*, SK) , intent(inout) , optional :: iomsg
6347 integer(IK) , intent(in) , optional :: roff
6348 integer(IK) , intent(in) :: unit
6349 integer(IK) :: err
6350 end function
6351#endif
6352
6353#if SK4_ENABLED
6354 module function getErrTableWriteUnit_NO_D1_SK4(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6356 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_SK4
6357#endif
6358 use pm_kind, only: SKG => SK4
6359 character(*,SKG) , intent(in) , contiguous :: table(:)
6360 character(*, SK) , intent(in) , optional :: header, sep
6361 character(*, SK) , intent(in) , optional :: deliml, delimr
6362 character(*, SK) , intent(inout) , optional :: iomsg
6363 integer(IK) , intent(in) , optional :: roff
6364 integer(IK) , intent(in) :: unit
6365 integer(IK) :: err
6366 end function
6367#endif
6368
6369#if SK3_ENABLED
6370 module function getErrTableWriteUnit_NO_D1_SK3(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6372 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_SK3
6373#endif
6374 use pm_kind, only: SKG => SK3
6375 character(*,SKG) , intent(in) , contiguous :: table(:)
6376 character(*, SK) , intent(in) , optional :: header, sep
6377 character(*, SK) , intent(in) , optional :: deliml, delimr
6378 character(*, SK) , intent(inout) , optional :: iomsg
6379 integer(IK) , intent(in) , optional :: roff
6380 integer(IK) , intent(in) :: unit
6381 integer(IK) :: err
6382 end function
6383#endif
6384
6385#if SK2_ENABLED
6386 module function getErrTableWriteUnit_NO_D1_SK2(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6387#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6388 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_SK2
6389#endif
6390 use pm_kind, only: SKG => SK2
6391 character(*,SKG) , intent(in) , contiguous :: table(:)
6392 character(*, SK) , intent(in) , optional :: header, sep
6393 character(*, SK) , intent(in) , optional :: deliml, delimr
6394 character(*, SK) , intent(inout) , optional :: iomsg
6395 integer(IK) , intent(in) , optional :: roff
6396 integer(IK) , intent(in) :: unit
6397 integer(IK) :: err
6398 end function
6399#endif
6400
6401#if SK1_ENABLED
6402 module function getErrTableWriteUnit_NO_D1_SK1(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6404 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_SK1
6405#endif
6406 use pm_kind, only: SKG => SK1
6407 character(*,SKG) , intent(in) , contiguous :: table(:)
6408 character(*, SK) , intent(in) , optional :: header, sep
6409 character(*, SK) , intent(in) , optional :: deliml, delimr
6410 character(*, SK) , intent(inout) , optional :: iomsg
6411 integer(IK) , intent(in) , optional :: roff
6412 integer(IK) , intent(in) :: unit
6413 integer(IK) :: err
6414 end function
6415#endif
6416
6417 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6418
6419#if IK5_ENABLED
6420 module function getErrTableWriteUnit_NO_D1_IK5(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6422 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_IK5
6423#endif
6424 use pm_kind, only: IKG => IK5
6425 integer(IKG) , intent(in) , contiguous :: table(:)
6426 character(*, SK) , intent(in) , optional :: header, sep
6427 character(*, SK) , intent(in) , optional :: deliml, delimr
6428 character(*, SK) , intent(inout) , optional :: iomsg
6429 integer(IK) , intent(in) , optional :: roff
6430 integer(IK) , intent(in) :: unit
6431 integer(IK) :: err
6432 end function
6433#endif
6434
6435#if IK4_ENABLED
6436 module function getErrTableWriteUnit_NO_D1_IK4(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6438 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_IK4
6439#endif
6440 use pm_kind, only: IKG => IK4
6441 integer(IKG) , intent(in) , contiguous :: table(:)
6442 character(*, SK) , intent(in) , optional :: header, sep
6443 character(*, SK) , intent(in) , optional :: deliml, delimr
6444 character(*, SK) , intent(inout) , optional :: iomsg
6445 integer(IK) , intent(in) , optional :: roff
6446 integer(IK) , intent(in) :: unit
6447 integer(IK) :: err
6448 end function
6449#endif
6450
6451#if IK3_ENABLED
6452 module function getErrTableWriteUnit_NO_D1_IK3(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6454 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_IK3
6455#endif
6456 use pm_kind, only: IKG => IK3
6457 integer(IKG) , intent(in) , contiguous :: table(:)
6458 character(*, SK) , intent(in) , optional :: header, sep
6459 character(*, SK) , intent(in) , optional :: deliml, delimr
6460 character(*, SK) , intent(inout) , optional :: iomsg
6461 integer(IK) , intent(in) , optional :: roff
6462 integer(IK) , intent(in) :: unit
6463 integer(IK) :: err
6464 end function
6465#endif
6466
6467#if IK2_ENABLED
6468 module function getErrTableWriteUnit_NO_D1_IK2(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6470 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_IK2
6471#endif
6472 use pm_kind, only: IKG => IK2
6473 integer(IKG) , intent(in) , contiguous :: table(:)
6474 character(*, SK) , intent(in) , optional :: header, sep
6475 character(*, SK) , intent(in) , optional :: deliml, delimr
6476 character(*, SK) , intent(inout) , optional :: iomsg
6477 integer(IK) , intent(in) , optional :: roff
6478 integer(IK) , intent(in) :: unit
6479 integer(IK) :: err
6480 end function
6481#endif
6482
6483#if IK1_ENABLED
6484 module function getErrTableWriteUnit_NO_D1_IK1(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6486 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_IK1
6487#endif
6488 use pm_kind, only: IKG => IK1
6489 integer(IKG) , intent(in) , contiguous :: table(:)
6490 character(*, SK) , intent(in) , optional :: header, sep
6491 character(*, SK) , intent(in) , optional :: deliml, delimr
6492 character(*, SK) , intent(inout) , optional :: iomsg
6493 integer(IK) , intent(in) , optional :: roff
6494 integer(IK) , intent(in) :: unit
6495 integer(IK) :: err
6496 end function
6497#endif
6498
6499 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6500
6501#if LK5_ENABLED
6502 module function getErrTableWriteUnit_NO_D1_LK5(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6504 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_LK5
6505#endif
6506 use pm_kind, only: LKG => LK5
6507 logical(LKG) , intent(in) , contiguous :: table(:)
6508 character(*, SK) , intent(in) , optional :: header, sep
6509 character(*, SK) , intent(in) , optional :: deliml, delimr
6510 character(*, SK) , intent(inout) , optional :: iomsg
6511 integer(IK) , intent(in) , optional :: roff
6512 integer(IK) , intent(in) :: unit
6513 integer(IK) :: err
6514 end function
6515#endif
6516
6517#if LK4_ENABLED
6518 module function getErrTableWriteUnit_NO_D1_LK4(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6520 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_LK4
6521#endif
6522 use pm_kind, only: LKG => LK4
6523 logical(LKG) , intent(in) , contiguous :: table(:)
6524 character(*, SK) , intent(in) , optional :: header, sep
6525 character(*, SK) , intent(in) , optional :: deliml, delimr
6526 character(*, SK) , intent(inout) , optional :: iomsg
6527 integer(IK) , intent(in) , optional :: roff
6528 integer(IK) , intent(in) :: unit
6529 integer(IK) :: err
6530 end function
6531#endif
6532
6533#if LK3_ENABLED
6534 module function getErrTableWriteUnit_NO_D1_LK3(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6536 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_LK3
6537#endif
6538 use pm_kind, only: LKG => LK3
6539 logical(LKG) , intent(in) , contiguous :: table(:)
6540 character(*, SK) , intent(in) , optional :: header, sep
6541 character(*, SK) , intent(in) , optional :: deliml, delimr
6542 character(*, SK) , intent(inout) , optional :: iomsg
6543 integer(IK) , intent(in) , optional :: roff
6544 integer(IK) , intent(in) :: unit
6545 integer(IK) :: err
6546 end function
6547#endif
6548
6549#if LK2_ENABLED
6550 module function getErrTableWriteUnit_NO_D1_LK2(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6552 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_LK2
6553#endif
6554 use pm_kind, only: LKG => LK2
6555 logical(LKG) , intent(in) , contiguous :: table(:)
6556 character(*, SK) , intent(in) , optional :: header, sep
6557 character(*, SK) , intent(in) , optional :: deliml, delimr
6558 character(*, SK) , intent(inout) , optional :: iomsg
6559 integer(IK) , intent(in) , optional :: roff
6560 integer(IK) , intent(in) :: unit
6561 integer(IK) :: err
6562 end function
6563#endif
6564
6565#if LK1_ENABLED
6566 module function getErrTableWriteUnit_NO_D1_LK1(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6568 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_LK1
6569#endif
6570 use pm_kind, only: LKG => LK1
6571 logical(LKG) , intent(in) , contiguous :: table(:)
6572 character(*, SK) , intent(in) , optional :: header, sep
6573 character(*, SK) , intent(in) , optional :: deliml, delimr
6574 character(*, SK) , intent(inout) , optional :: iomsg
6575 integer(IK) , intent(in) , optional :: roff
6576 integer(IK) , intent(in) :: unit
6577 integer(IK) :: err
6578 end function
6579#endif
6580
6581 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6582
6583#if CK5_ENABLED
6584 module function getErrTableWriteUnit_NO_D1_CK5(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6585#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6586 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_CK5
6587#endif
6588 use pm_kind, only: CKG => CK5
6589 complex(CKG) , intent(in) , contiguous :: table(:)
6590 character(*, SK) , intent(in) , optional :: header, sep
6591 character(*, SK) , intent(in) , optional :: deliml, delimr
6592 character(*, SK) , intent(inout) , optional :: iomsg
6593 integer(IK) , intent(in) , optional :: roff
6594 integer(IK) , intent(in) :: unit
6595 integer(IK) :: err
6596 end function
6597#endif
6598
6599#if CK4_ENABLED
6600 module function getErrTableWriteUnit_NO_D1_CK4(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6602 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_CK4
6603#endif
6604 use pm_kind, only: CKG => CK4
6605 complex(CKG) , intent(in) , contiguous :: table(:)
6606 character(*, SK) , intent(in) , optional :: header, sep
6607 character(*, SK) , intent(in) , optional :: deliml, delimr
6608 character(*, SK) , intent(inout) , optional :: iomsg
6609 integer(IK) , intent(in) , optional :: roff
6610 integer(IK) , intent(in) :: unit
6611 integer(IK) :: err
6612 end function
6613#endif
6614
6615#if CK3_ENABLED
6616 module function getErrTableWriteUnit_NO_D1_CK3(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6618 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_CK3
6619#endif
6620 use pm_kind, only: CKG => CK3
6621 complex(CKG) , intent(in) , contiguous :: table(:)
6622 character(*, SK) , intent(in) , optional :: header, sep
6623 character(*, SK) , intent(in) , optional :: deliml, delimr
6624 character(*, SK) , intent(inout) , optional :: iomsg
6625 integer(IK) , intent(in) , optional :: roff
6626 integer(IK) , intent(in) :: unit
6627 integer(IK) :: err
6628 end function
6629#endif
6630
6631#if CK2_ENABLED
6632 module function getErrTableWriteUnit_NO_D1_CK2(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6634 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_CK2
6635#endif
6636 use pm_kind, only: CKG => CK2
6637 complex(CKG) , intent(in) , contiguous :: table(:)
6638 character(*, SK) , intent(in) , optional :: header, sep
6639 character(*, SK) , intent(in) , optional :: deliml, delimr
6640 character(*, SK) , intent(inout) , optional :: iomsg
6641 integer(IK) , intent(in) , optional :: roff
6642 integer(IK) , intent(in) :: unit
6643 integer(IK) :: err
6644 end function
6645#endif
6646
6647#if CK1_ENABLED
6648 module function getErrTableWriteUnit_NO_D1_CK1(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6650 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_CK1
6651#endif
6652 use pm_kind, only: CKG => CK1
6653 complex(CKG) , intent(in) , contiguous :: table(:)
6654 character(*, SK) , intent(in) , optional :: header, sep
6655 character(*, SK) , intent(in) , optional :: deliml, delimr
6656 character(*, SK) , intent(inout) , optional :: iomsg
6657 integer(IK) , intent(in) , optional :: roff
6658 integer(IK) , intent(in) :: unit
6659 integer(IK) :: err
6660 end function
6661#endif
6662
6663 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6664
6665#if RK5_ENABLED
6666 module function getErrTableWriteUnit_NO_D1_RK5(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6668 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_RK5
6669#endif
6670 use pm_kind, only: RKG => RK5
6671 real(RKG) , intent(in) , contiguous :: table(:)
6672 character(*, SK) , intent(in) , optional :: header, sep
6673 character(*, SK) , intent(in) , optional :: deliml, delimr
6674 character(*, SK) , intent(inout) , optional :: iomsg
6675 integer(IK) , intent(in) , optional :: roff
6676 integer(IK) , intent(in) :: unit
6677 integer(IK) :: err
6678 end function
6679#endif
6680
6681#if RK4_ENABLED
6682 module function getErrTableWriteUnit_NO_D1_RK4(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6683#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6684 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_RK4
6685#endif
6686 use pm_kind, only: RKG => RK4
6687 real(RKG) , intent(in) , contiguous :: table(:)
6688 character(*, SK) , intent(in) , optional :: header, sep
6689 character(*, SK) , intent(in) , optional :: deliml, delimr
6690 character(*, SK) , intent(inout) , optional :: iomsg
6691 integer(IK) , intent(in) , optional :: roff
6692 integer(IK) , intent(in) :: unit
6693 integer(IK) :: err
6694 end function
6695#endif
6696
6697#if RK3_ENABLED
6698 module function getErrTableWriteUnit_NO_D1_RK3(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6700 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_RK3
6701#endif
6702 use pm_kind, only: RKG => RK3
6703 real(RKG) , intent(in) , contiguous :: table(:)
6704 character(*, SK) , intent(in) , optional :: header, sep
6705 character(*, SK) , intent(in) , optional :: deliml, delimr
6706 character(*, SK) , intent(inout) , optional :: iomsg
6707 integer(IK) , intent(in) , optional :: roff
6708 integer(IK) , intent(in) :: unit
6709 integer(IK) :: err
6710 end function
6711#endif
6712
6713#if RK2_ENABLED
6714 module function getErrTableWriteUnit_NO_D1_RK2(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6716 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_RK2
6717#endif
6718 use pm_kind, only: RKG => RK2
6719 real(RKG) , intent(in) , contiguous :: table(:)
6720 character(*, SK) , intent(in) , optional :: header, sep
6721 character(*, SK) , intent(in) , optional :: deliml, delimr
6722 character(*, SK) , intent(inout) , optional :: iomsg
6723 integer(IK) , intent(in) , optional :: roff
6724 integer(IK) , intent(in) :: unit
6725 integer(IK) :: err
6726 end function
6727#endif
6728
6729#if RK1_ENABLED
6730 module function getErrTableWriteUnit_NO_D1_RK1(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6732 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_RK1
6733#endif
6734 use pm_kind, only: RKG => RK1
6735 real(RKG) , intent(in) , contiguous :: table(:)
6736 character(*, SK) , intent(in) , optional :: header, sep
6737 character(*, SK) , intent(in) , optional :: deliml, delimr
6738 character(*, SK) , intent(inout) , optional :: iomsg
6739 integer(IK) , intent(in) , optional :: roff
6740 integer(IK) , intent(in) :: unit
6741 integer(IK) :: err
6742 end function
6743#endif
6744
6745 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6746
6747 end interface
6748
6749 ! D2 file NO
6750
6751 interface getErrTableWrite
6752
6753 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6754
6755#if SK5_ENABLED
6756 module function getErrTableWriteFile_NO_D2_SK5(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6758 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_SK5
6759#endif
6760 use pm_kind, only: SKG => SK5
6761 character(*,SKG) , intent(in) , contiguous :: table(:,:)
6762 character(*, SK) , intent(in) , optional :: file, header, sep
6763 character(*, SK) , intent(in) , optional :: deliml, delimr
6764 character(*, SK) , intent(inout) , optional :: iomsg
6765 integer(IK) , intent(in) , optional :: roff
6766 integer(IK) :: err
6767 end function
6768#endif
6769
6770#if SK4_ENABLED
6771 module function getErrTableWriteFile_NO_D2_SK4(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6772#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6773 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_SK4
6774#endif
6775 use pm_kind, only: SKG => SK4
6776 character(*,SKG) , intent(in) , contiguous :: table(:,:)
6777 character(*, SK) , intent(in) , optional :: file, header, sep
6778 character(*, SK) , intent(in) , optional :: deliml, delimr
6779 character(*, SK) , intent(inout) , optional :: iomsg
6780 integer(IK) , intent(in) , optional :: roff
6781 integer(IK) :: err
6782 end function
6783#endif
6784
6785#if SK3_ENABLED
6786 module function getErrTableWriteFile_NO_D2_SK3(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6788 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_SK3
6789#endif
6790 use pm_kind, only: SKG => SK3
6791 character(*,SKG) , intent(in) , contiguous :: table(:,:)
6792 character(*, SK) , intent(in) , optional :: file, header, sep
6793 character(*, SK) , intent(in) , optional :: deliml, delimr
6794 character(*, SK) , intent(inout) , optional :: iomsg
6795 integer(IK) , intent(in) , optional :: roff
6796 integer(IK) :: err
6797 end function
6798#endif
6799
6800#if SK2_ENABLED
6801 module function getErrTableWriteFile_NO_D2_SK2(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6802#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6803 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_SK2
6804#endif
6805 use pm_kind, only: SKG => SK2
6806 character(*,SKG) , intent(in) , contiguous :: table(:,:)
6807 character(*, SK) , intent(in) , optional :: file, header, sep
6808 character(*, SK) , intent(in) , optional :: deliml, delimr
6809 character(*, SK) , intent(inout) , optional :: iomsg
6810 integer(IK) , intent(in) , optional :: roff
6811 integer(IK) :: err
6812 end function
6813#endif
6814
6815#if SK1_ENABLED
6816 module function getErrTableWriteFile_NO_D2_SK1(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6818 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_SK1
6819#endif
6820 use pm_kind, only: SKG => SK1
6821 character(*,SKG) , intent(in) , contiguous :: table(:,:)
6822 character(*, SK) , intent(in) , optional :: file, header, sep
6823 character(*, SK) , intent(in) , optional :: deliml, delimr
6824 character(*, SK) , intent(inout) , optional :: iomsg
6825 integer(IK) , intent(in) , optional :: roff
6826 integer(IK) :: err
6827 end function
6828#endif
6829
6830 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6831
6832#if IK5_ENABLED
6833 module function getErrTableWriteFile_NO_D2_IK5(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6834#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6835 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_IK5
6836#endif
6837 use pm_kind, only: IKG => IK5
6838 integer(IKG) , intent(in) , contiguous :: table(:,:)
6839 character(*, SK) , intent(in) , optional :: file, header, sep
6840 character(*, SK) , intent(in) , optional :: deliml, delimr
6841 character(*, SK) , intent(inout) , optional :: iomsg
6842 integer(IK) , intent(in) , optional :: roff
6843 integer(IK) :: err
6844 end function
6845#endif
6846
6847#if IK4_ENABLED
6848 module function getErrTableWriteFile_NO_D2_IK4(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6850 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_IK4
6851#endif
6852 use pm_kind, only: IKG => IK4
6853 integer(IKG) , intent(in) , contiguous :: table(:,:)
6854 character(*, SK) , intent(in) , optional :: file, header, sep
6855 character(*, SK) , intent(in) , optional :: deliml, delimr
6856 character(*, SK) , intent(inout) , optional :: iomsg
6857 integer(IK) , intent(in) , optional :: roff
6858 integer(IK) :: err
6859 end function
6860#endif
6861
6862#if IK3_ENABLED
6863 module function getErrTableWriteFile_NO_D2_IK3(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6864#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6865 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_IK3
6866#endif
6867 use pm_kind, only: IKG => IK3
6868 integer(IKG) , intent(in) , contiguous :: table(:,:)
6869 character(*, SK) , intent(in) , optional :: file, header, sep
6870 character(*, SK) , intent(in) , optional :: deliml, delimr
6871 character(*, SK) , intent(inout) , optional :: iomsg
6872 integer(IK) , intent(in) , optional :: roff
6873 integer(IK) :: err
6874 end function
6875#endif
6876
6877#if IK2_ENABLED
6878 module function getErrTableWriteFile_NO_D2_IK2(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6880 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_IK2
6881#endif
6882 use pm_kind, only: IKG => IK2
6883 integer(IKG) , intent(in) , contiguous :: table(:,:)
6884 character(*, SK) , intent(in) , optional :: file, header, sep
6885 character(*, SK) , intent(in) , optional :: deliml, delimr
6886 character(*, SK) , intent(inout) , optional :: iomsg
6887 integer(IK) , intent(in) , optional :: roff
6888 integer(IK) :: err
6889 end function
6890#endif
6891
6892#if IK1_ENABLED
6893 module function getErrTableWriteFile_NO_D2_IK1(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6894#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6895 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_IK1
6896#endif
6897 use pm_kind, only: IKG => IK1
6898 integer(IKG) , intent(in) , contiguous :: table(:,:)
6899 character(*, SK) , intent(in) , optional :: file, header, sep
6900 character(*, SK) , intent(in) , optional :: deliml, delimr
6901 character(*, SK) , intent(inout) , optional :: iomsg
6902 integer(IK) , intent(in) , optional :: roff
6903 integer(IK) :: err
6904 end function
6905#endif
6906
6907 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6908
6909#if LK5_ENABLED
6910 module function getErrTableWriteFile_NO_D2_LK5(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6911#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6912 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_LK5
6913#endif
6914 use pm_kind, only: LKG => LK5
6915 logical(LKG) , intent(in) , contiguous :: table(:,:)
6916 character(*, SK) , intent(in) , optional :: file, header, sep
6917 character(*, SK) , intent(in) , optional :: deliml, delimr
6918 character(*, SK) , intent(inout) , optional :: iomsg
6919 integer(IK) , intent(in) , optional :: roff
6920 integer(IK) :: err
6921 end function
6922#endif
6923
6924#if LK4_ENABLED
6925 module function getErrTableWriteFile_NO_D2_LK4(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6926#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6927 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_LK4
6928#endif
6929 use pm_kind, only: LKG => LK4
6930 logical(LKG) , intent(in) , contiguous :: table(:,:)
6931 character(*, SK) , intent(in) , optional :: file, header, sep
6932 character(*, SK) , intent(in) , optional :: deliml, delimr
6933 character(*, SK) , intent(inout) , optional :: iomsg
6934 integer(IK) , intent(in) , optional :: roff
6935 integer(IK) :: err
6936 end function
6937#endif
6938
6939#if LK3_ENABLED
6940 module function getErrTableWriteFile_NO_D2_LK3(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6942 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_LK3
6943#endif
6944 use pm_kind, only: LKG => LK3
6945 logical(LKG) , intent(in) , contiguous :: table(:,:)
6946 character(*, SK) , intent(in) , optional :: file, header, sep
6947 character(*, SK) , intent(in) , optional :: deliml, delimr
6948 character(*, SK) , intent(inout) , optional :: iomsg
6949 integer(IK) , intent(in) , optional :: roff
6950 integer(IK) :: err
6951 end function
6952#endif
6953
6954#if LK2_ENABLED
6955 module function getErrTableWriteFile_NO_D2_LK2(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6956#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6957 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_LK2
6958#endif
6959 use pm_kind, only: LKG => LK2
6960 logical(LKG) , intent(in) , contiguous :: table(:,:)
6961 character(*, SK) , intent(in) , optional :: file, header, sep
6962 character(*, SK) , intent(in) , optional :: deliml, delimr
6963 character(*, SK) , intent(inout) , optional :: iomsg
6964 integer(IK) , intent(in) , optional :: roff
6965 integer(IK) :: err
6966 end function
6967#endif
6968
6969#if LK1_ENABLED
6970 module function getErrTableWriteFile_NO_D2_LK1(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6972 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_LK1
6973#endif
6974 use pm_kind, only: LKG => LK1
6975 logical(LKG) , intent(in) , contiguous :: table(:,:)
6976 character(*, SK) , intent(in) , optional :: file, header, sep
6977 character(*, SK) , intent(in) , optional :: deliml, delimr
6978 character(*, SK) , intent(inout) , optional :: iomsg
6979 integer(IK) , intent(in) , optional :: roff
6980 integer(IK) :: err
6981 end function
6982#endif
6983
6984 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6985
6986#if CK5_ENABLED
6987 module function getErrTableWriteFile_NO_D2_CK5(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
6988#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6989 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_CK5
6990#endif
6991 use pm_kind, only: CKG => CK5
6992 complex(CKG) , intent(in) , contiguous :: table(:,:)
6993 character(*, SK) , intent(in) , optional :: file, header, sep
6994 character(*, SK) , intent(in) , optional :: deliml, delimr
6995 character(*, SK) , intent(inout) , optional :: iomsg
6996 integer(IK) , intent(in) , optional :: roff
6997 integer(IK) :: err
6998 end function
6999#endif
7000
7001#if CK4_ENABLED
7002 module function getErrTableWriteFile_NO_D2_CK4(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7004 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_CK4
7005#endif
7006 use pm_kind, only: CKG => CK4
7007 complex(CKG) , intent(in) , contiguous :: table(:,:)
7008 character(*, SK) , intent(in) , optional :: file, header, sep
7009 character(*, SK) , intent(in) , optional :: deliml, delimr
7010 character(*, SK) , intent(inout) , optional :: iomsg
7011 integer(IK) , intent(in) , optional :: roff
7012 integer(IK) :: err
7013 end function
7014#endif
7015
7016#if CK3_ENABLED
7017 module function getErrTableWriteFile_NO_D2_CK3(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7018#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7019 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_CK3
7020#endif
7021 use pm_kind, only: CKG => CK3
7022 complex(CKG) , intent(in) , contiguous :: table(:,:)
7023 character(*, SK) , intent(in) , optional :: file, header, sep
7024 character(*, SK) , intent(in) , optional :: deliml, delimr
7025 character(*, SK) , intent(inout) , optional :: iomsg
7026 integer(IK) , intent(in) , optional :: roff
7027 integer(IK) :: err
7028 end function
7029#endif
7030
7031#if CK2_ENABLED
7032 module function getErrTableWriteFile_NO_D2_CK2(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7034 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_CK2
7035#endif
7036 use pm_kind, only: CKG => CK2
7037 complex(CKG) , intent(in) , contiguous :: table(:,:)
7038 character(*, SK) , intent(in) , optional :: file, header, sep
7039 character(*, SK) , intent(in) , optional :: deliml, delimr
7040 character(*, SK) , intent(inout) , optional :: iomsg
7041 integer(IK) , intent(in) , optional :: roff
7042 integer(IK) :: err
7043 end function
7044#endif
7045
7046#if CK1_ENABLED
7047 module function getErrTableWriteFile_NO_D2_CK1(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7048#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7049 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_CK1
7050#endif
7051 use pm_kind, only: CKG => CK1
7052 complex(CKG) , intent(in) , contiguous :: table(:,:)
7053 character(*, SK) , intent(in) , optional :: file, header, sep
7054 character(*, SK) , intent(in) , optional :: deliml, delimr
7055 character(*, SK) , intent(inout) , optional :: iomsg
7056 integer(IK) , intent(in) , optional :: roff
7057 integer(IK) :: err
7058 end function
7059#endif
7060
7061 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7062
7063#if RK5_ENABLED
7064 module function getErrTableWriteFile_NO_D2_RK5(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7065#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7066 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_RK5
7067#endif
7068 use pm_kind, only: RKG => RK5
7069 real(RKG) , intent(in) , contiguous :: table(:,:)
7070 character(*, SK) , intent(in) , optional :: file, header, sep
7071 character(*, SK) , intent(in) , optional :: deliml, delimr
7072 character(*, SK) , intent(inout) , optional :: iomsg
7073 integer(IK) , intent(in) , optional :: roff
7074 integer(IK) :: err
7075 end function
7076#endif
7077
7078#if RK4_ENABLED
7079 module function getErrTableWriteFile_NO_D2_RK4(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7080#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7081 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_RK4
7082#endif
7083 use pm_kind, only: RKG => RK4
7084 real(RKG) , intent(in) , contiguous :: table(:,:)
7085 character(*, SK) , intent(in) , optional :: file, header, sep
7086 character(*, SK) , intent(in) , optional :: deliml, delimr
7087 character(*, SK) , intent(inout) , optional :: iomsg
7088 integer(IK) , intent(in) , optional :: roff
7089 integer(IK) :: err
7090 end function
7091#endif
7092
7093#if RK3_ENABLED
7094 module function getErrTableWriteFile_NO_D2_RK3(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7096 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_RK3
7097#endif
7098 use pm_kind, only: RKG => RK3
7099 real(RKG) , intent(in) , contiguous :: table(:,:)
7100 character(*, SK) , intent(in) , optional :: file, header, sep
7101 character(*, SK) , intent(in) , optional :: deliml, delimr
7102 character(*, SK) , intent(inout) , optional :: iomsg
7103 integer(IK) , intent(in) , optional :: roff
7104 integer(IK) :: err
7105 end function
7106#endif
7107
7108#if RK2_ENABLED
7109 module function getErrTableWriteFile_NO_D2_RK2(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7110#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7111 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_RK2
7112#endif
7113 use pm_kind, only: RKG => RK2
7114 real(RKG) , intent(in) , contiguous :: table(:,:)
7115 character(*, SK) , intent(in) , optional :: file, header, sep
7116 character(*, SK) , intent(in) , optional :: deliml, delimr
7117 character(*, SK) , intent(inout) , optional :: iomsg
7118 integer(IK) , intent(in) , optional :: roff
7119 integer(IK) :: err
7120 end function
7121#endif
7122
7123#if RK1_ENABLED
7124 module function getErrTableWriteFile_NO_D2_RK1(file, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7126 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_RK1
7127#endif
7128 use pm_kind, only: RKG => RK1
7129 real(RKG) , intent(in) , contiguous :: table(:,:)
7130 character(*, SK) , intent(in) , optional :: file, header, sep
7131 character(*, SK) , intent(in) , optional :: deliml, delimr
7132 character(*, SK) , intent(inout) , optional :: iomsg
7133 integer(IK) , intent(in) , optional :: roff
7134 integer(IK) :: err
7135 end function
7136#endif
7137
7138 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7139
7140 end interface
7141
7142 ! D2 unit NO
7143
7144 interface getErrTableWrite
7145
7146 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7147
7148#if SK5_ENABLED
7149 module function getErrTableWriteUnit_NO_D2_SK5(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7150#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7151 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_SK5
7152#endif
7153 use pm_kind, only: SKG => SK5
7154 character(*,SKG) , intent(in) , contiguous :: table(:,:)
7155 character(*, SK) , intent(in) , optional :: header, sep
7156 character(*, SK) , intent(in) , optional :: deliml, delimr
7157 character(*, SK) , intent(inout) , optional :: iomsg
7158 integer(IK) , intent(in) , optional :: roff
7159 integer(IK) , intent(in) :: unit
7160 integer(IK) :: err
7161 end function
7162#endif
7163
7164#if SK4_ENABLED
7165 module function getErrTableWriteUnit_NO_D2_SK4(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7166#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7167 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_SK4
7168#endif
7169 use pm_kind, only: SKG => SK4
7170 character(*,SKG) , intent(in) , contiguous :: table(:,:)
7171 character(*, SK) , intent(in) , optional :: header, sep
7172 character(*, SK) , intent(in) , optional :: deliml, delimr
7173 character(*, SK) , intent(inout) , optional :: iomsg
7174 integer(IK) , intent(in) , optional :: roff
7175 integer(IK) , intent(in) :: unit
7176 integer(IK) :: err
7177 end function
7178#endif
7179
7180#if SK3_ENABLED
7181 module function getErrTableWriteUnit_NO_D2_SK3(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7183 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_SK3
7184#endif
7185 use pm_kind, only: SKG => SK3
7186 character(*,SKG) , intent(in) , contiguous :: table(:,:)
7187 character(*, SK) , intent(in) , optional :: header, sep
7188 character(*, SK) , intent(in) , optional :: deliml, delimr
7189 character(*, SK) , intent(inout) , optional :: iomsg
7190 integer(IK) , intent(in) , optional :: roff
7191 integer(IK) , intent(in) :: unit
7192 integer(IK) :: err
7193 end function
7194#endif
7195
7196#if SK2_ENABLED
7197 module function getErrTableWriteUnit_NO_D2_SK2(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7198#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7199 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_SK2
7200#endif
7201 use pm_kind, only: SKG => SK2
7202 character(*,SKG) , intent(in) , contiguous :: table(:,:)
7203 character(*, SK) , intent(in) , optional :: header, sep
7204 character(*, SK) , intent(in) , optional :: deliml, delimr
7205 character(*, SK) , intent(inout) , optional :: iomsg
7206 integer(IK) , intent(in) , optional :: roff
7207 integer(IK) , intent(in) :: unit
7208 integer(IK) :: err
7209 end function
7210#endif
7211
7212#if SK1_ENABLED
7213 module function getErrTableWriteUnit_NO_D2_SK1(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7215 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_SK1
7216#endif
7217 use pm_kind, only: SKG => SK1
7218 character(*,SKG) , intent(in) , contiguous :: table(:,:)
7219 character(*, SK) , intent(in) , optional :: header, sep
7220 character(*, SK) , intent(in) , optional :: deliml, delimr
7221 character(*, SK) , intent(inout) , optional :: iomsg
7222 integer(IK) , intent(in) , optional :: roff
7223 integer(IK) , intent(in) :: unit
7224 integer(IK) :: err
7225 end function
7226#endif
7227
7228 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7229
7230#if IK5_ENABLED
7231 module function getErrTableWriteUnit_NO_D2_IK5(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7233 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_IK5
7234#endif
7235 use pm_kind, only: IKG => IK5
7236 integer(IKG) , intent(in) , contiguous :: table(:,:)
7237 character(*, SK) , intent(in) , optional :: header, sep
7238 character(*, SK) , intent(in) , optional :: deliml, delimr
7239 character(*, SK) , intent(inout) , optional :: iomsg
7240 integer(IK) , intent(in) , optional :: roff
7241 integer(IK) , intent(in) :: unit
7242 integer(IK) :: err
7243 end function
7244#endif
7245
7246#if IK4_ENABLED
7247 module function getErrTableWriteUnit_NO_D2_IK4(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7249 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_IK4
7250#endif
7251 use pm_kind, only: IKG => IK4
7252 integer(IKG) , intent(in) , contiguous :: table(:,:)
7253 character(*, SK) , intent(in) , optional :: header, sep
7254 character(*, SK) , intent(in) , optional :: deliml, delimr
7255 character(*, SK) , intent(inout) , optional :: iomsg
7256 integer(IK) , intent(in) , optional :: roff
7257 integer(IK) , intent(in) :: unit
7258 integer(IK) :: err
7259 end function
7260#endif
7261
7262#if IK3_ENABLED
7263 module function getErrTableWriteUnit_NO_D2_IK3(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7264#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7265 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_IK3
7266#endif
7267 use pm_kind, only: IKG => IK3
7268 integer(IKG) , intent(in) , contiguous :: table(:,:)
7269 character(*, SK) , intent(in) , optional :: header, sep
7270 character(*, SK) , intent(in) , optional :: deliml, delimr
7271 character(*, SK) , intent(inout) , optional :: iomsg
7272 integer(IK) , intent(in) , optional :: roff
7273 integer(IK) , intent(in) :: unit
7274 integer(IK) :: err
7275 end function
7276#endif
7277
7278#if IK2_ENABLED
7279 module function getErrTableWriteUnit_NO_D2_IK2(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7280#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7281 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_IK2
7282#endif
7283 use pm_kind, only: IKG => IK2
7284 integer(IKG) , intent(in) , contiguous :: table(:,:)
7285 character(*, SK) , intent(in) , optional :: header, sep
7286 character(*, SK) , intent(in) , optional :: deliml, delimr
7287 character(*, SK) , intent(inout) , optional :: iomsg
7288 integer(IK) , intent(in) , optional :: roff
7289 integer(IK) , intent(in) :: unit
7290 integer(IK) :: err
7291 end function
7292#endif
7293
7294#if IK1_ENABLED
7295 module function getErrTableWriteUnit_NO_D2_IK1(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7297 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_IK1
7298#endif
7299 use pm_kind, only: IKG => IK1
7300 integer(IKG) , intent(in) , contiguous :: table(:,:)
7301 character(*, SK) , intent(in) , optional :: header, sep
7302 character(*, SK) , intent(in) , optional :: deliml, delimr
7303 character(*, SK) , intent(inout) , optional :: iomsg
7304 integer(IK) , intent(in) , optional :: roff
7305 integer(IK) , intent(in) :: unit
7306 integer(IK) :: err
7307 end function
7308#endif
7309
7310 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7311
7312#if LK5_ENABLED
7313 module function getErrTableWriteUnit_NO_D2_LK5(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7314#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7315 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_LK5
7316#endif
7317 use pm_kind, only: LKG => LK5
7318 logical(LKG) , intent(in) , contiguous :: table(:,:)
7319 character(*, SK) , intent(in) , optional :: header, sep
7320 character(*, SK) , intent(in) , optional :: deliml, delimr
7321 character(*, SK) , intent(inout) , optional :: iomsg
7322 integer(IK) , intent(in) , optional :: roff
7323 integer(IK) , intent(in) :: unit
7324 integer(IK) :: err
7325 end function
7326#endif
7327
7328#if LK4_ENABLED
7329 module function getErrTableWriteUnit_NO_D2_LK4(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7331 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_LK4
7332#endif
7333 use pm_kind, only: LKG => LK4
7334 logical(LKG) , intent(in) , contiguous :: table(:,:)
7335 character(*, SK) , intent(in) , optional :: header, sep
7336 character(*, SK) , intent(in) , optional :: deliml, delimr
7337 character(*, SK) , intent(inout) , optional :: iomsg
7338 integer(IK) , intent(in) , optional :: roff
7339 integer(IK) , intent(in) :: unit
7340 integer(IK) :: err
7341 end function
7342#endif
7343
7344#if LK3_ENABLED
7345 module function getErrTableWriteUnit_NO_D2_LK3(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7347 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_LK3
7348#endif
7349 use pm_kind, only: LKG => LK3
7350 logical(LKG) , intent(in) , contiguous :: table(:,:)
7351 character(*, SK) , intent(in) , optional :: header, sep
7352 character(*, SK) , intent(in) , optional :: deliml, delimr
7353 character(*, SK) , intent(inout) , optional :: iomsg
7354 integer(IK) , intent(in) , optional :: roff
7355 integer(IK) , intent(in) :: unit
7356 integer(IK) :: err
7357 end function
7358#endif
7359
7360#if LK2_ENABLED
7361 module function getErrTableWriteUnit_NO_D2_LK2(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7362#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7363 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_LK2
7364#endif
7365 use pm_kind, only: LKG => LK2
7366 logical(LKG) , intent(in) , contiguous :: table(:,:)
7367 character(*, SK) , intent(in) , optional :: header, sep
7368 character(*, SK) , intent(in) , optional :: deliml, delimr
7369 character(*, SK) , intent(inout) , optional :: iomsg
7370 integer(IK) , intent(in) , optional :: roff
7371 integer(IK) , intent(in) :: unit
7372 integer(IK) :: err
7373 end function
7374#endif
7375
7376#if LK1_ENABLED
7377 module function getErrTableWriteUnit_NO_D2_LK1(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7379 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_LK1
7380#endif
7381 use pm_kind, only: LKG => LK1
7382 logical(LKG) , intent(in) , contiguous :: table(:,:)
7383 character(*, SK) , intent(in) , optional :: header, sep
7384 character(*, SK) , intent(in) , optional :: deliml, delimr
7385 character(*, SK) , intent(inout) , optional :: iomsg
7386 integer(IK) , intent(in) , optional :: roff
7387 integer(IK) , intent(in) :: unit
7388 integer(IK) :: err
7389 end function
7390#endif
7391
7392 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7393
7394#if CK5_ENABLED
7395 module function getErrTableWriteUnit_NO_D2_CK5(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7397 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_CK5
7398#endif
7399 use pm_kind, only: CKG => CK5
7400 complex(CKG) , intent(in) , contiguous :: table(:,:)
7401 character(*, SK) , intent(in) , optional :: header, sep
7402 character(*, SK) , intent(in) , optional :: deliml, delimr
7403 character(*, SK) , intent(inout) , optional :: iomsg
7404 integer(IK) , intent(in) , optional :: roff
7405 integer(IK) , intent(in) :: unit
7406 integer(IK) :: err
7407 end function
7408#endif
7409
7410#if CK4_ENABLED
7411 module function getErrTableWriteUnit_NO_D2_CK4(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7413 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_CK4
7414#endif
7415 use pm_kind, only: CKG => CK4
7416 complex(CKG) , intent(in) , contiguous :: table(:,:)
7417 character(*, SK) , intent(in) , optional :: header, sep
7418 character(*, SK) , intent(in) , optional :: deliml, delimr
7419 character(*, SK) , intent(inout) , optional :: iomsg
7420 integer(IK) , intent(in) , optional :: roff
7421 integer(IK) , intent(in) :: unit
7422 integer(IK) :: err
7423 end function
7424#endif
7425
7426#if CK3_ENABLED
7427 module function getErrTableWriteUnit_NO_D2_CK3(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7429 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_CK3
7430#endif
7431 use pm_kind, only: CKG => CK3
7432 complex(CKG) , intent(in) , contiguous :: table(:,:)
7433 character(*, SK) , intent(in) , optional :: header, sep
7434 character(*, SK) , intent(in) , optional :: deliml, delimr
7435 character(*, SK) , intent(inout) , optional :: iomsg
7436 integer(IK) , intent(in) , optional :: roff
7437 integer(IK) , intent(in) :: unit
7438 integer(IK) :: err
7439 end function
7440#endif
7441
7442#if CK2_ENABLED
7443 module function getErrTableWriteUnit_NO_D2_CK2(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7445 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_CK2
7446#endif
7447 use pm_kind, only: CKG => CK2
7448 complex(CKG) , intent(in) , contiguous :: table(:,:)
7449 character(*, SK) , intent(in) , optional :: header, sep
7450 character(*, SK) , intent(in) , optional :: deliml, delimr
7451 character(*, SK) , intent(inout) , optional :: iomsg
7452 integer(IK) , intent(in) , optional :: roff
7453 integer(IK) , intent(in) :: unit
7454 integer(IK) :: err
7455 end function
7456#endif
7457
7458#if CK1_ENABLED
7459 module function getErrTableWriteUnit_NO_D2_CK1(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7461 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_CK1
7462#endif
7463 use pm_kind, only: CKG => CK1
7464 complex(CKG) , intent(in) , contiguous :: table(:,:)
7465 character(*, SK) , intent(in) , optional :: header, sep
7466 character(*, SK) , intent(in) , optional :: deliml, delimr
7467 character(*, SK) , intent(inout) , optional :: iomsg
7468 integer(IK) , intent(in) , optional :: roff
7469 integer(IK) , intent(in) :: unit
7470 integer(IK) :: err
7471 end function
7472#endif
7473
7474 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7475
7476#if RK5_ENABLED
7477 module function getErrTableWriteUnit_NO_D2_RK5(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7479 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_RK5
7480#endif
7481 use pm_kind, only: RKG => RK5
7482 real(RKG) , intent(in) , contiguous :: table(:,:)
7483 character(*, SK) , intent(in) , optional :: header, sep
7484 character(*, SK) , intent(in) , optional :: deliml, delimr
7485 character(*, SK) , intent(inout) , optional :: iomsg
7486 integer(IK) , intent(in) , optional :: roff
7487 integer(IK) , intent(in) :: unit
7488 integer(IK) :: err
7489 end function
7490#endif
7491
7492#if RK4_ENABLED
7493 module function getErrTableWriteUnit_NO_D2_RK4(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7495 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_RK4
7496#endif
7497 use pm_kind, only: RKG => RK4
7498 real(RKG) , intent(in) , contiguous :: table(:,:)
7499 character(*, SK) , intent(in) , optional :: header, sep
7500 character(*, SK) , intent(in) , optional :: deliml, delimr
7501 character(*, SK) , intent(inout) , optional :: iomsg
7502 integer(IK) , intent(in) , optional :: roff
7503 integer(IK) , intent(in) :: unit
7504 integer(IK) :: err
7505 end function
7506#endif
7507
7508#if RK3_ENABLED
7509 module function getErrTableWriteUnit_NO_D2_RK3(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7511 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_RK3
7512#endif
7513 use pm_kind, only: RKG => RK3
7514 real(RKG) , intent(in) , contiguous :: table(:,:)
7515 character(*, SK) , intent(in) , optional :: header, sep
7516 character(*, SK) , intent(in) , optional :: deliml, delimr
7517 character(*, SK) , intent(inout) , optional :: iomsg
7518 integer(IK) , intent(in) , optional :: roff
7519 integer(IK) , intent(in) :: unit
7520 integer(IK) :: err
7521 end function
7522#endif
7523
7524#if RK2_ENABLED
7525 module function getErrTableWriteUnit_NO_D2_RK2(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7526#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7527 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_RK2
7528#endif
7529 use pm_kind, only: RKG => RK2
7530 real(RKG) , intent(in) , contiguous :: table(:,:)
7531 character(*, SK) , intent(in) , optional :: header, sep
7532 character(*, SK) , intent(in) , optional :: deliml, delimr
7533 character(*, SK) , intent(inout) , optional :: iomsg
7534 integer(IK) , intent(in) , optional :: roff
7535 integer(IK) , intent(in) :: unit
7536 integer(IK) :: err
7537 end function
7538#endif
7539
7540#if RK1_ENABLED
7541 module function getErrTableWriteUnit_NO_D2_RK1(unit, table, header, sep, deliml, delimr, roff, iomsg) result(err)
7542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7543 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_RK1
7544#endif
7545 use pm_kind, only: RKG => RK1
7546 real(RKG) , intent(in) , contiguous :: table(:,:)
7547 character(*, SK) , intent(in) , optional :: header, sep
7548 character(*, SK) , intent(in) , optional :: deliml, delimr
7549 character(*, SK) , intent(inout) , optional :: iomsg
7550 integer(IK) , intent(in) , optional :: roff
7551 integer(IK) , intent(in) :: unit
7552 integer(IK) :: err
7553 end function
7554#endif
7555
7556 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7557
7558 end interface
7559
7560 ! D1 file TO
7561
7562 interface getErrTableWrite
7563
7564 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7565
7566#if SK5_ENABLED
7567 module function getErrTableWriteFile_TO_D1_SK5(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
7568#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7569 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_SK5
7570#endif
7571 use pm_kind, only: SKG => SK5
7572 character(*,SKG) , intent(in) , contiguous :: table(:)
7573 character(*, SK) , intent(in) , optional :: file, header, sep
7574 character(*, SK) , intent(in) , optional :: deliml, delimr
7575 character(*, SK) , intent(inout) , optional :: iomsg
7576 type(trans_type) , intent(in) :: operation
7577 integer(IK) , intent(in) , optional :: roff
7578 integer(IK) :: err
7579 end function
7580#endif
7581
7582#if SK4_ENABLED
7583 module function getErrTableWriteFile_TO_D1_SK4(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
7584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7585 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_SK4
7586#endif
7587 use pm_kind, only: SKG => SK4
7588 character(*,SKG) , intent(in) , contiguous :: table(:)
7589 character(*, SK) , intent(in) , optional :: file, header, sep
7590 character(*, SK) , intent(in) , optional :: deliml, delimr
7591 character(*, SK) , intent(inout) , optional :: iomsg
7592 type(trans_type) , intent(in) :: operation
7593 integer(IK) , intent(in) , optional :: roff
7594 integer(IK) :: err
7595 end function
7596#endif
7597
7598#if SK3_ENABLED
7599 module function getErrTableWriteFile_TO_D1_SK3(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
7600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7601 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_SK3
7602#endif
7603 use pm_kind, only: SKG => SK3
7604 character(*,SKG) , intent(in) , contiguous :: table(:)
7605 character(*, SK) , intent(in) , optional :: file, header, sep
7606 character(*, SK) , intent(in) , optional :: deliml, delimr
7607 character(*, SK) , intent(inout) , optional :: iomsg
7608 type(trans_type) , intent(in) :: operation
7609 integer(IK) , intent(in) , optional :: roff
7610 integer(IK) :: err
7611 end function
7612#endif
7613
7614#if SK2_ENABLED
7615 module function getErrTableWriteFile_TO_D1_SK2(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
7616#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7617 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_SK2
7618#endif
7619 use pm_kind, only: SKG => SK2
7620 character(*,SKG) , intent(in) , contiguous :: table(:)
7621 character(*, SK) , intent(in) , optional :: file, header, sep
7622 character(*, SK) , intent(in) , optional :: deliml, delimr
7623 character(*, SK) , intent(inout) , optional :: iomsg
7624 type(trans_type) , intent(in) :: operation
7625 integer(IK) , intent(in) , optional :: roff
7626 integer(IK) :: err
7627 end function
7628#endif
7629
7630#if SK1_ENABLED
7631 module function getErrTableWriteFile_TO_D1_SK1(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
7632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7633 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_SK1
7634#endif
7635 use pm_kind, only: SKG => SK1
7636 character(*,SKG) , intent(in) , contiguous :: table(:)
7637 character(*, SK) , intent(in) , optional :: file, header, sep
7638 character(*, SK) , intent(in) , optional :: deliml, delimr
7639 character(*, SK) , intent(inout) , optional :: iomsg
7640 type(trans_type) , intent(in) :: operation
7641 integer(IK) , intent(in) , optional :: roff
7642 integer(IK) :: err
7643 end function
7644#endif
7645
7646 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7647
7648#if IK5_ENABLED
7649 module function getErrTableWriteFile_TO_D1_IK5(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
7650#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7651 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_IK5
7652#endif
7653 use pm_kind, only: IKG => IK5
7654 integer(IKG) , intent(in) , contiguous :: table(:)
7655 character(*, SK) , intent(in) , optional :: file, header, sep
7656 character(*, SK) , intent(in) , optional :: deliml, delimr
7657 character(*, SK) , intent(inout) , optional :: iomsg
7658 type(trans_type) , intent(in) :: operation
7659 integer(IK) , intent(in) , optional :: roff
7660 integer(IK) :: err
7661 end function
7662#endif
7663
7664#if IK4_ENABLED
7665 module function getErrTableWriteFile_TO_D1_IK4(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
7666#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7667 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_IK4
7668#endif
7669 use pm_kind, only: IKG => IK4
7670 integer(IKG) , intent(in) , contiguous :: table(:)
7671 character(*, SK) , intent(in) , optional :: file, header, sep
7672 character(*, SK) , intent(in) , optional :: deliml, delimr
7673 character(*, SK) , intent(inout) , optional :: iomsg
7674 type(trans_type) , intent(in) :: operation
7675 integer(IK) , intent(in) , optional :: roff
7676 integer(IK) :: err
7677 end function
7678#endif
7679
7680#if IK3_ENABLED
7681 module function getErrTableWriteFile_TO_D1_IK3(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
7682#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7683 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_IK3
7684#endif
7685 use pm_kind, only: IKG => IK3
7686 integer(IKG) , intent(in) , contiguous :: table(:)
7687 character(*, SK) , intent(in) , optional :: file, header, sep
7688 character(*, SK) , intent(in) , optional :: deliml, delimr
7689 character(*, SK) , intent(inout) , optional :: iomsg
7690 type(trans_type) , intent(in) :: operation
7691 integer(IK) , intent(in) , optional :: roff
7692 integer(IK) :: err
7693 end function
7694#endif
7695
7696#if IK2_ENABLED
7697 module function getErrTableWriteFile_TO_D1_IK2(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
7698#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7699 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_IK2
7700#endif
7701 use pm_kind, only: IKG => IK2
7702 integer(IKG) , intent(in) , contiguous :: table(:)
7703 character(*, SK) , intent(in) , optional :: file, header, sep
7704 character(*, SK) , intent(in) , optional :: deliml, delimr
7705 character(*, SK) , intent(inout) , optional :: iomsg
7706 type(trans_type) , intent(in) :: operation
7707 integer(IK) , intent(in) , optional :: roff
7708 integer(IK) :: err
7709 end function
7710#endif
7711
7712#if IK1_ENABLED
7713 module function getErrTableWriteFile_TO_D1_IK1(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
7714#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7715 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_IK1
7716#endif
7717 use pm_kind, only: IKG => IK1
7718 integer(IKG) , intent(in) , contiguous :: table(:)
7719 character(*, SK) , intent(in) , optional :: file, header, sep
7720 character(*, SK) , intent(in) , optional :: deliml, delimr
7721 character(*, SK) , intent(inout) , optional :: iomsg
7722 type(trans_type) , intent(in) :: operation
7723 integer(IK) , intent(in) , optional :: roff
7724 integer(IK) :: err
7725 end function
7726#endif
7727
7728 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7729
7730#if LK5_ENABLED
7731 module function getErrTableWriteFile_TO_D1_LK5(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
7732#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7733 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_LK5
7734#endif
7735 use pm_kind, only: LKG => LK5
7736 logical(LKG) , intent(in) , contiguous :: table(:)
7737 character(*, SK) , intent(in) , optional :: file, header, sep
7738 character(*, SK) , intent(in) , optional :: deliml, delimr
7739 character(*, SK) , intent(inout) , optional :: iomsg
7740 type(trans_type) , intent(in) :: operation
7741 integer(IK) , intent(in) , optional :: roff
7742 integer(IK) :: err
7743 end function
7744#endif
7745
7746#if LK4_ENABLED
7747 module function getErrTableWriteFile_TO_D1_LK4(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
7748#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7749 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_LK4
7750#endif
7751 use pm_kind, only: LKG => LK4
7752 logical(LKG) , intent(in) , contiguous :: table(:)
7753 character(*, SK) , intent(in) , optional :: file, header, sep
7754 character(*, SK) , intent(in) , optional :: deliml, delimr
7755 character(*, SK) , intent(inout) , optional :: iomsg
7756 type(trans_type) , intent(in) :: operation
7757 integer(IK) , intent(in) , optional :: roff
7758 integer(IK) :: err
7759 end function
7760#endif
7761
7762#if LK3_ENABLED
7763 module function getErrTableWriteFile_TO_D1_LK3(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
7764#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7765 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_LK3
7766#endif
7767 use pm_kind, only: LKG => LK3
7768 logical(LKG) , intent(in) , contiguous :: table(:)
7769 character(*, SK) , intent(in) , optional :: file, header, sep
7770 character(*, SK) , intent(in) , optional :: deliml, delimr
7771 character(*, SK) , intent(inout) , optional :: iomsg
7772 type(trans_type) , intent(in) :: operation
7773 integer(IK) , intent(in) , optional :: roff
7774 integer(IK) :: err
7775 end function
7776#endif
7777
7778#if LK2_ENABLED
7779 module function getErrTableWriteFile_TO_D1_LK2(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
7780#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7781 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_LK2
7782#endif
7783 use pm_kind, only: LKG => LK2
7784 logical(LKG) , intent(in) , contiguous :: table(:)
7785 character(*, SK) , intent(in) , optional :: file, header, sep
7786 character(*, SK) , intent(in) , optional :: deliml, delimr
7787 character(*, SK) , intent(inout) , optional :: iomsg
7788 type(trans_type) , intent(in) :: operation
7789 integer(IK) , intent(in) , optional :: roff
7790 integer(IK) :: err
7791 end function
7792#endif
7793
7794#if LK1_ENABLED
7795 module function getErrTableWriteFile_TO_D1_LK1(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
7796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7797 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_LK1
7798#endif
7799 use pm_kind, only: LKG => LK1
7800 logical(LKG) , intent(in) , contiguous :: table(:)
7801 character(*, SK) , intent(in) , optional :: file, header, sep
7802 character(*, SK) , intent(in) , optional :: deliml, delimr
7803 character(*, SK) , intent(inout) , optional :: iomsg
7804 type(trans_type) , intent(in) :: operation
7805 integer(IK) , intent(in) , optional :: roff
7806 integer(IK) :: err
7807 end function
7808#endif
7809
7810 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7811
7812#if CK5_ENABLED
7813 module function getErrTableWriteFile_TO_D1_CK5(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
7814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7815 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_CK5
7816#endif
7817 use pm_kind, only: CKG => CK5
7818 complex(CKG) , intent(in) , contiguous :: table(:)
7819 character(*, SK) , intent(in) , optional :: file, header, sep
7820 character(*, SK) , intent(in) , optional :: deliml, delimr
7821 character(*, SK) , intent(inout) , optional :: iomsg
7822 type(trans_type) , intent(in) :: operation
7823 integer(IK) , intent(in) , optional :: roff
7824 integer(IK) :: err
7825 end function
7826#endif
7827
7828#if CK4_ENABLED
7829 module function getErrTableWriteFile_TO_D1_CK4(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
7830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7831 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_CK4
7832#endif
7833 use pm_kind, only: CKG => CK4
7834 complex(CKG) , intent(in) , contiguous :: table(:)
7835 character(*, SK) , intent(in) , optional :: file, header, sep
7836 character(*, SK) , intent(in) , optional :: deliml, delimr
7837 character(*, SK) , intent(inout) , optional :: iomsg
7838 type(trans_type) , intent(in) :: operation
7839 integer(IK) , intent(in) , optional :: roff
7840 integer(IK) :: err
7841 end function
7842#endif
7843
7844#if CK3_ENABLED
7845 module function getErrTableWriteFile_TO_D1_CK3(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
7846#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7847 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_CK3
7848#endif
7849 use pm_kind, only: CKG => CK3
7850 complex(CKG) , intent(in) , contiguous :: table(:)
7851 character(*, SK) , intent(in) , optional :: file, header, sep
7852 character(*, SK) , intent(in) , optional :: deliml, delimr
7853 character(*, SK) , intent(inout) , optional :: iomsg
7854 type(trans_type) , intent(in) :: operation
7855 integer(IK) , intent(in) , optional :: roff
7856 integer(IK) :: err
7857 end function
7858#endif
7859
7860#if CK2_ENABLED
7861 module function getErrTableWriteFile_TO_D1_CK2(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
7862#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7863 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_CK2
7864#endif
7865 use pm_kind, only: CKG => CK2
7866 complex(CKG) , intent(in) , contiguous :: table(:)
7867 character(*, SK) , intent(in) , optional :: file, header, sep
7868 character(*, SK) , intent(in) , optional :: deliml, delimr
7869 character(*, SK) , intent(inout) , optional :: iomsg
7870 type(trans_type) , intent(in) :: operation
7871 integer(IK) , intent(in) , optional :: roff
7872 integer(IK) :: err
7873 end function
7874#endif
7875
7876#if CK1_ENABLED
7877 module function getErrTableWriteFile_TO_D1_CK1(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
7878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7879 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_CK1
7880#endif
7881 use pm_kind, only: CKG => CK1
7882 complex(CKG) , intent(in) , contiguous :: table(:)
7883 character(*, SK) , intent(in) , optional :: file, header, sep
7884 character(*, SK) , intent(in) , optional :: deliml, delimr
7885 character(*, SK) , intent(inout) , optional :: iomsg
7886 type(trans_type) , intent(in) :: operation
7887 integer(IK) , intent(in) , optional :: roff
7888 integer(IK) :: err
7889 end function
7890#endif
7891
7892 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7893
7894#if RK5_ENABLED
7895 module function getErrTableWriteFile_TO_D1_RK5(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
7896#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7897 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_RK5
7898#endif
7899 use pm_kind, only: RKG => RK5
7900 real(RKG) , intent(in) , contiguous :: table(:)
7901 character(*, SK) , intent(in) , optional :: file, header, sep
7902 character(*, SK) , intent(in) , optional :: deliml, delimr
7903 character(*, SK) , intent(inout) , optional :: iomsg
7904 type(trans_type) , intent(in) :: operation
7905 integer(IK) , intent(in) , optional :: roff
7906 integer(IK) :: err
7907 end function
7908#endif
7909
7910#if RK4_ENABLED
7911 module function getErrTableWriteFile_TO_D1_RK4(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
7912#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7913 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_RK4
7914#endif
7915 use pm_kind, only: RKG => RK4
7916 real(RKG) , intent(in) , contiguous :: table(:)
7917 character(*, SK) , intent(in) , optional :: file, header, sep
7918 character(*, SK) , intent(in) , optional :: deliml, delimr
7919 character(*, SK) , intent(inout) , optional :: iomsg
7920 type(trans_type) , intent(in) :: operation
7921 integer(IK) , intent(in) , optional :: roff
7922 integer(IK) :: err
7923 end function
7924#endif
7925
7926#if RK3_ENABLED
7927 module function getErrTableWriteFile_TO_D1_RK3(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
7928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7929 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_RK3
7930#endif
7931 use pm_kind, only: RKG => RK3
7932 real(RKG) , intent(in) , contiguous :: table(:)
7933 character(*, SK) , intent(in) , optional :: file, header, sep
7934 character(*, SK) , intent(in) , optional :: deliml, delimr
7935 character(*, SK) , intent(inout) , optional :: iomsg
7936 type(trans_type) , intent(in) :: operation
7937 integer(IK) , intent(in) , optional :: roff
7938 integer(IK) :: err
7939 end function
7940#endif
7941
7942#if RK2_ENABLED
7943 module function getErrTableWriteFile_TO_D1_RK2(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
7944#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7945 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_RK2
7946#endif
7947 use pm_kind, only: RKG => RK2
7948 real(RKG) , intent(in) , contiguous :: table(:)
7949 character(*, SK) , intent(in) , optional :: file, header, sep
7950 character(*, SK) , intent(in) , optional :: deliml, delimr
7951 character(*, SK) , intent(inout) , optional :: iomsg
7952 type(trans_type) , intent(in) :: operation
7953 integer(IK) , intent(in) , optional :: roff
7954 integer(IK) :: err
7955 end function
7956#endif
7957
7958#if RK1_ENABLED
7959 module function getErrTableWriteFile_TO_D1_RK1(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
7960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7961 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_RK1
7962#endif
7963 use pm_kind, only: RKG => RK1
7964 real(RKG) , intent(in) , contiguous :: table(:)
7965 character(*, SK) , intent(in) , optional :: file, header, sep
7966 character(*, SK) , intent(in) , optional :: deliml, delimr
7967 character(*, SK) , intent(inout) , optional :: iomsg
7968 type(trans_type) , intent(in) :: operation
7969 integer(IK) , intent(in) , optional :: roff
7970 integer(IK) :: err
7971 end function
7972#endif
7973
7974 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7975
7976 end interface
7977
7978 ! D1 unit TO
7979
7980 interface getErrTableWrite
7981
7982 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7983
7984#if SK5_ENABLED
7985 module function getErrTableWriteUnit_TO_D1_SK5(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
7986#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7987 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_SK5
7988#endif
7989 use pm_kind, only: SKG => SK5
7990 character(*,SKG) , intent(in) , contiguous :: table(:)
7991 character(*, SK) , intent(in) , optional :: header, sep
7992 character(*, SK) , intent(in) , optional :: deliml, delimr
7993 character(*, SK) , intent(inout) , optional :: iomsg
7994 type(trans_type) , intent(in) :: operation
7995 integer(IK) , intent(in) , optional :: roff
7996 integer(IK) , intent(in) :: unit
7997 integer(IK) :: err
7998 end function
7999#endif
8000
8001#if SK4_ENABLED
8002 module function getErrTableWriteUnit_TO_D1_SK4(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8004 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_SK4
8005#endif
8006 use pm_kind, only: SKG => SK4
8007 character(*,SKG) , intent(in) , contiguous :: table(:)
8008 character(*, SK) , intent(in) , optional :: header, sep
8009 character(*, SK) , intent(in) , optional :: deliml, delimr
8010 character(*, SK) , intent(inout) , optional :: iomsg
8011 type(trans_type) , intent(in) :: operation
8012 integer(IK) , intent(in) , optional :: roff
8013 integer(IK) , intent(in) :: unit
8014 integer(IK) :: err
8015 end function
8016#endif
8017
8018#if SK3_ENABLED
8019 module function getErrTableWriteUnit_TO_D1_SK3(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8020#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8021 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_SK3
8022#endif
8023 use pm_kind, only: SKG => SK3
8024 character(*,SKG) , intent(in) , contiguous :: table(:)
8025 character(*, SK) , intent(in) , optional :: header, sep
8026 character(*, SK) , intent(in) , optional :: deliml, delimr
8027 character(*, SK) , intent(inout) , optional :: iomsg
8028 type(trans_type) , intent(in) :: operation
8029 integer(IK) , intent(in) , optional :: roff
8030 integer(IK) , intent(in) :: unit
8031 integer(IK) :: err
8032 end function
8033#endif
8034
8035#if SK2_ENABLED
8036 module function getErrTableWriteUnit_TO_D1_SK2(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8038 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_SK2
8039#endif
8040 use pm_kind, only: SKG => SK2
8041 character(*,SKG) , intent(in) , contiguous :: table(:)
8042 character(*, SK) , intent(in) , optional :: header, sep
8043 character(*, SK) , intent(in) , optional :: deliml, delimr
8044 character(*, SK) , intent(inout) , optional :: iomsg
8045 type(trans_type) , intent(in) :: operation
8046 integer(IK) , intent(in) , optional :: roff
8047 integer(IK) , intent(in) :: unit
8048 integer(IK) :: err
8049 end function
8050#endif
8051
8052#if SK1_ENABLED
8053 module function getErrTableWriteUnit_TO_D1_SK1(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8054#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8055 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_SK1
8056#endif
8057 use pm_kind, only: SKG => SK1
8058 character(*,SKG) , intent(in) , contiguous :: table(:)
8059 character(*, SK) , intent(in) , optional :: header, sep
8060 character(*, SK) , intent(in) , optional :: deliml, delimr
8061 character(*, SK) , intent(inout) , optional :: iomsg
8062 type(trans_type) , intent(in) :: operation
8063 integer(IK) , intent(in) , optional :: roff
8064 integer(IK) , intent(in) :: unit
8065 integer(IK) :: err
8066 end function
8067#endif
8068
8069 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8070
8071#if IK5_ENABLED
8072 module function getErrTableWriteUnit_TO_D1_IK5(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8074 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_IK5
8075#endif
8076 use pm_kind, only: IKG => IK5
8077 integer(IKG) , intent(in) , contiguous :: table(:)
8078 character(*, SK) , intent(in) , optional :: header, sep
8079 character(*, SK) , intent(in) , optional :: deliml, delimr
8080 character(*, SK) , intent(inout) , optional :: iomsg
8081 type(trans_type) , intent(in) :: operation
8082 integer(IK) , intent(in) , optional :: roff
8083 integer(IK) , intent(in) :: unit
8084 integer(IK) :: err
8085 end function
8086#endif
8087
8088#if IK4_ENABLED
8089 module function getErrTableWriteUnit_TO_D1_IK4(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8090#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8091 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_IK4
8092#endif
8093 use pm_kind, only: IKG => IK4
8094 integer(IKG) , intent(in) , contiguous :: table(:)
8095 character(*, SK) , intent(in) , optional :: header, sep
8096 character(*, SK) , intent(in) , optional :: deliml, delimr
8097 character(*, SK) , intent(inout) , optional :: iomsg
8098 type(trans_type) , intent(in) :: operation
8099 integer(IK) , intent(in) , optional :: roff
8100 integer(IK) , intent(in) :: unit
8101 integer(IK) :: err
8102 end function
8103#endif
8104
8105#if IK3_ENABLED
8106 module function getErrTableWriteUnit_TO_D1_IK3(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8108 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_IK3
8109#endif
8110 use pm_kind, only: IKG => IK3
8111 integer(IKG) , intent(in) , contiguous :: table(:)
8112 character(*, SK) , intent(in) , optional :: header, sep
8113 character(*, SK) , intent(in) , optional :: deliml, delimr
8114 character(*, SK) , intent(inout) , optional :: iomsg
8115 type(trans_type) , intent(in) :: operation
8116 integer(IK) , intent(in) , optional :: roff
8117 integer(IK) , intent(in) :: unit
8118 integer(IK) :: err
8119 end function
8120#endif
8121
8122#if IK2_ENABLED
8123 module function getErrTableWriteUnit_TO_D1_IK2(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8125 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_IK2
8126#endif
8127 use pm_kind, only: IKG => IK2
8128 integer(IKG) , intent(in) , contiguous :: table(:)
8129 character(*, SK) , intent(in) , optional :: header, sep
8130 character(*, SK) , intent(in) , optional :: deliml, delimr
8131 character(*, SK) , intent(inout) , optional :: iomsg
8132 type(trans_type) , intent(in) :: operation
8133 integer(IK) , intent(in) , optional :: roff
8134 integer(IK) , intent(in) :: unit
8135 integer(IK) :: err
8136 end function
8137#endif
8138
8139#if IK1_ENABLED
8140 module function getErrTableWriteUnit_TO_D1_IK1(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8142 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_IK1
8143#endif
8144 use pm_kind, only: IKG => IK1
8145 integer(IKG) , intent(in) , contiguous :: table(:)
8146 character(*, SK) , intent(in) , optional :: header, sep
8147 character(*, SK) , intent(in) , optional :: deliml, delimr
8148 character(*, SK) , intent(inout) , optional :: iomsg
8149 type(trans_type) , intent(in) :: operation
8150 integer(IK) , intent(in) , optional :: roff
8151 integer(IK) , intent(in) :: unit
8152 integer(IK) :: err
8153 end function
8154#endif
8155
8156 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8157
8158#if LK5_ENABLED
8159 module function getErrTableWriteUnit_TO_D1_LK5(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8160#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8161 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_LK5
8162#endif
8163 use pm_kind, only: LKG => LK5
8164 logical(LKG) , intent(in) , contiguous :: table(:)
8165 character(*, SK) , intent(in) , optional :: header, sep
8166 character(*, SK) , intent(in) , optional :: deliml, delimr
8167 character(*, SK) , intent(inout) , optional :: iomsg
8168 type(trans_type) , intent(in) :: operation
8169 integer(IK) , intent(in) , optional :: roff
8170 integer(IK) , intent(in) :: unit
8171 integer(IK) :: err
8172 end function
8173#endif
8174
8175#if LK4_ENABLED
8176 module function getErrTableWriteUnit_TO_D1_LK4(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8178 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_LK4
8179#endif
8180 use pm_kind, only: LKG => LK4
8181 logical(LKG) , intent(in) , contiguous :: table(:)
8182 character(*, SK) , intent(in) , optional :: header, sep
8183 character(*, SK) , intent(in) , optional :: deliml, delimr
8184 character(*, SK) , intent(inout) , optional :: iomsg
8185 type(trans_type) , intent(in) :: operation
8186 integer(IK) , intent(in) , optional :: roff
8187 integer(IK) , intent(in) :: unit
8188 integer(IK) :: err
8189 end function
8190#endif
8191
8192#if LK3_ENABLED
8193 module function getErrTableWriteUnit_TO_D1_LK3(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8195 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_LK3
8196#endif
8197 use pm_kind, only: LKG => LK3
8198 logical(LKG) , intent(in) , contiguous :: table(:)
8199 character(*, SK) , intent(in) , optional :: header, sep
8200 character(*, SK) , intent(in) , optional :: deliml, delimr
8201 character(*, SK) , intent(inout) , optional :: iomsg
8202 type(trans_type) , intent(in) :: operation
8203 integer(IK) , intent(in) , optional :: roff
8204 integer(IK) , intent(in) :: unit
8205 integer(IK) :: err
8206 end function
8207#endif
8208
8209#if LK2_ENABLED
8210 module function getErrTableWriteUnit_TO_D1_LK2(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8212 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_LK2
8213#endif
8214 use pm_kind, only: LKG => LK2
8215 logical(LKG) , intent(in) , contiguous :: table(:)
8216 character(*, SK) , intent(in) , optional :: header, sep
8217 character(*, SK) , intent(in) , optional :: deliml, delimr
8218 character(*, SK) , intent(inout) , optional :: iomsg
8219 type(trans_type) , intent(in) :: operation
8220 integer(IK) , intent(in) , optional :: roff
8221 integer(IK) , intent(in) :: unit
8222 integer(IK) :: err
8223 end function
8224#endif
8225
8226#if LK1_ENABLED
8227 module function getErrTableWriteUnit_TO_D1_LK1(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8229 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_LK1
8230#endif
8231 use pm_kind, only: LKG => LK1
8232 logical(LKG) , intent(in) , contiguous :: table(:)
8233 character(*, SK) , intent(in) , optional :: header, sep
8234 character(*, SK) , intent(in) , optional :: deliml, delimr
8235 character(*, SK) , intent(inout) , optional :: iomsg
8236 type(trans_type) , intent(in) :: operation
8237 integer(IK) , intent(in) , optional :: roff
8238 integer(IK) , intent(in) :: unit
8239 integer(IK) :: err
8240 end function
8241#endif
8242
8243 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8244
8245#if CK5_ENABLED
8246 module function getErrTableWriteUnit_TO_D1_CK5(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8248 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_CK5
8249#endif
8250 use pm_kind, only: CKG => CK5
8251 complex(CKG) , intent(in) , contiguous :: table(:)
8252 character(*, SK) , intent(in) , optional :: header, sep
8253 character(*, SK) , intent(in) , optional :: deliml, delimr
8254 character(*, SK) , intent(inout) , optional :: iomsg
8255 type(trans_type) , intent(in) :: operation
8256 integer(IK) , intent(in) , optional :: roff
8257 integer(IK) , intent(in) :: unit
8258 integer(IK) :: err
8259 end function
8260#endif
8261
8262#if CK4_ENABLED
8263 module function getErrTableWriteUnit_TO_D1_CK4(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8264#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8265 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_CK4
8266#endif
8267 use pm_kind, only: CKG => CK4
8268 complex(CKG) , intent(in) , contiguous :: table(:)
8269 character(*, SK) , intent(in) , optional :: header, sep
8270 character(*, SK) , intent(in) , optional :: deliml, delimr
8271 character(*, SK) , intent(inout) , optional :: iomsg
8272 type(trans_type) , intent(in) :: operation
8273 integer(IK) , intent(in) , optional :: roff
8274 integer(IK) , intent(in) :: unit
8275 integer(IK) :: err
8276 end function
8277#endif
8278
8279#if CK3_ENABLED
8280 module function getErrTableWriteUnit_TO_D1_CK3(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8282 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_CK3
8283#endif
8284 use pm_kind, only: CKG => CK3
8285 complex(CKG) , intent(in) , contiguous :: table(:)
8286 character(*, SK) , intent(in) , optional :: header, sep
8287 character(*, SK) , intent(in) , optional :: deliml, delimr
8288 character(*, SK) , intent(inout) , optional :: iomsg
8289 type(trans_type) , intent(in) :: operation
8290 integer(IK) , intent(in) , optional :: roff
8291 integer(IK) , intent(in) :: unit
8292 integer(IK) :: err
8293 end function
8294#endif
8295
8296#if CK2_ENABLED
8297 module function getErrTableWriteUnit_TO_D1_CK2(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8299 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_CK2
8300#endif
8301 use pm_kind, only: CKG => CK2
8302 complex(CKG) , intent(in) , contiguous :: table(:)
8303 character(*, SK) , intent(in) , optional :: header, sep
8304 character(*, SK) , intent(in) , optional :: deliml, delimr
8305 character(*, SK) , intent(inout) , optional :: iomsg
8306 type(trans_type) , intent(in) :: operation
8307 integer(IK) , intent(in) , optional :: roff
8308 integer(IK) , intent(in) :: unit
8309 integer(IK) :: err
8310 end function
8311#endif
8312
8313#if CK1_ENABLED
8314 module function getErrTableWriteUnit_TO_D1_CK1(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8316 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_CK1
8317#endif
8318 use pm_kind, only: CKG => CK1
8319 complex(CKG) , intent(in) , contiguous :: table(:)
8320 character(*, SK) , intent(in) , optional :: header, sep
8321 character(*, SK) , intent(in) , optional :: deliml, delimr
8322 character(*, SK) , intent(inout) , optional :: iomsg
8323 type(trans_type) , intent(in) :: operation
8324 integer(IK) , intent(in) , optional :: roff
8325 integer(IK) , intent(in) :: unit
8326 integer(IK) :: err
8327 end function
8328#endif
8329
8330 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8331
8332#if RK5_ENABLED
8333 module function getErrTableWriteUnit_TO_D1_RK5(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8335 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_RK5
8336#endif
8337 use pm_kind, only: RKG => RK5
8338 real(RKG) , intent(in) , contiguous :: table(:)
8339 character(*, SK) , intent(in) , optional :: header, sep
8340 character(*, SK) , intent(in) , optional :: deliml, delimr
8341 character(*, SK) , intent(inout) , optional :: iomsg
8342 type(trans_type) , intent(in) :: operation
8343 integer(IK) , intent(in) , optional :: roff
8344 integer(IK) , intent(in) :: unit
8345 integer(IK) :: err
8346 end function
8347#endif
8348
8349#if RK4_ENABLED
8350 module function getErrTableWriteUnit_TO_D1_RK4(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8352 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_RK4
8353#endif
8354 use pm_kind, only: RKG => RK4
8355 real(RKG) , intent(in) , contiguous :: table(:)
8356 character(*, SK) , intent(in) , optional :: header, sep
8357 character(*, SK) , intent(in) , optional :: deliml, delimr
8358 character(*, SK) , intent(inout) , optional :: iomsg
8359 type(trans_type) , intent(in) :: operation
8360 integer(IK) , intent(in) , optional :: roff
8361 integer(IK) , intent(in) :: unit
8362 integer(IK) :: err
8363 end function
8364#endif
8365
8366#if RK3_ENABLED
8367 module function getErrTableWriteUnit_TO_D1_RK3(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8369 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_RK3
8370#endif
8371 use pm_kind, only: RKG => RK3
8372 real(RKG) , intent(in) , contiguous :: table(:)
8373 character(*, SK) , intent(in) , optional :: header, sep
8374 character(*, SK) , intent(in) , optional :: deliml, delimr
8375 character(*, SK) , intent(inout) , optional :: iomsg
8376 type(trans_type) , intent(in) :: operation
8377 integer(IK) , intent(in) , optional :: roff
8378 integer(IK) , intent(in) :: unit
8379 integer(IK) :: err
8380 end function
8381#endif
8382
8383#if RK2_ENABLED
8384 module function getErrTableWriteUnit_TO_D1_RK2(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8386 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_RK2
8387#endif
8388 use pm_kind, only: RKG => RK2
8389 real(RKG) , intent(in) , contiguous :: table(:)
8390 character(*, SK) , intent(in) , optional :: header, sep
8391 character(*, SK) , intent(in) , optional :: deliml, delimr
8392 character(*, SK) , intent(inout) , optional :: iomsg
8393 type(trans_type) , intent(in) :: operation
8394 integer(IK) , intent(in) , optional :: roff
8395 integer(IK) , intent(in) :: unit
8396 integer(IK) :: err
8397 end function
8398#endif
8399
8400#if RK1_ENABLED
8401 module function getErrTableWriteUnit_TO_D1_RK1(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8403 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_RK1
8404#endif
8405 use pm_kind, only: RKG => RK1
8406 real(RKG) , intent(in) , contiguous :: table(:)
8407 character(*, SK) , intent(in) , optional :: header, sep
8408 character(*, SK) , intent(in) , optional :: deliml, delimr
8409 character(*, SK) , intent(inout) , optional :: iomsg
8410 type(trans_type) , intent(in) :: operation
8411 integer(IK) , intent(in) , optional :: roff
8412 integer(IK) , intent(in) :: unit
8413 integer(IK) :: err
8414 end function
8415#endif
8416
8417 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8418
8419 end interface
8420
8421 ! D2 file TO
8422
8423 interface getErrTableWrite
8424
8425 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8426
8427#if SK5_ENABLED
8428 module function getErrTableWriteFile_TO_D2_SK5(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8429#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8430 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_SK5
8431#endif
8432 use pm_kind, only: SKG => SK5
8433 character(*,SKG) , intent(in) , contiguous :: table(:,:)
8434 character(*, SK) , intent(in) , optional :: file, header, sep
8435 character(*, SK) , intent(in) , optional :: deliml, delimr
8436 character(*, SK) , intent(inout) , optional :: iomsg
8437 type(trans_type) , intent(in) :: operation
8438 integer(IK) , intent(in) , optional :: roff
8439 integer(IK) :: err
8440 end function
8441#endif
8442
8443#if SK4_ENABLED
8444 module function getErrTableWriteFile_TO_D2_SK4(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8446 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_SK4
8447#endif
8448 use pm_kind, only: SKG => SK4
8449 character(*,SKG) , intent(in) , contiguous :: table(:,:)
8450 character(*, SK) , intent(in) , optional :: file, header, sep
8451 character(*, SK) , intent(in) , optional :: deliml, delimr
8452 character(*, SK) , intent(inout) , optional :: iomsg
8453 type(trans_type) , intent(in) :: operation
8454 integer(IK) , intent(in) , optional :: roff
8455 integer(IK) :: err
8456 end function
8457#endif
8458
8459#if SK3_ENABLED
8460 module function getErrTableWriteFile_TO_D2_SK3(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8462 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_SK3
8463#endif
8464 use pm_kind, only: SKG => SK3
8465 character(*,SKG) , intent(in) , contiguous :: table(:,:)
8466 character(*, SK) , intent(in) , optional :: file, header, sep
8467 character(*, SK) , intent(in) , optional :: deliml, delimr
8468 character(*, SK) , intent(inout) , optional :: iomsg
8469 type(trans_type) , intent(in) :: operation
8470 integer(IK) , intent(in) , optional :: roff
8471 integer(IK) :: err
8472 end function
8473#endif
8474
8475#if SK2_ENABLED
8476 module function getErrTableWriteFile_TO_D2_SK2(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8478 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_SK2
8479#endif
8480 use pm_kind, only: SKG => SK2
8481 character(*,SKG) , intent(in) , contiguous :: table(:,:)
8482 character(*, SK) , intent(in) , optional :: file, header, sep
8483 character(*, SK) , intent(in) , optional :: deliml, delimr
8484 character(*, SK) , intent(inout) , optional :: iomsg
8485 type(trans_type) , intent(in) :: operation
8486 integer(IK) , intent(in) , optional :: roff
8487 integer(IK) :: err
8488 end function
8489#endif
8490
8491#if SK1_ENABLED
8492 module function getErrTableWriteFile_TO_D2_SK1(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8494 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_SK1
8495#endif
8496 use pm_kind, only: SKG => SK1
8497 character(*,SKG) , intent(in) , contiguous :: table(:,:)
8498 character(*, SK) , intent(in) , optional :: file, header, sep
8499 character(*, SK) , intent(in) , optional :: deliml, delimr
8500 character(*, SK) , intent(inout) , optional :: iomsg
8501 type(trans_type) , intent(in) :: operation
8502 integer(IK) , intent(in) , optional :: roff
8503 integer(IK) :: err
8504 end function
8505#endif
8506
8507 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8508
8509#if IK5_ENABLED
8510 module function getErrTableWriteFile_TO_D2_IK5(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8512 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_IK5
8513#endif
8514 use pm_kind, only: IKG => IK5
8515 integer(IKG) , intent(in) , contiguous :: table(:,:)
8516 character(*, SK) , intent(in) , optional :: file, header, sep
8517 character(*, SK) , intent(in) , optional :: deliml, delimr
8518 character(*, SK) , intent(inout) , optional :: iomsg
8519 type(trans_type) , intent(in) :: operation
8520 integer(IK) , intent(in) , optional :: roff
8521 integer(IK) :: err
8522 end function
8523#endif
8524
8525#if IK4_ENABLED
8526 module function getErrTableWriteFile_TO_D2_IK4(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8528 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_IK4
8529#endif
8530 use pm_kind, only: IKG => IK4
8531 integer(IKG) , intent(in) , contiguous :: table(:,:)
8532 character(*, SK) , intent(in) , optional :: file, header, sep
8533 character(*, SK) , intent(in) , optional :: deliml, delimr
8534 character(*, SK) , intent(inout) , optional :: iomsg
8535 type(trans_type) , intent(in) :: operation
8536 integer(IK) , intent(in) , optional :: roff
8537 integer(IK) :: err
8538 end function
8539#endif
8540
8541#if IK3_ENABLED
8542 module function getErrTableWriteFile_TO_D2_IK3(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8544 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_IK3
8545#endif
8546 use pm_kind, only: IKG => IK3
8547 integer(IKG) , intent(in) , contiguous :: table(:,:)
8548 character(*, SK) , intent(in) , optional :: file, header, sep
8549 character(*, SK) , intent(in) , optional :: deliml, delimr
8550 character(*, SK) , intent(inout) , optional :: iomsg
8551 type(trans_type) , intent(in) :: operation
8552 integer(IK) , intent(in) , optional :: roff
8553 integer(IK) :: err
8554 end function
8555#endif
8556
8557#if IK2_ENABLED
8558 module function getErrTableWriteFile_TO_D2_IK2(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8560 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_IK2
8561#endif
8562 use pm_kind, only: IKG => IK2
8563 integer(IKG) , intent(in) , contiguous :: table(:,:)
8564 character(*, SK) , intent(in) , optional :: file, header, sep
8565 character(*, SK) , intent(in) , optional :: deliml, delimr
8566 character(*, SK) , intent(inout) , optional :: iomsg
8567 type(trans_type) , intent(in) :: operation
8568 integer(IK) , intent(in) , optional :: roff
8569 integer(IK) :: err
8570 end function
8571#endif
8572
8573#if IK1_ENABLED
8574 module function getErrTableWriteFile_TO_D2_IK1(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8576 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_IK1
8577#endif
8578 use pm_kind, only: IKG => IK1
8579 integer(IKG) , intent(in) , contiguous :: table(:,:)
8580 character(*, SK) , intent(in) , optional :: file, header, sep
8581 character(*, SK) , intent(in) , optional :: deliml, delimr
8582 character(*, SK) , intent(inout) , optional :: iomsg
8583 type(trans_type) , intent(in) :: operation
8584 integer(IK) , intent(in) , optional :: roff
8585 integer(IK) :: err
8586 end function
8587#endif
8588
8589 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8590
8591#if LK5_ENABLED
8592 module function getErrTableWriteFile_TO_D2_LK5(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8594 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_LK5
8595#endif
8596 use pm_kind, only: LKG => LK5
8597 logical(LKG) , intent(in) , contiguous :: table(:,:)
8598 character(*, SK) , intent(in) , optional :: file, header, sep
8599 character(*, SK) , intent(in) , optional :: deliml, delimr
8600 character(*, SK) , intent(inout) , optional :: iomsg
8601 type(trans_type) , intent(in) :: operation
8602 integer(IK) , intent(in) , optional :: roff
8603 integer(IK) :: err
8604 end function
8605#endif
8606
8607#if LK4_ENABLED
8608 module function getErrTableWriteFile_TO_D2_LK4(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8610 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_LK4
8611#endif
8612 use pm_kind, only: LKG => LK4
8613 logical(LKG) , intent(in) , contiguous :: table(:,:)
8614 character(*, SK) , intent(in) , optional :: file, header, sep
8615 character(*, SK) , intent(in) , optional :: deliml, delimr
8616 character(*, SK) , intent(inout) , optional :: iomsg
8617 type(trans_type) , intent(in) :: operation
8618 integer(IK) , intent(in) , optional :: roff
8619 integer(IK) :: err
8620 end function
8621#endif
8622
8623#if LK3_ENABLED
8624 module function getErrTableWriteFile_TO_D2_LK3(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8625#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8626 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_LK3
8627#endif
8628 use pm_kind, only: LKG => LK3
8629 logical(LKG) , intent(in) , contiguous :: table(:,:)
8630 character(*, SK) , intent(in) , optional :: file, header, sep
8631 character(*, SK) , intent(in) , optional :: deliml, delimr
8632 character(*, SK) , intent(inout) , optional :: iomsg
8633 type(trans_type) , intent(in) :: operation
8634 integer(IK) , intent(in) , optional :: roff
8635 integer(IK) :: err
8636 end function
8637#endif
8638
8639#if LK2_ENABLED
8640 module function getErrTableWriteFile_TO_D2_LK2(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8642 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_LK2
8643#endif
8644 use pm_kind, only: LKG => LK2
8645 logical(LKG) , intent(in) , contiguous :: table(:,:)
8646 character(*, SK) , intent(in) , optional :: file, header, sep
8647 character(*, SK) , intent(in) , optional :: deliml, delimr
8648 character(*, SK) , intent(inout) , optional :: iomsg
8649 type(trans_type) , intent(in) :: operation
8650 integer(IK) , intent(in) , optional :: roff
8651 integer(IK) :: err
8652 end function
8653#endif
8654
8655#if LK1_ENABLED
8656 module function getErrTableWriteFile_TO_D2_LK1(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8658 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_LK1
8659#endif
8660 use pm_kind, only: LKG => LK1
8661 logical(LKG) , intent(in) , contiguous :: table(:,:)
8662 character(*, SK) , intent(in) , optional :: file, header, sep
8663 character(*, SK) , intent(in) , optional :: deliml, delimr
8664 character(*, SK) , intent(inout) , optional :: iomsg
8665 type(trans_type) , intent(in) :: operation
8666 integer(IK) , intent(in) , optional :: roff
8667 integer(IK) :: err
8668 end function
8669#endif
8670
8671 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8672
8673#if CK5_ENABLED
8674 module function getErrTableWriteFile_TO_D2_CK5(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8676 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_CK5
8677#endif
8678 use pm_kind, only: CKG => CK5
8679 complex(CKG) , intent(in) , contiguous :: table(:,:)
8680 character(*, SK) , intent(in) , optional :: file, header, sep
8681 character(*, SK) , intent(in) , optional :: deliml, delimr
8682 character(*, SK) , intent(inout) , optional :: iomsg
8683 type(trans_type) , intent(in) :: operation
8684 integer(IK) , intent(in) , optional :: roff
8685 integer(IK) :: err
8686 end function
8687#endif
8688
8689#if CK4_ENABLED
8690 module function getErrTableWriteFile_TO_D2_CK4(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8692 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_CK4
8693#endif
8694 use pm_kind, only: CKG => CK4
8695 complex(CKG) , intent(in) , contiguous :: table(:,:)
8696 character(*, SK) , intent(in) , optional :: file, header, sep
8697 character(*, SK) , intent(in) , optional :: deliml, delimr
8698 character(*, SK) , intent(inout) , optional :: iomsg
8699 type(trans_type) , intent(in) :: operation
8700 integer(IK) , intent(in) , optional :: roff
8701 integer(IK) :: err
8702 end function
8703#endif
8704
8705#if CK3_ENABLED
8706 module function getErrTableWriteFile_TO_D2_CK3(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8708 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_CK3
8709#endif
8710 use pm_kind, only: CKG => CK3
8711 complex(CKG) , intent(in) , contiguous :: table(:,:)
8712 character(*, SK) , intent(in) , optional :: file, header, sep
8713 character(*, SK) , intent(in) , optional :: deliml, delimr
8714 character(*, SK) , intent(inout) , optional :: iomsg
8715 type(trans_type) , intent(in) :: operation
8716 integer(IK) , intent(in) , optional :: roff
8717 integer(IK) :: err
8718 end function
8719#endif
8720
8721#if CK2_ENABLED
8722 module function getErrTableWriteFile_TO_D2_CK2(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8724 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_CK2
8725#endif
8726 use pm_kind, only: CKG => CK2
8727 complex(CKG) , intent(in) , contiguous :: table(:,:)
8728 character(*, SK) , intent(in) , optional :: file, header, sep
8729 character(*, SK) , intent(in) , optional :: deliml, delimr
8730 character(*, SK) , intent(inout) , optional :: iomsg
8731 type(trans_type) , intent(in) :: operation
8732 integer(IK) , intent(in) , optional :: roff
8733 integer(IK) :: err
8734 end function
8735#endif
8736
8737#if CK1_ENABLED
8738 module function getErrTableWriteFile_TO_D2_CK1(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8740 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_CK1
8741#endif
8742 use pm_kind, only: CKG => CK1
8743 complex(CKG) , intent(in) , contiguous :: table(:,:)
8744 character(*, SK) , intent(in) , optional :: file, header, sep
8745 character(*, SK) , intent(in) , optional :: deliml, delimr
8746 character(*, SK) , intent(inout) , optional :: iomsg
8747 type(trans_type) , intent(in) :: operation
8748 integer(IK) , intent(in) , optional :: roff
8749 integer(IK) :: err
8750 end function
8751#endif
8752
8753 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8754
8755#if RK5_ENABLED
8756 module function getErrTableWriteFile_TO_D2_RK5(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8758 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_RK5
8759#endif
8760 use pm_kind, only: RKG => RK5
8761 real(RKG) , intent(in) , contiguous :: table(:,:)
8762 character(*, SK) , intent(in) , optional :: file, header, sep
8763 character(*, SK) , intent(in) , optional :: deliml, delimr
8764 character(*, SK) , intent(inout) , optional :: iomsg
8765 type(trans_type) , intent(in) :: operation
8766 integer(IK) , intent(in) , optional :: roff
8767 integer(IK) :: err
8768 end function
8769#endif
8770
8771#if RK4_ENABLED
8772 module function getErrTableWriteFile_TO_D2_RK4(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8774 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_RK4
8775#endif
8776 use pm_kind, only: RKG => RK4
8777 real(RKG) , intent(in) , contiguous :: table(:,:)
8778 character(*, SK) , intent(in) , optional :: file, header, sep
8779 character(*, SK) , intent(in) , optional :: deliml, delimr
8780 character(*, SK) , intent(inout) , optional :: iomsg
8781 type(trans_type) , intent(in) :: operation
8782 integer(IK) , intent(in) , optional :: roff
8783 integer(IK) :: err
8784 end function
8785#endif
8786
8787#if RK3_ENABLED
8788 module function getErrTableWriteFile_TO_D2_RK3(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8790 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_RK3
8791#endif
8792 use pm_kind, only: RKG => RK3
8793 real(RKG) , intent(in) , contiguous :: table(:,:)
8794 character(*, SK) , intent(in) , optional :: file, header, sep
8795 character(*, SK) , intent(in) , optional :: deliml, delimr
8796 character(*, SK) , intent(inout) , optional :: iomsg
8797 type(trans_type) , intent(in) :: operation
8798 integer(IK) , intent(in) , optional :: roff
8799 integer(IK) :: err
8800 end function
8801#endif
8802
8803#if RK2_ENABLED
8804 module function getErrTableWriteFile_TO_D2_RK2(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8806 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_RK2
8807#endif
8808 use pm_kind, only: RKG => RK2
8809 real(RKG) , intent(in) , contiguous :: table(:,:)
8810 character(*, SK) , intent(in) , optional :: file, header, sep
8811 character(*, SK) , intent(in) , optional :: deliml, delimr
8812 character(*, SK) , intent(inout) , optional :: iomsg
8813 type(trans_type) , intent(in) :: operation
8814 integer(IK) , intent(in) , optional :: roff
8815 integer(IK) :: err
8816 end function
8817#endif
8818
8819#if RK1_ENABLED
8820 module function getErrTableWriteFile_TO_D2_RK1(file, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8822 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_RK1
8823#endif
8824 use pm_kind, only: RKG => RK1
8825 real(RKG) , intent(in) , contiguous :: table(:,:)
8826 character(*, SK) , intent(in) , optional :: file, header, sep
8827 character(*, SK) , intent(in) , optional :: deliml, delimr
8828 character(*, SK) , intent(inout) , optional :: iomsg
8829 type(trans_type) , intent(in) :: operation
8830 integer(IK) , intent(in) , optional :: roff
8831 integer(IK) :: err
8832 end function
8833#endif
8834
8835 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8836
8837 end interface
8838
8839 ! D2 unit TO
8840
8841 interface getErrTableWrite
8842
8843 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8844
8845#if SK5_ENABLED
8846 module function getErrTableWriteUnit_TO_D2_SK5(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8848 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_SK5
8849#endif
8850 use pm_kind, only: SKG => SK5
8851 character(*,SKG) , intent(in) , contiguous :: table(:,:)
8852 character(*, SK) , intent(in) , optional :: header, sep
8853 character(*, SK) , intent(in) , optional :: deliml, delimr
8854 character(*, SK) , intent(inout) , optional :: iomsg
8855 type(trans_type) , intent(in) :: operation
8856 integer(IK) , intent(in) , optional :: roff
8857 integer(IK) , intent(in) :: unit
8858 integer(IK) :: err
8859 end function
8860#endif
8861
8862#if SK4_ENABLED
8863 module function getErrTableWriteUnit_TO_D2_SK4(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8864#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8865 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_SK4
8866#endif
8867 use pm_kind, only: SKG => SK4
8868 character(*,SKG) , intent(in) , contiguous :: table(:,:)
8869 character(*, SK) , intent(in) , optional :: header, sep
8870 character(*, SK) , intent(in) , optional :: deliml, delimr
8871 character(*, SK) , intent(inout) , optional :: iomsg
8872 type(trans_type) , intent(in) :: operation
8873 integer(IK) , intent(in) , optional :: roff
8874 integer(IK) , intent(in) :: unit
8875 integer(IK) :: err
8876 end function
8877#endif
8878
8879#if SK3_ENABLED
8880 module function getErrTableWriteUnit_TO_D2_SK3(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8882 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_SK3
8883#endif
8884 use pm_kind, only: SKG => SK3
8885 character(*,SKG) , intent(in) , contiguous :: table(:,:)
8886 character(*, SK) , intent(in) , optional :: header, sep
8887 character(*, SK) , intent(in) , optional :: deliml, delimr
8888 character(*, SK) , intent(inout) , optional :: iomsg
8889 type(trans_type) , intent(in) :: operation
8890 integer(IK) , intent(in) , optional :: roff
8891 integer(IK) , intent(in) :: unit
8892 integer(IK) :: err
8893 end function
8894#endif
8895
8896#if SK2_ENABLED
8897 module function getErrTableWriteUnit_TO_D2_SK2(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8899 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_SK2
8900#endif
8901 use pm_kind, only: SKG => SK2
8902 character(*,SKG) , intent(in) , contiguous :: table(:,:)
8903 character(*, SK) , intent(in) , optional :: header, sep
8904 character(*, SK) , intent(in) , optional :: deliml, delimr
8905 character(*, SK) , intent(inout) , optional :: iomsg
8906 type(trans_type) , intent(in) :: operation
8907 integer(IK) , intent(in) , optional :: roff
8908 integer(IK) , intent(in) :: unit
8909 integer(IK) :: err
8910 end function
8911#endif
8912
8913#if SK1_ENABLED
8914 module function getErrTableWriteUnit_TO_D2_SK1(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8916 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_SK1
8917#endif
8918 use pm_kind, only: SKG => SK1
8919 character(*,SKG) , intent(in) , contiguous :: table(:,:)
8920 character(*, SK) , intent(in) , optional :: header, sep
8921 character(*, SK) , intent(in) , optional :: deliml, delimr
8922 character(*, SK) , intent(inout) , optional :: iomsg
8923 type(trans_type) , intent(in) :: operation
8924 integer(IK) , intent(in) , optional :: roff
8925 integer(IK) , intent(in) :: unit
8926 integer(IK) :: err
8927 end function
8928#endif
8929
8930 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8931
8932#if IK5_ENABLED
8933 module function getErrTableWriteUnit_TO_D2_IK5(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8934#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8935 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_IK5
8936#endif
8937 use pm_kind, only: IKG => IK5
8938 integer(IKG) , intent(in) , contiguous :: table(:,:)
8939 character(*, SK) , intent(in) , optional :: header, sep
8940 character(*, SK) , intent(in) , optional :: deliml, delimr
8941 character(*, SK) , intent(inout) , optional :: iomsg
8942 type(trans_type) , intent(in) :: operation
8943 integer(IK) , intent(in) , optional :: roff
8944 integer(IK) , intent(in) :: unit
8945 integer(IK) :: err
8946 end function
8947#endif
8948
8949#if IK4_ENABLED
8950 module function getErrTableWriteUnit_TO_D2_IK4(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8951#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8952 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_IK4
8953#endif
8954 use pm_kind, only: IKG => IK4
8955 integer(IKG) , intent(in) , contiguous :: table(:,:)
8956 character(*, SK) , intent(in) , optional :: header, sep
8957 character(*, SK) , intent(in) , optional :: deliml, delimr
8958 character(*, SK) , intent(inout) , optional :: iomsg
8959 type(trans_type) , intent(in) :: operation
8960 integer(IK) , intent(in) , optional :: roff
8961 integer(IK) , intent(in) :: unit
8962 integer(IK) :: err
8963 end function
8964#endif
8965
8966#if IK3_ENABLED
8967 module function getErrTableWriteUnit_TO_D2_IK3(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8969 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_IK3
8970#endif
8971 use pm_kind, only: IKG => IK3
8972 integer(IKG) , intent(in) , contiguous :: table(:,:)
8973 character(*, SK) , intent(in) , optional :: header, sep
8974 character(*, SK) , intent(in) , optional :: deliml, delimr
8975 character(*, SK) , intent(inout) , optional :: iomsg
8976 type(trans_type) , intent(in) :: operation
8977 integer(IK) , intent(in) , optional :: roff
8978 integer(IK) , intent(in) :: unit
8979 integer(IK) :: err
8980 end function
8981#endif
8982
8983#if IK2_ENABLED
8984 module function getErrTableWriteUnit_TO_D2_IK2(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
8985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8986 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_IK2
8987#endif
8988 use pm_kind, only: IKG => IK2
8989 integer(IKG) , intent(in) , contiguous :: table(:,:)
8990 character(*, SK) , intent(in) , optional :: header, sep
8991 character(*, SK) , intent(in) , optional :: deliml, delimr
8992 character(*, SK) , intent(inout) , optional :: iomsg
8993 type(trans_type) , intent(in) :: operation
8994 integer(IK) , intent(in) , optional :: roff
8995 integer(IK) , intent(in) :: unit
8996 integer(IK) :: err
8997 end function
8998#endif
8999
9000#if IK1_ENABLED
9001 module function getErrTableWriteUnit_TO_D2_IK1(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
9002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9003 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_IK1
9004#endif
9005 use pm_kind, only: IKG => IK1
9006 integer(IKG) , intent(in) , contiguous :: table(:,:)
9007 character(*, SK) , intent(in) , optional :: header, sep
9008 character(*, SK) , intent(in) , optional :: deliml, delimr
9009 character(*, SK) , intent(inout) , optional :: iomsg
9010 type(trans_type) , intent(in) :: operation
9011 integer(IK) , intent(in) , optional :: roff
9012 integer(IK) , intent(in) :: unit
9013 integer(IK) :: err
9014 end function
9015#endif
9016
9017 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9018
9019#if LK5_ENABLED
9020 module function getErrTableWriteUnit_TO_D2_LK5(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
9021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9022 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_LK5
9023#endif
9024 use pm_kind, only: LKG => LK5
9025 logical(LKG) , intent(in) , contiguous :: table(:,:)
9026 character(*, SK) , intent(in) , optional :: header, sep
9027 character(*, SK) , intent(in) , optional :: deliml, delimr
9028 character(*, SK) , intent(inout) , optional :: iomsg
9029 type(trans_type) , intent(in) :: operation
9030 integer(IK) , intent(in) , optional :: roff
9031 integer(IK) , intent(in) :: unit
9032 integer(IK) :: err
9033 end function
9034#endif
9035
9036#if LK4_ENABLED
9037 module function getErrTableWriteUnit_TO_D2_LK4(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
9038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9039 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_LK4
9040#endif
9041 use pm_kind, only: LKG => LK4
9042 logical(LKG) , intent(in) , contiguous :: table(:,:)
9043 character(*, SK) , intent(in) , optional :: header, sep
9044 character(*, SK) , intent(in) , optional :: deliml, delimr
9045 character(*, SK) , intent(inout) , optional :: iomsg
9046 type(trans_type) , intent(in) :: operation
9047 integer(IK) , intent(in) , optional :: roff
9048 integer(IK) , intent(in) :: unit
9049 integer(IK) :: err
9050 end function
9051#endif
9052
9053#if LK3_ENABLED
9054 module function getErrTableWriteUnit_TO_D2_LK3(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
9055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9056 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_LK3
9057#endif
9058 use pm_kind, only: LKG => LK3
9059 logical(LKG) , intent(in) , contiguous :: table(:,:)
9060 character(*, SK) , intent(in) , optional :: header, sep
9061 character(*, SK) , intent(in) , optional :: deliml, delimr
9062 character(*, SK) , intent(inout) , optional :: iomsg
9063 type(trans_type) , intent(in) :: operation
9064 integer(IK) , intent(in) , optional :: roff
9065 integer(IK) , intent(in) :: unit
9066 integer(IK) :: err
9067 end function
9068#endif
9069
9070#if LK2_ENABLED
9071 module function getErrTableWriteUnit_TO_D2_LK2(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
9072#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9073 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_LK2
9074#endif
9075 use pm_kind, only: LKG => LK2
9076 logical(LKG) , intent(in) , contiguous :: table(:,:)
9077 character(*, SK) , intent(in) , optional :: header, sep
9078 character(*, SK) , intent(in) , optional :: deliml, delimr
9079 character(*, SK) , intent(inout) , optional :: iomsg
9080 type(trans_type) , intent(in) :: operation
9081 integer(IK) , intent(in) , optional :: roff
9082 integer(IK) , intent(in) :: unit
9083 integer(IK) :: err
9084 end function
9085#endif
9086
9087#if LK1_ENABLED
9088 module function getErrTableWriteUnit_TO_D2_LK1(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
9089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9090 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_LK1
9091#endif
9092 use pm_kind, only: LKG => LK1
9093 logical(LKG) , intent(in) , contiguous :: table(:,:)
9094 character(*, SK) , intent(in) , optional :: header, sep
9095 character(*, SK) , intent(in) , optional :: deliml, delimr
9096 character(*, SK) , intent(inout) , optional :: iomsg
9097 type(trans_type) , intent(in) :: operation
9098 integer(IK) , intent(in) , optional :: roff
9099 integer(IK) , intent(in) :: unit
9100 integer(IK) :: err
9101 end function
9102#endif
9103
9104 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9105
9106#if CK5_ENABLED
9107 module function getErrTableWriteUnit_TO_D2_CK5(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
9108#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9109 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_CK5
9110#endif
9111 use pm_kind, only: CKG => CK5
9112 complex(CKG) , intent(in) , contiguous :: table(:,:)
9113 character(*, SK) , intent(in) , optional :: header, sep
9114 character(*, SK) , intent(in) , optional :: deliml, delimr
9115 character(*, SK) , intent(inout) , optional :: iomsg
9116 type(trans_type) , intent(in) :: operation
9117 integer(IK) , intent(in) , optional :: roff
9118 integer(IK) , intent(in) :: unit
9119 integer(IK) :: err
9120 end function
9121#endif
9122
9123#if CK4_ENABLED
9124 module function getErrTableWriteUnit_TO_D2_CK4(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
9125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9126 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_CK4
9127#endif
9128 use pm_kind, only: CKG => CK4
9129 complex(CKG) , intent(in) , contiguous :: table(:,:)
9130 character(*, SK) , intent(in) , optional :: header, sep
9131 character(*, SK) , intent(in) , optional :: deliml, delimr
9132 character(*, SK) , intent(inout) , optional :: iomsg
9133 type(trans_type) , intent(in) :: operation
9134 integer(IK) , intent(in) , optional :: roff
9135 integer(IK) , intent(in) :: unit
9136 integer(IK) :: err
9137 end function
9138#endif
9139
9140#if CK3_ENABLED
9141 module function getErrTableWriteUnit_TO_D2_CK3(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
9142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9143 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_CK3
9144#endif
9145 use pm_kind, only: CKG => CK3
9146 complex(CKG) , intent(in) , contiguous :: table(:,:)
9147 character(*, SK) , intent(in) , optional :: header, sep
9148 character(*, SK) , intent(in) , optional :: deliml, delimr
9149 character(*, SK) , intent(inout) , optional :: iomsg
9150 type(trans_type) , intent(in) :: operation
9151 integer(IK) , intent(in) , optional :: roff
9152 integer(IK) , intent(in) :: unit
9153 integer(IK) :: err
9154 end function
9155#endif
9156
9157#if CK2_ENABLED
9158 module function getErrTableWriteUnit_TO_D2_CK2(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
9159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9160 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_CK2
9161#endif
9162 use pm_kind, only: CKG => CK2
9163 complex(CKG) , intent(in) , contiguous :: table(:,:)
9164 character(*, SK) , intent(in) , optional :: header, sep
9165 character(*, SK) , intent(in) , optional :: deliml, delimr
9166 character(*, SK) , intent(inout) , optional :: iomsg
9167 type(trans_type) , intent(in) :: operation
9168 integer(IK) , intent(in) , optional :: roff
9169 integer(IK) , intent(in) :: unit
9170 integer(IK) :: err
9171 end function
9172#endif
9173
9174#if CK1_ENABLED
9175 module function getErrTableWriteUnit_TO_D2_CK1(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
9176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9177 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_CK1
9178#endif
9179 use pm_kind, only: CKG => CK1
9180 complex(CKG) , intent(in) , contiguous :: table(:,:)
9181 character(*, SK) , intent(in) , optional :: header, sep
9182 character(*, SK) , intent(in) , optional :: deliml, delimr
9183 character(*, SK) , intent(inout) , optional :: iomsg
9184 type(trans_type) , intent(in) :: operation
9185 integer(IK) , intent(in) , optional :: roff
9186 integer(IK) , intent(in) :: unit
9187 integer(IK) :: err
9188 end function
9189#endif
9190
9191 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9192
9193#if RK5_ENABLED
9194 module function getErrTableWriteUnit_TO_D2_RK5(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
9195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9196 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_RK5
9197#endif
9198 use pm_kind, only: RKG => RK5
9199 real(RKG) , intent(in) , contiguous :: table(:,:)
9200 character(*, SK) , intent(in) , optional :: header, sep
9201 character(*, SK) , intent(in) , optional :: deliml, delimr
9202 character(*, SK) , intent(inout) , optional :: iomsg
9203 type(trans_type) , intent(in) :: operation
9204 integer(IK) , intent(in) , optional :: roff
9205 integer(IK) , intent(in) :: unit
9206 integer(IK) :: err
9207 end function
9208#endif
9209
9210#if RK4_ENABLED
9211 module function getErrTableWriteUnit_TO_D2_RK4(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
9212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9213 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_RK4
9214#endif
9215 use pm_kind, only: RKG => RK4
9216 real(RKG) , intent(in) , contiguous :: table(:,:)
9217 character(*, SK) , intent(in) , optional :: header, sep
9218 character(*, SK) , intent(in) , optional :: deliml, delimr
9219 character(*, SK) , intent(inout) , optional :: iomsg
9220 type(trans_type) , intent(in) :: operation
9221 integer(IK) , intent(in) , optional :: roff
9222 integer(IK) , intent(in) :: unit
9223 integer(IK) :: err
9224 end function
9225#endif
9226
9227#if RK3_ENABLED
9228 module function getErrTableWriteUnit_TO_D2_RK3(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
9229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9230 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_RK3
9231#endif
9232 use pm_kind, only: RKG => RK3
9233 real(RKG) , intent(in) , contiguous :: table(:,:)
9234 character(*, SK) , intent(in) , optional :: header, sep
9235 character(*, SK) , intent(in) , optional :: deliml, delimr
9236 character(*, SK) , intent(inout) , optional :: iomsg
9237 type(trans_type) , intent(in) :: operation
9238 integer(IK) , intent(in) , optional :: roff
9239 integer(IK) , intent(in) :: unit
9240 integer(IK) :: err
9241 end function
9242#endif
9243
9244#if RK2_ENABLED
9245 module function getErrTableWriteUnit_TO_D2_RK2(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
9246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9247 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_RK2
9248#endif
9249 use pm_kind, only: RKG => RK2
9250 real(RKG) , intent(in) , contiguous :: table(:,:)
9251 character(*, SK) , intent(in) , optional :: header, sep
9252 character(*, SK) , intent(in) , optional :: deliml, delimr
9253 character(*, SK) , intent(inout) , optional :: iomsg
9254 type(trans_type) , intent(in) :: operation
9255 integer(IK) , intent(in) , optional :: roff
9256 integer(IK) , intent(in) :: unit
9257 integer(IK) :: err
9258 end function
9259#endif
9260
9261#if RK1_ENABLED
9262 module function getErrTableWriteUnit_TO_D2_RK1(unit, table, operation, header, sep, deliml, delimr, roff, iomsg) result(err)
9263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9264 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_RK1
9265#endif
9266 use pm_kind, only: RKG => RK1
9267 real(RKG) , intent(in) , contiguous :: table(:,:)
9268 character(*, SK) , intent(in) , optional :: header, sep
9269 character(*, SK) , intent(in) , optional :: deliml, delimr
9270 character(*, SK) , intent(inout) , optional :: iomsg
9271 type(trans_type) , intent(in) :: operation
9272 integer(IK) , intent(in) , optional :: roff
9273 integer(IK) , intent(in) :: unit
9274 integer(IK) :: err
9275 end function
9276#endif
9277
9278 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9279
9280 end interface
9281
9282!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9283
9404
9405 ! seps scalar character scalar nfield missing XX
9406
9407 interface getFieldSep
9408
9409 module function getFieldSepFile_ID0_FDEF_XX_SK(file, seps, iomsg) result(sep)
9410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9411 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepFile_ID0_FDEF_XX_SK
9412#endif
9413 use pm_kind, only: SKG => SK
9414 character(*, SK) , intent(in) :: file
9415 character(*,SKG) , intent(in) :: seps
9416 character(*,SKG) , intent(inout) , optional :: iomsg
9417 character(:,SKG) , allocatable :: sep
9418 end function
9419
9420 module function getFieldSepUnit_ID0_FDEF_XX_SK(unit, seps, iomsg) result(sep)
9421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9422 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepUnit_ID0_FDEF_XX_SK
9423#endif
9424 use pm_kind, only: SKG => SK
9425 integer(IK) , intent(in) :: unit
9426 character(*,SKG) , intent(in) :: seps
9427 character(*,SKG) , intent(inout) , optional :: iomsg
9428 character(:,SKG) , allocatable :: sep
9429 end function
9430
9431 module function getFieldSepFile_ID0_FCSV_XX_SK(file, seps, form, iomsg) result(sep)
9432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9433 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepFile_ID0_FCSV_XX_SK
9434#endif
9435 use pm_kind, only: SKG => SK
9436 character(*, SK) , intent(in) :: file
9437 character(*,SKG) , intent(in) :: seps
9438 type(csv_type) , intent(in) :: form
9439 character(*,SKG) , intent(inout) , optional :: iomsg
9440 character(:,SKG) , allocatable :: sep
9441 end function
9442
9443 module function getFieldSepUnit_ID0_FCSV_XX_SK(unit, seps, form, iomsg) result(sep)
9444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9445 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepUnit_ID0_FCSV_XX_SK
9446#endif
9447 use pm_kind, only: SKG => SK
9448 integer(IK) , intent(in) :: unit
9449 character(*,SKG) , intent(in) :: seps
9450 type(csv_type) , intent(in) :: form
9451 character(*,SKG) , intent(inout) , optional :: iomsg
9452 character(:,SKG) , allocatable :: sep
9453 end function
9454
9455 module function getFieldSepFile_ID0_FFLD_XX_SK(file, seps, form, iomsg) result(sep)
9456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9457 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepFile_ID0_FFLD_XX_SK
9458#endif
9459 use pm_kind, only: SKG => SK
9460 character(*, SK) , intent(in) :: file
9461 character(*,SKG) , intent(in) :: seps
9462 type(fld_type) , intent(in) :: form
9463 character(*,SKG) , intent(inout) , optional :: iomsg
9464 character(:,SKG) , allocatable :: sep
9465 end function
9466
9467 module function getFieldSepUnit_ID0_FFLD_XX_SK(unit, seps, form, iomsg) result(sep)
9468#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9469 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepUnit_ID0_FFLD_XX_SK
9470#endif
9471 use pm_kind, only: SKG => SK
9472 integer(IK) , intent(in) :: unit
9473 character(*,SKG) , intent(in) :: seps
9474 type(fld_type) , intent(in) :: form
9475 character(*,SKG) , intent(inout) , optional :: iomsg
9476 character(:,SKG) , allocatable :: sep
9477 end function
9478
9479 end interface
9480
9481 ! seps scalar character nfield present NF
9482
9483 interface getFieldSep
9484
9485 module function getFieldSepFile_ID0_FDEF_NF_SK(file, seps, nfield, iomsg) result(sep)
9486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9487 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepFile_ID0_FDEF_NF_SK
9488#endif
9489 use pm_kind, only: SKG => SK
9490 character(*, SK) , intent(in) :: file
9491 character(*,SKG) , intent(in) :: seps
9492 character(*,SKG) , intent(inout) , optional :: iomsg
9493 character(:,SKG) , allocatable :: sep
9494 integer(IK) , intent(out) :: nfield
9495 end function
9496
9497 module function getFieldSepUnit_ID0_FDEF_NF_SK(unit, seps, nfield, iomsg) result(sep)
9498#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9499 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepUnit_ID0_FDEF_NF_SK
9500#endif
9501 use pm_kind, only: SKG => SK
9502 integer(IK) , intent(in) :: unit
9503 character(*,SKG) , intent(in) :: seps
9504 character(*,SKG) , intent(inout) , optional :: iomsg
9505 character(:,SKG) , allocatable :: sep
9506 integer(IK) , intent(out) :: nfield
9507 end function
9508
9509 module function getFieldSepFile_ID0_FCSV_NF_SK(file, seps, form, nfield, iomsg) result(sep)
9510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9511 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepFile_ID0_FCSV_NF_SK
9512#endif
9513 use pm_kind, only: SKG => SK
9514 character(*, SK) , intent(in) :: file
9515 character(*,SKG) , intent(in) :: seps
9516 type(csv_type) , intent(in) :: form
9517 character(*,SKG) , intent(inout) , optional :: iomsg
9518 character(:,SKG) , allocatable :: sep
9519 integer(IK) , intent(out) :: nfield
9520 end function
9521
9522 module function getFieldSepUnit_ID0_FCSV_NF_SK(unit, seps, form, nfield, iomsg) result(sep)
9523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9524 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepUnit_ID0_FCSV_NF_SK
9525#endif
9526 use pm_kind, only: SKG => SK
9527 integer(IK) , intent(in) :: unit
9528 character(*,SKG) , intent(in) :: seps
9529 type(csv_type) , intent(in) :: form
9530 character(*,SKG) , intent(inout) , optional :: iomsg
9531 character(:,SKG) , allocatable :: sep
9532 integer(IK) , intent(out) :: nfield
9533 end function
9534
9535 module function getFieldSepFile_ID0_FFLD_NF_SK(file, seps, form, nfield, iomsg) result(sep)
9536#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9537 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepFile_ID0_FFLD_NF_SK
9538#endif
9539 use pm_kind, only: SKG => SK
9540 character(*, SK) , intent(in) :: file
9541 character(*,SKG) , intent(in) :: seps
9542 type(fld_type) , intent(in) :: form
9543 character(*,SKG) , intent(inout) , optional :: iomsg
9544 character(:,SKG) , allocatable :: sep
9545 integer(IK) , intent(out) :: nfield
9546 end function
9547
9548 module function getFieldSepUnit_ID0_FFLD_NF_SK(unit, seps, form, nfield, iomsg) result(sep)
9549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9550 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepUnit_ID0_FFLD_NF_SK
9551#endif
9552 use pm_kind, only: SKG => SK
9553 integer(IK) , intent(in) :: unit
9554 character(*,SKG) , intent(in) :: seps
9555 type(fld_type) , intent(in) :: form
9556 character(*,SKG) , intent(inout) , optional :: iomsg
9557 character(:,SKG) , allocatable :: sep
9558 integer(IK) , intent(out) :: nfield
9559 end function
9560
9561 end interface
9562
9563 ! seps scalar container scalar nfield missing XX
9564
9565 interface getFieldSep
9566
9567 module function getFieldSepFile_CD1_FDEF_XX_SK(file, seps, iomsg) result(sep)
9568#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9569 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepFile_CD1_FDEF_XX_SK
9570#endif
9571 use pm_kind, only: SKG => SK
9572 character(*, SK) , intent(in) :: file
9573 type(css_type) , intent(in) :: seps(:)
9574 character(*,SKG) , intent(inout) , optional :: iomsg
9575 character(:,SKG) , allocatable :: sep
9576 end function
9577
9578 module function getFieldSepUnit_CD1_FDEF_XX_SK(unit, seps, iomsg) result(sep)
9579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9580 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepUnit_CD1_FDEF_XX_SK
9581#endif
9582 use pm_kind, only: SKG => SK
9583 integer(IK) , intent(in) :: unit
9584 type(css_type) , intent(in) :: seps(:)
9585 character(*,SKG) , intent(inout) , optional :: iomsg
9586 character(:,SKG) , allocatable :: sep
9587 end function
9588
9589 module function getFieldSepFile_CD1_FCSV_XX_SK(file, seps, form, iomsg) result(sep)
9590#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9591 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepFile_CD1_FCSV_XX_SK
9592#endif
9593 use pm_kind, only: SKG => SK
9594 character(*, SK) , intent(in) :: file
9595 type(css_type) , intent(in) :: seps(:)
9596 type(csv_type) , intent(in) :: form
9597 character(*,SKG) , intent(inout) , optional :: iomsg
9598 character(:,SKG) , allocatable :: sep
9599 end function
9600
9601 module function getFieldSepUnit_CD1_FCSV_XX_SK(unit, seps, form, iomsg) result(sep)
9602#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9603 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepUnit_CD1_FCSV_XX_SK
9604#endif
9605 use pm_kind, only: SKG => SK
9606 integer(IK) , intent(in) :: unit
9607 type(css_type) , intent(in) :: seps(:)
9608 type(csv_type) , intent(in) :: form
9609 character(*,SKG) , intent(inout) , optional :: iomsg
9610 character(:,SKG) , allocatable :: sep
9611 end function
9612
9613 module function getFieldSepFile_CD1_FFLD_XX_SK(file, seps, form, iomsg) result(sep)
9614#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9615 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepFile_CD1_FFLD_XX_SK
9616#endif
9617 use pm_kind, only: SKG => SK
9618 character(*, SK) , intent(in) :: file
9619 type(css_type) , intent(in) :: seps(:)
9620 type(fld_type) , intent(in) :: form
9621 character(*,SKG) , intent(inout) , optional :: iomsg
9622 character(:,SKG) , allocatable :: sep
9623 end function
9624
9625 module function getFieldSepUnit_CD1_FFLD_XX_SK(unit, seps, form, iomsg) result(sep)
9626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9627 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepUnit_CD1_FFLD_XX_SK
9628#endif
9629 use pm_kind, only: SKG => SK
9630 integer(IK) , intent(in) :: unit
9631 type(css_type) , intent(in) :: seps(:)
9632 type(fld_type) , intent(in) :: form
9633 character(*,SKG) , intent(inout) , optional :: iomsg
9634 character(:,SKG) , allocatable :: sep
9635 end function
9636
9637 end interface
9638
9639 ! seps scalar container nfield present NF
9640
9641 interface getFieldSep
9642
9643 module function getFieldSepFile_CD1_FDEF_NF_SK(file, seps, nfield, iomsg) result(sep)
9644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9645 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepFile_CD1_FDEF_NF_SK
9646#endif
9647 use pm_kind, only: SKG => SK
9648 character(*, SK) , intent(in) :: file
9649 type(css_type) , intent(in) :: seps(:)
9650 character(*,SKG) , intent(inout) , optional :: iomsg
9651 character(:,SKG) , allocatable :: sep
9652 integer(IK) , intent(out) :: nfield
9653 end function
9654
9655 module function getFieldSepUnit_CD1_FDEF_NF_SK(unit, seps, nfield, iomsg) result(sep)
9656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9657 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepUnit_CD1_FDEF_NF_SK
9658#endif
9659 use pm_kind, only: SKG => SK
9660 integer(IK) , intent(in) :: unit
9661 type(css_type) , intent(in) :: seps(:)
9662 character(*,SKG) , intent(inout) , optional :: iomsg
9663 character(:,SKG) , allocatable :: sep
9664 integer(IK) , intent(out) :: nfield
9665 end function
9666
9667 module function getFieldSepFile_CD1_FCSV_NF_SK(file, seps, form, nfield, iomsg) result(sep)
9668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9669 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepFile_CD1_FCSV_NF_SK
9670#endif
9671 use pm_kind, only: SKG => SK
9672 character(*, SK) , intent(in) :: file
9673 type(css_type) , intent(in) :: seps(:)
9674 type(csv_type) , intent(in) :: form
9675 character(*,SKG) , intent(inout) , optional :: iomsg
9676 character(:,SKG) , allocatable :: sep
9677 integer(IK) , intent(out) :: nfield
9678 end function
9679
9680 module function getFieldSepUnit_CD1_FCSV_NF_SK(unit, seps, form, nfield, iomsg) result(sep)
9681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9682 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepUnit_CD1_FCSV_NF_SK
9683#endif
9684 use pm_kind, only: SKG => SK
9685 integer(IK) , intent(in) :: unit
9686 type(css_type) , intent(in) :: seps(:)
9687 type(csv_type) , intent(in) :: form
9688 character(*,SKG) , intent(inout) , optional :: iomsg
9689 character(:,SKG) , allocatable :: sep
9690 integer(IK) , intent(out) :: nfield
9691 end function
9692
9693 module function getFieldSepFile_CD1_FFLD_NF_SK(file, seps, form, nfield, iomsg) result(sep)
9694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9695 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepFile_CD1_FFLD_NF_SK
9696#endif
9697 use pm_kind, only: SKG => SK
9698 character(*, SK) , intent(in) :: file
9699 type(css_type) , intent(in) :: seps(:)
9700 type(fld_type) , intent(in) :: form
9701 character(*,SKG) , intent(inout) , optional :: iomsg
9702 character(:,SKG) , allocatable :: sep
9703 integer(IK) , intent(out) :: nfield
9704 end function
9705
9706 module function getFieldSepUnit_CD1_FFLD_NF_SK(unit, seps, form, nfield, iomsg) result(sep)
9707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9708 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepUnit_CD1_FFLD_NF_SK
9709#endif
9710 use pm_kind, only: SKG => SK
9711 integer(IK) , intent(in) :: unit
9712 type(css_type) , intent(in) :: seps(:)
9713 type(fld_type) , intent(in) :: form
9714 character(*,SKG) , intent(inout) , optional :: iomsg
9715 character(:,SKG) , allocatable :: sep
9716 integer(IK) , intent(out) :: nfield
9717 end function
9718
9719 end interface
9720
9721!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9722
9831 character(:, SK), allocatable , public :: newline
9832 character(:, SK), allocatable , public :: fill
9833 character(:, SK), allocatable , public :: lwfill
9834 character(:, SK), allocatable , public :: rwfill
9835 character(:, SK), allocatable , public :: twfill
9836 character(:, SK), allocatable , public :: bwfill
9837 integer(IK) , public :: lwsize = 2_IK
9838 integer(IK) , public :: rwsize = 2_IK
9839 integer(IK) , public :: twsize = 1_IK
9840 integer(IK) , public :: bwsize = 1_IK
9841 integer(IK) , public :: tmsize = 0_IK
9842 integer(IK) , public :: bmsize = 0_IK
9843 integer(IK) , public :: width = 96_IK
9844 integer(IK) , public :: unit = output_unit
9845 logical(LK) , private :: sticky = .false._LK
9846 logical(LK) , private :: uninit = .true._LK
9847 contains
9849#if SK5_ENABLED
9850 procedure, pass, private :: wrap_D0_SK5
9851 generic :: wrap => wrap_D0_SK5
9852#endif
9853#if SK4_ENABLED
9854 procedure, pass, private :: wrap_D0_SK4
9855 generic :: wrap => wrap_D0_SK4
9856#endif
9857#if SK3_ENABLED
9858 procedure, pass, private :: wrap_D0_SK3
9859 generic :: wrap => wrap_D0_SK3
9860#endif
9861#if SK2_ENABLED
9862 procedure, pass, private :: wrap_D0_SK2
9863 generic :: wrap => wrap_D0_SK2
9864#endif
9865#if SK1_ENABLED
9866 procedure, pass, private :: wrap_D0_SK1
9867 generic :: wrap => wrap_D0_SK1
9868#endif
9870 end type
9871
9995 interface wrap
9996
9997 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9998
9999#if SK5_ENABLED
10000 impure module subroutine wrap_D0_SK5(self, str, newline, fill, lwfill, rwfill, twfill, bwfill, lwsize, rwsize, twsize, bwsize, tmsize, bmsize, width, unit, sticky)
10001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10002 !DEC$ ATTRIBUTES DLLEXPORT :: wrap_D0_SK5
10003#endif
10004 use pm_kind, only: SKG => SK5
10005 class(wrap_type) , intent(inout) :: self
10006 character(*,SKG) , intent(in) :: str
10007 character(*,SKG) , intent(in) , optional :: newline
10008 character(1,SKG) , intent(in) , optional :: fill, lwfill, rwfill, twfill, bwfill
10009 integer(IK) , intent(in) , optional :: lwsize, twsize, rwsize, bwsize
10010 integer(IK) , intent(in) , optional :: tmsize, bmsize
10011 integer(IK) , intent(in) , optional :: width, unit
10012 logical(LK) , intent(in) , optional :: sticky
10013 end subroutine
10014#endif
10015
10016#if SK4_ENABLED
10017 impure module subroutine wrap_D0_SK4(self, str, newline, fill, lwfill, rwfill, twfill, bwfill, lwsize, rwsize, twsize, bwsize, tmsize, bmsize, width, unit, sticky)
10018#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10019 !DEC$ ATTRIBUTES DLLEXPORT :: wrap_D0_SK4
10020#endif
10021 use pm_kind, only: SKG => SK4
10022 class(wrap_type) , intent(inout) :: self
10023 character(*,SKG) , intent(in) :: str
10024 character(*,SKG) , intent(in) , optional :: newline
10025 character(1,SKG) , intent(in) , optional :: fill, lwfill, rwfill, twfill, bwfill
10026 integer(IK) , intent(in) , optional :: lwsize, twsize, rwsize, bwsize
10027 integer(IK) , intent(in) , optional :: tmsize, bmsize
10028 integer(IK) , intent(in) , optional :: width, unit
10029 logical(LK) , intent(in) , optional :: sticky
10030 end subroutine
10031#endif
10032
10033#if SK3_ENABLED
10034 impure module subroutine wrap_D0_SK3(self, str, newline, fill, lwfill, rwfill, twfill, bwfill, lwsize, rwsize, twsize, bwsize, tmsize, bmsize, width, unit, sticky)
10035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10036 !DEC$ ATTRIBUTES DLLEXPORT :: wrap_D0_SK3
10037#endif
10038 use pm_kind, only: SKG => SK3
10039 class(wrap_type) , intent(inout) :: self
10040 character(*,SKG) , intent(in) :: str
10041 character(*,SKG) , intent(in) , optional :: newline
10042 character(1,SKG) , intent(in) , optional :: fill, lwfill, rwfill, twfill, bwfill
10043 integer(IK) , intent(in) , optional :: lwsize, twsize, rwsize, bwsize
10044 integer(IK) , intent(in) , optional :: tmsize, bmsize
10045 integer(IK) , intent(in) , optional :: width, unit
10046 logical(LK) , intent(in) , optional :: sticky
10047 end subroutine
10048#endif
10049
10050#if SK2_ENABLED
10051 impure module subroutine wrap_D0_SK2(self, str, newline, fill, lwfill, rwfill, twfill, bwfill, lwsize, rwsize, twsize, bwsize, tmsize, bmsize, width, unit, sticky)
10052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10053 !DEC$ ATTRIBUTES DLLEXPORT :: wrap_D0_SK2
10054#endif
10055 use pm_kind, only: SKG => SK2
10056 class(wrap_type) , intent(inout) :: self
10057 character(*,SKG) , intent(in) :: str
10058 character(*,SKG) , intent(in) , optional :: newline
10059 character(1,SKG) , intent(in) , optional :: fill, lwfill, rwfill, twfill, bwfill
10060 integer(IK) , intent(in) , optional :: lwsize, twsize, rwsize, bwsize
10061 integer(IK) , intent(in) , optional :: tmsize, bmsize
10062 integer(IK) , intent(in) , optional :: width, unit
10063 logical(LK) , intent(in) , optional :: sticky
10064 end subroutine
10065#endif
10066
10067#if SK1_ENABLED
10068 impure module subroutine wrap_D0_SK1(self, str, newline, fill, lwfill, rwfill, twfill, bwfill, lwsize, rwsize, twsize, bwsize, tmsize, bmsize, width, unit, sticky)
10069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10070 !DEC$ ATTRIBUTES DLLEXPORT :: wrap_D0_SK1
10071#endif
10072 use pm_kind, only: SKG => SK1
10073 class(wrap_type) , intent(inout) :: self
10074 character(*,SKG) , intent(in) :: str
10075 character(*,SKG) , intent(in) , optional :: newline
10076 character(1,SKG) , intent(in) , optional :: fill, lwfill, rwfill, twfill, bwfill
10077 integer(IK) , intent(in) , optional :: lwsize, twsize, rwsize, bwsize
10078 integer(IK) , intent(in) , optional :: tmsize, bmsize
10079 integer(IK) , intent(in) , optional :: width, unit
10080 logical(LK) , intent(in) , optional :: sticky
10081 end subroutine
10082#endif
10083
10084 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10085
10086 end interface
10087
10088!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10089
10283 logical(LK) , private :: sticky = .false._LK
10284 logical(LK) , private :: uninit = .true._LK
10288 integer(IK) , public :: width = -huge(0_IK)
10289 integer(IK) , public :: height = -huge(0_IK)
10290 integer(IK) , public :: tmsize = 0_IK
10291 integer(IK) , public :: count = 1_IK
10292 integer(IK) , public :: bmsize = 0_IK
10293 integer(IK) , public :: unit = output_unit
10294 character(3, SK) , public :: advance = SK_"YES"
10295 character(:, SK), allocatable , public :: file
10296 type(field_type) , public :: format
10297 type(field_type) , public :: deliml
10298 type(field_type) , public :: delimr
10299 type(wrap_type) , public :: text
10300 type(mark_type) , public :: mark
10301 type(note_type) , public :: note
10302 type(warn_type) , public :: warn
10303 type(stop_type) , public :: stop
10305 contains
10306 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10307 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10308 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10309
10310 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10311
10312#if SK5_ENABLED
10313 procedure, pass, private :: show_D0_SK5
10314 generic :: show => show_D0_SK5
10315#endif
10316#if SK4_ENABLED
10317 procedure, pass, private :: show_D0_SK4
10318 generic :: show => show_D0_SK4
10319#endif
10320#if SK3_ENABLED
10321 procedure, pass, private :: show_D0_SK3
10322 generic :: show => show_D0_SK3
10323#endif
10324#if SK2_ENABLED
10325 procedure, pass, private :: show_D0_SK2
10326 generic :: show => show_D0_SK2
10327#endif
10328#if SK1_ENABLED
10329 procedure, pass, private :: show_D0_SK1
10330 generic :: show => show_D0_SK1
10331#endif
10332
10333 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10334
10335#if IK5_ENABLED
10336 procedure, pass, private :: show_D0_IK5
10337 generic :: show => show_D0_IK5
10338#endif
10339#if IK4_ENABLED
10340 procedure, pass, private :: show_D0_IK4
10341 generic :: show => show_D0_IK4
10342#endif
10343#if IK3_ENABLED
10344 procedure, pass, private :: show_D0_IK3
10345 generic :: show => show_D0_IK3
10346#endif
10347#if IK2_ENABLED
10348 procedure, pass, private :: show_D0_IK2
10349 generic :: show => show_D0_IK2
10350#endif
10351#if IK1_ENABLED
10352 procedure, pass, private :: show_D0_IK1
10353 generic :: show => show_D0_IK1
10354#endif
10355
10356 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10357
10358#if LK5_ENABLED
10359 procedure, pass, private :: show_D0_LK5
10360 generic :: show => show_D0_LK5
10361#endif
10362#if LK4_ENABLED
10363 procedure, pass, private :: show_D0_LK4
10364 generic :: show => show_D0_LK4
10365#endif
10366#if LK3_ENABLED
10367 procedure, pass, private :: show_D0_LK3
10368 generic :: show => show_D0_LK3
10369#endif
10370#if LK2_ENABLED
10371 procedure, pass, private :: show_D0_LK2
10372 generic :: show => show_D0_LK2
10373#endif
10374#if LK1_ENABLED
10375 procedure, pass, private :: show_D0_LK1
10376 generic :: show => show_D0_LK1
10377#endif
10378
10379 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10380
10381#if CK5_ENABLED
10382 procedure, pass, private :: show_D0_CK5
10383 generic :: show => show_D0_CK5
10384#endif
10385#if CK4_ENABLED
10386 procedure, pass, private :: show_D0_CK4
10387 generic :: show => show_D0_CK4
10388#endif
10389#if CK3_ENABLED
10390 procedure, pass, private :: show_D0_CK3
10391 generic :: show => show_D0_CK3
10392#endif
10393#if CK2_ENABLED
10394 procedure, pass, private :: show_D0_CK2
10395 generic :: show => show_D0_CK2
10396#endif
10397#if CK1_ENABLED
10398 procedure, pass, private :: show_D0_CK1
10399 generic :: show => show_D0_CK1
10400#endif
10401
10402 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10403
10404#if RK5_ENABLED
10405 procedure, pass, private :: show_D0_RK5
10406 generic :: show => show_D0_RK5
10407#endif
10408#if RK4_ENABLED
10409 procedure, pass, private :: show_D0_RK4
10410 generic :: show => show_D0_RK4
10411#endif
10412#if RK3_ENABLED
10413 procedure, pass, private :: show_D0_RK3
10414 generic :: show => show_D0_RK3
10415#endif
10416#if RK2_ENABLED
10417 procedure, pass, private :: show_D0_RK2
10418 generic :: show => show_D0_RK2
10419#endif
10420#if RK1_ENABLED
10421 procedure, pass, private :: show_D0_RK1
10422 generic :: show => show_D0_RK1
10423#endif
10424
10425 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10426
10427 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10428 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10429 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10430
10431 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10432
10433#if SK5_ENABLED
10434 procedure, pass, private :: show_D1_SK5
10435 generic :: show => show_D1_SK5
10436#endif
10437#if SK4_ENABLED
10438 procedure, pass, private :: show_D1_SK4
10439 generic :: show => show_D1_SK4
10440#endif
10441#if SK3_ENABLED
10442 procedure, pass, private :: show_D1_SK3
10443 generic :: show => show_D1_SK3
10444#endif
10445#if SK2_ENABLED
10446 procedure, pass, private :: show_D1_SK2
10447 generic :: show => show_D1_SK2
10448#endif
10449#if SK1_ENABLED
10450 procedure, pass, private :: show_D1_SK1
10451 generic :: show => show_D1_SK1
10452#endif
10453
10454 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10455
10456#if IK5_ENABLED
10457 procedure, pass, private :: show_D1_IK5
10458 generic :: show => show_D1_IK5
10459#endif
10460#if IK4_ENABLED
10461 procedure, pass, private :: show_D1_IK4
10462 generic :: show => show_D1_IK4
10463#endif
10464#if IK3_ENABLED
10465 procedure, pass, private :: show_D1_IK3
10466 generic :: show => show_D1_IK3
10467#endif
10468#if IK2_ENABLED
10469 procedure, pass, private :: show_D1_IK2
10470 generic :: show => show_D1_IK2
10471#endif
10472#if IK1_ENABLED
10473 procedure, pass, private :: show_D1_IK1
10474 generic :: show => show_D1_IK1
10475#endif
10476
10477 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10478
10479#if LK5_ENABLED
10480 procedure, pass, private :: show_D1_LK5
10481 generic :: show => show_D1_LK5
10482#endif
10483#if LK4_ENABLED
10484 procedure, pass, private :: show_D1_LK4
10485 generic :: show => show_D1_LK4
10486#endif
10487#if LK3_ENABLED
10488 procedure, pass, private :: show_D1_LK3
10489 generic :: show => show_D1_LK3
10490#endif
10491#if LK2_ENABLED
10492 procedure, pass, private :: show_D1_LK2
10493 generic :: show => show_D1_LK2
10494#endif
10495#if LK1_ENABLED
10496 procedure, pass, private :: show_D1_LK1
10497 generic :: show => show_D1_LK1
10498#endif
10499
10500 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10501
10502#if CK5_ENABLED
10503 procedure, pass, private :: show_D1_CK5
10504 generic :: show => show_D1_CK5
10505#endif
10506#if CK4_ENABLED
10507 procedure, pass, private :: show_D1_CK4
10508 generic :: show => show_D1_CK4
10509#endif
10510#if CK3_ENABLED
10511 procedure, pass, private :: show_D1_CK3
10512 generic :: show => show_D1_CK3
10513#endif
10514#if CK2_ENABLED
10515 procedure, pass, private :: show_D1_CK2
10516 generic :: show => show_D1_CK2
10517#endif
10518#if CK1_ENABLED
10519 procedure, pass, private :: show_D1_CK1
10520 generic :: show => show_D1_CK1
10521#endif
10522
10523 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10524
10525#if RK5_ENABLED
10526 procedure, pass, private :: show_D1_RK5
10527 generic :: show => show_D1_RK5
10528#endif
10529#if RK4_ENABLED
10530 procedure, pass, private :: show_D1_RK4
10531 generic :: show => show_D1_RK4
10532#endif
10533#if RK3_ENABLED
10534 procedure, pass, private :: show_D1_RK3
10535 generic :: show => show_D1_RK3
10536#endif
10537#if RK2_ENABLED
10538 procedure, pass, private :: show_D1_RK2
10539 generic :: show => show_D1_RK2
10540#endif
10541#if RK1_ENABLED
10542 procedure, pass, private :: show_D1_RK1
10543 generic :: show => show_D1_RK1
10544#endif
10545
10546 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10547
10548 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10549 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10550 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10551
10552 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10553
10554#if SK5_ENABLED
10555 procedure, pass, private :: show_D2_SK5
10556 generic :: show => show_D2_SK5
10557#endif
10558#if SK4_ENABLED
10559 procedure, pass, private :: show_D2_SK4
10560 generic :: show => show_D2_SK4
10561#endif
10562#if SK3_ENABLED
10563 procedure, pass, private :: show_D2_SK3
10564 generic :: show => show_D2_SK3
10565#endif
10566#if SK2_ENABLED
10567 procedure, pass, private :: show_D2_SK2
10568 generic :: show => show_D2_SK2
10569#endif
10570#if SK1_ENABLED
10571 procedure, pass, private :: show_D2_SK1
10572 generic :: show => show_D2_SK1
10573#endif
10574
10575 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10576
10577#if IK5_ENABLED
10578 procedure, pass, private :: show_D2_IK5
10579 generic :: show => show_D2_IK5
10580#endif
10581#if IK4_ENABLED
10582 procedure, pass, private :: show_D2_IK4
10583 generic :: show => show_D2_IK4
10584#endif
10585#if IK3_ENABLED
10586 procedure, pass, private :: show_D2_IK3
10587 generic :: show => show_D2_IK3
10588#endif
10589#if IK2_ENABLED
10590 procedure, pass, private :: show_D2_IK2
10591 generic :: show => show_D2_IK2
10592#endif
10593#if IK1_ENABLED
10594 procedure, pass, private :: show_D2_IK1
10595 generic :: show => show_D2_IK1
10596#endif
10597
10598 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10599
10600#if LK5_ENABLED
10601 procedure, pass, private :: show_D2_LK5
10602 generic :: show => show_D2_LK5
10603#endif
10604#if LK4_ENABLED
10605 procedure, pass, private :: show_D2_LK4
10606 generic :: show => show_D2_LK4
10607#endif
10608#if LK3_ENABLED
10609 procedure, pass, private :: show_D2_LK3
10610 generic :: show => show_D2_LK3
10611#endif
10612#if LK2_ENABLED
10613 procedure, pass, private :: show_D2_LK2
10614 generic :: show => show_D2_LK2
10615#endif
10616#if LK1_ENABLED
10617 procedure, pass, private :: show_D2_LK1
10618 generic :: show => show_D2_LK1
10619#endif
10620
10621 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10622
10623#if CK5_ENABLED
10624 procedure, pass, private :: show_D2_CK5
10625 generic :: show => show_D2_CK5
10626#endif
10627#if CK4_ENABLED
10628 procedure, pass, private :: show_D2_CK4
10629 generic :: show => show_D2_CK4
10630#endif
10631#if CK3_ENABLED
10632 procedure, pass, private :: show_D2_CK3
10633 generic :: show => show_D2_CK3
10634#endif
10635#if CK2_ENABLED
10636 procedure, pass, private :: show_D2_CK2
10637 generic :: show => show_D2_CK2
10638#endif
10639#if CK1_ENABLED
10640 procedure, pass, private :: show_D2_CK1
10641 generic :: show => show_D2_CK1
10642#endif
10643
10644 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10645
10646#if RK5_ENABLED
10647 procedure, pass, private :: show_D2_RK5
10648 generic :: show => show_D2_RK5
10649#endif
10650#if RK4_ENABLED
10651 procedure, pass, private :: show_D2_RK4
10652 generic :: show => show_D2_RK4
10653#endif
10654#if RK3_ENABLED
10655 procedure, pass, private :: show_D2_RK3
10656 generic :: show => show_D2_RK3
10657#endif
10658#if RK2_ENABLED
10659 procedure, pass, private :: show_D2_RK2
10660 generic :: show => show_D2_RK2
10661#endif
10662#if RK1_ENABLED
10663 procedure, pass, private :: show_D2_RK1
10664 generic :: show => show_D2_RK1
10665#endif
10666
10667 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10668
10669 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10670 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10671 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10672
10673#if FORTRAN_ENABLED
10674
10675 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10676
10677#if SK5_ENABLED
10678 procedure, pass, private :: show_D3_SK5
10679 generic :: show => show_D3_SK5
10680#endif
10681#if SK4_ENABLED
10682 procedure, pass, private :: show_D3_SK4
10683 generic :: show => show_D3_SK4
10684#endif
10685#if SK3_ENABLED
10686 procedure, pass, private :: show_D3_SK3
10687 generic :: show => show_D3_SK3
10688#endif
10689#if SK2_ENABLED
10690 procedure, pass, private :: show_D3_SK2
10691 generic :: show => show_D3_SK2
10692#endif
10693#if SK1_ENABLED
10694 procedure, pass, private :: show_D3_SK1
10695 generic :: show => show_D3_SK1
10696#endif
10697
10698 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10699
10700#if IK5_ENABLED
10701 procedure, pass, private :: show_D3_IK5
10702 generic :: show => show_D3_IK5
10703#endif
10704#if IK4_ENABLED
10705 procedure, pass, private :: show_D3_IK4
10706 generic :: show => show_D3_IK4
10707#endif
10708#if IK3_ENABLED
10709 procedure, pass, private :: show_D3_IK3
10710 generic :: show => show_D3_IK3
10711#endif
10712#if IK2_ENABLED
10713 procedure, pass, private :: show_D3_IK2
10714 generic :: show => show_D3_IK2
10715#endif
10716#if IK1_ENABLED
10717 procedure, pass, private :: show_D3_IK1
10718 generic :: show => show_D3_IK1
10719#endif
10720
10721 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10722
10723#if LK5_ENABLED
10724 procedure, pass, private :: show_D3_LK5
10725 generic :: show => show_D3_LK5
10726#endif
10727#if LK4_ENABLED
10728 procedure, pass, private :: show_D3_LK4
10729 generic :: show => show_D3_LK4
10730#endif
10731#if LK3_ENABLED
10732 procedure, pass, private :: show_D3_LK3
10733 generic :: show => show_D3_LK3
10734#endif
10735#if LK2_ENABLED
10736 procedure, pass, private :: show_D3_LK2
10737 generic :: show => show_D3_LK2
10738#endif
10739#if LK1_ENABLED
10740 procedure, pass, private :: show_D3_LK1
10741 generic :: show => show_D3_LK1
10742#endif
10743
10744 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10745
10746#if CK5_ENABLED
10747 procedure, pass, private :: show_D3_CK5
10748 generic :: show => show_D3_CK5
10749#endif
10750#if CK4_ENABLED
10751 procedure, pass, private :: show_D3_CK4
10752 generic :: show => show_D3_CK4
10753#endif
10754#if CK3_ENABLED
10755 procedure, pass, private :: show_D3_CK3
10756 generic :: show => show_D3_CK3
10757#endif
10758#if CK2_ENABLED
10759 procedure, pass, private :: show_D3_CK2
10760 generic :: show => show_D3_CK2
10761#endif
10762#if CK1_ENABLED
10763 procedure, pass, private :: show_D3_CK1
10764 generic :: show => show_D3_CK1
10765#endif
10766
10767 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10768
10769#if RK5_ENABLED
10770 procedure, pass, private :: show_D3_RK5
10771 generic :: show => show_D3_RK5
10772#endif
10773#if RK4_ENABLED
10774 procedure, pass, private :: show_D3_RK4
10775 generic :: show => show_D3_RK4
10776#endif
10777#if RK3_ENABLED
10778 procedure, pass, private :: show_D3_RK3
10779 generic :: show => show_D3_RK3
10780#endif
10781#if RK2_ENABLED
10782 procedure, pass, private :: show_D3_RK2
10783 generic :: show => show_D3_RK2
10784#endif
10785#if RK1_ENABLED
10786 procedure, pass, private :: show_D3_RK1
10787 generic :: show => show_D3_RK1
10788#endif
10789
10790 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10791
10792#endif
10793!FORTRAN_ENABLED
10794
10795 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10796 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10797 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10798
10799#if PDT_ENABLED
10800
10801 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10802
10803#if SK5_ENABLED
10804 procedure, pass, private :: show_D0_PSSK5, show_D1_PSSK5, show_D2_PSSK5, show_D3_PSSK5
10805 generic :: show => show_D0_PSSK5, show_D1_PSSK5, show_D2_PSSK5, show_D3_PSSK5
10806#endif
10807#if SK4_ENABLED
10808 procedure, pass, private :: show_D0_PSSK4, show_D1_PSSK4, show_D2_PSSK4, show_D3_PSSK4
10809 generic :: show => show_D0_PSSK4, show_D1_PSSK4, show_D2_PSSK4, show_D3_PSSK4
10810#endif
10811#if SK3_ENABLED
10812 procedure, pass, private :: show_D0_PSSK3, show_D1_PSSK3, show_D2_PSSK3, show_D3_PSSK3
10813 generic :: show => show_D0_PSSK3, show_D1_PSSK3, show_D2_PSSK3, show_D3_PSSK3
10814#endif
10815#if SK2_ENABLED
10816 procedure, pass, private :: show_D0_PSSK2, show_D1_PSSK2, show_D2_PSSK2, show_D3_PSSK2
10817 generic :: show => show_D0_PSSK2, show_D1_PSSK2, show_D2_PSSK2, show_D3_PSSK2
10818#endif
10819#if SK1_ENABLED
10820 procedure, pass, private :: show_D0_PSSK1, show_D1_PSSK1, show_D2_PSSK1, show_D3_PSSK1
10821 generic :: show => show_D0_PSSK1, show_D1_PSSK1, show_D2_PSSK1, show_D3_PSSK1
10822#endif
10823
10824 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10825
10826#if IK5_ENABLED
10827 procedure, pass, private :: show_D0_PSIK5, show_D1_PSIK5, show_D2_PSIK5, show_D3_PSIK5
10828 generic :: show => show_D0_PSIK5, show_D1_PSIK5, show_D2_PSIK5, show_D3_PSIK5
10829#endif
10830#if IK4_ENABLED
10831 procedure, pass, private :: show_D0_PSIK4, show_D1_PSIK4, show_D2_PSIK4, show_D3_PSIK4
10832 generic :: show => show_D0_PSIK4, show_D1_PSIK4, show_D2_PSIK4, show_D3_PSIK4
10833#endif
10834#if IK3_ENABLED
10835 procedure, pass, private :: show_D0_PSIK3, show_D1_PSIK3, show_D2_PSIK3, show_D3_PSIK3
10836 generic :: show => show_D0_PSIK3, show_D1_PSIK3, show_D2_PSIK3, show_D3_PSIK3
10837#endif
10838#if IK2_ENABLED
10839 procedure, pass, private :: show_D0_PSIK2, show_D1_PSIK2, show_D2_PSIK2, show_D3_PSIK2
10840 generic :: show => show_D0_PSIK2, show_D1_PSIK2, show_D2_PSIK2, show_D3_PSIK2
10841#endif
10842#if IK1_ENABLED
10843 procedure, pass, private :: show_D0_PSIK1, show_D1_PSIK1, show_D2_PSIK1, show_D3_PSIK1
10844 generic :: show => show_D0_PSIK1, show_D1_PSIK1, show_D2_PSIK1, show_D3_PSIK1
10845#endif
10846
10847 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10848
10849#if LK5_ENABLED
10850 procedure, pass, private :: show_D0_PSLK5, show_D1_PSLK5, show_D2_PSLK5, show_D3_PSLK5
10851 generic :: show => show_D0_PSLK5, show_D1_PSLK5, show_D2_PSLK5, show_D3_PSLK5
10852#endif
10853#if LK4_ENABLED
10854 procedure, pass, private :: show_D0_PSLK4, show_D1_PSLK4, show_D2_PSLK4, show_D3_PSLK4
10855 generic :: show => show_D0_PSLK4, show_D1_PSLK4, show_D2_PSLK4, show_D3_PSLK4
10856#endif
10857#if LK3_ENABLED
10858 procedure, pass, private :: show_D0_PSLK3, show_D1_PSLK3, show_D2_PSLK3, show_D3_PSLK3
10859 generic :: show => show_D0_PSLK3, show_D1_PSLK3, show_D2_PSLK3, show_D3_PSLK3
10860#endif
10861#if LK2_ENABLED
10862 procedure, pass, private :: show_D0_PSLK2, show_D1_PSLK2, show_D2_PSLK2, show_D3_PSLK2
10863 generic :: show => show_D0_PSLK2, show_D1_PSLK2, show_D2_PSLK2, show_D3_PSLK2
10864#endif
10865#if LK1_ENABLED
10866 procedure, pass, private :: show_D0_PSLK1, show_D1_PSLK1, show_D2_PSLK1, show_D3_PSLK1
10867 generic :: show => show_D0_PSLK1, show_D1_PSLK1, show_D2_PSLK1, show_D3_PSLK1
10868#endif
10869
10870 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10871
10872#if CK5_ENABLED
10873 procedure, pass, private :: show_D0_PSCK5, show_D1_PSCK5, show_D2_PSCK5, show_D3_PSCK5
10874 generic :: show => show_D0_PSCK5, show_D1_PSCK5, show_D2_PSCK5, show_D3_PSCK5
10875#endif
10876#if CK4_ENABLED
10877 procedure, pass, private :: show_D0_PSCK4, show_D1_PSCK4, show_D2_PSCK4, show_D3_PSCK4
10878 generic :: show => show_D0_PSCK4, show_D1_PSCK4, show_D2_PSCK4, show_D3_PSCK4
10879#endif
10880#if CK3_ENABLED
10881 procedure, pass, private :: show_D0_PSCK3, show_D1_PSCK3, show_D2_PSCK3, show_D3_PSCK3
10882 generic :: show => show_D0_PSCK3, show_D1_PSCK3, show_D2_PSCK3, show_D3_PSCK3
10883#endif
10884#if CK2_ENABLED
10885 procedure, pass, private :: show_D0_PSCK2, show_D1_PSCK2, show_D2_PSCK2, show_D3_PSCK2
10886 generic :: show => show_D0_PSCK2, show_D1_PSCK2, show_D2_PSCK2, show_D3_PSCK2
10887#endif
10888#if CK1_ENABLED
10889 procedure, pass, private :: show_D0_PSCK1, show_D1_PSCK1, show_D2_PSCK1, show_D3_PSCK1
10890 generic :: show => show_D0_PSCK1, show_D1_PSCK1, show_D2_PSCK1, show_D3_PSCK1
10891#endif
10892
10893 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10894
10895#if RK5_ENABLED
10896 procedure, pass, private :: show_D0_PSRK5, show_D1_PSRK5, show_D2_PSRK5, show_D3_PSRK5
10897 generic :: show => show_D0_PSRK5, show_D1_PSRK5, show_D2_PSRK5, show_D3_PSRK5
10898#endif
10899#if RK4_ENABLED
10900 procedure, pass, private :: show_D0_PSRK4, show_D1_PSRK4, show_D2_PSRK4, show_D3_PSRK4
10901 generic :: show => show_D0_PSRK4, show_D1_PSRK4, show_D2_PSRK4, show_D3_PSRK4
10902#endif
10903#if RK3_ENABLED
10904 procedure, pass, private :: show_D0_PSRK3, show_D1_PSRK3, show_D2_PSRK3, show_D3_PSRK3
10905 generic :: show => show_D0_PSRK3, show_D1_PSRK3, show_D2_PSRK3, show_D3_PSRK3
10906#endif
10907#if RK2_ENABLED
10908 procedure, pass, private :: show_D0_PSRK2, show_D1_PSRK2, show_D2_PSRK2, show_D3_PSRK2
10909 generic :: show => show_D0_PSRK2, show_D1_PSRK2, show_D2_PSRK2, show_D3_PSRK2
10910#endif
10911#if RK1_ENABLED
10912 procedure, pass, private :: show_D0_PSRK1, show_D1_PSRK1, show_D2_PSRK1, show_D3_PSRK1
10913 generic :: show => show_D0_PSRK1, show_D1_PSRK1, show_D2_PSRK1, show_D3_PSRK1
10914#endif
10915
10916 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10917
10918 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10919 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10920 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10921
10922 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10923
10924#if SK5_ENABLED
10925 procedure, pass, private :: show_D0_PVSK5, show_D1_PVSK5, show_D2_PVSK5
10926 generic :: show => show_D0_PVSK5, show_D1_PVSK5, show_D2_PVSK5
10927#endif
10928#if SK4_ENABLED
10929 procedure, pass, private :: show_D0_PVSK4, show_D1_PVSK4, show_D2_PVSK4
10930 generic :: show => show_D0_PVSK4, show_D1_PVSK4, show_D2_PVSK4
10931#endif
10932#if SK3_ENABLED
10933 procedure, pass, private :: show_D0_PVSK3, show_D1_PVSK3, show_D2_PVSK3
10934 generic :: show => show_D0_PVSK3, show_D1_PVSK3, show_D2_PVSK3
10935#endif
10936#if SK2_ENABLED
10937 procedure, pass, private :: show_D0_PVSK2, show_D1_PVSK2, show_D2_PVSK2
10938 generic :: show => show_D0_PVSK2, show_D1_PVSK2, show_D2_PVSK2
10939#endif
10940#if SK1_ENABLED
10941 procedure, pass, private :: show_D0_PVSK1, show_D1_PVSK1, show_D2_PVSK1
10942 generic :: show => show_D0_PVSK1, show_D1_PVSK1, show_D2_PVSK1
10943#endif
10944
10945 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10946
10947#if IK5_ENABLED
10948 procedure, pass, private :: show_D0_PVIK5, show_D1_PVIK5, show_D2_PVIK5
10949 generic :: show => show_D0_PVIK5, show_D1_PVIK5, show_D2_PVIK5
10950#endif
10951#if IK4_ENABLED
10952 procedure, pass, private :: show_D0_PVIK4, show_D1_PVIK4, show_D2_PVIK4
10953 generic :: show => show_D0_PVIK4, show_D1_PVIK4, show_D2_PVIK4
10954#endif
10955#if IK3_ENABLED
10956 procedure, pass, private :: show_D0_PVIK3, show_D1_PVIK3, show_D2_PVIK3
10957 generic :: show => show_D0_PVIK3, show_D1_PVIK3, show_D2_PVIK3
10958#endif
10959#if IK2_ENABLED
10960 procedure, pass, private :: show_D0_PVIK2, show_D1_PVIK2, show_D2_PVIK2
10961 generic :: show => show_D0_PVIK2, show_D1_PVIK2, show_D2_PVIK2
10962#endif
10963#if IK1_ENABLED
10964 procedure, pass, private :: show_D0_PVIK1, show_D1_PVIK1, show_D2_PVIK1
10965 generic :: show => show_D0_PVIK1, show_D1_PVIK1, show_D2_PVIK1
10966#endif
10967
10968 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10969
10970#if LK5_ENABLED
10971 procedure, pass, private :: show_D0_PVLK5, show_D1_PVLK5, show_D2_PVLK5
10972 generic :: show => show_D0_PVLK5, show_D1_PVLK5, show_D2_PVLK5
10973#endif
10974#if LK4_ENABLED
10975 procedure, pass, private :: show_D0_PVLK4, show_D1_PVLK4, show_D2_PVLK4
10976 generic :: show => show_D0_PVLK4, show_D1_PVLK4, show_D2_PVLK4
10977#endif
10978#if LK3_ENABLED
10979 procedure, pass, private :: show_D0_PVLK3, show_D1_PVLK3, show_D2_PVLK3
10980 generic :: show => show_D0_PVLK3, show_D1_PVLK3, show_D2_PVLK3
10981#endif
10982#if LK2_ENABLED
10983 procedure, pass, private :: show_D0_PVLK2, show_D1_PVLK2, show_D2_PVLK2
10984 generic :: show => show_D0_PVLK2, show_D1_PVLK2, show_D2_PVLK2
10985#endif
10986#if LK1_ENABLED
10987 procedure, pass, private :: show_D0_PVLK1, show_D1_PVLK1, show_D2_PVLK1
10988 generic :: show => show_D0_PVLK1, show_D1_PVLK1, show_D2_PVLK1
10989#endif
10990
10991 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10992
10993#if CK5_ENABLED
10994 procedure, pass, private :: show_D0_PVCK5, show_D1_PVCK5, show_D2_PVCK5
10995 generic :: show => show_D0_PVCK5, show_D1_PVCK5, show_D2_PVCK5
10996#endif
10997#if CK4_ENABLED
10998 procedure, pass, private :: show_D0_PVCK4, show_D1_PVCK4, show_D2_PVCK4
10999 generic :: show => show_D0_PVCK4, show_D1_PVCK4, show_D2_PVCK4
11000#endif
11001#if CK3_ENABLED
11002 procedure, pass, private :: show_D0_PVCK3, show_D1_PVCK3, show_D2_PVCK3
11003 generic :: show => show_D0_PVCK3, show_D1_PVCK3, show_D2_PVCK3
11004#endif
11005#if CK2_ENABLED
11006 procedure, pass, private :: show_D0_PVCK2, show_D1_PVCK2, show_D2_PVCK2
11007 generic :: show => show_D0_PVCK2, show_D1_PVCK2, show_D2_PVCK2
11008#endif
11009#if CK1_ENABLED
11010 procedure, pass, private :: show_D0_PVCK1, show_D1_PVCK1, show_D2_PVCK1
11011 generic :: show => show_D0_PVCK1, show_D1_PVCK1, show_D2_PVCK1
11012#endif
11013
11014 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11015
11016#if RK5_ENABLED
11017 procedure, pass, private :: show_D0_PVRK5, show_D1_PVRK5, show_D2_PVRK5
11018 generic :: show => show_D0_PVRK5, show_D1_PVRK5, show_D2_PVRK5
11019#endif
11020#if RK4_ENABLED
11021 procedure, pass, private :: show_D0_PVRK4, show_D1_PVRK4, show_D2_PVRK4
11022 generic :: show => show_D0_PVRK4, show_D1_PVRK4, show_D2_PVRK4
11023#endif
11024#if RK3_ENABLED
11025 procedure, pass, private :: show_D0_PVRK3, show_D1_PVRK3, show_D2_PVRK3
11026 generic :: show => show_D0_PVRK3, show_D1_PVRK3, show_D2_PVRK3
11027#endif
11028#if RK2_ENABLED
11029 procedure, pass, private :: show_D0_PVRK2, show_D1_PVRK2, show_D2_PVRK2
11030 generic :: show => show_D0_PVRK2, show_D1_PVRK2, show_D2_PVRK2
11031#endif
11032#if RK1_ENABLED
11033 procedure, pass, private :: show_D0_PVRK1, show_D1_PVRK1, show_D2_PVRK1
11034 generic :: show => show_D0_PVRK1, show_D1_PVRK1, show_D2_PVRK1
11035#endif
11036
11037 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11038
11039 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11040 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11041 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11042
11043 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11044
11045#if SK5_ENABLED
11046 procedure, pass, private :: show_D0_PMSK5, show_D1_PMSK5
11047 generic :: show => show_D0_PMSK5, show_D1_PMSK5
11048#endif
11049#if SK4_ENABLED
11050 procedure, pass, private :: show_D0_PMSK4, show_D1_PMSK4
11051 generic :: show => show_D0_PMSK4, show_D1_PMSK4
11052#endif
11053#if SK3_ENABLED
11054 procedure, pass, private :: show_D0_PMSK3, show_D1_PMSK3
11055 generic :: show => show_D0_PMSK3, show_D1_PMSK3
11056#endif
11057#if SK2_ENABLED
11058 procedure, pass, private :: show_D0_PMSK2, show_D1_PMSK2
11059 generic :: show => show_D0_PMSK2, show_D1_PMSK2
11060#endif
11061#if SK1_ENABLED
11062 procedure, pass, private :: show_D0_PMSK1, show_D1_PMSK1
11063 generic :: show => show_D0_PMSK1, show_D1_PMSK1
11064#endif
11065
11066 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11067
11068#if IK5_ENABLED
11069 procedure, pass, private :: show_D0_PMIK5, show_D1_PMIK5
11070 generic :: show => show_D0_PMIK5, show_D1_PMIK5
11071#endif
11072#if IK4_ENABLED
11073 procedure, pass, private :: show_D0_PMIK4, show_D1_PMIK4
11074 generic :: show => show_D0_PMIK4, show_D1_PMIK4
11075#endif
11076#if IK3_ENABLED
11077 procedure, pass, private :: show_D0_PMIK3, show_D1_PMIK3
11078 generic :: show => show_D0_PMIK3, show_D1_PMIK3
11079#endif
11080#if IK2_ENABLED
11081 procedure, pass, private :: show_D0_PMIK2, show_D1_PMIK2
11082 generic :: show => show_D0_PMIK2, show_D1_PMIK2
11083#endif
11084#if IK1_ENABLED
11085 procedure, pass, private :: show_D0_PMIK1, show_D1_PMIK1
11086 generic :: show => show_D0_PMIK1, show_D1_PMIK1
11087#endif
11088
11089 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11090
11091#if LK5_ENABLED
11092 procedure, pass, private :: show_D0_PMLK5, show_D1_PMLK5
11093 generic :: show => show_D0_PMLK5, show_D1_PMLK5
11094#endif
11095#if LK4_ENABLED
11096 procedure, pass, private :: show_D0_PMLK4, show_D1_PMLK4
11097 generic :: show => show_D0_PMLK4, show_D1_PMLK4
11098#endif
11099#if LK3_ENABLED
11100 procedure, pass, private :: show_D0_PMLK3, show_D1_PMLK3
11101 generic :: show => show_D0_PMLK3, show_D1_PMLK3
11102#endif
11103#if LK2_ENABLED
11104 procedure, pass, private :: show_D0_PMLK2, show_D1_PMLK2
11105 generic :: show => show_D0_PMLK2, show_D1_PMLK2
11106#endif
11107#if LK1_ENABLED
11108 procedure, pass, private :: show_D0_PMLK1, show_D1_PMLK1
11109 generic :: show => show_D0_PMLK1, show_D1_PMLK1
11110#endif
11111
11112 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11113
11114#if CK5_ENABLED
11115 procedure, pass, private :: show_D0_PMCK5, show_D1_PMCK5
11116 generic :: show => show_D0_PMCK5, show_D1_PMCK5
11117#endif
11118#if CK4_ENABLED
11119 procedure, pass, private :: show_D0_PMCK4, show_D1_PMCK4
11120 generic :: show => show_D0_PMCK4, show_D1_PMCK4
11121#endif
11122#if CK3_ENABLED
11123 procedure, pass, private :: show_D0_PMCK3, show_D1_PMCK3
11124 generic :: show => show_D0_PMCK3, show_D1_PMCK3
11125#endif
11126#if CK2_ENABLED
11127 procedure, pass, private :: show_D0_PMCK2, show_D1_PMCK2
11128 generic :: show => show_D0_PMCK2, show_D1_PMCK2
11129#endif
11130#if CK1_ENABLED
11131 procedure, pass, private :: show_D0_PMCK1, show_D1_PMCK1
11132 generic :: show => show_D0_PMCK1, show_D1_PMCK1
11133#endif
11134
11135 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11136
11137#if RK5_ENABLED
11138 procedure, pass, private :: show_D0_PMRK5, show_D1_PMRK5
11139 generic :: show => show_D0_PMRK5, show_D1_PMRK5
11140#endif
11141#if RK4_ENABLED
11142 procedure, pass, private :: show_D0_PMRK4, show_D1_PMRK4
11143 generic :: show => show_D0_PMRK4, show_D1_PMRK4
11144#endif
11145#if RK3_ENABLED
11146 procedure, pass, private :: show_D0_PMRK3, show_D1_PMRK3
11147 generic :: show => show_D0_PMRK3, show_D1_PMRK3
11148#endif
11149#if RK2_ENABLED
11150 procedure, pass, private :: show_D0_PMRK2, show_D1_PMRK2
11151 generic :: show => show_D0_PMRK2, show_D1_PMRK2
11152#endif
11153#if RK1_ENABLED
11154 procedure, pass, private :: show_D0_PMRK1, show_D1_PMRK1
11155 generic :: show => show_D0_PMRK1, show_D1_PMRK1
11156#endif
11157
11158 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11159
11160 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11161 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11162 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11163
11164 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11165
11166#if SK5_ENABLED
11167 procedure, pass, private :: show_D0_PCSK5
11168 generic :: show => show_D0_PCSK5
11169#endif
11170#if SK4_ENABLED
11171 procedure, pass, private :: show_D0_PCSK4
11172 generic :: show => show_D0_PCSK4
11173#endif
11174#if SK3_ENABLED
11175 procedure, pass, private :: show_D0_PCSK3
11176 generic :: show => show_D0_PCSK3
11177#endif
11178#if SK2_ENABLED
11179 procedure, pass, private :: show_D0_PCSK2
11180 generic :: show => show_D0_PCSK2
11181#endif
11182#if SK1_ENABLED
11183 procedure, pass, private :: show_D0_PCSK1
11184 generic :: show => show_D0_PCSK1
11185#endif
11186
11187 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11188
11189#if IK5_ENABLED
11190 procedure, pass, private :: show_D0_PCIK5
11191 generic :: show => show_D0_PCIK5
11192#endif
11193#if IK4_ENABLED
11194 procedure, pass, private :: show_D0_PCIK4
11195 generic :: show => show_D0_PCIK4
11196#endif
11197#if IK3_ENABLED
11198 procedure, pass, private :: show_D0_PCIK3
11199 generic :: show => show_D0_PCIK3
11200#endif
11201#if IK2_ENABLED
11202 procedure, pass, private :: show_D0_PCIK2
11203 generic :: show => show_D0_PCIK2
11204#endif
11205#if IK1_ENABLED
11206 procedure, pass, private :: show_D0_PCIK1
11207 generic :: show => show_D0_PCIK1
11208#endif
11209
11210 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11211
11212#if LK5_ENABLED
11213 procedure, pass, private :: show_D0_PCLK5
11214 generic :: show => show_D0_PCLK5
11215#endif
11216#if LK4_ENABLED
11217 procedure, pass, private :: show_D0_PCLK4
11218 generic :: show => show_D0_PCLK4
11219#endif
11220#if LK3_ENABLED
11221 procedure, pass, private :: show_D0_PCLK3
11222 generic :: show => show_D0_PCLK3
11223#endif
11224#if LK2_ENABLED
11225 procedure, pass, private :: show_D0_PCLK2
11226 generic :: show => show_D0_PCLK2
11227#endif
11228#if LK1_ENABLED
11229 procedure, pass, private :: show_D0_PCLK1
11230 generic :: show => show_D0_PCLK1
11231#endif
11232
11233 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11234
11235#if CK5_ENABLED
11236 procedure, pass, private :: show_D0_PCCK5
11237 generic :: show => show_D0_PCCK5
11238#endif
11239#if CK4_ENABLED
11240 procedure, pass, private :: show_D0_PCCK4
11241 generic :: show => show_D0_PCCK4
11242#endif
11243#if CK3_ENABLED
11244 procedure, pass, private :: show_D0_PCCK3
11245 generic :: show => show_D0_PCCK3
11246#endif
11247#if CK2_ENABLED
11248 procedure, pass, private :: show_D0_PCCK2
11249 generic :: show => show_D0_PCCK2
11250#endif
11251#if CK1_ENABLED
11252 procedure, pass, private :: show_D0_PCCK1
11253 generic :: show => show_D0_PCCK1
11254#endif
11255
11256 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11257
11258#if RK5_ENABLED
11259 procedure, pass, private :: show_D0_PCRK5
11260 generic :: show => show_D0_PCRK5
11261#endif
11262#if RK4_ENABLED
11263 procedure, pass, private :: show_D0_PCRK4
11264 generic :: show => show_D0_PCRK4
11265#endif
11266#if RK3_ENABLED
11267 procedure, pass, private :: show_D0_PCRK3
11268 generic :: show => show_D0_PCRK3
11269#endif
11270#if RK2_ENABLED
11271 procedure, pass, private :: show_D0_PCRK2
11272 generic :: show => show_D0_PCRK2
11273#endif
11274#if RK1_ENABLED
11275 procedure, pass, private :: show_D0_PCRK1
11276 generic :: show => show_D0_PCRK1
11277#endif
11278
11279 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11280
11281#endif
11282!PDT_ENABLED
11283
11284
11285 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11286 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11287 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11288
11289 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11290
11291 procedure, pass, private :: show_D0_BSSK, show_D1_BSSK, show_D2_BSSK, show_D3_BSSK
11292 generic :: show => show_D0_BSSK, show_D1_BSSK, show_D2_BSSK, show_D3_BSSK
11293
11294 procedure, pass, private :: show_D0_BSIK, show_D1_BSIK, show_D2_BSIK, show_D3_BSIK
11295 generic :: show => show_D0_BSIK, show_D1_BSIK, show_D2_BSIK, show_D3_BSIK
11296
11297 procedure, pass, private :: show_D0_BSLK, show_D1_BSLK, show_D2_BSLK, show_D3_BSLK
11298 generic :: show => show_D0_BSLK, show_D1_BSLK, show_D2_BSLK, show_D3_BSLK
11299
11300 procedure, pass, private :: show_D0_BSCK, show_D1_BSCK, show_D2_BSCK, show_D3_BSCK
11301 generic :: show => show_D0_BSCK, show_D1_BSCK, show_D2_BSCK, show_D3_BSCK
11302
11303 procedure, pass, private :: show_D0_BSRK, show_D1_BSRK, show_D2_BSRK, show_D3_BSRK
11304 generic :: show => show_D0_BSRK, show_D1_BSRK, show_D2_BSRK, show_D3_BSRK
11305
11306 procedure, pass, private :: show_D0_BVSK, show_D1_BVSK, show_D2_BVSK
11307 generic :: show => show_D0_BVSK, show_D1_BVSK, show_D2_BVSK
11308
11309 procedure, pass, private :: show_D0_BVIK, show_D1_BVIK, show_D2_BVIK
11310 generic :: show => show_D0_BVIK, show_D1_BVIK, show_D2_BVIK
11311
11312 procedure, pass, private :: show_D0_BVLK, show_D1_BVLK, show_D2_BVLK
11313 generic :: show => show_D0_BVLK, show_D1_BVLK, show_D2_BVLK
11314
11315 procedure, pass, private :: show_D0_BVCK, show_D1_BVCK, show_D2_BVCK
11316 generic :: show => show_D0_BVCK, show_D1_BVCK, show_D2_BVCK
11317
11318 procedure, pass, private :: show_D0_BVRK, show_D1_BVRK, show_D2_BVRK
11319 generic :: show => show_D0_BVRK, show_D1_BVRK, show_D2_BVRK
11320
11321#if FORTRAN_ENABLED
11322 procedure, pass, private :: show_D0_BMSK, show_D1_BMSK
11323 generic :: show => show_D0_BMSK, show_D1_BMSK
11324
11325 procedure, pass, private :: show_D0_BMIK, show_D1_BMIK
11326 generic :: show => show_D0_BMIK, show_D1_BMIK
11327
11328 procedure, pass, private :: show_D0_BMLK, show_D1_BMLK
11329 generic :: show => show_D0_BMLK, show_D1_BMLK
11330
11331 procedure, pass, private :: show_D0_BMCK, show_D1_BMCK
11332 generic :: show => show_D0_BMCK, show_D1_BMCK
11333
11334 procedure, pass, private :: show_D0_BMRK, show_D1_BMRK
11335 generic :: show => show_D0_BMRK, show_D1_BMRK
11336
11337 procedure, pass, private :: show_D0_BCSK
11338 generic :: show => show_D0_BCSK
11339
11340 procedure, pass, private :: show_D0_BCIK
11341 generic :: show => show_D0_BCIK
11342
11343 procedure, pass, private :: show_D0_BCLK
11344 generic :: show => show_D0_BCLK
11345
11346 procedure, pass, private :: show_D0_BCCK
11347 generic :: show => show_D0_BCCK
11348
11349 procedure, pass, private :: show_D0_BCRK
11350 generic :: show => show_D0_BCRK
11351
11352 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11353
11354 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11355 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11356 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11357
11358 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11359
11360 procedure, pass, private :: dump_D0, dump_D1, dump_D2
11361 generic :: dump => dump_D0, dump_D1, dump_D2
11362#endif
11363!FORTRAN_ENABLED
11364
11365 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11366
11367 procedure, pass :: skip_IK
11368 generic :: skip => skip_IK
11369
11370 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11371
11372 !final :: finalizeDisplay
11373
11374 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11375
11377
11378 end type display_type
11379
11380!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11381
11394#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11395 !DIR$ ATTRIBUTES DLLEXPORT :: disp
11396#endif
11397
11398!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11399
11401 interface display_type
11402
11403 module function display_typer_file(file, status, position, advance, format, deliml, delimr, tmsize, bmsize, count, sticky, text, mark, note, warn, stop) result(disp)
11404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11405 !DEC$ ATTRIBUTES DLLEXPORT :: display_typer_file
11406#endif
11407 character(*, SK), intent(in) :: file
11408 logical(LK) , intent(in), optional :: sticky
11409 integer(IK) , intent(in), optional :: count
11410 integer(IK) , intent(in), optional :: tmsize, bmsize
11411 character(*, SK), intent(in), optional :: position
11412 character(*, SK), intent(in), optional :: advance
11413 character(*, SK), intent(in), optional :: status
11414 type(field_type), intent(in), optional :: format
11415 type(field_type), intent(in), optional :: deliml
11416 type(field_type), intent(in), optional :: delimr
11417 type(mark_type) , intent(in), optional :: mark
11418 type(note_type) , intent(in), optional :: note
11419 type(warn_type) , intent(in), optional :: warn
11420 type(stop_type) , intent(in), optional :: stop
11421 type(wrap_type) , intent(in), optional :: text
11422 type(display_type) :: disp
11423 end function
11424
11425 module function display_typer_unit(unit, advance, format, deliml, delimr, tmsize, bmsize, count, sticky, text, mark, note, warn, stop) result(disp)
11426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11427 !DEC$ ATTRIBUTES DLLEXPORT :: display_typer_unit
11428#endif
11429 integer(IK) , intent(in), optional :: unit
11430 logical(LK) , intent(in), optional :: sticky
11431 integer(IK) , intent(in), optional :: count
11432 integer(IK) , intent(in), optional :: tmsize, bmsize
11433 character(*, SK), intent(in), optional :: advance
11434 type(field_type), intent(in), optional :: format
11435 type(field_type), intent(in), optional :: deliml
11436 type(field_type), intent(in), optional :: delimr
11437 type(mark_type) , intent(in), optional :: mark
11438 type(note_type) , intent(in), optional :: note
11439 type(warn_type) , intent(in), optional :: warn
11440 type(stop_type) , intent(in), optional :: stop
11441 type(wrap_type) , intent(in), optional :: text
11442 type(display_type) :: disp
11443 end function
11444
11445 end interface
11447
11448!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11449
11450! interface
11451! module subroutine finalizeDisplay(self)
11452!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11453! !DEC$ ATTRIBUTES DLLEXPORT :: finalizeDisplay
11454!#endif
11455! type(display_type), intent(inout) :: self
11456! end subroutine
11457! end interface
11458
11459!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11460
11508 interface skip
11509 module subroutine skip_IK(self, count, unit, sticky)
11510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11511 !DEC$ ATTRIBUTES DLLEXPORT :: skip_IK
11512#endif
11513 class(display_type) , intent(inout) :: self
11514 integer(IK) , intent(in), optional :: unit
11515 integer(IK) , intent(in), optional :: count
11516 logical(LK) , intent(in), optional :: sticky
11517 end subroutine
11518 end interface
11519
11520!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11521
11725
11726 interface show
11727
11728 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11729 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11730 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11731
11732 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11733 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11734 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11735
11736 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11737
11738#if SK5_ENABLED
11739 module subroutine show_D0_SK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11740#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11741 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_SK5
11742#endif
11743 use pm_kind, only: SKG => SK5
11744 class(display_type) , intent(inout) :: self
11745 character(*,SKG) , intent(in) :: object
11746 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
11747 character(*, SK) , intent(in) , optional :: format, advance
11748 logical(LK) , intent(in) , optional :: sticky
11749 character(*, SK) , intent(in) , optional :: deliml, delimr
11750 end subroutine
11751#endif
11752
11753#if SK4_ENABLED
11754 module subroutine show_D0_SK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11755#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11756 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_SK4
11757#endif
11758 use pm_kind, only: SKG => SK4
11759 class(display_type) , intent(inout) :: self
11760 character(*,SKG) , intent(in) :: object
11761 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
11762 character(*, SK) , intent(in) , optional :: format, advance
11763 logical(LK) , intent(in) , optional :: sticky
11764 character(*, SK) , intent(in) , optional :: deliml, delimr
11765 end subroutine
11766#endif
11767
11768#if SK3_ENABLED
11769 module subroutine show_D0_SK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11771 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_SK3
11772#endif
11773 use pm_kind, only: SKG => SK3
11774 class(display_type) , intent(inout) :: self
11775 character(*,SKG) , intent(in) :: object
11776 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
11777 character(*, SK) , intent(in) , optional :: format, advance
11778 logical(LK) , intent(in) , optional :: sticky
11779 character(*, SK) , intent(in) , optional :: deliml, delimr
11780 end subroutine
11781#endif
11782
11783#if SK2_ENABLED
11784 module subroutine show_D0_SK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11786 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_SK2
11787#endif
11788 use pm_kind, only: SKG => SK2
11789 class(display_type) , intent(inout) :: self
11790 character(*,SKG) , intent(in) :: object
11791 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
11792 character(*, SK) , intent(in) , optional :: format, advance
11793 logical(LK) , intent(in) , optional :: sticky
11794 character(*, SK) , intent(in) , optional :: deliml, delimr
11795 end subroutine
11796#endif
11797
11798#if SK1_ENABLED
11799 module subroutine show_D0_SK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11800#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11801 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_SK1
11802#endif
11803 use pm_kind, only: SKG => SK1
11804 class(display_type) , intent(inout) :: self
11805 character(*,SKG) , intent(in) :: object
11806 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
11807 character(*, SK) , intent(in) , optional :: format, advance
11808 logical(LK) , intent(in) , optional :: sticky
11809 character(*, SK) , intent(in) , optional :: deliml, delimr
11810 end subroutine
11811#endif
11812
11813 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11814
11815#if IK5_ENABLED
11816 module subroutine show_D0_IK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11818 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_IK5
11819#endif
11820 use pm_kind, only: SKG => SK, IKG => IK5
11821 class(display_type) , intent(inout) :: self
11822 integer(IKG) , intent(in) :: object
11823 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
11824 character(*, SK) , intent(in) , optional :: format, advance
11825 logical(LK) , intent(in) , optional :: sticky
11826 character(*, SK) , intent(in) , optional :: deliml, delimr
11827 end subroutine
11828#endif
11829
11830#if IK4_ENABLED
11831 module subroutine show_D0_IK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11832#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11833 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_IK4
11834#endif
11835 use pm_kind, only: SKG => SK, IKG => IK4
11836 class(display_type) , intent(inout) :: self
11837 integer(IKG) , intent(in) :: object
11838 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
11839 character(*, SK) , intent(in) , optional :: format, advance
11840 logical(LK) , intent(in) , optional :: sticky
11841 character(*, SK) , intent(in) , optional :: deliml, delimr
11842 end subroutine
11843#endif
11844
11845#if IK3_ENABLED
11846 module subroutine show_D0_IK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11848 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_IK3
11849#endif
11850 use pm_kind, only: SKG => SK, IKG => IK3
11851 class(display_type) , intent(inout) :: self
11852 integer(IKG) , intent(in) :: object
11853 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
11854 character(*, SK) , intent(in) , optional :: format, advance
11855 logical(LK) , intent(in) , optional :: sticky
11856 character(*, SK) , intent(in) , optional :: deliml, delimr
11857 end subroutine
11858#endif
11859
11860#if IK2_ENABLED
11861 module subroutine show_D0_IK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11862#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11863 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_IK2
11864#endif
11865 use pm_kind, only: SKG => SK, IKG => IK2
11866 class(display_type) , intent(inout) :: self
11867 integer(IKG) , intent(in) :: object
11868 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
11869 character(*, SK) , intent(in) , optional :: format, advance
11870 logical(LK) , intent(in) , optional :: sticky
11871 character(*, SK) , intent(in) , optional :: deliml, delimr
11872 end subroutine
11873#endif
11874
11875#if IK1_ENABLED
11876 module subroutine show_D0_IK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11878 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_IK1
11879#endif
11880 use pm_kind, only: SKG => SK, IKG => IK1
11881 class(display_type) , intent(inout) :: self
11882 integer(IKG) , intent(in) :: object
11883 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
11884 character(*, SK) , intent(in) , optional :: format, advance
11885 logical(LK) , intent(in) , optional :: sticky
11886 character(*, SK) , intent(in) , optional :: deliml, delimr
11887 end subroutine
11888#endif
11889
11890 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11891
11892#if LK5_ENABLED
11893 module subroutine show_D0_LK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11894#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11895 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_LK5
11896#endif
11897 use pm_kind, only: SKG => SK, LKG => LK5
11898 class(display_type) , intent(inout) :: self
11899 logical(LKG) , intent(in) :: object
11900 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
11901 character(*, SK) , intent(in) , optional :: format, advance
11902 logical(LK) , intent(in) , optional :: sticky
11903 character(*, SK) , intent(in) , optional :: deliml, delimr
11904 end subroutine
11905#endif
11906
11907#if LK4_ENABLED
11908 module subroutine show_D0_LK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11909#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11910 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_LK4
11911#endif
11912 use pm_kind, only: SKG => SK, LKG => LK4
11913 class(display_type) , intent(inout) :: self
11914 logical(LKG) , intent(in) :: object
11915 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
11916 character(*, SK) , intent(in) , optional :: format, advance
11917 logical(LK) , intent(in) , optional :: sticky
11918 character(*, SK) , intent(in) , optional :: deliml, delimr
11919 end subroutine
11920#endif
11921
11922#if LK3_ENABLED
11923 module subroutine show_D0_LK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11925 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_LK3
11926#endif
11927 use pm_kind, only: SKG => SK, LKG => LK3
11928 class(display_type) , intent(inout) :: self
11929 logical(LKG) , intent(in) :: object
11930 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
11931 character(*, SK) , intent(in) , optional :: format, advance
11932 logical(LK) , intent(in) , optional :: sticky
11933 character(*, SK) , intent(in) , optional :: deliml, delimr
11934 end subroutine
11935#endif
11936
11937#if LK2_ENABLED
11938 module subroutine show_D0_LK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11940 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_LK2
11941#endif
11942 use pm_kind, only: SKG => SK, LKG => LK2
11943 class(display_type) , intent(inout) :: self
11944 logical(LKG) , intent(in) :: object
11945 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
11946 character(*, SK) , intent(in) , optional :: format, advance
11947 logical(LK) , intent(in) , optional :: sticky
11948 character(*, SK) , intent(in) , optional :: deliml, delimr
11949 end subroutine
11950#endif
11951
11952#if LK1_ENABLED
11953 module subroutine show_D0_LK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11955 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_LK1
11956#endif
11957 use pm_kind, only: SKG => SK, LKG => LK1
11958 class(display_type) , intent(inout) :: self
11959 logical(LKG) , intent(in) :: object
11960 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
11961 character(*, SK) , intent(in) , optional :: format, advance
11962 logical(LK) , intent(in) , optional :: sticky
11963 character(*, SK) , intent(in) , optional :: deliml, delimr
11964 end subroutine
11965#endif
11966
11967 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11968
11969#if CK5_ENABLED
11970 module subroutine show_D0_CK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11972 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_CK5
11973#endif
11974 use pm_kind, only: SKG => SK, CKG => CK5
11975 class(display_type) , intent(inout) :: self
11976 complex(CKG) , intent(in) :: object
11977 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
11978 character(*, SK) , intent(in) , optional :: format, advance
11979 logical(LK) , intent(in) , optional :: sticky
11980 character(*, SK) , intent(in) , optional :: deliml, delimr
11981 end subroutine
11982#endif
11983
11984#if CK4_ENABLED
11985 module subroutine show_D0_CK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11986#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11987 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_CK4
11988#endif
11989 use pm_kind, only: SKG => SK, CKG => CK4
11990 class(display_type) , intent(inout) :: self
11991 complex(CKG) , intent(in) :: object
11992 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
11993 character(*, SK) , intent(in) , optional :: format, advance
11994 logical(LK) , intent(in) , optional :: sticky
11995 character(*, SK) , intent(in) , optional :: deliml, delimr
11996 end subroutine
11997#endif
11998
11999#if CK3_ENABLED
12000 module subroutine show_D0_CK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12002 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_CK3
12003#endif
12004 use pm_kind, only: SKG => SK, CKG => CK3
12005 class(display_type) , intent(inout) :: self
12006 complex(CKG) , intent(in) :: object
12007 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12008 character(*, SK) , intent(in) , optional :: format, advance
12009 logical(LK) , intent(in) , optional :: sticky
12010 character(*, SK) , intent(in) , optional :: deliml, delimr
12011 end subroutine
12012#endif
12013
12014#if CK2_ENABLED
12015 module subroutine show_D0_CK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12017 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_CK2
12018#endif
12019 use pm_kind, only: SKG => SK, CKG => CK2
12020 class(display_type) , intent(inout) :: self
12021 complex(CKG) , intent(in) :: object
12022 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12023 character(*, SK) , intent(in) , optional :: format, advance
12024 logical(LK) , intent(in) , optional :: sticky
12025 character(*, SK) , intent(in) , optional :: deliml, delimr
12026 end subroutine
12027#endif
12028
12029#if CK1_ENABLED
12030 module subroutine show_D0_CK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12032 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_CK1
12033#endif
12034 use pm_kind, only: SKG => SK, CKG => CK1
12035 class(display_type) , intent(inout) :: self
12036 complex(CKG) , intent(in) :: object
12037 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12038 character(*, SK) , intent(in) , optional :: format, advance
12039 logical(LK) , intent(in) , optional :: sticky
12040 character(*, SK) , intent(in) , optional :: deliml, delimr
12041 end subroutine
12042#endif
12043
12044 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12045
12046#if RK5_ENABLED
12047 module subroutine show_D0_RK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12048#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12049 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_RK5
12050#endif
12051 use pm_kind, only: SKG => SK, RKG => RK5
12052 class(display_type) , intent(inout) :: self
12053 real(RKG) , intent(in) :: object
12054 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12055 character(*, SK) , intent(in) , optional :: format, advance
12056 logical(LK) , intent(in) , optional :: sticky
12057 character(*, SK) , intent(in) , optional :: deliml, delimr
12058 end subroutine
12059#endif
12060
12061#if RK4_ENABLED
12062 module subroutine show_D0_RK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12064 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_RK4
12065#endif
12066 use pm_kind, only: SKG => SK, RKG => RK4
12067 class(display_type) , intent(inout) :: self
12068 real(RKG) , intent(in) :: object
12069 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12070 character(*, SK) , intent(in) , optional :: format, advance
12071 logical(LK) , intent(in) , optional :: sticky
12072 character(*, SK) , intent(in) , optional :: deliml, delimr
12073 end subroutine
12074#endif
12075
12076#if RK3_ENABLED
12077 module subroutine show_D0_RK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12079 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_RK3
12080#endif
12081 use pm_kind, only: SKG => SK, RKG => RK3
12082 class(display_type) , intent(inout) :: self
12083 real(RKG) , intent(in) :: object
12084 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12085 character(*, SK) , intent(in) , optional :: format, advance
12086 logical(LK) , intent(in) , optional :: sticky
12087 character(*, SK) , intent(in) , optional :: deliml, delimr
12088 end subroutine
12089#endif
12090
12091#if RK2_ENABLED
12092 module subroutine show_D0_RK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12094 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_RK2
12095#endif
12096 use pm_kind, only: SKG => SK, RKG => RK2
12097 class(display_type) , intent(inout) :: self
12098 real(RKG) , intent(in) :: object
12099 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12100 character(*, SK) , intent(in) , optional :: format, advance
12101 logical(LK) , intent(in) , optional :: sticky
12102 character(*, SK) , intent(in) , optional :: deliml, delimr
12103 end subroutine
12104#endif
12105
12106#if RK1_ENABLED
12107 module subroutine show_D0_RK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12108#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12109 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_RK1
12110#endif
12111 use pm_kind, only: SKG => SK, RKG => RK1
12112 class(display_type) , intent(inout) :: self
12113 real(RKG) , intent(in) :: object
12114 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12115 character(*, SK) , intent(in) , optional :: format, advance
12116 logical(LK) , intent(in) , optional :: sticky
12117 character(*, SK) , intent(in) , optional :: deliml, delimr
12118 end subroutine
12119#endif
12120
12121 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12122
12123 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12124 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12125 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12126
12127 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12128
12129#if SK5_ENABLED
12130 module subroutine show_D1_SK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12132 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_SK5
12133#endif
12134 use pm_kind, only: SKG => SK5
12135 class(display_type) , intent(inout) :: self
12136 character(*,SKG) , intent(in) __CONTIGUOUS :: object(:)
12137 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12138 character(*, SK) , intent(in) , optional :: format, advance
12139 logical(LK) , intent(in) , optional :: sticky
12140 character(*, SK) , intent(in) , optional :: deliml, delimr
12141 end subroutine
12142#endif
12143
12144#if SK4_ENABLED
12145 module subroutine show_D1_SK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12147 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_SK4
12148#endif
12149 use pm_kind, only: SKG => SK4
12150 class(display_type) , intent(inout) :: self
12151 character(*,SKG) , intent(in) __CONTIGUOUS :: object(:)
12152 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12153 character(*, SK) , intent(in) , optional :: format, advance
12154 logical(LK) , intent(in) , optional :: sticky
12155 character(*, SK) , intent(in) , optional :: deliml, delimr
12156 end subroutine
12157#endif
12158
12159#if SK3_ENABLED
12160 module subroutine show_D1_SK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12162 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_SK3
12163#endif
12164 use pm_kind, only: SKG => SK3
12165 class(display_type) , intent(inout) :: self
12166 character(*,SKG) , intent(in) __CONTIGUOUS :: object(:)
12167 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12168 character(*, SK) , intent(in) , optional :: format, advance
12169 logical(LK) , intent(in) , optional :: sticky
12170 character(*, SK) , intent(in) , optional :: deliml, delimr
12171 end subroutine
12172#endif
12173
12174#if SK2_ENABLED
12175 module subroutine show_D1_SK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12177 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_SK2
12178#endif
12179 use pm_kind, only: SKG => SK2
12180 class(display_type) , intent(inout) :: self
12181 character(*,SKG) , intent(in) __CONTIGUOUS :: object(:)
12182 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12183 character(*, SK) , intent(in) , optional :: format, advance
12184 logical(LK) , intent(in) , optional :: sticky
12185 character(*, SK) , intent(in) , optional :: deliml, delimr
12186 end subroutine
12187#endif
12188
12189#if SK1_ENABLED
12190 module subroutine show_D1_SK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12192 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_SK1
12193#endif
12194 use pm_kind, only: SKG => SK1
12195 class(display_type) , intent(inout) :: self
12196 character(*,SKG) , intent(in) __CONTIGUOUS :: object(:)
12197 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12198 character(*, SK) , intent(in) , optional :: format, advance
12199 logical(LK) , intent(in) , optional :: sticky
12200 character(*, SK) , intent(in) , optional :: deliml, delimr
12201 end subroutine
12202#endif
12203
12204 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12205
12206#if IK5_ENABLED
12207 module subroutine show_D1_IK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12209 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_IK5
12210#endif
12211 use pm_kind, only: SKG => SK, IKG => IK5
12212 class(display_type) , intent(inout) :: self
12213 integer(IKG) , intent(in) __CONTIGUOUS :: object(:)
12214 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12215 character(*, SK) , intent(in) , optional :: format, advance
12216 logical(LK) , intent(in) , optional :: sticky
12217 character(*, SK) , intent(in) , optional :: deliml, delimr
12218 end subroutine
12219#endif
12220
12221#if IK4_ENABLED
12222 module subroutine show_D1_IK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12224 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_IK4
12225#endif
12226 use pm_kind, only: SKG => SK, IKG => IK4
12227 class(display_type) , intent(inout) :: self
12228 integer(IKG) , intent(in) __CONTIGUOUS :: object(:)
12229 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12230 character(*, SK) , intent(in) , optional :: format, advance
12231 logical(LK) , intent(in) , optional :: sticky
12232 character(*, SK) , intent(in) , optional :: deliml, delimr
12233 end subroutine
12234#endif
12235
12236#if IK3_ENABLED
12237 module subroutine show_D1_IK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12239 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_IK3
12240#endif
12241 use pm_kind, only: SKG => SK, IKG => IK3
12242 class(display_type) , intent(inout) :: self
12243 integer(IKG) , intent(in) __CONTIGUOUS :: object(:)
12244 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12245 character(*, SK) , intent(in) , optional :: format, advance
12246 logical(LK) , intent(in) , optional :: sticky
12247 character(*, SK) , intent(in) , optional :: deliml, delimr
12248 end subroutine
12249#endif
12250
12251#if IK2_ENABLED
12252 module subroutine show_D1_IK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12254 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_IK2
12255#endif
12256 use pm_kind, only: SKG => SK, IKG => IK2
12257 class(display_type) , intent(inout) :: self
12258 integer(IKG) , intent(in) __CONTIGUOUS :: object(:)
12259 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12260 character(*, SK) , intent(in) , optional :: format, advance
12261 logical(LK) , intent(in) , optional :: sticky
12262 character(*, SK) , intent(in) , optional :: deliml, delimr
12263 end subroutine
12264#endif
12265
12266#if IK1_ENABLED
12267 module subroutine show_D1_IK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12269 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_IK1
12270#endif
12271 use pm_kind, only: SKG => SK, IKG => IK1
12272 class(display_type) , intent(inout) :: self
12273 integer(IKG) , intent(in) __CONTIGUOUS :: object(:)
12274 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12275 character(*, SK) , intent(in) , optional :: format, advance
12276 logical(LK) , intent(in) , optional :: sticky
12277 character(*, SK) , intent(in) , optional :: deliml, delimr
12278 end subroutine
12279#endif
12280
12281 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12282
12283#if LK5_ENABLED
12284 module subroutine show_D1_LK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12286 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_LK5
12287#endif
12288 use pm_kind, only: SKG => SK, LKG => LK5
12289 class(display_type) , intent(inout) :: self
12290 logical(LKG) , intent(in) __CONTIGUOUS :: object(:)
12291 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12292 character(*, SK) , intent(in) , optional :: format, advance
12293 logical(LK) , intent(in) , optional :: sticky
12294 character(*, SK) , intent(in) , optional :: deliml, delimr
12295 end subroutine
12296#endif
12297
12298#if LK4_ENABLED
12299 module subroutine show_D1_LK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12301 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_LK4
12302#endif
12303 use pm_kind, only: SKG => SK, LKG => LK4
12304 class(display_type) , intent(inout) :: self
12305 logical(LKG) , intent(in) __CONTIGUOUS :: object(:)
12306 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12307 character(*, SK) , intent(in) , optional :: format, advance
12308 logical(LK) , intent(in) , optional :: sticky
12309 character(*, SK) , intent(in) , optional :: deliml, delimr
12310 end subroutine
12311#endif
12312
12313#if LK3_ENABLED
12314 module subroutine show_D1_LK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12316 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_LK3
12317#endif
12318 use pm_kind, only: SKG => SK, LKG => LK3
12319 class(display_type) , intent(inout) :: self
12320 logical(LKG) , intent(in) __CONTIGUOUS :: object(:)
12321 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12322 character(*, SK) , intent(in) , optional :: format, advance
12323 logical(LK) , intent(in) , optional :: sticky
12324 character(*, SK) , intent(in) , optional :: deliml, delimr
12325 end subroutine
12326#endif
12327
12328#if LK2_ENABLED
12329 module subroutine show_D1_LK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12331 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_LK2
12332#endif
12333 use pm_kind, only: SKG => SK, LKG => LK2
12334 class(display_type) , intent(inout) :: self
12335 logical(LKG) , intent(in) __CONTIGUOUS :: object(:)
12336 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12337 character(*, SK) , intent(in) , optional :: format, advance
12338 logical(LK) , intent(in) , optional :: sticky
12339 character(*, SK) , intent(in) , optional :: deliml, delimr
12340 end subroutine
12341#endif
12342
12343#if LK1_ENABLED
12344 module subroutine show_D1_LK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12345#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12346 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_LK1
12347#endif
12348 use pm_kind, only: SKG => SK, LKG => LK1
12349 class(display_type) , intent(inout) :: self
12350 logical(LKG) , intent(in) __CONTIGUOUS :: object(:)
12351 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12352 character(*, SK) , intent(in) , optional :: format, advance
12353 logical(LK) , intent(in) , optional :: sticky
12354 character(*, SK) , intent(in) , optional :: deliml, delimr
12355 end subroutine
12356#endif
12357
12358 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12359
12360#if CK5_ENABLED
12361 module subroutine show_D1_CK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12362#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12363 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_CK5
12364#endif
12365 use pm_kind, only: SKG => SK, CKG => CK5
12366 class(display_type) , intent(inout) :: self
12367 complex(CKG) , intent(in) __CONTIGUOUS :: object(:)
12368 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12369 character(*, SK) , intent(in) , optional :: format, advance
12370 logical(LK) , intent(in) , optional :: sticky
12371 character(*, SK) , intent(in) , optional :: deliml, delimr
12372 end subroutine
12373#endif
12374
12375#if CK4_ENABLED
12376 module subroutine show_D1_CK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12378 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_CK4
12379#endif
12380 use pm_kind, only: SKG => SK, CKG => CK4
12381 class(display_type) , intent(inout) :: self
12382 complex(CKG) , intent(in) __CONTIGUOUS :: object(:)
12383 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12384 character(*, SK) , intent(in) , optional :: format, advance
12385 logical(LK) , intent(in) , optional :: sticky
12386 character(*, SK) , intent(in) , optional :: deliml, delimr
12387 end subroutine
12388#endif
12389
12390#if CK3_ENABLED
12391 module subroutine show_D1_CK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12393 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_CK3
12394#endif
12395 use pm_kind, only: SKG => SK, CKG => CK3
12396 class(display_type) , intent(inout) :: self
12397 complex(CKG) , intent(in) __CONTIGUOUS :: object(:)
12398 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12399 character(*, SK) , intent(in) , optional :: format, advance
12400 logical(LK) , intent(in) , optional :: sticky
12401 character(*, SK) , intent(in) , optional :: deliml, delimr
12402 end subroutine
12403#endif
12404
12405#if CK2_ENABLED
12406 module subroutine show_D1_CK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12408 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_CK2
12409#endif
12410 use pm_kind, only: SKG => SK, CKG => CK2
12411 class(display_type) , intent(inout) :: self
12412 complex(CKG) , intent(in) __CONTIGUOUS :: object(:)
12413 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12414 character(*, SK) , intent(in) , optional :: format, advance
12415 logical(LK) , intent(in) , optional :: sticky
12416 character(*, SK) , intent(in) , optional :: deliml, delimr
12417 end subroutine
12418#endif
12419
12420#if CK1_ENABLED
12421 module subroutine show_D1_CK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12422#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12423 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_CK1
12424#endif
12425 use pm_kind, only: SKG => SK, CKG => CK1
12426 class(display_type) , intent(inout) :: self
12427 complex(CKG) , intent(in) __CONTIGUOUS :: object(:)
12428 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12429 character(*, SK) , intent(in) , optional :: format, advance
12430 logical(LK) , intent(in) , optional :: sticky
12431 character(*, SK) , intent(in) , optional :: deliml, delimr
12432 end subroutine
12433#endif
12434
12435 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12436
12437#if RK5_ENABLED
12438 module subroutine show_D1_RK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12440 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_RK5
12441#endif
12442 use pm_kind, only: SKG => SK, RKG => RK5
12443 class(display_type) , intent(inout) :: self
12444 real(RKG) , intent(in) __CONTIGUOUS :: object(:)
12445 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12446 character(*, SK) , intent(in) , optional :: format, advance
12447 logical(LK) , intent(in) , optional :: sticky
12448 character(*, SK) , intent(in) , optional :: deliml, delimr
12449 end subroutine
12450#endif
12451
12452#if RK4_ENABLED
12453 module subroutine show_D1_RK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12455 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_RK4
12456#endif
12457 use pm_kind, only: SKG => SK, RKG => RK4
12458 class(display_type) , intent(inout) :: self
12459 real(RKG) , intent(in) __CONTIGUOUS :: object(:)
12460 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12461 character(*, SK) , intent(in) , optional :: format, advance
12462 logical(LK) , intent(in) , optional :: sticky
12463 character(*, SK) , intent(in) , optional :: deliml, delimr
12464 end subroutine
12465#endif
12466
12467#if RK3_ENABLED
12468 module subroutine show_D1_RK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12470 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_RK3
12471#endif
12472 use pm_kind, only: SKG => SK, RKG => RK3
12473 class(display_type) , intent(inout) :: self
12474 real(RKG) , intent(in) __CONTIGUOUS :: object(:)
12475 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12476 character(*, SK) , intent(in) , optional :: format, advance
12477 logical(LK) , intent(in) , optional :: sticky
12478 character(*, SK) , intent(in) , optional :: deliml, delimr
12479 end subroutine
12480#endif
12481
12482#if RK2_ENABLED
12483 module subroutine show_D1_RK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12484#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12485 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_RK2
12486#endif
12487 use pm_kind, only: SKG => SK, RKG => RK2
12488 class(display_type) , intent(inout) :: self
12489 real(RKG) , intent(in) __CONTIGUOUS :: object(:)
12490 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12491 character(*, SK) , intent(in) , optional :: format, advance
12492 logical(LK) , intent(in) , optional :: sticky
12493 character(*, SK) , intent(in) , optional :: deliml, delimr
12494 end subroutine
12495#endif
12496
12497#if RK1_ENABLED
12498 module subroutine show_D1_RK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12500 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_RK1
12501#endif
12502 use pm_kind, only: SKG => SK, RKG => RK1
12503 class(display_type) , intent(inout) :: self
12504 real(RKG) , intent(in) __CONTIGUOUS :: object(:)
12505 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12506 character(*, SK) , intent(in) , optional :: format, advance
12507 logical(LK) , intent(in) , optional :: sticky
12508 character(*, SK) , intent(in) , optional :: deliml, delimr
12509 end subroutine
12510#endif
12511
12512 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12513
12514 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12515 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12516 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12517
12518 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12519
12520#if SK5_ENABLED
12521 module subroutine show_D2_SK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12522#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12523 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_SK5
12524#endif
12525 use pm_kind, only: SKG => SK5
12526 class(display_type) , intent(inout) :: self
12527 character(*,SKG) , intent(in) __CONTIGUOUS :: object(:,:)
12528 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12529 character(*, SK) , intent(in) , optional :: format, advance
12530 logical(LK) , intent(in) , optional :: sticky
12531 character(*, SK) , intent(in) , optional :: deliml, delimr
12532 end subroutine
12533#endif
12534
12535#if SK4_ENABLED
12536 module subroutine show_D2_SK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12538 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_SK4
12539#endif
12540 use pm_kind, only: SKG => SK4
12541 class(display_type) , intent(inout) :: self
12542 character(*,SKG) , intent(in) __CONTIGUOUS :: object(:,:)
12543 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12544 character(*, SK) , intent(in) , optional :: format, advance
12545 logical(LK) , intent(in) , optional :: sticky
12546 character(*, SK) , intent(in) , optional :: deliml, delimr
12547 end subroutine
12548#endif
12549
12550#if SK3_ENABLED
12551 module subroutine show_D2_SK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12553 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_SK3
12554#endif
12555 use pm_kind, only: SKG => SK3
12556 class(display_type) , intent(inout) :: self
12557 character(*,SKG) , intent(in) __CONTIGUOUS :: object(:,:)
12558 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12559 character(*, SK) , intent(in) , optional :: format, advance
12560 logical(LK) , intent(in) , optional :: sticky
12561 character(*, SK) , intent(in) , optional :: deliml, delimr
12562 end subroutine
12563#endif
12564
12565#if SK2_ENABLED
12566 module subroutine show_D2_SK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12568 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_SK2
12569#endif
12570 use pm_kind, only: SKG => SK2
12571 class(display_type) , intent(inout) :: self
12572 character(*,SKG) , intent(in) __CONTIGUOUS :: object(:,:)
12573 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12574 character(*, SK) , intent(in) , optional :: format, advance
12575 logical(LK) , intent(in) , optional :: sticky
12576 character(*, SK) , intent(in) , optional :: deliml, delimr
12577 end subroutine
12578#endif
12579
12580#if SK1_ENABLED
12581 module subroutine show_D2_SK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12583 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_SK1
12584#endif
12585 use pm_kind, only: SKG => SK1
12586 class(display_type) , intent(inout) :: self
12587 character(*,SKG) , intent(in) __CONTIGUOUS :: object(:,:)
12588 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12589 character(*, SK) , intent(in) , optional :: format, advance
12590 logical(LK) , intent(in) , optional :: sticky
12591 character(*, SK) , intent(in) , optional :: deliml, delimr
12592 end subroutine
12593#endif
12594
12595 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12596
12597#if IK5_ENABLED
12598 module subroutine show_D2_IK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12599#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12600 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_IK5
12601#endif
12602 use pm_kind, only: SKG => SK, IKG => IK5
12603 class(display_type) , intent(inout) :: self
12604 integer(IKG) , intent(in) __CONTIGUOUS :: object(:,:)
12605 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12606 character(*, SK) , intent(in) , optional :: format, advance
12607 logical(LK) , intent(in) , optional :: sticky
12608 character(*, SK) , intent(in) , optional :: deliml, delimr
12609 end subroutine
12610#endif
12611
12612#if IK4_ENABLED
12613 module subroutine show_D2_IK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12614#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12615 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_IK4
12616#endif
12617 use pm_kind, only: SKG => SK, IKG => IK4
12618 class(display_type) , intent(inout) :: self
12619 integer(IKG) , intent(in) __CONTIGUOUS :: object(:,:)
12620 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12621 character(*, SK) , intent(in) , optional :: format, advance
12622 logical(LK) , intent(in) , optional :: sticky
12623 character(*, SK) , intent(in) , optional :: deliml, delimr
12624 end subroutine
12625#endif
12626
12627#if IK3_ENABLED
12628 module subroutine show_D2_IK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12630 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_IK3
12631#endif
12632 use pm_kind, only: SKG => SK, IKG => IK3
12633 class(display_type) , intent(inout) :: self
12634 integer(IKG) , intent(in) __CONTIGUOUS :: object(:,:)
12635 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12636 character(*, SK) , intent(in) , optional :: format, advance
12637 logical(LK) , intent(in) , optional :: sticky
12638 character(*, SK) , intent(in) , optional :: deliml, delimr
12639 end subroutine
12640#endif
12641
12642#if IK2_ENABLED
12643 module subroutine show_D2_IK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12645 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_IK2
12646#endif
12647 use pm_kind, only: SKG => SK, IKG => IK2
12648 class(display_type) , intent(inout) :: self
12649 integer(IKG) , intent(in) __CONTIGUOUS :: object(:,:)
12650 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12651 character(*, SK) , intent(in) , optional :: format, advance
12652 logical(LK) , intent(in) , optional :: sticky
12653 character(*, SK) , intent(in) , optional :: deliml, delimr
12654 end subroutine
12655#endif
12656
12657#if IK1_ENABLED
12658 module subroutine show_D2_IK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12660 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_IK1
12661#endif
12662 use pm_kind, only: SKG => SK, IKG => IK1
12663 class(display_type) , intent(inout) :: self
12664 integer(IKG) , intent(in) __CONTIGUOUS :: object(:,:)
12665 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12666 character(*, SK) , intent(in) , optional :: format, advance
12667 logical(LK) , intent(in) , optional :: sticky
12668 character(*, SK) , intent(in) , optional :: deliml, delimr
12669 end subroutine
12670#endif
12671
12672 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12673
12674#if LK5_ENABLED
12675 module subroutine show_D2_LK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12676#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12677 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_LK5
12678#endif
12679 use pm_kind, only: SKG => SK, LKG => LK5
12680 class(display_type) , intent(inout) :: self
12681 logical(LKG) , intent(in) __CONTIGUOUS :: object(:,:)
12682 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12683 character(*, SK) , intent(in) , optional :: format, advance
12684 logical(LK) , intent(in) , optional :: sticky
12685 character(*, SK) , intent(in) , optional :: deliml, delimr
12686 end subroutine
12687#endif
12688
12689#if LK4_ENABLED
12690 module subroutine show_D2_LK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12692 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_LK4
12693#endif
12694 use pm_kind, only: SKG => SK, LKG => LK4
12695 class(display_type) , intent(inout) :: self
12696 logical(LKG) , intent(in) __CONTIGUOUS :: object(:,:)
12697 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12698 character(*, SK) , intent(in) , optional :: format, advance
12699 logical(LK) , intent(in) , optional :: sticky
12700 character(*, SK) , intent(in) , optional :: deliml, delimr
12701 end subroutine
12702#endif
12703
12704#if LK3_ENABLED
12705 module subroutine show_D2_LK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12707 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_LK3
12708#endif
12709 use pm_kind, only: SKG => SK, LKG => LK3
12710 class(display_type) , intent(inout) :: self
12711 logical(LKG) , intent(in) __CONTIGUOUS :: object(:,:)
12712 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12713 character(*, SK) , intent(in) , optional :: format, advance
12714 logical(LK) , intent(in) , optional :: sticky
12715 character(*, SK) , intent(in) , optional :: deliml, delimr
12716 end subroutine
12717#endif
12718
12719#if LK2_ENABLED
12720 module subroutine show_D2_LK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12722 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_LK2
12723#endif
12724 use pm_kind, only: SKG => SK, LKG => LK2
12725 class(display_type) , intent(inout) :: self
12726 logical(LKG) , intent(in) __CONTIGUOUS :: object(:,:)
12727 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12728 character(*, SK) , intent(in) , optional :: format, advance
12729 logical(LK) , intent(in) , optional :: sticky
12730 character(*, SK) , intent(in) , optional :: deliml, delimr
12731 end subroutine
12732#endif
12733
12734#if LK1_ENABLED
12735 module subroutine show_D2_LK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12737 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_LK1
12738#endif
12739 use pm_kind, only: SKG => SK, LKG => LK1
12740 class(display_type) , intent(inout) :: self
12741 logical(LKG) , intent(in) __CONTIGUOUS :: object(:,:)
12742 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12743 character(*, SK) , intent(in) , optional :: format, advance
12744 logical(LK) , intent(in) , optional :: sticky
12745 character(*, SK) , intent(in) , optional :: deliml, delimr
12746 end subroutine
12747#endif
12748
12749 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12750
12751#if CK5_ENABLED
12752 module subroutine show_D2_CK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12754 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_CK5
12755#endif
12756 use pm_kind, only: SKG => SK, CKG => CK5
12757 class(display_type) , intent(inout) :: self
12758 complex(CKG) , intent(in) __CONTIGUOUS :: object(:,:)
12759 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12760 character(*, SK) , intent(in) , optional :: format, advance
12761 logical(LK) , intent(in) , optional :: sticky
12762 character(*, SK) , intent(in) , optional :: deliml, delimr
12763 end subroutine
12764#endif
12765
12766#if CK4_ENABLED
12767 module subroutine show_D2_CK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12769 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_CK4
12770#endif
12771 use pm_kind, only: SKG => SK, CKG => CK4
12772 class(display_type) , intent(inout) :: self
12773 complex(CKG) , intent(in) __CONTIGUOUS :: object(:,:)
12774 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12775 character(*, SK) , intent(in) , optional :: format, advance
12776 logical(LK) , intent(in) , optional :: sticky
12777 character(*, SK) , intent(in) , optional :: deliml, delimr
12778 end subroutine
12779#endif
12780
12781#if CK3_ENABLED
12782 module subroutine show_D2_CK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12784 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_CK3
12785#endif
12786 use pm_kind, only: SKG => SK, CKG => CK3
12787 class(display_type) , intent(inout) :: self
12788 complex(CKG) , intent(in) __CONTIGUOUS :: object(:,:)
12789 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12790 character(*, SK) , intent(in) , optional :: format, advance
12791 logical(LK) , intent(in) , optional :: sticky
12792 character(*, SK) , intent(in) , optional :: deliml, delimr
12793 end subroutine
12794#endif
12795
12796#if CK2_ENABLED
12797 module subroutine show_D2_CK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12799 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_CK2
12800#endif
12801 use pm_kind, only: SKG => SK, CKG => CK2
12802 class(display_type) , intent(inout) :: self
12803 complex(CKG) , intent(in) __CONTIGUOUS :: object(:,:)
12804 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12805 character(*, SK) , intent(in) , optional :: format, advance
12806 logical(LK) , intent(in) , optional :: sticky
12807 character(*, SK) , intent(in) , optional :: deliml, delimr
12808 end subroutine
12809#endif
12810
12811#if CK1_ENABLED
12812 module subroutine show_D2_CK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12814 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_CK1
12815#endif
12816 use pm_kind, only: SKG => SK, CKG => CK1
12817 class(display_type) , intent(inout) :: self
12818 complex(CKG) , intent(in) __CONTIGUOUS :: object(:,:)
12819 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12820 character(*, SK) , intent(in) , optional :: format, advance
12821 logical(LK) , intent(in) , optional :: sticky
12822 character(*, SK) , intent(in) , optional :: deliml, delimr
12823 end subroutine
12824#endif
12825
12826 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12827
12828#if RK5_ENABLED
12829 module subroutine show_D2_RK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12831 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_RK5
12832#endif
12833 use pm_kind, only: SKG => SK, RKG => RK5
12834 class(display_type) , intent(inout) :: self
12835 real(RKG) , intent(in) __CONTIGUOUS :: object(:,:)
12836 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12837 character(*, SK) , intent(in) , optional :: format, advance
12838 logical(LK) , intent(in) , optional :: sticky
12839 character(*, SK) , intent(in) , optional :: deliml, delimr
12840 end subroutine
12841#endif
12842
12843#if RK4_ENABLED
12844 module subroutine show_D2_RK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12846 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_RK4
12847#endif
12848 use pm_kind, only: SKG => SK, RKG => RK4
12849 class(display_type) , intent(inout) :: self
12850 real(RKG) , intent(in) __CONTIGUOUS :: object(:,:)
12851 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12852 character(*, SK) , intent(in) , optional :: format, advance
12853 logical(LK) , intent(in) , optional :: sticky
12854 character(*, SK) , intent(in) , optional :: deliml, delimr
12855 end subroutine
12856#endif
12857
12858#if RK3_ENABLED
12859 module subroutine show_D2_RK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12861 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_RK3
12862#endif
12863 use pm_kind, only: SKG => SK, RKG => RK3
12864 class(display_type) , intent(inout) :: self
12865 real(RKG) , intent(in) __CONTIGUOUS :: object(:,:)
12866 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12867 character(*, SK) , intent(in) , optional :: format, advance
12868 logical(LK) , intent(in) , optional :: sticky
12869 character(*, SK) , intent(in) , optional :: deliml, delimr
12870 end subroutine
12871#endif
12872
12873#if RK2_ENABLED
12874 module subroutine show_D2_RK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12876 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_RK2
12877#endif
12878 use pm_kind, only: SKG => SK, RKG => RK2
12879 class(display_type) , intent(inout) :: self
12880 real(RKG) , intent(in) __CONTIGUOUS :: object(:,:)
12881 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12882 character(*, SK) , intent(in) , optional :: format, advance
12883 logical(LK) , intent(in) , optional :: sticky
12884 character(*, SK) , intent(in) , optional :: deliml, delimr
12885 end subroutine
12886#endif
12887
12888#if RK1_ENABLED
12889 module subroutine show_D2_RK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12891 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_RK1
12892#endif
12893 use pm_kind, only: SKG => SK, RKG => RK1
12894 class(display_type) , intent(inout) :: self
12895 real(RKG) , intent(in) __CONTIGUOUS :: object(:,:)
12896 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12897 character(*, SK) , intent(in) , optional :: format, advance
12898 logical(LK) , intent(in) , optional :: sticky
12899 character(*, SK) , intent(in) , optional :: deliml, delimr
12900 end subroutine
12901#endif
12902
12903 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12904
12905 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12906 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12907 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12908
12909 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12910
12911#if SK5_ENABLED
12912 module subroutine show_D3_SK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12914 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_SK5
12915#endif
12916 use pm_kind, only: SKG => SK5
12917 class(display_type) , intent(inout) :: self
12918 character(*,SKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
12919 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12920 character(*, SK) , intent(in) , optional :: format, advance
12921 logical(LK) , intent(in) , optional :: sticky
12922 character(*, SK) , intent(in) , optional :: deliml, delimr
12923 end subroutine
12924#endif
12925
12926#if SK4_ENABLED
12927 module subroutine show_D3_SK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12929 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_SK4
12930#endif
12931 use pm_kind, only: SKG => SK4
12932 class(display_type) , intent(inout) :: self
12933 character(*,SKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
12934 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12935 character(*, SK) , intent(in) , optional :: format, advance
12936 logical(LK) , intent(in) , optional :: sticky
12937 character(*, SK) , intent(in) , optional :: deliml, delimr
12938 end subroutine
12939#endif
12940
12941#if SK3_ENABLED
12942 module subroutine show_D3_SK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12944 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_SK3
12945#endif
12946 use pm_kind, only: SKG => SK3
12947 class(display_type) , intent(inout) :: self
12948 character(*,SKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
12949 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12950 character(*, SK) , intent(in) , optional :: format, advance
12951 logical(LK) , intent(in) , optional :: sticky
12952 character(*, SK) , intent(in) , optional :: deliml, delimr
12953 end subroutine
12954#endif
12955
12956#if SK2_ENABLED
12957 module subroutine show_D3_SK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12958#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12959 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_SK2
12960#endif
12961 use pm_kind, only: SKG => SK2
12962 class(display_type) , intent(inout) :: self
12963 character(*,SKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
12964 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12965 character(*, SK) , intent(in) , optional :: format, advance
12966 logical(LK) , intent(in) , optional :: sticky
12967 character(*, SK) , intent(in) , optional :: deliml, delimr
12968 end subroutine
12969#endif
12970
12971#if SK1_ENABLED
12972 module subroutine show_D3_SK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12973#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12974 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_SK1
12975#endif
12976 use pm_kind, only: SKG => SK1
12977 class(display_type) , intent(inout) :: self
12978 character(*,SKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
12979 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12980 character(*, SK) , intent(in) , optional :: format, advance
12981 logical(LK) , intent(in) , optional :: sticky
12982 character(*, SK) , intent(in) , optional :: deliml, delimr
12983 end subroutine
12984#endif
12985
12986 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12987
12988#if IK5_ENABLED
12989 module subroutine show_D3_IK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12991 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_IK5
12992#endif
12993 use pm_kind, only: SKG => SK, IKG => IK5
12994 class(display_type) , intent(inout) :: self
12995 integer(IKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
12996 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
12997 character(*, SK) , intent(in) , optional :: format, advance
12998 logical(LK) , intent(in) , optional :: sticky
12999 character(*, SK) , intent(in) , optional :: deliml, delimr
13000 end subroutine
13001#endif
13002
13003#if IK4_ENABLED
13004 module subroutine show_D3_IK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13006 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_IK4
13007#endif
13008 use pm_kind, only: SKG => SK, IKG => IK4
13009 class(display_type) , intent(inout) :: self
13010 integer(IKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13011 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13012 character(*, SK) , intent(in) , optional :: format, advance
13013 logical(LK) , intent(in) , optional :: sticky
13014 character(*, SK) , intent(in) , optional :: deliml, delimr
13015 end subroutine
13016#endif
13017
13018#if IK3_ENABLED
13019 module subroutine show_D3_IK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13020#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13021 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_IK3
13022#endif
13023 use pm_kind, only: SKG => SK, IKG => IK3
13024 class(display_type) , intent(inout) :: self
13025 integer(IKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13026 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13027 character(*, SK) , intent(in) , optional :: format, advance
13028 logical(LK) , intent(in) , optional :: sticky
13029 character(*, SK) , intent(in) , optional :: deliml, delimr
13030 end subroutine
13031#endif
13032
13033#if IK2_ENABLED
13034 module subroutine show_D3_IK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13036 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_IK2
13037#endif
13038 use pm_kind, only: SKG => SK, IKG => IK2
13039 class(display_type) , intent(inout) :: self
13040 integer(IKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13041 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13042 character(*, SK) , intent(in) , optional :: format, advance
13043 logical(LK) , intent(in) , optional :: sticky
13044 character(*, SK) , intent(in) , optional :: deliml, delimr
13045 end subroutine
13046#endif
13047
13048#if IK1_ENABLED
13049 module subroutine show_D3_IK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13050#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13051 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_IK1
13052#endif
13053 use pm_kind, only: SKG => SK, IKG => IK1
13054 class(display_type) , intent(inout) :: self
13055 integer(IKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13056 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13057 character(*, SK) , intent(in) , optional :: format, advance
13058 logical(LK) , intent(in) , optional :: sticky
13059 character(*, SK) , intent(in) , optional :: deliml, delimr
13060 end subroutine
13061#endif
13062
13063 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13064
13065#if LK5_ENABLED
13066 module subroutine show_D3_LK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13068 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_LK5
13069#endif
13070 use pm_kind, only: SKG => SK, LKG => LK5
13071 class(display_type) , intent(inout) :: self
13072 logical(LKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13073 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13074 character(*, SK) , intent(in) , optional :: format, advance
13075 logical(LK) , intent(in) , optional :: sticky
13076 character(*, SK) , intent(in) , optional :: deliml, delimr
13077 end subroutine
13078#endif
13079
13080#if LK4_ENABLED
13081 module subroutine show_D3_LK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13083 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_LK4
13084#endif
13085 use pm_kind, only: SKG => SK, LKG => LK4
13086 class(display_type) , intent(inout) :: self
13087 logical(LKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13088 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13089 character(*, SK) , intent(in) , optional :: format, advance
13090 logical(LK) , intent(in) , optional :: sticky
13091 character(*, SK) , intent(in) , optional :: deliml, delimr
13092 end subroutine
13093#endif
13094
13095#if LK3_ENABLED
13096 module subroutine show_D3_LK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13098 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_LK3
13099#endif
13100 use pm_kind, only: SKG => SK, LKG => LK3
13101 class(display_type) , intent(inout) :: self
13102 logical(LKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13103 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13104 character(*, SK) , intent(in) , optional :: format, advance
13105 logical(LK) , intent(in) , optional :: sticky
13106 character(*, SK) , intent(in) , optional :: deliml, delimr
13107 end subroutine
13108#endif
13109
13110#if LK2_ENABLED
13111 module subroutine show_D3_LK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13112#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13113 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_LK2
13114#endif
13115 use pm_kind, only: SKG => SK, LKG => LK2
13116 class(display_type) , intent(inout) :: self
13117 logical(LKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13118 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13119 character(*, SK) , intent(in) , optional :: format, advance
13120 logical(LK) , intent(in) , optional :: sticky
13121 character(*, SK) , intent(in) , optional :: deliml, delimr
13122 end subroutine
13123#endif
13124
13125#if LK1_ENABLED
13126 module subroutine show_D3_LK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13128 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_LK1
13129#endif
13130 use pm_kind, only: SKG => SK, LKG => LK1
13131 class(display_type) , intent(inout) :: self
13132 logical(LKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13133 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13134 character(*, SK) , intent(in) , optional :: format, advance
13135 logical(LK) , intent(in) , optional :: sticky
13136 character(*, SK) , intent(in) , optional :: deliml, delimr
13137 end subroutine
13138#endif
13139
13140 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13141
13142#if CK5_ENABLED
13143 module subroutine show_D3_CK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13144#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13145 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_CK5
13146#endif
13147 use pm_kind, only: SKG => SK, CKG => CK5
13148 class(display_type) , intent(inout) :: self
13149 complex(CKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13150 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13151 character(*, SK) , intent(in) , optional :: format, advance
13152 logical(LK) , intent(in) , optional :: sticky
13153 character(*, SK) , intent(in) , optional :: deliml, delimr
13154 end subroutine
13155#endif
13156
13157#if CK4_ENABLED
13158 module subroutine show_D3_CK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13160 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_CK4
13161#endif
13162 use pm_kind, only: SKG => SK, CKG => CK4
13163 class(display_type) , intent(inout) :: self
13164 complex(CKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13165 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13166 character(*, SK) , intent(in) , optional :: format, advance
13167 logical(LK) , intent(in) , optional :: sticky
13168 character(*, SK) , intent(in) , optional :: deliml, delimr
13169 end subroutine
13170#endif
13171
13172#if CK3_ENABLED
13173 module subroutine show_D3_CK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13175 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_CK3
13176#endif
13177 use pm_kind, only: SKG => SK, CKG => CK3
13178 class(display_type) , intent(inout) :: self
13179 complex(CKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13180 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13181 character(*, SK) , intent(in) , optional :: format, advance
13182 logical(LK) , intent(in) , optional :: sticky
13183 character(*, SK) , intent(in) , optional :: deliml, delimr
13184 end subroutine
13185#endif
13186
13187#if CK2_ENABLED
13188 module subroutine show_D3_CK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13190 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_CK2
13191#endif
13192 use pm_kind, only: SKG => SK, CKG => CK2
13193 class(display_type) , intent(inout) :: self
13194 complex(CKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13195 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13196 character(*, SK) , intent(in) , optional :: format, advance
13197 logical(LK) , intent(in) , optional :: sticky
13198 character(*, SK) , intent(in) , optional :: deliml, delimr
13199 end subroutine
13200#endif
13201
13202#if CK1_ENABLED
13203 module subroutine show_D3_CK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13205 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_CK1
13206#endif
13207 use pm_kind, only: SKG => SK, CKG => CK1
13208 class(display_type) , intent(inout) :: self
13209 complex(CKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13210 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13211 character(*, SK) , intent(in) , optional :: format, advance
13212 logical(LK) , intent(in) , optional :: sticky
13213 character(*, SK) , intent(in) , optional :: deliml, delimr
13214 end subroutine
13215#endif
13216
13217 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13218
13219#if RK5_ENABLED
13220 module subroutine show_D3_RK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13222 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_RK5
13223#endif
13224 use pm_kind, only: SKG => SK, RKG => RK5
13225 class(display_type) , intent(inout) :: self
13226 real(RKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13227 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13228 character(*, SK) , intent(in) , optional :: format, advance
13229 logical(LK) , intent(in) , optional :: sticky
13230 character(*, SK) , intent(in) , optional :: deliml, delimr
13231 end subroutine
13232#endif
13233
13234#if RK4_ENABLED
13235 module subroutine show_D3_RK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13237 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_RK4
13238#endif
13239 use pm_kind, only: SKG => SK, RKG => RK4
13240 class(display_type) , intent(inout) :: self
13241 real(RKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13242 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13243 character(*, SK) , intent(in) , optional :: format, advance
13244 logical(LK) , intent(in) , optional :: sticky
13245 character(*, SK) , intent(in) , optional :: deliml, delimr
13246 end subroutine
13247#endif
13248
13249#if RK3_ENABLED
13250 module subroutine show_D3_RK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13252 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_RK3
13253#endif
13254 use pm_kind, only: SKG => SK, RKG => RK3
13255 class(display_type) , intent(inout) :: self
13256 real(RKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13257 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13258 character(*, SK) , intent(in) , optional :: format, advance
13259 logical(LK) , intent(in) , optional :: sticky
13260 character(*, SK) , intent(in) , optional :: deliml, delimr
13261 end subroutine
13262#endif
13263
13264#if RK2_ENABLED
13265 module subroutine show_D3_RK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13267 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_RK2
13268#endif
13269 use pm_kind, only: SKG => SK, RKG => RK2
13270 class(display_type) , intent(inout) :: self
13271 real(RKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13272 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13273 character(*, SK) , intent(in) , optional :: format, advance
13274 logical(LK) , intent(in) , optional :: sticky
13275 character(*, SK) , intent(in) , optional :: deliml, delimr
13276 end subroutine
13277#endif
13278
13279#if RK1_ENABLED
13280 module subroutine show_D3_RK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13282 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_RK1
13283#endif
13284 use pm_kind, only: SKG => SK, RKG => RK1
13285 class(display_type) , intent(inout) :: self
13286 real(RKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13287 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13288 character(*, SK) , intent(in) , optional :: format, advance
13289 logical(LK) , intent(in) , optional :: sticky
13290 character(*, SK) , intent(in) , optional :: deliml, delimr
13291 end subroutine
13292#endif
13293
13294 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13295
13296 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13297 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13298 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13299
13300 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13301 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13302 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13303
13304#if PDT_ENABLED
13305
13306 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13307
13308#if SK5_ENABLED
13309 module subroutine show_D0_PSSK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13310#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13311 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSSK5
13312#endif
13313 use pm_kind, only: SKG => SK5
13314 use pm_container, only: css_pdt
13315 class(display_type) , intent(inout) :: self
13316 type(css_pdt(SKG)) , intent(in) :: object
13317 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13318 character(*, SK) , intent(in) , optional :: format, advance
13319 logical(LK) , intent(in) , optional :: sticky
13320 character(*, SK) , intent(in) , optional :: deliml, delimr
13321 end subroutine
13322#endif
13323
13324#if SK4_ENABLED
13325 module subroutine show_D0_PSSK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13327 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSSK4
13328#endif
13329 use pm_kind, only: SKG => SK4
13330 use pm_container, only: css_pdt
13331 class(display_type) , intent(inout) :: self
13332 type(css_pdt(SKG)) , intent(in) :: object
13333 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13334 character(*, SK) , intent(in) , optional :: format, advance
13335 logical(LK) , intent(in) , optional :: sticky
13336 character(*, SK) , intent(in) , optional :: deliml, delimr
13337 end subroutine
13338#endif
13339
13340#if SK3_ENABLED
13341 module subroutine show_D0_PSSK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13343 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSSK3
13344#endif
13345 use pm_kind, only: SKG => SK3
13346 use pm_container, only: css_pdt
13347 class(display_type) , intent(inout) :: self
13348 type(css_pdt(SKG)) , intent(in) :: object
13349 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13350 character(*, SK) , intent(in) , optional :: format, advance
13351 logical(LK) , intent(in) , optional :: sticky
13352 character(*, SK) , intent(in) , optional :: deliml, delimr
13353 end subroutine
13354#endif
13355
13356#if SK2_ENABLED
13357 module subroutine show_D0_PSSK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13359 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSSK2
13360#endif
13361 use pm_kind, only: SKG => SK2
13362 use pm_container, only: css_pdt
13363 class(display_type) , intent(inout) :: self
13364 type(css_pdt(SKG)) , intent(in) :: object
13365 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13366 character(*, SK) , intent(in) , optional :: format, advance
13367 logical(LK) , intent(in) , optional :: sticky
13368 character(*, SK) , intent(in) , optional :: deliml, delimr
13369 end subroutine
13370#endif
13371
13372#if SK1_ENABLED
13373 module subroutine show_D0_PSSK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13374#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13375 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSSK1
13376#endif
13377 use pm_kind, only: SKG => SK1
13378 use pm_container, only: css_pdt
13379 class(display_type) , intent(inout) :: self
13380 type(css_pdt(SKG)) , intent(in) :: object
13381 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13382 character(*, SK) , intent(in) , optional :: format, advance
13383 logical(LK) , intent(in) , optional :: sticky
13384 character(*, SK) , intent(in) , optional :: deliml, delimr
13385 end subroutine
13386#endif
13387
13388 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13389
13390#if IK5_ENABLED
13391 module subroutine show_D0_PSIK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13393 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSIK5
13394#endif
13395 use pm_kind, only: SKG => SK, IKG => IK5
13396 use pm_container, only: csi_pdt
13397 class(display_type) , intent(inout) :: self
13398 type(csi_pdt(IKG)) , intent(in) :: object
13399 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13400 character(*, SK) , intent(in) , optional :: format, advance
13401 logical(LK) , intent(in) , optional :: sticky
13402 character(*, SK) , intent(in) , optional :: deliml, delimr
13403 end subroutine
13404#endif
13405
13406#if IK4_ENABLED
13407 module subroutine show_D0_PSIK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13409 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSIK4
13410#endif
13411 use pm_kind, only: SKG => SK, IKG => IK4
13412 use pm_container, only: csi_pdt
13413 class(display_type) , intent(inout) :: self
13414 type(csi_pdt(IKG)) , intent(in) :: object
13415 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13416 character(*, SK) , intent(in) , optional :: format, advance
13417 logical(LK) , intent(in) , optional :: sticky
13418 character(*, SK) , intent(in) , optional :: deliml, delimr
13419 end subroutine
13420#endif
13421
13422#if IK3_ENABLED
13423 module subroutine show_D0_PSIK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13424#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13425 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSIK3
13426#endif
13427 use pm_kind, only: SKG => SK, IKG => IK3
13428 use pm_container, only: csi_pdt
13429 class(display_type) , intent(inout) :: self
13430 type(csi_pdt(IKG)) , intent(in) :: object
13431 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13432 character(*, SK) , intent(in) , optional :: format, advance
13433 logical(LK) , intent(in) , optional :: sticky
13434 character(*, SK) , intent(in) , optional :: deliml, delimr
13435 end subroutine
13436#endif
13437
13438#if IK2_ENABLED
13439 module subroutine show_D0_PSIK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13441 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSIK2
13442#endif
13443 use pm_kind, only: SKG => SK, IKG => IK2
13444 use pm_container, only: csi_pdt
13445 class(display_type) , intent(inout) :: self
13446 type(csi_pdt(IKG)) , intent(in) :: object
13447 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13448 character(*, SK) , intent(in) , optional :: format, advance
13449 logical(LK) , intent(in) , optional :: sticky
13450 character(*, SK) , intent(in) , optional :: deliml, delimr
13451 end subroutine
13452#endif
13453
13454#if IK1_ENABLED
13455 module subroutine show_D0_PSIK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13457 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSIK1
13458#endif
13459 use pm_kind, only: SKG => SK, IKG => IK1
13460 use pm_container, only: csi_pdt
13461 class(display_type) , intent(inout) :: self
13462 type(csi_pdt(IKG)) , intent(in) :: object
13463 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13464 character(*, SK) , intent(in) , optional :: format, advance
13465 logical(LK) , intent(in) , optional :: sticky
13466 character(*, SK) , intent(in) , optional :: deliml, delimr
13467 end subroutine
13468#endif
13469
13470 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13471
13472#if LK5_ENABLED
13473 module subroutine show_D0_PSLK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13474#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13475 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSLK5
13476#endif
13477 use pm_kind, only: SKG => SK, LKG => LK5
13478 use pm_container, only: csl_pdt
13479 class(display_type) , intent(inout) :: self
13480 type(csl_pdt(LKG)) , intent(in) :: object
13481 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13482 character(*, SK) , intent(in) , optional :: format, advance
13483 logical(LK) , intent(in) , optional :: sticky
13484 character(*, SK) , intent(in) , optional :: deliml, delimr
13485 end subroutine
13486#endif
13487
13488#if LK4_ENABLED
13489 module subroutine show_D0_PSLK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13491 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSLK4
13492#endif
13493 use pm_kind, only: SKG => SK, LKG => LK4
13494 use pm_container, only: csl_pdt
13495 class(display_type) , intent(inout) :: self
13496 type(csl_pdt(LKG)) , intent(in) :: object
13497 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13498 character(*, SK) , intent(in) , optional :: format, advance
13499 logical(LK) , intent(in) , optional :: sticky
13500 character(*, SK) , intent(in) , optional :: deliml, delimr
13501 end subroutine
13502#endif
13503
13504#if LK3_ENABLED
13505 module subroutine show_D0_PSLK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13506#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13507 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSLK3
13508#endif
13509 use pm_kind, only: SKG => SK, LKG => LK3
13510 use pm_container, only: csl_pdt
13511 class(display_type) , intent(inout) :: self
13512 type(csl_pdt(LKG)) , intent(in) :: object
13513 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13514 character(*, SK) , intent(in) , optional :: format, advance
13515 logical(LK) , intent(in) , optional :: sticky
13516 character(*, SK) , intent(in) , optional :: deliml, delimr
13517 end subroutine
13518#endif
13519
13520#if LK2_ENABLED
13521 module subroutine show_D0_PSLK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13522#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13523 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSLK2
13524#endif
13525 use pm_kind, only: SKG => SK, LKG => LK2
13526 use pm_container, only: csl_pdt
13527 class(display_type) , intent(inout) :: self
13528 type(csl_pdt(LKG)) , intent(in) :: object
13529 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13530 character(*, SK) , intent(in) , optional :: format, advance
13531 logical(LK) , intent(in) , optional :: sticky
13532 character(*, SK) , intent(in) , optional :: deliml, delimr
13533 end subroutine
13534#endif
13535
13536#if LK1_ENABLED
13537 module subroutine show_D0_PSLK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13538#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13539 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSLK1
13540#endif
13541 use pm_kind, only: SKG => SK, LKG => LK1
13542 use pm_container, only: csl_pdt
13543 class(display_type) , intent(inout) :: self
13544 type(csl_pdt(LKG)) , intent(in) :: object
13545 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13546 character(*, SK) , intent(in) , optional :: format, advance
13547 logical(LK) , intent(in) , optional :: sticky
13548 character(*, SK) , intent(in) , optional :: deliml, delimr
13549 end subroutine
13550#endif
13551
13552 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13553
13554#if CK5_ENABLED
13555 module subroutine show_D0_PSCK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13557 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSCK5
13558#endif
13559 use pm_kind, only: SKG => SK, CKG => CK5
13560 use pm_container, only: csc_pdt
13561 class(display_type) , intent(inout) :: self
13562 type(csc_pdt(CKG)) , intent(in) :: object
13563 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13564 character(*, SK) , intent(in) , optional :: format, advance
13565 logical(LK) , intent(in) , optional :: sticky
13566 character(*, SK) , intent(in) , optional :: deliml, delimr
13567 end subroutine
13568#endif
13569
13570#if CK4_ENABLED
13571 module subroutine show_D0_PSCK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13573 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSCK4
13574#endif
13575 use pm_kind, only: SKG => SK, CKG => CK4
13576 use pm_container, only: csc_pdt
13577 class(display_type) , intent(inout) :: self
13578 type(csc_pdt(CKG)) , intent(in) :: object
13579 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13580 character(*, SK) , intent(in) , optional :: format, advance
13581 logical(LK) , intent(in) , optional :: sticky
13582 character(*, SK) , intent(in) , optional :: deliml, delimr
13583 end subroutine
13584#endif
13585
13586#if CK3_ENABLED
13587 module subroutine show_D0_PSCK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13588#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13589 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSCK3
13590#endif
13591 use pm_kind, only: SKG => SK, CKG => CK3
13592 use pm_container, only: csc_pdt
13593 class(display_type) , intent(inout) :: self
13594 type(csc_pdt(CKG)) , intent(in) :: object
13595 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13596 character(*, SK) , intent(in) , optional :: format, advance
13597 logical(LK) , intent(in) , optional :: sticky
13598 character(*, SK) , intent(in) , optional :: deliml, delimr
13599 end subroutine
13600#endif
13601
13602#if CK2_ENABLED
13603 module subroutine show_D0_PSCK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13605 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSCK2
13606#endif
13607 use pm_kind, only: SKG => SK, CKG => CK2
13608 use pm_container, only: csc_pdt
13609 class(display_type) , intent(inout) :: self
13610 type(csc_pdt(CKG)) , intent(in) :: object
13611 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13612 character(*, SK) , intent(in) , optional :: format, advance
13613 logical(LK) , intent(in) , optional :: sticky
13614 character(*, SK) , intent(in) , optional :: deliml, delimr
13615 end subroutine
13616#endif
13617
13618#if CK1_ENABLED
13619 module subroutine show_D0_PSCK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13620#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13621 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSCK1
13622#endif
13623 use pm_kind, only: SKG => SK, CKG => CK1
13624 use pm_container, only: csc_pdt
13625 class(display_type) , intent(inout) :: self
13626 type(csc_pdt(CKG)) , intent(in) :: object
13627 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13628 character(*, SK) , intent(in) , optional :: format, advance
13629 logical(LK) , intent(in) , optional :: sticky
13630 character(*, SK) , intent(in) , optional :: deliml, delimr
13631 end subroutine
13632#endif
13633
13634 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13635
13636#if RK5_ENABLED
13637 module subroutine show_D0_PSRK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13638#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13639 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSRK5
13640#endif
13641 use pm_kind, only: SKG => SK, RKG => RK5
13642 use pm_container, only: csr_pdt
13643 class(display_type) , intent(inout) :: self
13644 type(csr_pdt(RKG)) , intent(in) :: object
13645 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13646 character(*, SK) , intent(in) , optional :: format, advance
13647 logical(LK) , intent(in) , optional :: sticky
13648 character(*, SK) , intent(in) , optional :: deliml, delimr
13649 end subroutine
13650#endif
13651
13652#if RK4_ENABLED
13653 module subroutine show_D0_PSRK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13654#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13655 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSRK4
13656#endif
13657 use pm_kind, only: SKG => SK, RKG => RK4
13658 use pm_container, only: csr_pdt
13659 class(display_type) , intent(inout) :: self
13660 type(csr_pdt(RKG)) , intent(in) :: object
13661 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13662 character(*, SK) , intent(in) , optional :: format, advance
13663 logical(LK) , intent(in) , optional :: sticky
13664 character(*, SK) , intent(in) , optional :: deliml, delimr
13665 end subroutine
13666#endif
13667
13668#if RK3_ENABLED
13669 module subroutine show_D0_PSRK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13671 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSRK3
13672#endif
13673 use pm_kind, only: SKG => SK, RKG => RK3
13674 use pm_container, only: csr_pdt
13675 class(display_type) , intent(inout) :: self
13676 type(csr_pdt(RKG)) , intent(in) :: object
13677 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13678 character(*, SK) , intent(in) , optional :: format, advance
13679 logical(LK) , intent(in) , optional :: sticky
13680 character(*, SK) , intent(in) , optional :: deliml, delimr
13681 end subroutine
13682#endif
13683
13684#if RK2_ENABLED
13685 module subroutine show_D0_PSRK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13687 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSRK2
13688#endif
13689 use pm_kind, only: SKG => SK, RKG => RK2
13690 use pm_container, only: csr_pdt
13691 class(display_type) , intent(inout) :: self
13692 type(csr_pdt(RKG)) , intent(in) :: object
13693 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13694 character(*, SK) , intent(in) , optional :: format, advance
13695 logical(LK) , intent(in) , optional :: sticky
13696 character(*, SK) , intent(in) , optional :: deliml, delimr
13697 end subroutine
13698#endif
13699
13700#if RK1_ENABLED
13701 module subroutine show_D0_PSRK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13702#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13703 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSRK1
13704#endif
13705 use pm_kind, only: SKG => SK, RKG => RK1
13706 use pm_container, only: csr_pdt
13707 class(display_type) , intent(inout) :: self
13708 type(csr_pdt(RKG)) , intent(in) :: object
13709 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13710 character(*, SK) , intent(in) , optional :: format, advance
13711 logical(LK) , intent(in) , optional :: sticky
13712 character(*, SK) , intent(in) , optional :: deliml, delimr
13713 end subroutine
13714#endif
13715
13716 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13717
13718 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13719 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13720 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13721
13722 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13723
13724#if SK5_ENABLED
13725 module subroutine show_D1_PSSK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13727 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSSK5
13728#endif
13729 use pm_kind, only: SKG => SK5
13730 use pm_container, only: css_pdt
13731 class(display_type) , intent(inout) :: self
13732 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
13733 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13734 character(*, SK) , intent(in) , optional :: format, advance
13735 logical(LK) , intent(in) , optional :: sticky
13736 character(*, SK) , intent(in) , optional :: deliml, delimr
13737 end subroutine
13738#endif
13739
13740#if SK4_ENABLED
13741 module subroutine show_D1_PSSK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13742#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13743 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSSK4
13744#endif
13745 use pm_kind, only: SKG => SK4
13746 use pm_container, only: css_pdt
13747 class(display_type) , intent(inout) :: self
13748 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
13749 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13750 character(*, SK) , intent(in) , optional :: format, advance
13751 logical(LK) , intent(in) , optional :: sticky
13752 character(*, SK) , intent(in) , optional :: deliml, delimr
13753 end subroutine
13754#endif
13755
13756#if SK3_ENABLED
13757 module subroutine show_D1_PSSK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13759 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSSK3
13760#endif
13761 use pm_kind, only: SKG => SK3
13762 use pm_container, only: css_pdt
13763 class(display_type) , intent(inout) :: self
13764 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
13765 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13766 character(*, SK) , intent(in) , optional :: format, advance
13767 logical(LK) , intent(in) , optional :: sticky
13768 character(*, SK) , intent(in) , optional :: deliml, delimr
13769 end subroutine
13770#endif
13771
13772#if SK2_ENABLED
13773 module subroutine show_D1_PSSK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13775 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSSK2
13776#endif
13777 use pm_kind, only: SKG => SK2
13778 use pm_container, only: css_pdt
13779 class(display_type) , intent(inout) :: self
13780 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
13781 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13782 character(*, SK) , intent(in) , optional :: format, advance
13783 logical(LK) , intent(in) , optional :: sticky
13784 character(*, SK) , intent(in) , optional :: deliml, delimr
13785 end subroutine
13786#endif
13787
13788#if SK1_ENABLED
13789 module subroutine show_D1_PSSK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13790#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13791 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSSK1
13792#endif
13793 use pm_kind, only: SKG => SK1
13794 use pm_container, only: css_pdt
13795 class(display_type) , intent(inout) :: self
13796 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
13797 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13798 character(*, SK) , intent(in) , optional :: format, advance
13799 logical(LK) , intent(in) , optional :: sticky
13800 character(*, SK) , intent(in) , optional :: deliml, delimr
13801 end subroutine
13802#endif
13803
13804 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13805
13806#if IK5_ENABLED
13807 module subroutine show_D1_PSIK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13809 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSIK5
13810#endif
13811 use pm_kind, only: SKG => SK, IKG => IK5
13812 use pm_container, only: csi_pdt
13813 class(display_type) , intent(inout) :: self
13814 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
13815 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13816 character(*, SK) , intent(in) , optional :: format, advance
13817 logical(LK) , intent(in) , optional :: sticky
13818 character(*, SK) , intent(in) , optional :: deliml, delimr
13819 end subroutine
13820#endif
13821
13822#if IK4_ENABLED
13823 module subroutine show_D1_PSIK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13825 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSIK4
13826#endif
13827 use pm_kind, only: SKG => SK, IKG => IK4
13828 use pm_container, only: csi_pdt
13829 class(display_type) , intent(inout) :: self
13830 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
13831 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13832 character(*, SK) , intent(in) , optional :: format, advance
13833 logical(LK) , intent(in) , optional :: sticky
13834 character(*, SK) , intent(in) , optional :: deliml, delimr
13835 end subroutine
13836#endif
13837
13838#if IK3_ENABLED
13839 module subroutine show_D1_PSIK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13841 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSIK3
13842#endif
13843 use pm_kind, only: SKG => SK, IKG => IK3
13844 use pm_container, only: csi_pdt
13845 class(display_type) , intent(inout) :: self
13846 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
13847 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13848 character(*, SK) , intent(in) , optional :: format, advance
13849 logical(LK) , intent(in) , optional :: sticky
13850 character(*, SK) , intent(in) , optional :: deliml, delimr
13851 end subroutine
13852#endif
13853
13854#if IK2_ENABLED
13855 module subroutine show_D1_PSIK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13857 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSIK2
13858#endif
13859 use pm_kind, only: SKG => SK, IKG => IK2
13860 use pm_container, only: csi_pdt
13861 class(display_type) , intent(inout) :: self
13862 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
13863 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13864 character(*, SK) , intent(in) , optional :: format, advance
13865 logical(LK) , intent(in) , optional :: sticky
13866 character(*, SK) , intent(in) , optional :: deliml, delimr
13867 end subroutine
13868#endif
13869
13870#if IK1_ENABLED
13871 module subroutine show_D1_PSIK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13872#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13873 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSIK1
13874#endif
13875 use pm_kind, only: SKG => SK, IKG => IK1
13876 use pm_container, only: csi_pdt
13877 class(display_type) , intent(inout) :: self
13878 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
13879 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13880 character(*, SK) , intent(in) , optional :: format, advance
13881 logical(LK) , intent(in) , optional :: sticky
13882 character(*, SK) , intent(in) , optional :: deliml, delimr
13883 end subroutine
13884#endif
13885
13886 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13887
13888#if LK5_ENABLED
13889 module subroutine show_D1_PSLK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13891 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSLK5
13892#endif
13893 use pm_kind, only: SKG => SK, LKG => LK5
13894 use pm_container, only: csl_pdt
13895 class(display_type) , intent(inout) :: self
13896 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
13897 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13898 character(*, SK) , intent(in) , optional :: format, advance
13899 logical(LK) , intent(in) , optional :: sticky
13900 character(*, SK) , intent(in) , optional :: deliml, delimr
13901 end subroutine
13902#endif
13903
13904#if LK4_ENABLED
13905 module subroutine show_D1_PSLK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13906#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13907 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSLK4
13908#endif
13909 use pm_kind, only: SKG => SK, LKG => LK4
13910 use pm_container, only: csl_pdt
13911 class(display_type) , intent(inout) :: self
13912 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
13913 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13914 character(*, SK) , intent(in) , optional :: format, advance
13915 logical(LK) , intent(in) , optional :: sticky
13916 character(*, SK) , intent(in) , optional :: deliml, delimr
13917 end subroutine
13918#endif
13919
13920#if LK3_ENABLED
13921 module subroutine show_D1_PSLK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13922#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13923 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSLK3
13924#endif
13925 use pm_kind, only: SKG => SK, LKG => LK3
13926 use pm_container, only: csl_pdt
13927 class(display_type) , intent(inout) :: self
13928 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
13929 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13930 character(*, SK) , intent(in) , optional :: format, advance
13931 logical(LK) , intent(in) , optional :: sticky
13932 character(*, SK) , intent(in) , optional :: deliml, delimr
13933 end subroutine
13934#endif
13935
13936#if LK2_ENABLED
13937 module subroutine show_D1_PSLK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13938#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13939 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSLK2
13940#endif
13941 use pm_kind, only: SKG => SK, LKG => LK2
13942 use pm_container, only: csl_pdt
13943 class(display_type) , intent(inout) :: self
13944 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
13945 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13946 character(*, SK) , intent(in) , optional :: format, advance
13947 logical(LK) , intent(in) , optional :: sticky
13948 character(*, SK) , intent(in) , optional :: deliml, delimr
13949 end subroutine
13950#endif
13951
13952#if LK1_ENABLED
13953 module subroutine show_D1_PSLK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13955 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSLK1
13956#endif
13957 use pm_kind, only: SKG => SK, LKG => LK1
13958 use pm_container, only: csl_pdt
13959 class(display_type) , intent(inout) :: self
13960 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
13961 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13962 character(*, SK) , intent(in) , optional :: format, advance
13963 logical(LK) , intent(in) , optional :: sticky
13964 character(*, SK) , intent(in) , optional :: deliml, delimr
13965 end subroutine
13966#endif
13967
13968 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13969
13970#if CK5_ENABLED
13971 module subroutine show_D1_PSCK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13972#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13973 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSCK5
13974#endif
13975 use pm_kind, only: SKG => SK, CKG => CK5
13976 use pm_container, only: csc_pdt
13977 class(display_type) , intent(inout) :: self
13978 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
13979 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13980 character(*, SK) , intent(in) , optional :: format, advance
13981 logical(LK) , intent(in) , optional :: sticky
13982 character(*, SK) , intent(in) , optional :: deliml, delimr
13983 end subroutine
13984#endif
13985
13986#if CK4_ENABLED
13987 module subroutine show_D1_PSCK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13988#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13989 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSCK4
13990#endif
13991 use pm_kind, only: SKG => SK, CKG => CK4
13992 use pm_container, only: csc_pdt
13993 class(display_type) , intent(inout) :: self
13994 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
13995 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
13996 character(*, SK) , intent(in) , optional :: format, advance
13997 logical(LK) , intent(in) , optional :: sticky
13998 character(*, SK) , intent(in) , optional :: deliml, delimr
13999 end subroutine
14000#endif
14001
14002#if CK3_ENABLED
14003 module subroutine show_D1_PSCK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14004#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14005 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSCK3
14006#endif
14007 use pm_kind, only: SKG => SK, CKG => CK3
14008 use pm_container, only: csc_pdt
14009 class(display_type) , intent(inout) :: self
14010 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
14011 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14012 character(*, SK) , intent(in) , optional :: format, advance
14013 logical(LK) , intent(in) , optional :: sticky
14014 character(*, SK) , intent(in) , optional :: deliml, delimr
14015 end subroutine
14016#endif
14017
14018#if CK2_ENABLED
14019 module subroutine show_D1_PSCK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14020#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14021 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSCK2
14022#endif
14023 use pm_kind, only: SKG => SK, CKG => CK2
14024 use pm_container, only: csc_pdt
14025 class(display_type) , intent(inout) :: self
14026 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
14027 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14028 character(*, SK) , intent(in) , optional :: format, advance
14029 logical(LK) , intent(in) , optional :: sticky
14030 character(*, SK) , intent(in) , optional :: deliml, delimr
14031 end subroutine
14032#endif
14033
14034#if CK1_ENABLED
14035 module subroutine show_D1_PSCK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14036#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14037 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSCK1
14038#endif
14039 use pm_kind, only: SKG => SK, CKG => CK1
14040 use pm_container, only: csc_pdt
14041 class(display_type) , intent(inout) :: self
14042 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
14043 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14044 character(*, SK) , intent(in) , optional :: format, advance
14045 logical(LK) , intent(in) , optional :: sticky
14046 character(*, SK) , intent(in) , optional :: deliml, delimr
14047 end subroutine
14048#endif
14049
14050 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14051
14052#if RK5_ENABLED
14053 module subroutine show_D1_PSRK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14054#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14055 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSRK5
14056#endif
14057 use pm_kind, only: SKG => SK, RKG => RK5
14058 use pm_container, only: csr_pdt
14059 class(display_type) , intent(inout) :: self
14060 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
14061 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14062 character(*, SK) , intent(in) , optional :: format, advance
14063 logical(LK) , intent(in) , optional :: sticky
14064 character(*, SK) , intent(in) , optional :: deliml, delimr
14065 end subroutine
14066#endif
14067
14068#if RK4_ENABLED
14069 module subroutine show_D1_PSRK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14071 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSRK4
14072#endif
14073 use pm_kind, only: SKG => SK, RKG => RK4
14074 use pm_container, only: csr_pdt
14075 class(display_type) , intent(inout) :: self
14076 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
14077 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14078 character(*, SK) , intent(in) , optional :: format, advance
14079 logical(LK) , intent(in) , optional :: sticky
14080 character(*, SK) , intent(in) , optional :: deliml, delimr
14081 end subroutine
14082#endif
14083
14084#if RK3_ENABLED
14085 module subroutine show_D1_PSRK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14086#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14087 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSRK3
14088#endif
14089 use pm_kind, only: SKG => SK, RKG => RK3
14090 use pm_container, only: csr_pdt
14091 class(display_type) , intent(inout) :: self
14092 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
14093 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14094 character(*, SK) , intent(in) , optional :: format, advance
14095 logical(LK) , intent(in) , optional :: sticky
14096 character(*, SK) , intent(in) , optional :: deliml, delimr
14097 end subroutine
14098#endif
14099
14100#if RK2_ENABLED
14101 module subroutine show_D1_PSRK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14103 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSRK2
14104#endif
14105 use pm_kind, only: SKG => SK, RKG => RK2
14106 use pm_container, only: csr_pdt
14107 class(display_type) , intent(inout) :: self
14108 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
14109 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14110 character(*, SK) , intent(in) , optional :: format, advance
14111 logical(LK) , intent(in) , optional :: sticky
14112 character(*, SK) , intent(in) , optional :: deliml, delimr
14113 end subroutine
14114#endif
14115
14116#if RK1_ENABLED
14117 module subroutine show_D1_PSRK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14118#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14119 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSRK1
14120#endif
14121 use pm_kind, only: SKG => SK, RKG => RK1
14122 use pm_container, only: csr_pdt
14123 class(display_type) , intent(inout) :: self
14124 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
14125 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14126 character(*, SK) , intent(in) , optional :: format, advance
14127 logical(LK) , intent(in) , optional :: sticky
14128 character(*, SK) , intent(in) , optional :: deliml, delimr
14129 end subroutine
14130#endif
14131
14132 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14133
14134 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14135 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14136 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14137
14138 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14139
14140#if SK5_ENABLED
14141 module subroutine show_D2_PSSK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14143 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSSK5
14144#endif
14145 use pm_kind, only: SKG => SK5
14146 use pm_container, only: css_pdt
14147 class(display_type) , intent(inout) :: self
14148 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14149 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14150 character(*, SK) , intent(in) , optional :: format, advance
14151 logical(LK) , intent(in) , optional :: sticky
14152 character(*, SK) , intent(in) , optional :: deliml, delimr
14153 end subroutine
14154#endif
14155
14156#if SK4_ENABLED
14157 module subroutine show_D2_PSSK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14158#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14159 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSSK4
14160#endif
14161 use pm_kind, only: SKG => SK4
14162 use pm_container, only: css_pdt
14163 class(display_type) , intent(inout) :: self
14164 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14165 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14166 character(*, SK) , intent(in) , optional :: format, advance
14167 logical(LK) , intent(in) , optional :: sticky
14168 character(*, SK) , intent(in) , optional :: deliml, delimr
14169 end subroutine
14170#endif
14171
14172#if SK3_ENABLED
14173 module subroutine show_D2_PSSK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14175 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSSK3
14176#endif
14177 use pm_kind, only: SKG => SK3
14178 use pm_container, only: css_pdt
14179 class(display_type) , intent(inout) :: self
14180 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14181 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14182 character(*, SK) , intent(in) , optional :: format, advance
14183 logical(LK) , intent(in) , optional :: sticky
14184 character(*, SK) , intent(in) , optional :: deliml, delimr
14185 end subroutine
14186#endif
14187
14188#if SK2_ENABLED
14189 module subroutine show_D2_PSSK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14191 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSSK2
14192#endif
14193 use pm_kind, only: SKG => SK2
14194 use pm_container, only: css_pdt
14195 class(display_type) , intent(inout) :: self
14196 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14197 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14198 character(*, SK) , intent(in) , optional :: format, advance
14199 logical(LK) , intent(in) , optional :: sticky
14200 character(*, SK) , intent(in) , optional :: deliml, delimr
14201 end subroutine
14202#endif
14203
14204#if SK1_ENABLED
14205 module subroutine show_D2_PSSK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14207 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSSK1
14208#endif
14209 use pm_kind, only: SKG => SK1
14210 use pm_container, only: css_pdt
14211 class(display_type) , intent(inout) :: self
14212 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14213 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14214 character(*, SK) , intent(in) , optional :: format, advance
14215 logical(LK) , intent(in) , optional :: sticky
14216 character(*, SK) , intent(in) , optional :: deliml, delimr
14217 end subroutine
14218#endif
14219
14220 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14221
14222#if IK5_ENABLED
14223 module subroutine show_D2_PSIK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14224#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14225 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSIK5
14226#endif
14227 use pm_kind, only: SKG => SK, IKG => IK5
14228 use pm_container, only: csi_pdt
14229 class(display_type) , intent(inout) :: self
14230 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14231 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14232 character(*, SK) , intent(in) , optional :: format, advance
14233 logical(LK) , intent(in) , optional :: sticky
14234 character(*, SK) , intent(in) , optional :: deliml, delimr
14235 end subroutine
14236#endif
14237
14238#if IK4_ENABLED
14239 module subroutine show_D2_PSIK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14240#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14241 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSIK4
14242#endif
14243 use pm_kind, only: SKG => SK, IKG => IK4
14244 use pm_container, only: csi_pdt
14245 class(display_type) , intent(inout) :: self
14246 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14247 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14248 character(*, SK) , intent(in) , optional :: format, advance
14249 logical(LK) , intent(in) , optional :: sticky
14250 character(*, SK) , intent(in) , optional :: deliml, delimr
14251 end subroutine
14252#endif
14253
14254#if IK3_ENABLED
14255 module subroutine show_D2_PSIK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14257 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSIK3
14258#endif
14259 use pm_kind, only: SKG => SK, IKG => IK3
14260 use pm_container, only: csi_pdt
14261 class(display_type) , intent(inout) :: self
14262 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14263 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14264 character(*, SK) , intent(in) , optional :: format, advance
14265 logical(LK) , intent(in) , optional :: sticky
14266 character(*, SK) , intent(in) , optional :: deliml, delimr
14267 end subroutine
14268#endif
14269
14270#if IK2_ENABLED
14271 module subroutine show_D2_PSIK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14273 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSIK2
14274#endif
14275 use pm_kind, only: SKG => SK, IKG => IK2
14276 use pm_container, only: csi_pdt
14277 class(display_type) , intent(inout) :: self
14278 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14279 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14280 character(*, SK) , intent(in) , optional :: format, advance
14281 logical(LK) , intent(in) , optional :: sticky
14282 character(*, SK) , intent(in) , optional :: deliml, delimr
14283 end subroutine
14284#endif
14285
14286#if IK1_ENABLED
14287 module subroutine show_D2_PSIK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14289 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSIK1
14290#endif
14291 use pm_kind, only: SKG => SK, IKG => IK1
14292 use pm_container, only: csi_pdt
14293 class(display_type) , intent(inout) :: self
14294 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14295 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14296 character(*, SK) , intent(in) , optional :: format, advance
14297 logical(LK) , intent(in) , optional :: sticky
14298 character(*, SK) , intent(in) , optional :: deliml, delimr
14299 end subroutine
14300#endif
14301
14302 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14303
14304#if LK5_ENABLED
14305 module subroutine show_D2_PSLK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14307 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSLK5
14308#endif
14309 use pm_kind, only: SKG => SK, LKG => LK5
14310 use pm_container, only: csl_pdt
14311 class(display_type) , intent(inout) :: self
14312 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14313 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14314 character(*, SK) , intent(in) , optional :: format, advance
14315 logical(LK) , intent(in) , optional :: sticky
14316 character(*, SK) , intent(in) , optional :: deliml, delimr
14317 end subroutine
14318#endif
14319
14320#if LK4_ENABLED
14321 module subroutine show_D2_PSLK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14323 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSLK4
14324#endif
14325 use pm_kind, only: SKG => SK, LKG => LK4
14326 use pm_container, only: csl_pdt
14327 class(display_type) , intent(inout) :: self
14328 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14329 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14330 character(*, SK) , intent(in) , optional :: format, advance
14331 logical(LK) , intent(in) , optional :: sticky
14332 character(*, SK) , intent(in) , optional :: deliml, delimr
14333 end subroutine
14334#endif
14335
14336#if LK3_ENABLED
14337 module subroutine show_D2_PSLK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14339 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSLK3
14340#endif
14341 use pm_kind, only: SKG => SK, LKG => LK3
14342 use pm_container, only: csl_pdt
14343 class(display_type) , intent(inout) :: self
14344 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14345 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14346 character(*, SK) , intent(in) , optional :: format, advance
14347 logical(LK) , intent(in) , optional :: sticky
14348 character(*, SK) , intent(in) , optional :: deliml, delimr
14349 end subroutine
14350#endif
14351
14352#if LK2_ENABLED
14353 module subroutine show_D2_PSLK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14355 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSLK2
14356#endif
14357 use pm_kind, only: SKG => SK, LKG => LK2
14358 use pm_container, only: csl_pdt
14359 class(display_type) , intent(inout) :: self
14360 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14361 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14362 character(*, SK) , intent(in) , optional :: format, advance
14363 logical(LK) , intent(in) , optional :: sticky
14364 character(*, SK) , intent(in) , optional :: deliml, delimr
14365 end subroutine
14366#endif
14367
14368#if LK1_ENABLED
14369 module subroutine show_D2_PSLK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14371 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSLK1
14372#endif
14373 use pm_kind, only: SKG => SK, LKG => LK1
14374 use pm_container, only: csl_pdt
14375 class(display_type) , intent(inout) :: self
14376 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14377 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14378 character(*, SK) , intent(in) , optional :: format, advance
14379 logical(LK) , intent(in) , optional :: sticky
14380 character(*, SK) , intent(in) , optional :: deliml, delimr
14381 end subroutine
14382#endif
14383
14384 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14385
14386#if CK5_ENABLED
14387 module subroutine show_D2_PSCK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14389 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSCK5
14390#endif
14391 use pm_kind, only: SKG => SK, CKG => CK5
14392 use pm_container, only: csc_pdt
14393 class(display_type) , intent(inout) :: self
14394 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14395 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14396 character(*, SK) , intent(in) , optional :: format, advance
14397 logical(LK) , intent(in) , optional :: sticky
14398 character(*, SK) , intent(in) , optional :: deliml, delimr
14399 end subroutine
14400#endif
14401
14402#if CK4_ENABLED
14403 module subroutine show_D2_PSCK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14405 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSCK4
14406#endif
14407 use pm_kind, only: SKG => SK, CKG => CK4
14408 use pm_container, only: csc_pdt
14409 class(display_type) , intent(inout) :: self
14410 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14411 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14412 character(*, SK) , intent(in) , optional :: format, advance
14413 logical(LK) , intent(in) , optional :: sticky
14414 character(*, SK) , intent(in) , optional :: deliml, delimr
14415 end subroutine
14416#endif
14417
14418#if CK3_ENABLED
14419 module subroutine show_D2_PSCK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14421 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSCK3
14422#endif
14423 use pm_kind, only: SKG => SK, CKG => CK3
14424 use pm_container, only: csc_pdt
14425 class(display_type) , intent(inout) :: self
14426 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14427 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14428 character(*, SK) , intent(in) , optional :: format, advance
14429 logical(LK) , intent(in) , optional :: sticky
14430 character(*, SK) , intent(in) , optional :: deliml, delimr
14431 end subroutine
14432#endif
14433
14434#if CK2_ENABLED
14435 module subroutine show_D2_PSCK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14437 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSCK2
14438#endif
14439 use pm_kind, only: SKG => SK, CKG => CK2
14440 use pm_container, only: csc_pdt
14441 class(display_type) , intent(inout) :: self
14442 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14443 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14444 character(*, SK) , intent(in) , optional :: format, advance
14445 logical(LK) , intent(in) , optional :: sticky
14446 character(*, SK) , intent(in) , optional :: deliml, delimr
14447 end subroutine
14448#endif
14449
14450#if CK1_ENABLED
14451 module subroutine show_D2_PSCK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14452#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14453 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSCK1
14454#endif
14455 use pm_kind, only: SKG => SK, CKG => CK1
14456 use pm_container, only: csc_pdt
14457 class(display_type) , intent(inout) :: self
14458 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14459 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14460 character(*, SK) , intent(in) , optional :: format, advance
14461 logical(LK) , intent(in) , optional :: sticky
14462 character(*, SK) , intent(in) , optional :: deliml, delimr
14463 end subroutine
14464#endif
14465
14466 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14467
14468#if RK5_ENABLED
14469 module subroutine show_D2_PSRK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14471 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSRK5
14472#endif
14473 use pm_kind, only: SKG => SK, RKG => RK5
14474 use pm_container, only: csr_pdt
14475 class(display_type) , intent(inout) :: self
14476 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14477 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14478 character(*, SK) , intent(in) , optional :: format, advance
14479 logical(LK) , intent(in) , optional :: sticky
14480 character(*, SK) , intent(in) , optional :: deliml, delimr
14481 end subroutine
14482#endif
14483
14484#if RK4_ENABLED
14485 module subroutine show_D2_PSRK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14487 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSRK4
14488#endif
14489 use pm_kind, only: SKG => SK, RKG => RK4
14490 use pm_container, only: csr_pdt
14491 class(display_type) , intent(inout) :: self
14492 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14493 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14494 character(*, SK) , intent(in) , optional :: format, advance
14495 logical(LK) , intent(in) , optional :: sticky
14496 character(*, SK) , intent(in) , optional :: deliml, delimr
14497 end subroutine
14498#endif
14499
14500#if RK3_ENABLED
14501 module subroutine show_D2_PSRK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14503 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSRK3
14504#endif
14505 use pm_kind, only: SKG => SK, RKG => RK3
14506 use pm_container, only: csr_pdt
14507 class(display_type) , intent(inout) :: self
14508 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14509 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14510 character(*, SK) , intent(in) , optional :: format, advance
14511 logical(LK) , intent(in) , optional :: sticky
14512 character(*, SK) , intent(in) , optional :: deliml, delimr
14513 end subroutine
14514#endif
14515
14516#if RK2_ENABLED
14517 module subroutine show_D2_PSRK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14519 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSRK2
14520#endif
14521 use pm_kind, only: SKG => SK, RKG => RK2
14522 use pm_container, only: csr_pdt
14523 class(display_type) , intent(inout) :: self
14524 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14525 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14526 character(*, SK) , intent(in) , optional :: format, advance
14527 logical(LK) , intent(in) , optional :: sticky
14528 character(*, SK) , intent(in) , optional :: deliml, delimr
14529 end subroutine
14530#endif
14531
14532#if RK1_ENABLED
14533 module subroutine show_D2_PSRK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14534#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14535 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSRK1
14536#endif
14537 use pm_kind, only: SKG => SK, RKG => RK1
14538 use pm_container, only: csr_pdt
14539 class(display_type) , intent(inout) :: self
14540 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14541 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14542 character(*, SK) , intent(in) , optional :: format, advance
14543 logical(LK) , intent(in) , optional :: sticky
14544 character(*, SK) , intent(in) , optional :: deliml, delimr
14545 end subroutine
14546#endif
14547
14548 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14549
14550 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14551 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14552 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14553
14554 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14555
14556#if SK5_ENABLED
14557 module subroutine show_D3_PSSK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14559 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSSK5
14560#endif
14561 use pm_kind, only: SKG => SK5
14562 use pm_container, only: css_pdt
14563 class(display_type) , intent(inout) :: self
14564 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14565 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14566 character(*, SK) , intent(in) , optional :: format, advance
14567 logical(LK) , intent(in) , optional :: sticky
14568 character(*, SK) , intent(in) , optional :: deliml, delimr
14569 end subroutine
14570#endif
14571
14572#if SK4_ENABLED
14573 module subroutine show_D3_PSSK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14575 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSSK4
14576#endif
14577 use pm_kind, only: SKG => SK4
14578 use pm_container, only: css_pdt
14579 class(display_type) , intent(inout) :: self
14580 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14581 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14582 character(*, SK) , intent(in) , optional :: format, advance
14583 logical(LK) , intent(in) , optional :: sticky
14584 character(*, SK) , intent(in) , optional :: deliml, delimr
14585 end subroutine
14586#endif
14587
14588#if SK3_ENABLED
14589 module subroutine show_D3_PSSK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14590#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14591 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSSK3
14592#endif
14593 use pm_kind, only: SKG => SK3
14594 use pm_container, only: css_pdt
14595 class(display_type) , intent(inout) :: self
14596 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14597 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14598 character(*, SK) , intent(in) , optional :: format, advance
14599 logical(LK) , intent(in) , optional :: sticky
14600 character(*, SK) , intent(in) , optional :: deliml, delimr
14601 end subroutine
14602#endif
14603
14604#if SK2_ENABLED
14605 module subroutine show_D3_PSSK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14607 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSSK2
14608#endif
14609 use pm_kind, only: SKG => SK2
14610 use pm_container, only: css_pdt
14611 class(display_type) , intent(inout) :: self
14612 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14613 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14614 character(*, SK) , intent(in) , optional :: format, advance
14615 logical(LK) , intent(in) , optional :: sticky
14616 character(*, SK) , intent(in) , optional :: deliml, delimr
14617 end subroutine
14618#endif
14619
14620#if SK1_ENABLED
14621 module subroutine show_D3_PSSK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14622#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14623 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSSK1
14624#endif
14625 use pm_kind, only: SKG => SK1
14626 use pm_container, only: css_pdt
14627 class(display_type) , intent(inout) :: self
14628 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14629 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14630 character(*, SK) , intent(in) , optional :: format, advance
14631 logical(LK) , intent(in) , optional :: sticky
14632 character(*, SK) , intent(in) , optional :: deliml, delimr
14633 end subroutine
14634#endif
14635
14636 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14637
14638#if IK5_ENABLED
14639 module subroutine show_D3_PSIK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14641 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSIK5
14642#endif
14643 use pm_kind, only: SKG => SK, IKG => IK5
14644 use pm_container, only: csi_pdt
14645 class(display_type) , intent(inout) :: self
14646 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14647 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14648 character(*, SK) , intent(in) , optional :: format, advance
14649 logical(LK) , intent(in) , optional :: sticky
14650 character(*, SK) , intent(in) , optional :: deliml, delimr
14651 end subroutine
14652#endif
14653
14654#if IK4_ENABLED
14655 module subroutine show_D3_PSIK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14657 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSIK4
14658#endif
14659 use pm_kind, only: SKG => SK, IKG => IK4
14660 use pm_container, only: csi_pdt
14661 class(display_type) , intent(inout) :: self
14662 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14663 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14664 character(*, SK) , intent(in) , optional :: format, advance
14665 logical(LK) , intent(in) , optional :: sticky
14666 character(*, SK) , intent(in) , optional :: deliml, delimr
14667 end subroutine
14668#endif
14669
14670#if IK3_ENABLED
14671 module subroutine show_D3_PSIK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14672#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14673 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSIK3
14674#endif
14675 use pm_kind, only: SKG => SK, IKG => IK3
14676 use pm_container, only: csi_pdt
14677 class(display_type) , intent(inout) :: self
14678 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14679 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14680 character(*, SK) , intent(in) , optional :: format, advance
14681 logical(LK) , intent(in) , optional :: sticky
14682 character(*, SK) , intent(in) , optional :: deliml, delimr
14683 end subroutine
14684#endif
14685
14686#if IK2_ENABLED
14687 module subroutine show_D3_PSIK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14689 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSIK2
14690#endif
14691 use pm_kind, only: SKG => SK, IKG => IK2
14692 use pm_container, only: csi_pdt
14693 class(display_type) , intent(inout) :: self
14694 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14695 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14696 character(*, SK) , intent(in) , optional :: format, advance
14697 logical(LK) , intent(in) , optional :: sticky
14698 character(*, SK) , intent(in) , optional :: deliml, delimr
14699 end subroutine
14700#endif
14701
14702#if IK1_ENABLED
14703 module subroutine show_D3_PSIK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14705 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSIK1
14706#endif
14707 use pm_kind, only: SKG => SK, IKG => IK1
14708 use pm_container, only: csi_pdt
14709 class(display_type) , intent(inout) :: self
14710 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14711 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14712 character(*, SK) , intent(in) , optional :: format, advance
14713 logical(LK) , intent(in) , optional :: sticky
14714 character(*, SK) , intent(in) , optional :: deliml, delimr
14715 end subroutine
14716#endif
14717
14718 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14719
14720#if LK5_ENABLED
14721 module subroutine show_D3_PSLK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14723 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSLK5
14724#endif
14725 use pm_kind, only: SKG => SK, LKG => LK5
14726 use pm_container, only: csl_pdt
14727 class(display_type) , intent(inout) :: self
14728 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14729 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14730 character(*, SK) , intent(in) , optional :: format, advance
14731 logical(LK) , intent(in) , optional :: sticky
14732 character(*, SK) , intent(in) , optional :: deliml, delimr
14733 end subroutine
14734#endif
14735
14736#if LK4_ENABLED
14737 module subroutine show_D3_PSLK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14739 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSLK4
14740#endif
14741 use pm_kind, only: SKG => SK, LKG => LK4
14742 use pm_container, only: csl_pdt
14743 class(display_type) , intent(inout) :: self
14744 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14745 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14746 character(*, SK) , intent(in) , optional :: format, advance
14747 logical(LK) , intent(in) , optional :: sticky
14748 character(*, SK) , intent(in) , optional :: deliml, delimr
14749 end subroutine
14750#endif
14751
14752#if LK3_ENABLED
14753 module subroutine show_D3_PSLK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14755 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSLK3
14756#endif
14757 use pm_kind, only: SKG => SK, LKG => LK3
14758 use pm_container, only: csl_pdt
14759 class(display_type) , intent(inout) :: self
14760 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14761 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14762 character(*, SK) , intent(in) , optional :: format, advance
14763 logical(LK) , intent(in) , optional :: sticky
14764 character(*, SK) , intent(in) , optional :: deliml, delimr
14765 end subroutine
14766#endif
14767
14768#if LK2_ENABLED
14769 module subroutine show_D3_PSLK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14771 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSLK2
14772#endif
14773 use pm_kind, only: SKG => SK, LKG => LK2
14774 use pm_container, only: csl_pdt
14775 class(display_type) , intent(inout) :: self
14776 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14777 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14778 character(*, SK) , intent(in) , optional :: format, advance
14779 logical(LK) , intent(in) , optional :: sticky
14780 character(*, SK) , intent(in) , optional :: deliml, delimr
14781 end subroutine
14782#endif
14783
14784#if LK1_ENABLED
14785 module subroutine show_D3_PSLK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14786#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14787 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSLK1
14788#endif
14789 use pm_kind, only: SKG => SK, LKG => LK1
14790 use pm_container, only: csl_pdt
14791 class(display_type) , intent(inout) :: self
14792 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14793 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14794 character(*, SK) , intent(in) , optional :: format, advance
14795 logical(LK) , intent(in) , optional :: sticky
14796 character(*, SK) , intent(in) , optional :: deliml, delimr
14797 end subroutine
14798#endif
14799
14800 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14801
14802#if CK5_ENABLED
14803 module subroutine show_D3_PSCK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14804#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14805 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSCK5
14806#endif
14807 use pm_kind, only: SKG => SK, CKG => CK5
14808 use pm_container, only: csc_pdt
14809 class(display_type) , intent(inout) :: self
14810 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14811 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14812 character(*, SK) , intent(in) , optional :: format, advance
14813 logical(LK) , intent(in) , optional :: sticky
14814 character(*, SK) , intent(in) , optional :: deliml, delimr
14815 end subroutine
14816#endif
14817
14818#if CK4_ENABLED
14819 module subroutine show_D3_PSCK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14821 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSCK4
14822#endif
14823 use pm_kind, only: SKG => SK, CKG => CK4
14824 use pm_container, only: csc_pdt
14825 class(display_type) , intent(inout) :: self
14826 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14827 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14828 character(*, SK) , intent(in) , optional :: format, advance
14829 logical(LK) , intent(in) , optional :: sticky
14830 character(*, SK) , intent(in) , optional :: deliml, delimr
14831 end subroutine
14832#endif
14833
14834#if CK3_ENABLED
14835 module subroutine show_D3_PSCK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14836#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14837 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSCK3
14838#endif
14839 use pm_kind, only: SKG => SK, CKG => CK3
14840 use pm_container, only: csc_pdt
14841 class(display_type) , intent(inout) :: self
14842 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14843 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14844 character(*, SK) , intent(in) , optional :: format, advance
14845 logical(LK) , intent(in) , optional :: sticky
14846 character(*, SK) , intent(in) , optional :: deliml, delimr
14847 end subroutine
14848#endif
14849
14850#if CK2_ENABLED
14851 module subroutine show_D3_PSCK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14852#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14853 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSCK2
14854#endif
14855 use pm_kind, only: SKG => SK, CKG => CK2
14856 use pm_container, only: csc_pdt
14857 class(display_type) , intent(inout) :: self
14858 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14859 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14860 character(*, SK) , intent(in) , optional :: format, advance
14861 logical(LK) , intent(in) , optional :: sticky
14862 character(*, SK) , intent(in) , optional :: deliml, delimr
14863 end subroutine
14864#endif
14865
14866#if CK1_ENABLED
14867 module subroutine show_D3_PSCK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14869 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSCK1
14870#endif
14871 use pm_kind, only: SKG => SK, CKG => CK1
14872 use pm_container, only: csc_pdt
14873 class(display_type) , intent(inout) :: self
14874 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14875 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14876 character(*, SK) , intent(in) , optional :: format, advance
14877 logical(LK) , intent(in) , optional :: sticky
14878 character(*, SK) , intent(in) , optional :: deliml, delimr
14879 end subroutine
14880#endif
14881
14882 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14883
14884#if RK5_ENABLED
14885 module subroutine show_D3_PSRK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14886#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14887 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSRK5
14888#endif
14889 use pm_kind, only: SKG => SK, RKG => RK5
14890 use pm_container, only: csr_pdt
14891 class(display_type) , intent(inout) :: self
14892 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14893 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14894 character(*, SK) , intent(in) , optional :: format, advance
14895 logical(LK) , intent(in) , optional :: sticky
14896 character(*, SK) , intent(in) , optional :: deliml, delimr
14897 end subroutine
14898#endif
14899
14900#if RK4_ENABLED
14901 module subroutine show_D3_PSRK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14902#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14903 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSRK4
14904#endif
14905 use pm_kind, only: SKG => SK, RKG => RK4
14906 use pm_container, only: csr_pdt
14907 class(display_type) , intent(inout) :: self
14908 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14909 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14910 character(*, SK) , intent(in) , optional :: format, advance
14911 logical(LK) , intent(in) , optional :: sticky
14912 character(*, SK) , intent(in) , optional :: deliml, delimr
14913 end subroutine
14914#endif
14915
14916#if RK3_ENABLED
14917 module subroutine show_D3_PSRK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14918#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14919 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSRK3
14920#endif
14921 use pm_kind, only: SKG => SK, RKG => RK3
14922 use pm_container, only: csr_pdt
14923 class(display_type) , intent(inout) :: self
14924 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14925 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14926 character(*, SK) , intent(in) , optional :: format, advance
14927 logical(LK) , intent(in) , optional :: sticky
14928 character(*, SK) , intent(in) , optional :: deliml, delimr
14929 end subroutine
14930#endif
14931
14932#if RK2_ENABLED
14933 module subroutine show_D3_PSRK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14934#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14935 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSRK2
14936#endif
14937 use pm_kind, only: SKG => SK, RKG => RK2
14938 use pm_container, only: csr_pdt
14939 class(display_type) , intent(inout) :: self
14940 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14941 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14942 character(*, SK) , intent(in) , optional :: format, advance
14943 logical(LK) , intent(in) , optional :: sticky
14944 character(*, SK) , intent(in) , optional :: deliml, delimr
14945 end subroutine
14946#endif
14947
14948#if RK1_ENABLED
14949 module subroutine show_D3_PSRK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14951 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSRK1
14952#endif
14953 use pm_kind, only: SKG => SK, RKG => RK1
14954 use pm_container, only: csr_pdt
14955 class(display_type) , intent(inout) :: self
14956 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14957 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14958 character(*, SK) , intent(in) , optional :: format, advance
14959 logical(LK) , intent(in) , optional :: sticky
14960 character(*, SK) , intent(in) , optional :: deliml, delimr
14961 end subroutine
14962#endif
14963
14964 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14965
14966 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14967 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14968 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14969
14970 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14971 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14972 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14973
14974 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14975
14976#if SK5_ENABLED
14977 module subroutine show_D0_PVSK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14979 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVSK5
14980#endif
14981 use pm_kind, only: SKG => SK5
14982 use pm_container, only: cvs_pdt
14983 class(display_type) , intent(inout) :: self
14984 type(cvs_pdt(SKG)) , intent(in) :: object
14985 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
14986 character(*, SK) , intent(in) , optional :: format, advance
14987 logical(LK) , intent(in) , optional :: sticky
14988 character(*, SK) , intent(in) , optional :: deliml, delimr
14989 end subroutine
14990#endif
14991
14992#if SK4_ENABLED
14993 module subroutine show_D0_PVSK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14995 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVSK4
14996#endif
14997 use pm_kind, only: SKG => SK4
14998 use pm_container, only: cvs_pdt
14999 class(display_type) , intent(inout) :: self
15000 type(cvs_pdt(SKG)) , intent(in) :: object
15001 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15002 character(*, SK) , intent(in) , optional :: format, advance
15003 logical(LK) , intent(in) , optional :: sticky
15004 character(*, SK) , intent(in) , optional :: deliml, delimr
15005 end subroutine
15006#endif
15007
15008#if SK3_ENABLED
15009 module subroutine show_D0_PVSK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15010#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15011 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVSK3
15012#endif
15013 use pm_kind, only: SKG => SK3
15014 use pm_container, only: cvs_pdt
15015 class(display_type) , intent(inout) :: self
15016 type(cvs_pdt(SKG)) , intent(in) :: object
15017 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15018 character(*, SK) , intent(in) , optional :: format, advance
15019 logical(LK) , intent(in) , optional :: sticky
15020 character(*, SK) , intent(in) , optional :: deliml, delimr
15021 end subroutine
15022#endif
15023
15024#if SK2_ENABLED
15025 module subroutine show_D0_PVSK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15027 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVSK2
15028#endif
15029 use pm_kind, only: SKG => SK2
15030 use pm_container, only: cvs_pdt
15031 class(display_type) , intent(inout) :: self
15032 type(cvs_pdt(SKG)) , intent(in) :: object
15033 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15034 character(*, SK) , intent(in) , optional :: format, advance
15035 logical(LK) , intent(in) , optional :: sticky
15036 character(*, SK) , intent(in) , optional :: deliml, delimr
15037 end subroutine
15038#endif
15039
15040#if SK1_ENABLED
15041 module subroutine show_D0_PVSK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15043 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVSK1
15044#endif
15045 use pm_kind, only: SKG => SK1
15046 use pm_container, only: cvs_pdt
15047 class(display_type) , intent(inout) :: self
15048 type(cvs_pdt(SKG)) , intent(in) :: object
15049 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15050 character(*, SK) , intent(in) , optional :: format, advance
15051 logical(LK) , intent(in) , optional :: sticky
15052 character(*, SK) , intent(in) , optional :: deliml, delimr
15053 end subroutine
15054#endif
15055
15056 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15057
15058#if IK5_ENABLED
15059 module subroutine show_D0_PVIK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15060#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15061 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVIK5
15062#endif
15063 use pm_kind, only: SKG => SK, IKG => IK5
15064 use pm_container, only: cvi_pdt
15065 class(display_type) , intent(inout) :: self
15066 type(cvi_pdt(IKG)) , intent(in) :: object
15067 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15068 character(*, SK) , intent(in) , optional :: format, advance
15069 logical(LK) , intent(in) , optional :: sticky
15070 character(*, SK) , intent(in) , optional :: deliml, delimr
15071 end subroutine
15072#endif
15073
15074#if IK4_ENABLED
15075 module subroutine show_D0_PVIK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15077 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVIK4
15078#endif
15079 use pm_kind, only: SKG => SK, IKG => IK4
15080 use pm_container, only: cvi_pdt
15081 class(display_type) , intent(inout) :: self
15082 type(cvi_pdt(IKG)) , intent(in) :: object
15083 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15084 character(*, SK) , intent(in) , optional :: format, advance
15085 logical(LK) , intent(in) , optional :: sticky
15086 character(*, SK) , intent(in) , optional :: deliml, delimr
15087 end subroutine
15088#endif
15089
15090#if IK3_ENABLED
15091 module subroutine show_D0_PVIK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15092#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15093 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVIK3
15094#endif
15095 use pm_kind, only: SKG => SK, IKG => IK3
15096 use pm_container, only: cvi_pdt
15097 class(display_type) , intent(inout) :: self
15098 type(cvi_pdt(IKG)) , intent(in) :: object
15099 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15100 character(*, SK) , intent(in) , optional :: format, advance
15101 logical(LK) , intent(in) , optional :: sticky
15102 character(*, SK) , intent(in) , optional :: deliml, delimr
15103 end subroutine
15104#endif
15105
15106#if IK2_ENABLED
15107 module subroutine show_D0_PVIK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15108#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15109 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVIK2
15110#endif
15111 use pm_kind, only: SKG => SK, IKG => IK2
15112 use pm_container, only: cvi_pdt
15113 class(display_type) , intent(inout) :: self
15114 type(cvi_pdt(IKG)) , intent(in) :: object
15115 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15116 character(*, SK) , intent(in) , optional :: format, advance
15117 logical(LK) , intent(in) , optional :: sticky
15118 character(*, SK) , intent(in) , optional :: deliml, delimr
15119 end subroutine
15120#endif
15121
15122#if IK1_ENABLED
15123 module subroutine show_D0_PVIK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15125 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVIK1
15126#endif
15127 use pm_kind, only: SKG => SK, IKG => IK1
15128 use pm_container, only: cvi_pdt
15129 class(display_type) , intent(inout) :: self
15130 type(cvi_pdt(IKG)) , intent(in) :: object
15131 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15132 character(*, SK) , intent(in) , optional :: format, advance
15133 logical(LK) , intent(in) , optional :: sticky
15134 character(*, SK) , intent(in) , optional :: deliml, delimr
15135 end subroutine
15136#endif
15137
15138 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15139
15140#if LK5_ENABLED
15141 module subroutine show_D0_PVLK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15143 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVLK5
15144#endif
15145 use pm_kind, only: SKG => SK, LKG => LK5
15146 use pm_container, only: cvl_pdt
15147 class(display_type) , intent(inout) :: self
15148 type(cvl_pdt(LKG)) , intent(in) :: object
15149 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15150 character(*, SK) , intent(in) , optional :: format, advance
15151 logical(LK) , intent(in) , optional :: sticky
15152 character(*, SK) , intent(in) , optional :: deliml, delimr
15153 end subroutine
15154#endif
15155
15156#if LK4_ENABLED
15157 module subroutine show_D0_PVLK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15158#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15159 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVLK4
15160#endif
15161 use pm_kind, only: SKG => SK, LKG => LK4
15162 use pm_container, only: cvl_pdt
15163 class(display_type) , intent(inout) :: self
15164 type(cvl_pdt(LKG)) , intent(in) :: object
15165 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15166 character(*, SK) , intent(in) , optional :: format, advance
15167 logical(LK) , intent(in) , optional :: sticky
15168 character(*, SK) , intent(in) , optional :: deliml, delimr
15169 end subroutine
15170#endif
15171
15172#if LK3_ENABLED
15173 module subroutine show_D0_PVLK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15175 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVLK3
15176#endif
15177 use pm_kind, only: SKG => SK, LKG => LK3
15178 use pm_container, only: cvl_pdt
15179 class(display_type) , intent(inout) :: self
15180 type(cvl_pdt(LKG)) , intent(in) :: object
15181 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15182 character(*, SK) , intent(in) , optional :: format, advance
15183 logical(LK) , intent(in) , optional :: sticky
15184 character(*, SK) , intent(in) , optional :: deliml, delimr
15185 end subroutine
15186#endif
15187
15188#if LK2_ENABLED
15189 module subroutine show_D0_PVLK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15191 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVLK2
15192#endif
15193 use pm_kind, only: SKG => SK, LKG => LK2
15194 use pm_container, only: cvl_pdt
15195 class(display_type) , intent(inout) :: self
15196 type(cvl_pdt(LKG)) , intent(in) :: object
15197 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15198 character(*, SK) , intent(in) , optional :: format, advance
15199 logical(LK) , intent(in) , optional :: sticky
15200 character(*, SK) , intent(in) , optional :: deliml, delimr
15201 end subroutine
15202#endif
15203
15204#if LK1_ENABLED
15205 module subroutine show_D0_PVLK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15207 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVLK1
15208#endif
15209 use pm_kind, only: SKG => SK, LKG => LK1
15210 use pm_container, only: cvl_pdt
15211 class(display_type) , intent(inout) :: self
15212 type(cvl_pdt(LKG)) , intent(in) :: object
15213 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15214 character(*, SK) , intent(in) , optional :: format, advance
15215 logical(LK) , intent(in) , optional :: sticky
15216 character(*, SK) , intent(in) , optional :: deliml, delimr
15217 end subroutine
15218#endif
15219
15220 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15221
15222#if CK5_ENABLED
15223 module subroutine show_D0_PVCK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15224#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15225 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVCK5
15226#endif
15227 use pm_kind, only: SKG => SK, CKG => CK5
15228 use pm_container, only: cvc_pdt
15229 class(display_type) , intent(inout) :: self
15230 type(cvc_pdt(CKG)) , intent(in) :: object
15231 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15232 character(*, SK) , intent(in) , optional :: format, advance
15233 logical(LK) , intent(in) , optional :: sticky
15234 character(*, SK) , intent(in) , optional :: deliml, delimr
15235 end subroutine
15236#endif
15237
15238#if CK4_ENABLED
15239 module subroutine show_D0_PVCK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15240#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15241 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVCK4
15242#endif
15243 use pm_kind, only: SKG => SK, CKG => CK4
15244 use pm_container, only: cvc_pdt
15245 class(display_type) , intent(inout) :: self
15246 type(cvc_pdt(CKG)) , intent(in) :: object
15247 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15248 character(*, SK) , intent(in) , optional :: format, advance
15249 logical(LK) , intent(in) , optional :: sticky
15250 character(*, SK) , intent(in) , optional :: deliml, delimr
15251 end subroutine
15252#endif
15253
15254#if CK3_ENABLED
15255 module subroutine show_D0_PVCK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15257 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVCK3
15258#endif
15259 use pm_kind, only: SKG => SK, CKG => CK3
15260 use pm_container, only: cvc_pdt
15261 class(display_type) , intent(inout) :: self
15262 type(cvc_pdt(CKG)) , intent(in) :: object
15263 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15264 character(*, SK) , intent(in) , optional :: format, advance
15265 logical(LK) , intent(in) , optional :: sticky
15266 character(*, SK) , intent(in) , optional :: deliml, delimr
15267 end subroutine
15268#endif
15269
15270#if CK2_ENABLED
15271 module subroutine show_D0_PVCK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15273 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVCK2
15274#endif
15275 use pm_kind, only: SKG => SK, CKG => CK2
15276 use pm_container, only: cvc_pdt
15277 class(display_type) , intent(inout) :: self
15278 type(cvc_pdt(CKG)) , intent(in) :: object
15279 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15280 character(*, SK) , intent(in) , optional :: format, advance
15281 logical(LK) , intent(in) , optional :: sticky
15282 character(*, SK) , intent(in) , optional :: deliml, delimr
15283 end subroutine
15284#endif
15285
15286#if CK1_ENABLED
15287 module subroutine show_D0_PVCK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15289 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVCK1
15290#endif
15291 use pm_kind, only: SKG => SK, CKG => CK1
15292 use pm_container, only: cvc_pdt
15293 class(display_type) , intent(inout) :: self
15294 type(cvc_pdt(CKG)) , intent(in) :: object
15295 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15296 character(*, SK) , intent(in) , optional :: format, advance
15297 logical(LK) , intent(in) , optional :: sticky
15298 character(*, SK) , intent(in) , optional :: deliml, delimr
15299 end subroutine
15300#endif
15301
15302 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15303
15304#if RK5_ENABLED
15305 module subroutine show_D0_PVRK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15307 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVRK5
15308#endif
15309 use pm_kind, only: SKG => SK, RKG => RK5
15310 use pm_container, only: cvr_pdt
15311 class(display_type) , intent(inout) :: self
15312 type(cvr_pdt(RKG)) , intent(in) :: object
15313 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15314 character(*, SK) , intent(in) , optional :: format, advance
15315 logical(LK) , intent(in) , optional :: sticky
15316 character(*, SK) , intent(in) , optional :: deliml, delimr
15317 end subroutine
15318#endif
15319
15320#if RK4_ENABLED
15321 module subroutine show_D0_PVRK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15323 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVRK4
15324#endif
15325 use pm_kind, only: SKG => SK, RKG => RK4
15326 use pm_container, only: cvr_pdt
15327 class(display_type) , intent(inout) :: self
15328 type(cvr_pdt(RKG)) , intent(in) :: object
15329 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15330 character(*, SK) , intent(in) , optional :: format, advance
15331 logical(LK) , intent(in) , optional :: sticky
15332 character(*, SK) , intent(in) , optional :: deliml, delimr
15333 end subroutine
15334#endif
15335
15336#if RK3_ENABLED
15337 module subroutine show_D0_PVRK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15339 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVRK3
15340#endif
15341 use pm_kind, only: SKG => SK, RKG => RK3
15342 use pm_container, only: cvr_pdt
15343 class(display_type) , intent(inout) :: self
15344 type(cvr_pdt(RKG)) , intent(in) :: object
15345 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15346 character(*, SK) , intent(in) , optional :: format, advance
15347 logical(LK) , intent(in) , optional :: sticky
15348 character(*, SK) , intent(in) , optional :: deliml, delimr
15349 end subroutine
15350#endif
15351
15352#if RK2_ENABLED
15353 module subroutine show_D0_PVRK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15355 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVRK2
15356#endif
15357 use pm_kind, only: SKG => SK, RKG => RK2
15358 use pm_container, only: cvr_pdt
15359 class(display_type) , intent(inout) :: self
15360 type(cvr_pdt(RKG)) , intent(in) :: object
15361 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15362 character(*, SK) , intent(in) , optional :: format, advance
15363 logical(LK) , intent(in) , optional :: sticky
15364 character(*, SK) , intent(in) , optional :: deliml, delimr
15365 end subroutine
15366#endif
15367
15368#if RK1_ENABLED
15369 module subroutine show_D0_PVRK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15371 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVRK1
15372#endif
15373 use pm_kind, only: SKG => SK, RKG => RK1
15374 use pm_container, only: cvr_pdt
15375 class(display_type) , intent(inout) :: self
15376 type(cvr_pdt(RKG)) , intent(in) :: object
15377 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15378 character(*, SK) , intent(in) , optional :: format, advance
15379 logical(LK) , intent(in) , optional :: sticky
15380 character(*, SK) , intent(in) , optional :: deliml, delimr
15381 end subroutine
15382#endif
15383
15384 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15385
15386 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15387 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15388 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15389
15390 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15391
15392#if SK5_ENABLED
15393 module subroutine show_D1_PVSK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15394#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15395 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVSK5
15396#endif
15397 use pm_kind, only: SKG => SK5
15398 use pm_container, only: cvs_pdt
15399 class(display_type) , intent(inout) :: self
15400 type(cvs_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
15401 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15402 character(*, SK) , intent(in) , optional :: format, advance
15403 logical(LK) , intent(in) , optional :: sticky
15404 character(*, SK) , intent(in) , optional :: deliml, delimr
15405 end subroutine
15406#endif
15407
15408#if SK4_ENABLED
15409 module subroutine show_D1_PVSK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15411 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVSK4
15412#endif
15413 use pm_kind, only: SKG => SK4
15414 use pm_container, only: cvs_pdt
15415 class(display_type) , intent(inout) :: self
15416 type(cvs_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
15417 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15418 character(*, SK) , intent(in) , optional :: format, advance
15419 logical(LK) , intent(in) , optional :: sticky
15420 character(*, SK) , intent(in) , optional :: deliml, delimr
15421 end subroutine
15422#endif
15423
15424#if SK3_ENABLED
15425 module subroutine show_D1_PVSK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15427 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVSK3
15428#endif
15429 use pm_kind, only: SKG => SK3
15430 use pm_container, only: cvs_pdt
15431 class(display_type) , intent(inout) :: self
15432 type(cvs_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
15433 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15434 character(*, SK) , intent(in) , optional :: format, advance
15435 logical(LK) , intent(in) , optional :: sticky
15436 character(*, SK) , intent(in) , optional :: deliml, delimr
15437 end subroutine
15438#endif
15439
15440#if SK2_ENABLED
15441 module subroutine show_D1_PVSK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15443 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVSK2
15444#endif
15445 use pm_kind, only: SKG => SK2
15446 use pm_container, only: cvs_pdt
15447 class(display_type) , intent(inout) :: self
15448 type(cvs_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
15449 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15450 character(*, SK) , intent(in) , optional :: format, advance
15451 logical(LK) , intent(in) , optional :: sticky
15452 character(*, SK) , intent(in) , optional :: deliml, delimr
15453 end subroutine
15454#endif
15455
15456#if SK1_ENABLED
15457 module subroutine show_D1_PVSK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15459 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVSK1
15460#endif
15461 use pm_kind, only: SKG => SK1
15462 use pm_container, only: cvs_pdt
15463 class(display_type) , intent(inout) :: self
15464 type(cvs_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
15465 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15466 character(*, SK) , intent(in) , optional :: format, advance
15467 logical(LK) , intent(in) , optional :: sticky
15468 character(*, SK) , intent(in) , optional :: deliml, delimr
15469 end subroutine
15470#endif
15471
15472 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15473
15474#if IK5_ENABLED
15475 module subroutine show_D1_PVIK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15476#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15477 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVIK5
15478#endif
15479 use pm_kind, only: SKG => SK, IKG => IK5
15480 use pm_container, only: cvi_pdt
15481 class(display_type) , intent(inout) :: self
15482 type(cvi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
15483 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15484 character(*, SK) , intent(in) , optional :: format, advance
15485 logical(LK) , intent(in) , optional :: sticky
15486 character(*, SK) , intent(in) , optional :: deliml, delimr
15487 end subroutine
15488#endif
15489
15490#if IK4_ENABLED
15491 module subroutine show_D1_PVIK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15492#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15493 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVIK4
15494#endif
15495 use pm_kind, only: SKG => SK, IKG => IK4
15496 use pm_container, only: cvi_pdt
15497 class(display_type) , intent(inout) :: self
15498 type(cvi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
15499 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15500 character(*, SK) , intent(in) , optional :: format, advance
15501 logical(LK) , intent(in) , optional :: sticky
15502 character(*, SK) , intent(in) , optional :: deliml, delimr
15503 end subroutine
15504#endif
15505
15506#if IK3_ENABLED
15507 module subroutine show_D1_PVIK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15509 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVIK3
15510#endif
15511 use pm_kind, only: SKG => SK, IKG => IK3
15512 use pm_container, only: cvi_pdt
15513 class(display_type) , intent(inout) :: self
15514 type(cvi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
15515 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15516 character(*, SK) , intent(in) , optional :: format, advance
15517 logical(LK) , intent(in) , optional :: sticky
15518 character(*, SK) , intent(in) , optional :: deliml, delimr
15519 end subroutine
15520#endif
15521
15522#if IK2_ENABLED
15523 module subroutine show_D1_PVIK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15524#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15525 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVIK2
15526#endif
15527 use pm_kind, only: SKG => SK, IKG => IK2
15528 use pm_container, only: cvi_pdt
15529 class(display_type) , intent(inout) :: self
15530 type(cvi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
15531 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15532 character(*, SK) , intent(in) , optional :: format, advance
15533 logical(LK) , intent(in) , optional :: sticky
15534 character(*, SK) , intent(in) , optional :: deliml, delimr
15535 end subroutine
15536#endif
15537
15538#if IK1_ENABLED
15539 module subroutine show_D1_PVIK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15541 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVIK1
15542#endif
15543 use pm_kind, only: SKG => SK, IKG => IK1
15544 use pm_container, only: cvi_pdt
15545 class(display_type) , intent(inout) :: self
15546 type(cvi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
15547 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15548 character(*, SK) , intent(in) , optional :: format, advance
15549 logical(LK) , intent(in) , optional :: sticky
15550 character(*, SK) , intent(in) , optional :: deliml, delimr
15551 end subroutine
15552#endif
15553
15554 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15555
15556#if LK5_ENABLED
15557 module subroutine show_D1_PVLK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15559 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVLK5
15560#endif
15561 use pm_kind, only: SKG => SK, LKG => LK5
15562 use pm_container, only: cvl_pdt
15563 class(display_type) , intent(inout) :: self
15564 type(cvl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
15565 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15566 character(*, SK) , intent(in) , optional :: format, advance
15567 logical(LK) , intent(in) , optional :: sticky
15568 character(*, SK) , intent(in) , optional :: deliml, delimr
15569 end subroutine
15570#endif
15571
15572#if LK4_ENABLED
15573 module subroutine show_D1_PVLK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15575 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVLK4
15576#endif
15577 use pm_kind, only: SKG => SK, LKG => LK4
15578 use pm_container, only: cvl_pdt
15579 class(display_type) , intent(inout) :: self
15580 type(cvl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
15581 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15582 character(*, SK) , intent(in) , optional :: format, advance
15583 logical(LK) , intent(in) , optional :: sticky
15584 character(*, SK) , intent(in) , optional :: deliml, delimr
15585 end subroutine
15586#endif
15587
15588#if LK3_ENABLED
15589 module subroutine show_D1_PVLK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15590#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15591 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVLK3
15592#endif
15593 use pm_kind, only: SKG => SK, LKG => LK3
15594 use pm_container, only: cvl_pdt
15595 class(display_type) , intent(inout) :: self
15596 type(cvl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
15597 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15598 character(*, SK) , intent(in) , optional :: format, advance
15599 logical(LK) , intent(in) , optional :: sticky
15600 character(*, SK) , intent(in) , optional :: deliml, delimr
15601 end subroutine
15602#endif
15603
15604#if LK2_ENABLED
15605 module subroutine show_D1_PVLK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15607 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVLK2
15608#endif
15609 use pm_kind, only: SKG => SK, LKG => LK2
15610 use pm_container, only: cvl_pdt
15611 class(display_type) , intent(inout) :: self
15612 type(cvl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
15613 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15614 character(*, SK) , intent(in) , optional :: format, advance
15615 logical(LK) , intent(in) , optional :: sticky
15616 character(*, SK) , intent(in) , optional :: deliml, delimr
15617 end subroutine
15618#endif
15619
15620#if LK1_ENABLED
15621 module subroutine show_D1_PVLK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15622#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15623 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVLK1
15624#endif
15625 use pm_kind, only: SKG => SK, LKG => LK1
15626 use pm_container, only: cvl_pdt
15627 class(display_type) , intent(inout) :: self
15628 type(cvl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
15629 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15630 character(*, SK) , intent(in) , optional :: format, advance
15631 logical(LK) , intent(in) , optional :: sticky
15632 character(*, SK) , intent(in) , optional :: deliml, delimr
15633 end subroutine
15634#endif
15635
15636 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15637
15638#if CK5_ENABLED
15639 module subroutine show_D1_PVCK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15641 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVCK5
15642#endif
15643 use pm_kind, only: SKG => SK, CKG => CK5
15644 use pm_container, only: cvc_pdt
15645 class(display_type) , intent(inout) :: self
15646 type(cvc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
15647 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15648 character(*, SK) , intent(in) , optional :: format, advance
15649 logical(LK) , intent(in) , optional :: sticky
15650 character(*, SK) , intent(in) , optional :: deliml, delimr
15651 end subroutine
15652#endif
15653
15654#if CK4_ENABLED
15655 module subroutine show_D1_PVCK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15657 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVCK4
15658#endif
15659 use pm_kind, only: SKG => SK, CKG => CK4
15660 use pm_container, only: cvc_pdt
15661 class(display_type) , intent(inout) :: self
15662 type(cvc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
15663 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15664 character(*, SK) , intent(in) , optional :: format, advance
15665 logical(LK) , intent(in) , optional :: sticky
15666 character(*, SK) , intent(in) , optional :: deliml, delimr
15667 end subroutine
15668#endif
15669
15670#if CK3_ENABLED
15671 module subroutine show_D1_PVCK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15672#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15673 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVCK3
15674#endif
15675 use pm_kind, only: SKG => SK, CKG => CK3
15676 use pm_container, only: cvc_pdt
15677 class(display_type) , intent(inout) :: self
15678 type(cvc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
15679 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15680 character(*, SK) , intent(in) , optional :: format, advance
15681 logical(LK) , intent(in) , optional :: sticky
15682 character(*, SK) , intent(in) , optional :: deliml, delimr
15683 end subroutine
15684#endif
15685
15686#if CK2_ENABLED
15687 module subroutine show_D1_PVCK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15689 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVCK2
15690#endif
15691 use pm_kind, only: SKG => SK, CKG => CK2
15692 use pm_container, only: cvc_pdt
15693 class(display_type) , intent(inout) :: self
15694 type(cvc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
15695 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15696 character(*, SK) , intent(in) , optional :: format, advance
15697 logical(LK) , intent(in) , optional :: sticky
15698 character(*, SK) , intent(in) , optional :: deliml, delimr
15699 end subroutine
15700#endif
15701
15702#if CK1_ENABLED
15703 module subroutine show_D1_PVCK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15705 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVCK1
15706#endif
15707 use pm_kind, only: SKG => SK, CKG => CK1
15708 use pm_container, only: cvc_pdt
15709 class(display_type) , intent(inout) :: self
15710 type(cvc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
15711 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15712 character(*, SK) , intent(in) , optional :: format, advance
15713 logical(LK) , intent(in) , optional :: sticky
15714 character(*, SK) , intent(in) , optional :: deliml, delimr
15715 end subroutine
15716#endif
15717
15718 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15719
15720#if RK5_ENABLED
15721 module subroutine show_D1_PVRK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15723 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVRK5
15724#endif
15725 use pm_kind, only: SKG => SK, RKG => RK5
15726 use pm_container, only: cvr_pdt
15727 class(display_type) , intent(inout) :: self
15728 type(cvr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
15729 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15730 character(*, SK) , intent(in) , optional :: format, advance
15731 logical(LK) , intent(in) , optional :: sticky
15732 character(*, SK) , intent(in) , optional :: deliml, delimr
15733 end subroutine
15734#endif
15735
15736#if RK4_ENABLED
15737 module subroutine show_D1_PVRK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15739 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVRK4
15740#endif
15741 use pm_kind, only: SKG => SK, RKG => RK4
15742 use pm_container, only: cvr_pdt
15743 class(display_type) , intent(inout) :: self
15744 type(cvr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
15745 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15746 character(*, SK) , intent(in) , optional :: format, advance
15747 logical(LK) , intent(in) , optional :: sticky
15748 character(*, SK) , intent(in) , optional :: deliml, delimr
15749 end subroutine
15750#endif
15751
15752#if RK3_ENABLED
15753 module subroutine show_D1_PVRK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15755 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVRK3
15756#endif
15757 use pm_kind, only: SKG => SK, RKG => RK3
15758 use pm_container, only: cvr_pdt
15759 class(display_type) , intent(inout) :: self
15760 type(cvr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
15761 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15762 character(*, SK) , intent(in) , optional :: format, advance
15763 logical(LK) , intent(in) , optional :: sticky
15764 character(*, SK) , intent(in) , optional :: deliml, delimr
15765 end subroutine
15766#endif
15767
15768#if RK2_ENABLED
15769 module subroutine show_D1_PVRK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15771 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVRK2
15772#endif
15773 use pm_kind, only: SKG => SK, RKG => RK2
15774 use pm_container, only: cvr_pdt
15775 class(display_type) , intent(inout) :: self
15776 type(cvr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
15777 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15778 character(*, SK) , intent(in) , optional :: format, advance
15779 logical(LK) , intent(in) , optional :: sticky
15780 character(*, SK) , intent(in) , optional :: deliml, delimr
15781 end subroutine
15782#endif
15783
15784#if RK1_ENABLED
15785 module subroutine show_D1_PVRK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15786#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15787 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVRK1
15788#endif
15789 use pm_kind, only: SKG => SK, RKG => RK1
15790 use pm_container, only: cvr_pdt
15791 class(display_type) , intent(inout) :: self
15792 type(cvr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
15793 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15794 character(*, SK) , intent(in) , optional :: format, advance
15795 logical(LK) , intent(in) , optional :: sticky
15796 character(*, SK) , intent(in) , optional :: deliml, delimr
15797 end subroutine
15798#endif
15799
15800 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15801
15802 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15803 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15804 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15805
15806 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15807
15808#if SK5_ENABLED
15809 module subroutine show_D2_PVSK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15810#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15811 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVSK5
15812#endif
15813 use pm_kind, only: SKG => SK5
15814 use pm_container, only: cvs_pdt
15815 class(display_type) , intent(inout) :: self
15816 type(cvs_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:)
15817 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15818 character(*, SK) , intent(in) , optional :: format, advance
15819 logical(LK) , intent(in) , optional :: sticky
15820 character(*, SK) , intent(in) , optional :: deliml, delimr
15821 end subroutine
15822#endif
15823
15824#if SK4_ENABLED
15825 module subroutine show_D2_PVSK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15826#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15827 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVSK4
15828#endif
15829 use pm_kind, only: SKG => SK4
15830 use pm_container, only: cvs_pdt
15831 class(display_type) , intent(inout) :: self
15832 type(cvs_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:)
15833 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15834 character(*, SK) , intent(in) , optional :: format, advance
15835 logical(LK) , intent(in) , optional :: sticky
15836 character(*, SK) , intent(in) , optional :: deliml, delimr
15837 end subroutine
15838#endif
15839
15840#if SK3_ENABLED
15841 module subroutine show_D2_PVSK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15842#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15843 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVSK3
15844#endif
15845 use pm_kind, only: SKG => SK3
15846 use pm_container, only: cvs_pdt
15847 class(display_type) , intent(inout) :: self
15848 type(cvs_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:)
15849 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15850 character(*, SK) , intent(in) , optional :: format, advance
15851 logical(LK) , intent(in) , optional :: sticky
15852 character(*, SK) , intent(in) , optional :: deliml, delimr
15853 end subroutine
15854#endif
15855
15856#if SK2_ENABLED
15857 module subroutine show_D2_PVSK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15859 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVSK2
15860#endif
15861 use pm_kind, only: SKG => SK2
15862 use pm_container, only: cvs_pdt
15863 class(display_type) , intent(inout) :: self
15864 type(cvs_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:)
15865 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15866 character(*, SK) , intent(in) , optional :: format, advance
15867 logical(LK) , intent(in) , optional :: sticky
15868 character(*, SK) , intent(in) , optional :: deliml, delimr
15869 end subroutine
15870#endif
15871
15872#if SK1_ENABLED
15873 module subroutine show_D2_PVSK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15874#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15875 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVSK1
15876#endif
15877 use pm_kind, only: SKG => SK1
15878 use pm_container, only: cvs_pdt
15879 class(display_type) , intent(inout) :: self
15880 type(cvs_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:)
15881 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15882 character(*, SK) , intent(in) , optional :: format, advance
15883 logical(LK) , intent(in) , optional :: sticky
15884 character(*, SK) , intent(in) , optional :: deliml, delimr
15885 end subroutine
15886#endif
15887
15888 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15889
15890#if IK5_ENABLED
15891 module subroutine show_D2_PVIK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15892#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15893 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVIK5
15894#endif
15895 use pm_kind, only: SKG => SK, IKG => IK5
15896 use pm_container, only: cvi_pdt
15897 class(display_type) , intent(inout) :: self
15898 type(cvi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:)
15899 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15900 character(*, SK) , intent(in) , optional :: format, advance
15901 logical(LK) , intent(in) , optional :: sticky
15902 character(*, SK) , intent(in) , optional :: deliml, delimr
15903 end subroutine
15904#endif
15905
15906#if IK4_ENABLED
15907 module subroutine show_D2_PVIK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15908#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15909 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVIK4
15910#endif
15911 use pm_kind, only: SKG => SK, IKG => IK4
15912 use pm_container, only: cvi_pdt
15913 class(display_type) , intent(inout) :: self
15914 type(cvi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:)
15915 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15916 character(*, SK) , intent(in) , optional :: format, advance
15917 logical(LK) , intent(in) , optional :: sticky
15918 character(*, SK) , intent(in) , optional :: deliml, delimr
15919 end subroutine
15920#endif
15921
15922#if IK3_ENABLED
15923 module subroutine show_D2_PVIK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15925 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVIK3
15926#endif
15927 use pm_kind, only: SKG => SK, IKG => IK3
15928 use pm_container, only: cvi_pdt
15929 class(display_type) , intent(inout) :: self
15930 type(cvi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:)
15931 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15932 character(*, SK) , intent(in) , optional :: format, advance
15933 logical(LK) , intent(in) , optional :: sticky
15934 character(*, SK) , intent(in) , optional :: deliml, delimr
15935 end subroutine
15936#endif
15937
15938#if IK2_ENABLED
15939 module subroutine show_D2_PVIK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15941 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVIK2
15942#endif
15943 use pm_kind, only: SKG => SK, IKG => IK2
15944 use pm_container, only: cvi_pdt
15945 class(display_type) , intent(inout) :: self
15946 type(cvi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:)
15947 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15948 character(*, SK) , intent(in) , optional :: format, advance
15949 logical(LK) , intent(in) , optional :: sticky
15950 character(*, SK) , intent(in) , optional :: deliml, delimr
15951 end subroutine
15952#endif
15953
15954#if IK1_ENABLED
15955 module subroutine show_D2_PVIK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15956#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15957 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVIK1
15958#endif
15959 use pm_kind, only: SKG => SK, IKG => IK1
15960 use pm_container, only: cvi_pdt
15961 class(display_type) , intent(inout) :: self
15962 type(cvi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:)
15963 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15964 character(*, SK) , intent(in) , optional :: format, advance
15965 logical(LK) , intent(in) , optional :: sticky
15966 character(*, SK) , intent(in) , optional :: deliml, delimr
15967 end subroutine
15968#endif
15969
15970 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15971
15972#if LK5_ENABLED
15973 module subroutine show_D2_PVLK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15974#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15975 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVLK5
15976#endif
15977 use pm_kind, only: SKG => SK, LKG => LK5
15978 use pm_container, only: cvl_pdt
15979 class(display_type) , intent(inout) :: self
15980 type(cvl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:)
15981 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15982 character(*, SK) , intent(in) , optional :: format, advance
15983 logical(LK) , intent(in) , optional :: sticky
15984 character(*, SK) , intent(in) , optional :: deliml, delimr
15985 end subroutine
15986#endif
15987
15988#if LK4_ENABLED
15989 module subroutine show_D2_PVLK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15991 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVLK4
15992#endif
15993 use pm_kind, only: SKG => SK, LKG => LK4
15994 use pm_container, only: cvl_pdt
15995 class(display_type) , intent(inout) :: self
15996 type(cvl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:)
15997 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
15998 character(*, SK) , intent(in) , optional :: format, advance
15999 logical(LK) , intent(in) , optional :: sticky
16000 character(*, SK) , intent(in) , optional :: deliml, delimr
16001 end subroutine
16002#endif
16003
16004#if LK3_ENABLED
16005 module subroutine show_D2_PVLK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16006#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16007 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVLK3
16008#endif
16009 use pm_kind, only: SKG => SK, LKG => LK3
16010 use pm_container, only: cvl_pdt
16011 class(display_type) , intent(inout) :: self
16012 type(cvl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:)
16013 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16014 character(*, SK) , intent(in) , optional :: format, advance
16015 logical(LK) , intent(in) , optional :: sticky
16016 character(*, SK) , intent(in) , optional :: deliml, delimr
16017 end subroutine
16018#endif
16019
16020#if LK2_ENABLED
16021 module subroutine show_D2_PVLK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16023 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVLK2
16024#endif
16025 use pm_kind, only: SKG => SK, LKG => LK2
16026 use pm_container, only: cvl_pdt
16027 class(display_type) , intent(inout) :: self
16028 type(cvl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:)
16029 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16030 character(*, SK) , intent(in) , optional :: format, advance
16031 logical(LK) , intent(in) , optional :: sticky
16032 character(*, SK) , intent(in) , optional :: deliml, delimr
16033 end subroutine
16034#endif
16035
16036#if LK1_ENABLED
16037 module subroutine show_D2_PVLK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16039 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVLK1
16040#endif
16041 use pm_kind, only: SKG => SK, LKG => LK1
16042 use pm_container, only: cvl_pdt
16043 class(display_type) , intent(inout) :: self
16044 type(cvl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:)
16045 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16046 character(*, SK) , intent(in) , optional :: format, advance
16047 logical(LK) , intent(in) , optional :: sticky
16048 character(*, SK) , intent(in) , optional :: deliml, delimr
16049 end subroutine
16050#endif
16051
16052 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16053
16054#if CK5_ENABLED
16055 module subroutine show_D2_PVCK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16056#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16057 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVCK5
16058#endif
16059 use pm_kind, only: SKG => SK, CKG => CK5
16060 use pm_container, only: cvc_pdt
16061 class(display_type) , intent(inout) :: self
16062 type(cvc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:)
16063 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16064 character(*, SK) , intent(in) , optional :: format, advance
16065 logical(LK) , intent(in) , optional :: sticky
16066 character(*, SK) , intent(in) , optional :: deliml, delimr
16067 end subroutine
16068#endif
16069
16070#if CK4_ENABLED
16071 module subroutine show_D2_PVCK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16072#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16073 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVCK4
16074#endif
16075 use pm_kind, only: SKG => SK, CKG => CK4
16076 use pm_container, only: cvc_pdt
16077 class(display_type) , intent(inout) :: self
16078 type(cvc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:)
16079 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16080 character(*, SK) , intent(in) , optional :: format, advance
16081 logical(LK) , intent(in) , optional :: sticky
16082 character(*, SK) , intent(in) , optional :: deliml, delimr
16083 end subroutine
16084#endif
16085
16086#if CK3_ENABLED
16087 module subroutine show_D2_PVCK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16088#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16089 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVCK3
16090#endif
16091 use pm_kind, only: SKG => SK, CKG => CK3
16092 use pm_container, only: cvc_pdt
16093 class(display_type) , intent(inout) :: self
16094 type(cvc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:)
16095 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16096 character(*, SK) , intent(in) , optional :: format, advance
16097 logical(LK) , intent(in) , optional :: sticky
16098 character(*, SK) , intent(in) , optional :: deliml, delimr
16099 end subroutine
16100#endif
16101
16102#if CK2_ENABLED
16103 module subroutine show_D2_PVCK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16105 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVCK2
16106#endif
16107 use pm_kind, only: SKG => SK, CKG => CK2
16108 use pm_container, only: cvc_pdt
16109 class(display_type) , intent(inout) :: self
16110 type(cvc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:)
16111 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16112 character(*, SK) , intent(in) , optional :: format, advance
16113 logical(LK) , intent(in) , optional :: sticky
16114 character(*, SK) , intent(in) , optional :: deliml, delimr
16115 end subroutine
16116#endif
16117
16118#if CK1_ENABLED
16119 module subroutine show_D2_PVCK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16121 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVCK1
16122#endif
16123 use pm_kind, only: SKG => SK, CKG => CK1
16124 use pm_container, only: cvc_pdt
16125 class(display_type) , intent(inout) :: self
16126 type(cvc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:)
16127 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16128 character(*, SK) , intent(in) , optional :: format, advance
16129 logical(LK) , intent(in) , optional :: sticky
16130 character(*, SK) , intent(in) , optional :: deliml, delimr
16131 end subroutine
16132#endif
16133
16134 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16135
16136#if RK5_ENABLED
16137 module subroutine show_D2_PVRK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16138#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16139 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVRK5
16140#endif
16141 use pm_kind, only: SKG => SK, RKG => RK5
16142 use pm_container, only: cvr_pdt
16143 class(display_type) , intent(inout) :: self
16144 type(cvr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:)
16145 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16146 character(*, SK) , intent(in) , optional :: format, advance
16147 logical(LK) , intent(in) , optional :: sticky
16148 character(*, SK) , intent(in) , optional :: deliml, delimr
16149 end subroutine
16150#endif
16151
16152#if RK4_ENABLED
16153 module subroutine show_D2_PVRK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16154#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16155 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVRK4
16156#endif
16157 use pm_kind, only: SKG => SK, RKG => RK4
16158 use pm_container, only: cvr_pdt
16159 class(display_type) , intent(inout) :: self
16160 type(cvr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:)
16161 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16162 character(*, SK) , intent(in) , optional :: format, advance
16163 logical(LK) , intent(in) , optional :: sticky
16164 character(*, SK) , intent(in) , optional :: deliml, delimr
16165 end subroutine
16166#endif
16167
16168#if RK3_ENABLED
16169 module subroutine show_D2_PVRK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16170#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16171 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVRK3
16172#endif
16173 use pm_kind, only: SKG => SK, RKG => RK3
16174 use pm_container, only: cvr_pdt
16175 class(display_type) , intent(inout) :: self
16176 type(cvr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:)
16177 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16178 character(*, SK) , intent(in) , optional :: format, advance
16179 logical(LK) , intent(in) , optional :: sticky
16180 character(*, SK) , intent(in) , optional :: deliml, delimr
16181 end subroutine
16182#endif
16183
16184#if RK2_ENABLED
16185 module subroutine show_D2_PVRK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16186#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16187 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVRK2
16188#endif
16189 use pm_kind, only: SKG => SK, RKG => RK2
16190 use pm_container, only: cvr_pdt
16191 class(display_type) , intent(inout) :: self
16192 type(cvr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:)
16193 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16194 character(*, SK) , intent(in) , optional :: format, advance
16195 logical(LK) , intent(in) , optional :: sticky
16196 character(*, SK) , intent(in) , optional :: deliml, delimr
16197 end subroutine
16198#endif
16199
16200#if RK1_ENABLED
16201 module subroutine show_D2_PVRK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16202#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16203 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVRK1
16204#endif
16205 use pm_kind, only: SKG => SK, RKG => RK1
16206 use pm_container, only: cvr_pdt
16207 class(display_type) , intent(inout) :: self
16208 type(cvr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:)
16209 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16210 character(*, SK) , intent(in) , optional :: format, advance
16211 logical(LK) , intent(in) , optional :: sticky
16212 character(*, SK) , intent(in) , optional :: deliml, delimr
16213 end subroutine
16214#endif
16215
16216 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16217
16218 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16219 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16220 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16221
16222 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16223 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16224 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16225
16226 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16227
16228#if SK5_ENABLED
16229 module subroutine show_D0_PMSK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16231 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMSK5
16232#endif
16233 use pm_kind, only: SKG => SK5
16234 use pm_container, only: cms_pdt
16235 class(display_type) , intent(inout) :: self
16236 type(cms_pdt(SKG)) , intent(in) :: object
16237 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16238 character(*, SK) , intent(in) , optional :: format, advance
16239 logical(LK) , intent(in) , optional :: sticky
16240 character(*, SK) , intent(in) , optional :: deliml, delimr
16241 end subroutine
16242#endif
16243
16244#if SK4_ENABLED
16245 module subroutine show_D0_PMSK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16247 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMSK4
16248#endif
16249 use pm_kind, only: SKG => SK4
16250 use pm_container, only: cms_pdt
16251 class(display_type) , intent(inout) :: self
16252 type(cms_pdt(SKG)) , intent(in) :: object
16253 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16254 character(*, SK) , intent(in) , optional :: format, advance
16255 logical(LK) , intent(in) , optional :: sticky
16256 character(*, SK) , intent(in) , optional :: deliml, delimr
16257 end subroutine
16258#endif
16259
16260#if SK3_ENABLED
16261 module subroutine show_D0_PMSK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16262#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16263 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMSK3
16264#endif
16265 use pm_kind, only: SKG => SK3
16266 use pm_container, only: cms_pdt
16267 class(display_type) , intent(inout) :: self
16268 type(cms_pdt(SKG)) , intent(in) :: object
16269 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16270 character(*, SK) , intent(in) , optional :: format, advance
16271 logical(LK) , intent(in) , optional :: sticky
16272 character(*, SK) , intent(in) , optional :: deliml, delimr
16273 end subroutine
16274#endif
16275
16276#if SK2_ENABLED
16277 module subroutine show_D0_PMSK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16279 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMSK2
16280#endif
16281 use pm_kind, only: SKG => SK2
16282 use pm_container, only: cms_pdt
16283 class(display_type) , intent(inout) :: self
16284 type(cms_pdt(SKG)) , intent(in) :: object
16285 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16286 character(*, SK) , intent(in) , optional :: format, advance
16287 logical(LK) , intent(in) , optional :: sticky
16288 character(*, SK) , intent(in) , optional :: deliml, delimr
16289 end subroutine
16290#endif
16291
16292#if SK1_ENABLED
16293 module subroutine show_D0_PMSK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16295 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMSK1
16296#endif
16297 use pm_kind, only: SKG => SK1
16298 use pm_container, only: cms_pdt
16299 class(display_type) , intent(inout) :: self
16300 type(cms_pdt(SKG)) , intent(in) :: object
16301 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16302 character(*, SK) , intent(in) , optional :: format, advance
16303 logical(LK) , intent(in) , optional :: sticky
16304 character(*, SK) , intent(in) , optional :: deliml, delimr
16305 end subroutine
16306#endif
16307
16308 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16309
16310#if IK5_ENABLED
16311 module subroutine show_D0_PMIK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16313 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMIK5
16314#endif
16315 use pm_kind, only: SKG => SK, IKG => IK5
16316 use pm_container, only: cmi_pdt
16317 class(display_type) , intent(inout) :: self
16318 type(cmi_pdt(IKG)) , intent(in) :: object
16319 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16320 character(*, SK) , intent(in) , optional :: format, advance
16321 logical(LK) , intent(in) , optional :: sticky
16322 character(*, SK) , intent(in) , optional :: deliml, delimr
16323 end subroutine
16324#endif
16325
16326#if IK4_ENABLED
16327 module subroutine show_D0_PMIK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16329 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMIK4
16330#endif
16331 use pm_kind, only: SKG => SK, IKG => IK4
16332 use pm_container, only: cmi_pdt
16333 class(display_type) , intent(inout) :: self
16334 type(cmi_pdt(IKG)) , intent(in) :: object
16335 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16336 character(*, SK) , intent(in) , optional :: format, advance
16337 logical(LK) , intent(in) , optional :: sticky
16338 character(*, SK) , intent(in) , optional :: deliml, delimr
16339 end subroutine
16340#endif
16341
16342#if IK3_ENABLED
16343 module subroutine show_D0_PMIK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16345 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMIK3
16346#endif
16347 use pm_kind, only: SKG => SK, IKG => IK3
16348 use pm_container, only: cmi_pdt
16349 class(display_type) , intent(inout) :: self
16350 type(cmi_pdt(IKG)) , intent(in) :: object
16351 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16352 character(*, SK) , intent(in) , optional :: format, advance
16353 logical(LK) , intent(in) , optional :: sticky
16354 character(*, SK) , intent(in) , optional :: deliml, delimr
16355 end subroutine
16356#endif
16357
16358#if IK2_ENABLED
16359 module subroutine show_D0_PMIK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16361 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMIK2
16362#endif
16363 use pm_kind, only: SKG => SK, IKG => IK2
16364 use pm_container, only: cmi_pdt
16365 class(display_type) , intent(inout) :: self
16366 type(cmi_pdt(IKG)) , intent(in) :: object
16367 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16368 character(*, SK) , intent(in) , optional :: format, advance
16369 logical(LK) , intent(in) , optional :: sticky
16370 character(*, SK) , intent(in) , optional :: deliml, delimr
16371 end subroutine
16372#endif
16373
16374#if IK1_ENABLED
16375 module subroutine show_D0_PMIK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16376#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16377 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMIK1
16378#endif
16379 use pm_kind, only: SKG => SK, IKG => IK1
16380 use pm_container, only: cmi_pdt
16381 class(display_type) , intent(inout) :: self
16382 type(cmi_pdt(IKG)) , intent(in) :: object
16383 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16384 character(*, SK) , intent(in) , optional :: format, advance
16385 logical(LK) , intent(in) , optional :: sticky
16386 character(*, SK) , intent(in) , optional :: deliml, delimr
16387 end subroutine
16388#endif
16389
16390 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16391
16392#if LK5_ENABLED
16393 module subroutine show_D0_PMLK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16394#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16395 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMLK5
16396#endif
16397 use pm_kind, only: SKG => SK, LKG => LK5
16398 use pm_container, only: cml_pdt
16399 class(display_type) , intent(inout) :: self
16400 type(cml_pdt(LKG)) , intent(in) :: object
16401 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16402 character(*, SK) , intent(in) , optional :: format, advance
16403 logical(LK) , intent(in) , optional :: sticky
16404 character(*, SK) , intent(in) , optional :: deliml, delimr
16405 end subroutine
16406#endif
16407
16408#if LK4_ENABLED
16409 module subroutine show_D0_PMLK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16411 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMLK4
16412#endif
16413 use pm_kind, only: SKG => SK, LKG => LK4
16414 use pm_container, only: cml_pdt
16415 class(display_type) , intent(inout) :: self
16416 type(cml_pdt(LKG)) , intent(in) :: object
16417 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16418 character(*, SK) , intent(in) , optional :: format, advance
16419 logical(LK) , intent(in) , optional :: sticky
16420 character(*, SK) , intent(in) , optional :: deliml, delimr
16421 end subroutine
16422#endif
16423
16424#if LK3_ENABLED
16425 module subroutine show_D0_PMLK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16427 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMLK3
16428#endif
16429 use pm_kind, only: SKG => SK, LKG => LK3
16430 use pm_container, only: cml_pdt
16431 class(display_type) , intent(inout) :: self
16432 type(cml_pdt(LKG)) , intent(in) :: object
16433 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16434 character(*, SK) , intent(in) , optional :: format, advance
16435 logical(LK) , intent(in) , optional :: sticky
16436 character(*, SK) , intent(in) , optional :: deliml, delimr
16437 end subroutine
16438#endif
16439
16440#if LK2_ENABLED
16441 module subroutine show_D0_PMLK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16443 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMLK2
16444#endif
16445 use pm_kind, only: SKG => SK, LKG => LK2
16446 use pm_container, only: cml_pdt
16447 class(display_type) , intent(inout) :: self
16448 type(cml_pdt(LKG)) , intent(in) :: object
16449 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16450 character(*, SK) , intent(in) , optional :: format, advance
16451 logical(LK) , intent(in) , optional :: sticky
16452 character(*, SK) , intent(in) , optional :: deliml, delimr
16453 end subroutine
16454#endif
16455
16456#if LK1_ENABLED
16457 module subroutine show_D0_PMLK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16459 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMLK1
16460#endif
16461 use pm_kind, only: SKG => SK, LKG => LK1
16462 use pm_container, only: cml_pdt
16463 class(display_type) , intent(inout) :: self
16464 type(cml_pdt(LKG)) , intent(in) :: object
16465 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16466 character(*, SK) , intent(in) , optional :: format, advance
16467 logical(LK) , intent(in) , optional :: sticky
16468 character(*, SK) , intent(in) , optional :: deliml, delimr
16469 end subroutine
16470#endif
16471
16472 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16473
16474#if CK5_ENABLED
16475 module subroutine show_D0_PMCK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16476#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16477 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMCK5
16478#endif
16479 use pm_kind, only: SKG => SK, CKG => CK5
16480 use pm_container, only: cmc_pdt
16481 class(display_type) , intent(inout) :: self
16482 type(cmc_pdt(CKG)) , intent(in) :: object
16483 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16484 character(*, SK) , intent(in) , optional :: format, advance
16485 logical(LK) , intent(in) , optional :: sticky
16486 character(*, SK) , intent(in) , optional :: deliml, delimr
16487 end subroutine
16488#endif
16489
16490#if CK4_ENABLED
16491 module subroutine show_D0_PMCK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16492#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16493 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMCK4
16494#endif
16495 use pm_kind, only: SKG => SK, CKG => CK4
16496 use pm_container, only: cmc_pdt
16497 class(display_type) , intent(inout) :: self
16498 type(cmc_pdt(CKG)) , intent(in) :: object
16499 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16500 character(*, SK) , intent(in) , optional :: format, advance
16501 logical(LK) , intent(in) , optional :: sticky
16502 character(*, SK) , intent(in) , optional :: deliml, delimr
16503 end subroutine
16504#endif
16505
16506#if CK3_ENABLED
16507 module subroutine show_D0_PMCK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16509 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMCK3
16510#endif
16511 use pm_kind, only: SKG => SK, CKG => CK3
16512 use pm_container, only: cmc_pdt
16513 class(display_type) , intent(inout) :: self
16514 type(cmc_pdt(CKG)) , intent(in) :: object
16515 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16516 character(*, SK) , intent(in) , optional :: format, advance
16517 logical(LK) , intent(in) , optional :: sticky
16518 character(*, SK) , intent(in) , optional :: deliml, delimr
16519 end subroutine
16520#endif
16521
16522#if CK2_ENABLED
16523 module subroutine show_D0_PMCK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16524#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16525 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMCK2
16526#endif
16527 use pm_kind, only: SKG => SK, CKG => CK2
16528 use pm_container, only: cmc_pdt
16529 class(display_type) , intent(inout) :: self
16530 type(cmc_pdt(CKG)) , intent(in) :: object
16531 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16532 character(*, SK) , intent(in) , optional :: format, advance
16533 logical(LK) , intent(in) , optional :: sticky
16534 character(*, SK) , intent(in) , optional :: deliml, delimr
16535 end subroutine
16536#endif
16537
16538#if CK1_ENABLED
16539 module subroutine show_D0_PMCK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16541 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMCK1
16542#endif
16543 use pm_kind, only: SKG => SK, CKG => CK1
16544 use pm_container, only: cmc_pdt
16545 class(display_type) , intent(inout) :: self
16546 type(cmc_pdt(CKG)) , intent(in) :: object
16547 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16548 character(*, SK) , intent(in) , optional :: format, advance
16549 logical(LK) , intent(in) , optional :: sticky
16550 character(*, SK) , intent(in) , optional :: deliml, delimr
16551 end subroutine
16552#endif
16553
16554 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16555
16556#if RK5_ENABLED
16557 module subroutine show_D0_PMRK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16559 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMRK5
16560#endif
16561 use pm_kind, only: SKG => SK, RKG => RK5
16562 use pm_container, only: cmr_pdt
16563 class(display_type) , intent(inout) :: self
16564 type(cmr_pdt(RKG)) , intent(in) :: object
16565 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16566 character(*, SK) , intent(in) , optional :: format, advance
16567 logical(LK) , intent(in) , optional :: sticky
16568 character(*, SK) , intent(in) , optional :: deliml, delimr
16569 end subroutine
16570#endif
16571
16572#if RK4_ENABLED
16573 module subroutine show_D0_PMRK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16575 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMRK4
16576#endif
16577 use pm_kind, only: SKG => SK, RKG => RK4
16578 use pm_container, only: cmr_pdt
16579 class(display_type) , intent(inout) :: self
16580 type(cmr_pdt(RKG)) , intent(in) :: object
16581 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16582 character(*, SK) , intent(in) , optional :: format, advance
16583 logical(LK) , intent(in) , optional :: sticky
16584 character(*, SK) , intent(in) , optional :: deliml, delimr
16585 end subroutine
16586#endif
16587
16588#if RK3_ENABLED
16589 module subroutine show_D0_PMRK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16590#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16591 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMRK3
16592#endif
16593 use pm_kind, only: SKG => SK, RKG => RK3
16594 use pm_container, only: cmr_pdt
16595 class(display_type) , intent(inout) :: self
16596 type(cmr_pdt(RKG)) , intent(in) :: object
16597 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16598 character(*, SK) , intent(in) , optional :: format, advance
16599 logical(LK) , intent(in) , optional :: sticky
16600 character(*, SK) , intent(in) , optional :: deliml, delimr
16601 end subroutine
16602#endif
16603
16604#if RK2_ENABLED
16605 module subroutine show_D0_PMRK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16607 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMRK2
16608#endif
16609 use pm_kind, only: SKG => SK, RKG => RK2
16610 use pm_container, only: cmr_pdt
16611 class(display_type) , intent(inout) :: self
16612 type(cmr_pdt(RKG)) , intent(in) :: object
16613 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16614 character(*, SK) , intent(in) , optional :: format, advance
16615 logical(LK) , intent(in) , optional :: sticky
16616 character(*, SK) , intent(in) , optional :: deliml, delimr
16617 end subroutine
16618#endif
16619
16620#if RK1_ENABLED
16621 module subroutine show_D0_PMRK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16622#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16623 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMRK1
16624#endif
16625 use pm_kind, only: SKG => SK, RKG => RK1
16626 use pm_container, only: cmr_pdt
16627 class(display_type) , intent(inout) :: self
16628 type(cmr_pdt(RKG)) , intent(in) :: object
16629 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16630 character(*, SK) , intent(in) , optional :: format, advance
16631 logical(LK) , intent(in) , optional :: sticky
16632 character(*, SK) , intent(in) , optional :: deliml, delimr
16633 end subroutine
16634#endif
16635
16636 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16637
16638 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16639 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16640 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16641
16642 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16643
16644#if SK5_ENABLED
16645 module subroutine show_D1_PMSK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16646#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16647 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMSK5
16648#endif
16649 use pm_kind, only: SKG => SK5
16650 use pm_container, only: cms_pdt
16651 class(display_type) , intent(inout) :: self
16652 type(cms_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
16653 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16654 character(*, SK) , intent(in) , optional :: format, advance
16655 logical(LK) , intent(in) , optional :: sticky
16656 character(*, SK) , intent(in) , optional :: deliml, delimr
16657 end subroutine
16658#endif
16659
16660#if SK4_ENABLED
16661 module subroutine show_D1_PMSK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16663 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMSK4
16664#endif
16665 use pm_kind, only: SKG => SK4
16666 use pm_container, only: cms_pdt
16667 class(display_type) , intent(inout) :: self
16668 type(cms_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
16669 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16670 character(*, SK) , intent(in) , optional :: format, advance
16671 logical(LK) , intent(in) , optional :: sticky
16672 character(*, SK) , intent(in) , optional :: deliml, delimr
16673 end subroutine
16674#endif
16675
16676#if SK3_ENABLED
16677 module subroutine show_D1_PMSK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16678#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16679 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMSK3
16680#endif
16681 use pm_kind, only: SKG => SK3
16682 use pm_container, only: cms_pdt
16683 class(display_type) , intent(inout) :: self
16684 type(cms_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
16685 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16686 character(*, SK) , intent(in) , optional :: format, advance
16687 logical(LK) , intent(in) , optional :: sticky
16688 character(*, SK) , intent(in) , optional :: deliml, delimr
16689 end subroutine
16690#endif
16691
16692#if SK2_ENABLED
16693 module subroutine show_D1_PMSK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16695 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMSK2
16696#endif
16697 use pm_kind, only: SKG => SK2
16698 use pm_container, only: cms_pdt
16699 class(display_type) , intent(inout) :: self
16700 type(cms_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
16701 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16702 character(*, SK) , intent(in) , optional :: format, advance
16703 logical(LK) , intent(in) , optional :: sticky
16704 character(*, SK) , intent(in) , optional :: deliml, delimr
16705 end subroutine
16706#endif
16707
16708#if SK1_ENABLED
16709 module subroutine show_D1_PMSK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16711 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMSK1
16712#endif
16713 use pm_kind, only: SKG => SK1
16714 use pm_container, only: cms_pdt
16715 class(display_type) , intent(inout) :: self
16716 type(cms_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
16717 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16718 character(*, SK) , intent(in) , optional :: format, advance
16719 logical(LK) , intent(in) , optional :: sticky
16720 character(*, SK) , intent(in) , optional :: deliml, delimr
16721 end subroutine
16722#endif
16723
16724 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16725
16726#if IK5_ENABLED
16727 module subroutine show_D1_PMIK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16729 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMIK5
16730#endif
16731 use pm_kind, only: SKG => SK, IKG => IK5
16732 use pm_container, only: cmi_pdt
16733 class(display_type) , intent(inout) :: self
16734 type(cmi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
16735 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16736 character(*, SK) , intent(in) , optional :: format, advance
16737 logical(LK) , intent(in) , optional :: sticky
16738 character(*, SK) , intent(in) , optional :: deliml, delimr
16739 end subroutine
16740#endif
16741
16742#if IK4_ENABLED
16743 module subroutine show_D1_PMIK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16744#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16745 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMIK4
16746#endif
16747 use pm_kind, only: SKG => SK, IKG => IK4
16748 use pm_container, only: cmi_pdt
16749 class(display_type) , intent(inout) :: self
16750 type(cmi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
16751 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16752 character(*, SK) , intent(in) , optional :: format, advance
16753 logical(LK) , intent(in) , optional :: sticky
16754 character(*, SK) , intent(in) , optional :: deliml, delimr
16755 end subroutine
16756#endif
16757
16758#if IK3_ENABLED
16759 module subroutine show_D1_PMIK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16761 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMIK3
16762#endif
16763 use pm_kind, only: SKG => SK, IKG => IK3
16764 use pm_container, only: cmi_pdt
16765 class(display_type) , intent(inout) :: self
16766 type(cmi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
16767 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16768 character(*, SK) , intent(in) , optional :: format, advance
16769 logical(LK) , intent(in) , optional :: sticky
16770 character(*, SK) , intent(in) , optional :: deliml, delimr
16771 end subroutine
16772#endif
16773
16774#if IK2_ENABLED
16775 module subroutine show_D1_PMIK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16776#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16777 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMIK2
16778#endif
16779 use pm_kind, only: SKG => SK, IKG => IK2
16780 use pm_container, only: cmi_pdt
16781 class(display_type) , intent(inout) :: self
16782 type(cmi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
16783 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16784 character(*, SK) , intent(in) , optional :: format, advance
16785 logical(LK) , intent(in) , optional :: sticky
16786 character(*, SK) , intent(in) , optional :: deliml, delimr
16787 end subroutine
16788#endif
16789
16790#if IK1_ENABLED
16791 module subroutine show_D1_PMIK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16792#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16793 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMIK1
16794#endif
16795 use pm_kind, only: SKG => SK, IKG => IK1
16796 use pm_container, only: cmi_pdt
16797 class(display_type) , intent(inout) :: self
16798 type(cmi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
16799 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16800 character(*, SK) , intent(in) , optional :: format, advance
16801 logical(LK) , intent(in) , optional :: sticky
16802 character(*, SK) , intent(in) , optional :: deliml, delimr
16803 end subroutine
16804#endif
16805
16806 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16807
16808#if LK5_ENABLED
16809 module subroutine show_D1_PMLK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16810#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16811 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMLK5
16812#endif
16813 use pm_kind, only: SKG => SK, LKG => LK5
16814 use pm_container, only: cml_pdt
16815 class(display_type) , intent(inout) :: self
16816 type(cml_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
16817 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16818 character(*, SK) , intent(in) , optional :: format, advance
16819 logical(LK) , intent(in) , optional :: sticky
16820 character(*, SK) , intent(in) , optional :: deliml, delimr
16821 end subroutine
16822#endif
16823
16824#if LK4_ENABLED
16825 module subroutine show_D1_PMLK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16826#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16827 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMLK4
16828#endif
16829 use pm_kind, only: SKG => SK, LKG => LK4
16830 use pm_container, only: cml_pdt
16831 class(display_type) , intent(inout) :: self
16832 type(cml_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
16833 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16834 character(*, SK) , intent(in) , optional :: format, advance
16835 logical(LK) , intent(in) , optional :: sticky
16836 character(*, SK) , intent(in) , optional :: deliml, delimr
16837 end subroutine
16838#endif
16839
16840#if LK3_ENABLED
16841 module subroutine show_D1_PMLK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16842#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16843 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMLK3
16844#endif
16845 use pm_kind, only: SKG => SK, LKG => LK3
16846 use pm_container, only: cml_pdt
16847 class(display_type) , intent(inout) :: self
16848 type(cml_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
16849 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16850 character(*, SK) , intent(in) , optional :: format, advance
16851 logical(LK) , intent(in) , optional :: sticky
16852 character(*, SK) , intent(in) , optional :: deliml, delimr
16853 end subroutine
16854#endif
16855
16856#if LK2_ENABLED
16857 module subroutine show_D1_PMLK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16859 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMLK2
16860#endif
16861 use pm_kind, only: SKG => SK, LKG => LK2
16862 use pm_container, only: cml_pdt
16863 class(display_type) , intent(inout) :: self
16864 type(cml_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
16865 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16866 character(*, SK) , intent(in) , optional :: format, advance
16867 logical(LK) , intent(in) , optional :: sticky
16868 character(*, SK) , intent(in) , optional :: deliml, delimr
16869 end subroutine
16870#endif
16871
16872#if LK1_ENABLED
16873 module subroutine show_D1_PMLK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16874#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16875 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMLK1
16876#endif
16877 use pm_kind, only: SKG => SK, LKG => LK1
16878 use pm_container, only: cml_pdt
16879 class(display_type) , intent(inout) :: self
16880 type(cml_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
16881 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16882 character(*, SK) , intent(in) , optional :: format, advance
16883 logical(LK) , intent(in) , optional :: sticky
16884 character(*, SK) , intent(in) , optional :: deliml, delimr
16885 end subroutine
16886#endif
16887
16888 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16889
16890#if CK5_ENABLED
16891 module subroutine show_D1_PMCK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16892#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16893 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMCK5
16894#endif
16895 use pm_kind, only: SKG => SK, CKG => CK5
16896 use pm_container, only: cmc_pdt
16897 class(display_type) , intent(inout) :: self
16898 type(cmc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
16899 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16900 character(*, SK) , intent(in) , optional :: format, advance
16901 logical(LK) , intent(in) , optional :: sticky
16902 character(*, SK) , intent(in) , optional :: deliml, delimr
16903 end subroutine
16904#endif
16905
16906#if CK4_ENABLED
16907 module subroutine show_D1_PMCK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16908#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16909 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMCK4
16910#endif
16911 use pm_kind, only: SKG => SK, CKG => CK4
16912 use pm_container, only: cmc_pdt
16913 class(display_type) , intent(inout) :: self
16914 type(cmc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
16915 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16916 character(*, SK) , intent(in) , optional :: format, advance
16917 logical(LK) , intent(in) , optional :: sticky
16918 character(*, SK) , intent(in) , optional :: deliml, delimr
16919 end subroutine
16920#endif
16921
16922#if CK3_ENABLED
16923 module subroutine show_D1_PMCK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16925 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMCK3
16926#endif
16927 use pm_kind, only: SKG => SK, CKG => CK3
16928 use pm_container, only: cmc_pdt
16929 class(display_type) , intent(inout) :: self
16930 type(cmc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
16931 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16932 character(*, SK) , intent(in) , optional :: format, advance
16933 logical(LK) , intent(in) , optional :: sticky
16934 character(*, SK) , intent(in) , optional :: deliml, delimr
16935 end subroutine
16936#endif
16937
16938#if CK2_ENABLED
16939 module subroutine show_D1_PMCK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16941 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMCK2
16942#endif
16943 use pm_kind, only: SKG => SK, CKG => CK2
16944 use pm_container, only: cmc_pdt
16945 class(display_type) , intent(inout) :: self
16946 type(cmc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
16947 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16948 character(*, SK) , intent(in) , optional :: format, advance
16949 logical(LK) , intent(in) , optional :: sticky
16950 character(*, SK) , intent(in) , optional :: deliml, delimr
16951 end subroutine
16952#endif
16953
16954#if CK1_ENABLED
16955 module subroutine show_D1_PMCK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16956#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16957 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMCK1
16958#endif
16959 use pm_kind, only: SKG => SK, CKG => CK1
16960 use pm_container, only: cmc_pdt
16961 class(display_type) , intent(inout) :: self
16962 type(cmc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
16963 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16964 character(*, SK) , intent(in) , optional :: format, advance
16965 logical(LK) , intent(in) , optional :: sticky
16966 character(*, SK) , intent(in) , optional :: deliml, delimr
16967 end subroutine
16968#endif
16969
16970 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16971
16972#if RK5_ENABLED
16973 module subroutine show_D1_PMRK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16974#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16975 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMRK5
16976#endif
16977 use pm_kind, only: SKG => SK, RKG => RK5
16978 use pm_container, only: cmr_pdt
16979 class(display_type) , intent(inout) :: self
16980 type(cmr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
16981 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16982 character(*, SK) , intent(in) , optional :: format, advance
16983 logical(LK) , intent(in) , optional :: sticky
16984 character(*, SK) , intent(in) , optional :: deliml, delimr
16985 end subroutine
16986#endif
16987
16988#if RK4_ENABLED
16989 module subroutine show_D1_PMRK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16991 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMRK4
16992#endif
16993 use pm_kind, only: SKG => SK, RKG => RK4
16994 use pm_container, only: cmr_pdt
16995 class(display_type) , intent(inout) :: self
16996 type(cmr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
16997 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
16998 character(*, SK) , intent(in) , optional :: format, advance
16999 logical(LK) , intent(in) , optional :: sticky
17000 character(*, SK) , intent(in) , optional :: deliml, delimr
17001 end subroutine
17002#endif
17003
17004#if RK3_ENABLED
17005 module subroutine show_D1_PMRK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17006#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17007 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMRK3
17008#endif
17009 use pm_kind, only: SKG => SK, RKG => RK3
17010 use pm_container, only: cmr_pdt
17011 class(display_type) , intent(inout) :: self
17012 type(cmr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
17013 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17014 character(*, SK) , intent(in) , optional :: format, advance
17015 logical(LK) , intent(in) , optional :: sticky
17016 character(*, SK) , intent(in) , optional :: deliml, delimr
17017 end subroutine
17018#endif
17019
17020#if RK2_ENABLED
17021 module subroutine show_D1_PMRK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17023 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMRK2
17024#endif
17025 use pm_kind, only: SKG => SK, RKG => RK2
17026 use pm_container, only: cmr_pdt
17027 class(display_type) , intent(inout) :: self
17028 type(cmr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
17029 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17030 character(*, SK) , intent(in) , optional :: format, advance
17031 logical(LK) , intent(in) , optional :: sticky
17032 character(*, SK) , intent(in) , optional :: deliml, delimr
17033 end subroutine
17034#endif
17035
17036#if RK1_ENABLED
17037 module subroutine show_D1_PMRK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17039 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMRK1
17040#endif
17041 use pm_kind, only: SKG => SK, RKG => RK1
17042 use pm_container, only: cmr_pdt
17043 class(display_type) , intent(inout) :: self
17044 type(cmr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
17045 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17046 character(*, SK) , intent(in) , optional :: format, advance
17047 logical(LK) , intent(in) , optional :: sticky
17048 character(*, SK) , intent(in) , optional :: deliml, delimr
17049 end subroutine
17050#endif
17051
17052 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17053
17054 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17055 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17056 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17057
17058 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17059 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17060 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17061
17062 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17063
17064#if SK5_ENABLED
17065 module subroutine show_D0_PCSK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17066#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17067 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCSK5
17068#endif
17069 use pm_kind, only: SKG => SK5
17070 use pm_container, only: ccs_pdt
17071 class(display_type) , intent(inout) :: self
17072 type(ccs_pdt(SKG)) , intent(in) :: object
17073 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17074 character(*, SK) , intent(in) , optional :: format, advance
17075 logical(LK) , intent(in) , optional :: sticky
17076 character(*, SK) , intent(in) , optional :: deliml, delimr
17077 end subroutine
17078#endif
17079
17080#if SK4_ENABLED
17081 module subroutine show_D0_PCSK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17083 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCSK4
17084#endif
17085 use pm_kind, only: SKG => SK4
17086 use pm_container, only: ccs_pdt
17087 class(display_type) , intent(inout) :: self
17088 type(ccs_pdt(SKG)) , intent(in) :: object
17089 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17090 character(*, SK) , intent(in) , optional :: format, advance
17091 logical(LK) , intent(in) , optional :: sticky
17092 character(*, SK) , intent(in) , optional :: deliml, delimr
17093 end subroutine
17094#endif
17095
17096#if SK3_ENABLED
17097 module subroutine show_D0_PCSK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17098#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17099 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCSK3
17100#endif
17101 use pm_kind, only: SKG => SK3
17102 use pm_container, only: ccs_pdt
17103 class(display_type) , intent(inout) :: self
17104 type(ccs_pdt(SKG)) , intent(in) :: object
17105 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17106 character(*, SK) , intent(in) , optional :: format, advance
17107 logical(LK) , intent(in) , optional :: sticky
17108 character(*, SK) , intent(in) , optional :: deliml, delimr
17109 end subroutine
17110#endif
17111
17112#if SK2_ENABLED
17113 module subroutine show_D0_PCSK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17114#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17115 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCSK2
17116#endif
17117 use pm_kind, only: SKG => SK2
17118 use pm_container, only: ccs_pdt
17119 class(display_type) , intent(inout) :: self
17120 type(ccs_pdt(SKG)) , intent(in) :: object
17121 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17122 character(*, SK) , intent(in) , optional :: format, advance
17123 logical(LK) , intent(in) , optional :: sticky
17124 character(*, SK) , intent(in) , optional :: deliml, delimr
17125 end subroutine
17126#endif
17127
17128#if SK1_ENABLED
17129 module subroutine show_D0_PCSK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17130#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17131 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCSK1
17132#endif
17133 use pm_kind, only: SKG => SK1
17134 use pm_container, only: ccs_pdt
17135 class(display_type) , intent(inout) :: self
17136 type(ccs_pdt(SKG)) , intent(in) :: object
17137 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17138 character(*, SK) , intent(in) , optional :: format, advance
17139 logical(LK) , intent(in) , optional :: sticky
17140 character(*, SK) , intent(in) , optional :: deliml, delimr
17141 end subroutine
17142#endif
17143
17144 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17145
17146#if IK5_ENABLED
17147 module subroutine show_D0_PCIK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17149 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCIK5
17150#endif
17151 use pm_kind, only: SKG => SK, IKG => IK5
17152 use pm_container, only: cci_pdt
17153 class(display_type) , intent(inout) :: self
17154 type(cci_pdt(IKG)) , intent(in) :: object
17155 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17156 character(*, SK) , intent(in) , optional :: format, advance
17157 logical(LK) , intent(in) , optional :: sticky
17158 character(*, SK) , intent(in) , optional :: deliml, delimr
17159 end subroutine
17160#endif
17161
17162#if IK4_ENABLED
17163 module subroutine show_D0_PCIK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17165 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCIK4
17166#endif
17167 use pm_kind, only: SKG => SK, IKG => IK4
17168 use pm_container, only: cci_pdt
17169 class(display_type) , intent(inout) :: self
17170 type(cci_pdt(IKG)) , intent(in) :: object
17171 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17172 character(*, SK) , intent(in) , optional :: format, advance
17173 logical(LK) , intent(in) , optional :: sticky
17174 character(*, SK) , intent(in) , optional :: deliml, delimr
17175 end subroutine
17176#endif
17177
17178#if IK3_ENABLED
17179 module subroutine show_D0_PCIK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17180#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17181 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCIK3
17182#endif
17183 use pm_kind, only: SKG => SK, IKG => IK3
17184 use pm_container, only: cci_pdt
17185 class(display_type) , intent(inout) :: self
17186 type(cci_pdt(IKG)) , intent(in) :: object
17187 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17188 character(*, SK) , intent(in) , optional :: format, advance
17189 logical(LK) , intent(in) , optional :: sticky
17190 character(*, SK) , intent(in) , optional :: deliml, delimr
17191 end subroutine
17192#endif
17193
17194#if IK2_ENABLED
17195 module subroutine show_D0_PCIK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17196#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17197 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCIK2
17198#endif
17199 use pm_kind, only: SKG => SK, IKG => IK2
17200 use pm_container, only: cci_pdt
17201 class(display_type) , intent(inout) :: self
17202 type(cci_pdt(IKG)) , intent(in) :: object
17203 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17204 character(*, SK) , intent(in) , optional :: format, advance
17205 logical(LK) , intent(in) , optional :: sticky
17206 character(*, SK) , intent(in) , optional :: deliml, delimr
17207 end subroutine
17208#endif
17209
17210#if IK1_ENABLED
17211 module subroutine show_D0_PCIK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17213 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCIK1
17214#endif
17215 use pm_kind, only: SKG => SK, IKG => IK1
17216 use pm_container, only: cci_pdt
17217 class(display_type) , intent(inout) :: self
17218 type(cci_pdt(IKG)) , intent(in) :: object
17219 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17220 character(*, SK) , intent(in) , optional :: format, advance
17221 logical(LK) , intent(in) , optional :: sticky
17222 character(*, SK) , intent(in) , optional :: deliml, delimr
17223 end subroutine
17224#endif
17225
17226 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17227
17228#if LK5_ENABLED
17229 module subroutine show_D0_PCLK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17231 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCLK5
17232#endif
17233 use pm_kind, only: SKG => SK, LKG => LK5
17234 use pm_container, only: ccl_pdt
17235 class(display_type) , intent(inout) :: self
17236 type(ccl_pdt(LKG)) , intent(in) :: object
17237 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17238 character(*, SK) , intent(in) , optional :: format, advance
17239 logical(LK) , intent(in) , optional :: sticky
17240 character(*, SK) , intent(in) , optional :: deliml, delimr
17241 end subroutine
17242#endif
17243
17244#if LK4_ENABLED
17245 module subroutine show_D0_PCLK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17247 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCLK4
17248#endif
17249 use pm_kind, only: SKG => SK, LKG => LK4
17250 use pm_container, only: ccl_pdt
17251 class(display_type) , intent(inout) :: self
17252 type(ccl_pdt(LKG)) , intent(in) :: object
17253 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17254 character(*, SK) , intent(in) , optional :: format, advance
17255 logical(LK) , intent(in) , optional :: sticky
17256 character(*, SK) , intent(in) , optional :: deliml, delimr
17257 end subroutine
17258#endif
17259
17260#if LK3_ENABLED
17261 module subroutine show_D0_PCLK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17262#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17263 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCLK3
17264#endif
17265 use pm_kind, only: SKG => SK, LKG => LK3
17266 use pm_container, only: ccl_pdt
17267 class(display_type) , intent(inout) :: self
17268 type(ccl_pdt(LKG)) , intent(in) :: object
17269 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17270 character(*, SK) , intent(in) , optional :: format, advance
17271 logical(LK) , intent(in) , optional :: sticky
17272 character(*, SK) , intent(in) , optional :: deliml, delimr
17273 end subroutine
17274#endif
17275
17276#if LK2_ENABLED
17277 module subroutine show_D0_PCLK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17279 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCLK2
17280#endif
17281 use pm_kind, only: SKG => SK, LKG => LK2
17282 use pm_container, only: ccl_pdt
17283 class(display_type) , intent(inout) :: self
17284 type(ccl_pdt(LKG)) , intent(in) :: object
17285 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17286 character(*, SK) , intent(in) , optional :: format, advance
17287 logical(LK) , intent(in) , optional :: sticky
17288 character(*, SK) , intent(in) , optional :: deliml, delimr
17289 end subroutine
17290#endif
17291
17292#if LK1_ENABLED
17293 module subroutine show_D0_PCLK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17295 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCLK1
17296#endif
17297 use pm_kind, only: SKG => SK, LKG => LK1
17298 use pm_container, only: ccl_pdt
17299 class(display_type) , intent(inout) :: self
17300 type(ccl_pdt(LKG)) , intent(in) :: object
17301 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17302 character(*, SK) , intent(in) , optional :: format, advance
17303 logical(LK) , intent(in) , optional :: sticky
17304 character(*, SK) , intent(in) , optional :: deliml, delimr
17305 end subroutine
17306#endif
17307
17308 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17309
17310#if CK5_ENABLED
17311 module subroutine show_D0_PCCK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17313 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCCK5
17314#endif
17315 use pm_kind, only: SKG => SK, CKG => CK5
17316 use pm_container, only: ccc_pdt
17317 class(display_type) , intent(inout) :: self
17318 type(ccc_pdt(CKG)) , intent(in) :: object
17319 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17320 character(*, SK) , intent(in) , optional :: format, advance
17321 logical(LK) , intent(in) , optional :: sticky
17322 character(*, SK) , intent(in) , optional :: deliml, delimr
17323 end subroutine
17324#endif
17325
17326#if CK4_ENABLED
17327 module subroutine show_D0_PCCK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17329 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCCK4
17330#endif
17331 use pm_kind, only: SKG => SK, CKG => CK4
17332 use pm_container, only: ccc_pdt
17333 class(display_type) , intent(inout) :: self
17334 type(ccc_pdt(CKG)) , intent(in) :: object
17335 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17336 character(*, SK) , intent(in) , optional :: format, advance
17337 logical(LK) , intent(in) , optional :: sticky
17338 character(*, SK) , intent(in) , optional :: deliml, delimr
17339 end subroutine
17340#endif
17341
17342#if CK3_ENABLED
17343 module subroutine show_D0_PCCK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17345 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCCK3
17346#endif
17347 use pm_kind, only: SKG => SK, CKG => CK3
17348 use pm_container, only: ccc_pdt
17349 class(display_type) , intent(inout) :: self
17350 type(ccc_pdt(CKG)) , intent(in) :: object
17351 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17352 character(*, SK) , intent(in) , optional :: format, advance
17353 logical(LK) , intent(in) , optional :: sticky
17354 character(*, SK) , intent(in) , optional :: deliml, delimr
17355 end subroutine
17356#endif
17357
17358#if CK2_ENABLED
17359 module subroutine show_D0_PCCK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17361 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCCK2
17362#endif
17363 use pm_kind, only: SKG => SK, CKG => CK2
17364 use pm_container, only: ccc_pdt
17365 class(display_type) , intent(inout) :: self
17366 type(ccc_pdt(CKG)) , intent(in) :: object
17367 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17368 character(*, SK) , intent(in) , optional :: format, advance
17369 logical(LK) , intent(in) , optional :: sticky
17370 character(*, SK) , intent(in) , optional :: deliml, delimr
17371 end subroutine
17372#endif
17373
17374#if CK1_ENABLED
17375 module subroutine show_D0_PCCK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17376#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17377 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCCK1
17378#endif
17379 use pm_kind, only: SKG => SK, CKG => CK1
17380 use pm_container, only: ccc_pdt
17381 class(display_type) , intent(inout) :: self
17382 type(ccc_pdt(CKG)) , intent(in) :: object
17383 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17384 character(*, SK) , intent(in) , optional :: format, advance
17385 logical(LK) , intent(in) , optional :: sticky
17386 character(*, SK) , intent(in) , optional :: deliml, delimr
17387 end subroutine
17388#endif
17389
17390 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17391
17392#if RK5_ENABLED
17393 module subroutine show_D0_PCRK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17394#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17395 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCRK5
17396#endif
17397 use pm_kind, only: SKG => SK, RKG => RK5
17398 use pm_container, only: ccr_pdt
17399 class(display_type) , intent(inout) :: self
17400 type(ccr_pdt(RKG)) , intent(in) :: object
17401 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17402 character(*, SK) , intent(in) , optional :: format, advance
17403 logical(LK) , intent(in) , optional :: sticky
17404 character(*, SK) , intent(in) , optional :: deliml, delimr
17405 end subroutine
17406#endif
17407
17408#if RK4_ENABLED
17409 module subroutine show_D0_PCRK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17411 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCRK4
17412#endif
17413 use pm_kind, only: SKG => SK, RKG => RK4
17414 use pm_container, only: ccr_pdt
17415 class(display_type) , intent(inout) :: self
17416 type(ccr_pdt(RKG)) , intent(in) :: object
17417 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17418 character(*, SK) , intent(in) , optional :: format, advance
17419 logical(LK) , intent(in) , optional :: sticky
17420 character(*, SK) , intent(in) , optional :: deliml, delimr
17421 end subroutine
17422#endif
17423
17424#if RK3_ENABLED
17425 module subroutine show_D0_PCRK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17427 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCRK3
17428#endif
17429 use pm_kind, only: SKG => SK, RKG => RK3
17430 use pm_container, only: ccr_pdt
17431 class(display_type) , intent(inout) :: self
17432 type(ccr_pdt(RKG)) , intent(in) :: object
17433 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17434 character(*, SK) , intent(in) , optional :: format, advance
17435 logical(LK) , intent(in) , optional :: sticky
17436 character(*, SK) , intent(in) , optional :: deliml, delimr
17437 end subroutine
17438#endif
17439
17440#if RK2_ENABLED
17441 module subroutine show_D0_PCRK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17443 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCRK2
17444#endif
17445 use pm_kind, only: SKG => SK, RKG => RK2
17446 use pm_container, only: ccr_pdt
17447 class(display_type) , intent(inout) :: self
17448 type(ccr_pdt(RKG)) , intent(in) :: object
17449 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17450 character(*, SK) , intent(in) , optional :: format, advance
17451 logical(LK) , intent(in) , optional :: sticky
17452 character(*, SK) , intent(in) , optional :: deliml, delimr
17453 end subroutine
17454#endif
17455
17456#if RK1_ENABLED
17457 module subroutine show_D0_PCRK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17459 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCRK1
17460#endif
17461 use pm_kind, only: SKG => SK, RKG => RK1
17462 use pm_container, only: ccr_pdt
17463 class(display_type) , intent(inout) :: self
17464 type(ccr_pdt(RKG)) , intent(in) :: object
17465 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17466 character(*, SK) , intent(in) , optional :: format, advance
17467 logical(LK) , intent(in) , optional :: sticky
17468 character(*, SK) , intent(in) , optional :: deliml, delimr
17469 end subroutine
17470#endif
17471
17472 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17473
17474#endif
17475!PDT_ENABLED
17476
17477 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17478 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17479 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17480
17481 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17482 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17483 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17484
17485 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17486
17487 module subroutine show_D0_BSSK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17489 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BSSK
17490#endif
17491 use pm_kind, only: SKG => SK
17492 use pm_container, only: css_type
17493 class(display_type) , intent(inout) :: self
17494 type(css_type) , intent(in) :: object
17495 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17496 character(*, SK) , intent(in) , optional :: format, advance
17497 logical(LK) , intent(in) , optional :: sticky
17498 character(*, SK) , intent(in) , optional :: deliml, delimr
17499 end subroutine
17500
17501 module subroutine show_D0_BSIK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17503 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BSIK
17504#endif
17505 use pm_kind, only: SKG => SK
17506 use pm_container, only: csi_type
17507 class(display_type) , intent(inout) :: self
17508 type(csi_type) , intent(in) :: object
17509 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17510 character(*, SK) , intent(in) , optional :: format, advance
17511 logical(LK) , intent(in) , optional :: sticky
17512 character(*, SK) , intent(in) , optional :: deliml, delimr
17513 end subroutine
17514
17515 module subroutine show_D0_BSLK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17516#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17517 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BSLK
17518#endif
17519 use pm_kind, only: SKG => SK
17520 use pm_container, only: csl_type
17521 class(display_type) , intent(inout) :: self
17522 type(csl_type) , intent(in) :: object
17523 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17524 character(*, SK) , intent(in) , optional :: format, advance
17525 logical(LK) , intent(in) , optional :: sticky
17526 character(*, SK) , intent(in) , optional :: deliml, delimr
17527 end subroutine
17528
17529 module subroutine show_D0_BSCK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17530#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17531 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BSCK
17532#endif
17533 use pm_kind, only: SKG => SK
17534 use pm_container, only: csc_type
17535 class(display_type) , intent(inout) :: self
17536 type(csc_type) , intent(in) :: object
17537 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17538 character(*, SK) , intent(in) , optional :: format, advance
17539 logical(LK) , intent(in) , optional :: sticky
17540 character(*, SK) , intent(in) , optional :: deliml, delimr
17541 end subroutine
17542
17543 module subroutine show_D0_BSRK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17545 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BSRK
17546#endif
17547 use pm_kind, only: SKG => SK
17548 use pm_container, only: csr_type
17549 class(display_type) , intent(inout) :: self
17550 type(csr_type) , intent(in) :: object
17551 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17552 character(*, SK) , intent(in) , optional :: format, advance
17553 logical(LK) , intent(in) , optional :: sticky
17554 character(*, SK) , intent(in) , optional :: deliml, delimr
17555 end subroutine
17556
17557 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17558
17559 module subroutine show_D1_BSSK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17561 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BSSK
17562#endif
17563 use pm_kind, only: SKG => SK
17564 use pm_container, only: css_type
17565 class(display_type) , intent(inout) :: self
17566 type(css_type) , intent(in) __CONTIGUOUS :: object(:)
17567 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17568 character(*, SK) , intent(in) , optional :: format, advance
17569 logical(LK) , intent(in) , optional :: sticky
17570 character(*, SK) , intent(in) , optional :: deliml, delimr
17571 end subroutine
17572
17573 module subroutine show_D1_BSIK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17575 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BSIK
17576#endif
17577 use pm_kind, only: SKG => SK
17578 use pm_container, only: csi_type
17579 class(display_type) , intent(inout) :: self
17580 type(csi_type) , intent(in) __CONTIGUOUS :: object(:)
17581 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17582 character(*, SK) , intent(in) , optional :: format, advance
17583 logical(LK) , intent(in) , optional :: sticky
17584 character(*, SK) , intent(in) , optional :: deliml, delimr
17585 end subroutine
17586
17587 module subroutine show_D1_BSLK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17588#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17589 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BSLK
17590#endif
17591 use pm_kind, only: SKG => SK
17592 use pm_container, only: csl_type
17593 class(display_type) , intent(inout) :: self
17594 type(csl_type) , intent(in) __CONTIGUOUS :: object(:)
17595 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17596 character(*, SK) , intent(in) , optional :: format, advance
17597 logical(LK) , intent(in) , optional :: sticky
17598 character(*, SK) , intent(in) , optional :: deliml, delimr
17599 end subroutine
17600
17601 module subroutine show_D1_BSCK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17602#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17603 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BSCK
17604#endif
17605 use pm_kind, only: SKG => SK
17606 use pm_container, only: csc_type
17607 class(display_type) , intent(inout) :: self
17608 type(csc_type) , intent(in) __CONTIGUOUS :: object(:)
17609 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17610 character(*, SK) , intent(in) , optional :: format, advance
17611 logical(LK) , intent(in) , optional :: sticky
17612 character(*, SK) , intent(in) , optional :: deliml, delimr
17613 end subroutine
17614
17615 module subroutine show_D1_BSRK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17616#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17617 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BSRK
17618#endif
17619 use pm_kind, only: SKG => SK
17620 use pm_container, only: csr_type
17621 class(display_type) , intent(inout) :: self
17622 type(csr_type) , intent(in) __CONTIGUOUS :: object(:)
17623 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17624 character(*, SK) , intent(in) , optional :: format, advance
17625 logical(LK) , intent(in) , optional :: sticky
17626 character(*, SK) , intent(in) , optional :: deliml, delimr
17627 end subroutine
17628
17629 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17630
17631 module subroutine show_D2_BSSK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17633 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_BSSK
17634#endif
17635 use pm_kind, only: SKG => SK
17636 use pm_container, only: css_type
17637 class(display_type) , intent(inout) :: self
17638 type(css_type) , intent(in) __CONTIGUOUS :: object(:,:)
17639 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17640 character(*, SK) , intent(in) , optional :: format, advance
17641 logical(LK) , intent(in) , optional :: sticky
17642 character(*, SK) , intent(in) , optional :: deliml, delimr
17643 end subroutine
17644
17645 module subroutine show_D2_BSIK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17646#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17647 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_BSIK
17648#endif
17649 use pm_kind, only: SKG => SK
17650 use pm_container, only: csi_type
17651 class(display_type) , intent(inout) :: self
17652 type(csi_type) , intent(in) __CONTIGUOUS :: object(:,:)
17653 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17654 character(*, SK) , intent(in) , optional :: format, advance
17655 logical(LK) , intent(in) , optional :: sticky
17656 character(*, SK) , intent(in) , optional :: deliml, delimr
17657 end subroutine
17658
17659 module subroutine show_D2_BSLK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17661 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_BSLK
17662#endif
17663 use pm_kind, only: SKG => SK
17664 use pm_container, only: csl_type
17665 class(display_type) , intent(inout) :: self
17666 type(csl_type) , intent(in) __CONTIGUOUS :: object(:,:)
17667 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17668 character(*, SK) , intent(in) , optional :: format, advance
17669 logical(LK) , intent(in) , optional :: sticky
17670 character(*, SK) , intent(in) , optional :: deliml, delimr
17671 end subroutine
17672
17673 module subroutine show_D2_BSCK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17675 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_BSCK
17676#endif
17677 use pm_kind, only: SKG => SK
17678 use pm_container, only: csc_type
17679 class(display_type) , intent(inout) :: self
17680 type(csc_type) , intent(in) __CONTIGUOUS :: object(:,:)
17681 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17682 character(*, SK) , intent(in) , optional :: format, advance
17683 logical(LK) , intent(in) , optional :: sticky
17684 character(*, SK) , intent(in) , optional :: deliml, delimr
17685 end subroutine
17686
17687 module subroutine show_D2_BSRK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17689 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_BSRK
17690#endif
17691 use pm_kind, only: SKG => SK
17692 use pm_container, only: csr_type
17693 class(display_type) , intent(inout) :: self
17694 type(csr_type) , intent(in) __CONTIGUOUS :: object(:,:)
17695 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17696 character(*, SK) , intent(in) , optional :: format, advance
17697 logical(LK) , intent(in) , optional :: sticky
17698 character(*, SK) , intent(in) , optional :: deliml, delimr
17699 end subroutine
17700
17701 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17702
17703 module subroutine show_D3_BSSK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17705 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_BSSK
17706#endif
17707 use pm_kind, only: SKG => SK
17708 use pm_container, only: css_type
17709 class(display_type) , intent(inout) :: self
17710 type(css_type) , intent(in) __CONTIGUOUS :: object(:,:,:)
17711 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17712 character(*, SK) , intent(in) , optional :: format, advance
17713 logical(LK) , intent(in) , optional :: sticky
17714 character(*, SK) , intent(in) , optional :: deliml, delimr
17715 end subroutine
17716
17717 module subroutine show_D3_BSIK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17718#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17719 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_BSIK
17720#endif
17721 use pm_kind, only: SKG => SK
17722 use pm_container, only: csi_type
17723 class(display_type) , intent(inout) :: self
17724 type(csi_type) , intent(in) __CONTIGUOUS :: object(:,:,:)
17725 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17726 character(*, SK) , intent(in) , optional :: format, advance
17727 logical(LK) , intent(in) , optional :: sticky
17728 character(*, SK) , intent(in) , optional :: deliml, delimr
17729 end subroutine
17730
17731 module subroutine show_D3_BSLK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17732#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17733 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_BSLK
17734#endif
17735 use pm_kind, only: SKG => SK
17736 use pm_container, only: csl_type
17737 class(display_type) , intent(inout) :: self
17738 type(csl_type) , intent(in) __CONTIGUOUS :: object(:,:,:)
17739 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17740 character(*, SK) , intent(in) , optional :: format, advance
17741 logical(LK) , intent(in) , optional :: sticky
17742 character(*, SK) , intent(in) , optional :: deliml, delimr
17743 end subroutine
17744
17745 module subroutine show_D3_BSCK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17747 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_BSCK
17748#endif
17749 use pm_kind, only: SKG => SK
17750 use pm_container, only: csc_type
17751 class(display_type) , intent(inout) :: self
17752 type(csc_type) , intent(in) __CONTIGUOUS :: object(:,:,:)
17753 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17754 character(*, SK) , intent(in) , optional :: format, advance
17755 logical(LK) , intent(in) , optional :: sticky
17756 character(*, SK) , intent(in) , optional :: deliml, delimr
17757 end subroutine
17758
17759 module subroutine show_D3_BSRK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17761 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_BSRK
17762#endif
17763 use pm_kind, only: SKG => SK
17764 use pm_container, only: csr_type
17765 class(display_type) , intent(inout) :: self
17766 type(csr_type) , intent(in) __CONTIGUOUS :: object(:,:,:)
17767 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17768 character(*, SK) , intent(in) , optional :: format, advance
17769 logical(LK) , intent(in) , optional :: sticky
17770 character(*, SK) , intent(in) , optional :: deliml, delimr
17771 end subroutine
17772
17773 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17774
17775 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17776 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17777 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17778
17779 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17780
17781 module subroutine show_D0_BVSK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17782#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17783 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BVSK
17784#endif
17785 use pm_kind, only: SKG => SK
17786 use pm_container, only: cvs_type
17787 class(display_type) , intent(inout) :: self
17788 type(cvs_type) , intent(in) :: object
17789 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17790 character(*, SK) , intent(in) , optional :: format, advance
17791 logical(LK) , intent(in) , optional :: sticky
17792 character(*, SK) , intent(in) , optional :: deliml, delimr
17793 end subroutine
17794
17795 module subroutine show_D0_BVIK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17797 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BVIK
17798#endif
17799 use pm_kind, only: SKG => SK
17800 use pm_container, only: cvi_type
17801 class(display_type) , intent(inout) :: self
17802 type(cvi_type) , intent(in) :: object
17803 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17804 character(*, SK) , intent(in) , optional :: format, advance
17805 logical(LK) , intent(in) , optional :: sticky
17806 character(*, SK) , intent(in) , optional :: deliml, delimr
17807 end subroutine
17808
17809 module subroutine show_D0_BVLK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17810#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17811 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BVLK
17812#endif
17813 use pm_kind, only: SKG => SK
17814 use pm_container, only: cvl_type
17815 class(display_type) , intent(inout) :: self
17816 type(cvl_type) , intent(in) :: object
17817 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17818 character(*, SK) , intent(in) , optional :: format, advance
17819 logical(LK) , intent(in) , optional :: sticky
17820 character(*, SK) , intent(in) , optional :: deliml, delimr
17821 end subroutine
17822
17823 module subroutine show_D0_BVCK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17825 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BVCK
17826#endif
17827 use pm_kind, only: SKG => SK
17828 use pm_container, only: cvc_type
17829 class(display_type) , intent(inout) :: self
17830 type(cvc_type) , intent(in) :: object
17831 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17832 character(*, SK) , intent(in) , optional :: format, advance
17833 logical(LK) , intent(in) , optional :: sticky
17834 character(*, SK) , intent(in) , optional :: deliml, delimr
17835 end subroutine
17836
17837 module subroutine show_D0_BVRK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17839 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BVRK
17840#endif
17841 use pm_kind, only: SKG => SK
17842 use pm_container, only: cvr_type
17843 class(display_type) , intent(inout) :: self
17844 type(cvr_type) , intent(in) :: object
17845 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17846 character(*, SK) , intent(in) , optional :: format, advance
17847 logical(LK) , intent(in) , optional :: sticky
17848 character(*, SK) , intent(in) , optional :: deliml, delimr
17849 end subroutine
17850
17851 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17852
17853 module subroutine show_D1_BVSK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17855 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BVSK
17856#endif
17857 use pm_kind, only: SKG => SK
17858 use pm_container, only: cvs_type
17859 class(display_type) , intent(inout) :: self
17860 type(cvs_type) , intent(in) __CONTIGUOUS :: object(:)
17861 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17862 character(*, SK) , intent(in) , optional :: format, advance
17863 logical(LK) , intent(in) , optional :: sticky
17864 character(*, SK) , intent(in) , optional :: deliml, delimr
17865 end subroutine
17866
17867 module subroutine show_D1_BVIK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17869 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BVIK
17870#endif
17871 use pm_kind, only: SKG => SK
17872 use pm_container, only: cvi_type
17873 class(display_type) , intent(inout) :: self
17874 type(cvi_type) , intent(in) __CONTIGUOUS :: object(:)
17875 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17876 character(*, SK) , intent(in) , optional :: format, advance
17877 logical(LK) , intent(in) , optional :: sticky
17878 character(*, SK) , intent(in) , optional :: deliml, delimr
17879 end subroutine
17880
17881 module subroutine show_D1_BVLK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17883 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BVLK
17884#endif
17885 use pm_kind, only: SKG => SK
17886 use pm_container, only: cvl_type
17887 class(display_type) , intent(inout) :: self
17888 type(cvl_type) , intent(in) __CONTIGUOUS :: object(:)
17889 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17890 character(*, SK) , intent(in) , optional :: format, advance
17891 logical(LK) , intent(in) , optional :: sticky
17892 character(*, SK) , intent(in) , optional :: deliml, delimr
17893 end subroutine
17894
17895 module subroutine show_D1_BVCK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17896#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17897 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BVCK
17898#endif
17899 use pm_kind, only: SKG => SK
17900 use pm_container, only: cvc_type
17901 class(display_type) , intent(inout) :: self
17902 type(cvc_type) , intent(in) __CONTIGUOUS :: object(:)
17903 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17904 character(*, SK) , intent(in) , optional :: format, advance
17905 logical(LK) , intent(in) , optional :: sticky
17906 character(*, SK) , intent(in) , optional :: deliml, delimr
17907 end subroutine
17908
17909 module subroutine show_D1_BVRK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17911 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BVRK
17912#endif
17913 use pm_kind, only: SKG => SK
17914 use pm_container, only: cvr_type
17915 class(display_type) , intent(inout) :: self
17916 type(cvr_type) , intent(in) __CONTIGUOUS :: object(:)
17917 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17918 character(*, SK) , intent(in) , optional :: format, advance
17919 logical(LK) , intent(in) , optional :: sticky
17920 character(*, SK) , intent(in) , optional :: deliml, delimr
17921 end subroutine
17922
17923 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17924
17925 module subroutine show_D2_BVSK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17926#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17927 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_BVSK
17928#endif
17929 use pm_kind, only: SKG => SK
17930 use pm_container, only: cvs_type
17931 class(display_type) , intent(inout) :: self
17932 type(cvs_type) , intent(in) __CONTIGUOUS :: object(:,:)
17933 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17934 character(*, SK) , intent(in) , optional :: format, advance
17935 logical(LK) , intent(in) , optional :: sticky
17936 character(*, SK) , intent(in) , optional :: deliml, delimr
17937 end subroutine
17938
17939 module subroutine show_D2_BVIK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17941 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_BVIK
17942#endif
17943 use pm_kind, only: SKG => SK
17944 use pm_container, only: cvi_type
17945 class(display_type) , intent(inout) :: self
17946 type(cvi_type) , intent(in) __CONTIGUOUS :: object(:,:)
17947 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17948 character(*, SK) , intent(in) , optional :: format, advance
17949 logical(LK) , intent(in) , optional :: sticky
17950 character(*, SK) , intent(in) , optional :: deliml, delimr
17951 end subroutine
17952
17953 module subroutine show_D2_BVLK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17955 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_BVLK
17956#endif
17957 use pm_kind, only: SKG => SK
17958 use pm_container, only: cvl_type
17959 class(display_type) , intent(inout) :: self
17960 type(cvl_type) , intent(in) __CONTIGUOUS :: object(:,:)
17961 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17962 character(*, SK) , intent(in) , optional :: format, advance
17963 logical(LK) , intent(in) , optional :: sticky
17964 character(*, SK) , intent(in) , optional :: deliml, delimr
17965 end subroutine
17966
17967 module subroutine show_D2_BVCK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17969 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_BVCK
17970#endif
17971 use pm_kind, only: SKG => SK
17972 use pm_container, only: cvc_type
17973 class(display_type) , intent(inout) :: self
17974 type(cvc_type) , intent(in) __CONTIGUOUS :: object(:,:)
17975 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17976 character(*, SK) , intent(in) , optional :: format, advance
17977 logical(LK) , intent(in) , optional :: sticky
17978 character(*, SK) , intent(in) , optional :: deliml, delimr
17979 end subroutine
17980
17981 module subroutine show_D2_BVRK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17983 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_BVRK
17984#endif
17985 use pm_kind, only: SKG => SK
17986 use pm_container, only: cvr_type
17987 class(display_type) , intent(inout) :: self
17988 type(cvr_type) , intent(in) __CONTIGUOUS :: object(:,:)
17989 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
17990 character(*, SK) , intent(in) , optional :: format, advance
17991 logical(LK) , intent(in) , optional :: sticky
17992 character(*, SK) , intent(in) , optional :: deliml, delimr
17993 end subroutine
17994
17995 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17996
17997 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17998 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17999 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18000
18001 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18002
18003 module subroutine show_D0_BMSK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18004#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18005 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BMSK
18006#endif
18007 use pm_kind, only: SKG => SK
18008 use pm_container, only: cms_type
18009 class(display_type) , intent(inout) :: self
18010 type(cms_type) , intent(in) :: object
18011 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
18012 character(*, SK) , intent(in) , optional :: format, advance
18013 logical(LK) , intent(in) , optional :: sticky
18014 character(*, SK) , intent(in) , optional :: deliml, delimr
18015 end subroutine
18016
18017 module subroutine show_D0_BMIK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18018#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18019 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BMIK
18020#endif
18021 use pm_kind, only: SKG => SK
18022 use pm_container, only: cmi_type
18023 class(display_type) , intent(inout) :: self
18024 type(cmi_type) , intent(in) :: object
18025 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
18026 character(*, SK) , intent(in) , optional :: format, advance
18027 logical(LK) , intent(in) , optional :: sticky
18028 character(*, SK) , intent(in) , optional :: deliml, delimr
18029 end subroutine
18030
18031 module subroutine show_D0_BMLK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18032#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18033 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BMLK
18034#endif
18035 use pm_kind, only: SKG => SK
18036 use pm_container, only: cml_type
18037 class(display_type) , intent(inout) :: self
18038 type(cml_type) , intent(in) :: object
18039 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
18040 character(*, SK) , intent(in) , optional :: format, advance
18041 logical(LK) , intent(in) , optional :: sticky
18042 character(*, SK) , intent(in) , optional :: deliml, delimr
18043 end subroutine
18044
18045 module subroutine show_D0_BMCK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18046#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18047 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BMCK
18048#endif
18049 use pm_kind, only: SKG => SK
18050 use pm_container, only: cmc_type
18051 class(display_type) , intent(inout) :: self
18052 type(cmc_type) , intent(in) :: object
18053 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
18054 character(*, SK) , intent(in) , optional :: format, advance
18055 logical(LK) , intent(in) , optional :: sticky
18056 character(*, SK) , intent(in) , optional :: deliml, delimr
18057 end subroutine
18058
18059 module subroutine show_D0_BMRK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18060#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18061 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BMRK
18062#endif
18063 use pm_kind, only: SKG => SK
18064 use pm_container, only: cmr_type
18065 class(display_type) , intent(inout) :: self
18066 type(cmr_type) , intent(in) :: object
18067 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
18068 character(*, SK) , intent(in) , optional :: format, advance
18069 logical(LK) , intent(in) , optional :: sticky
18070 character(*, SK) , intent(in) , optional :: deliml, delimr
18071 end subroutine
18072
18073 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18074
18075 module subroutine show_D1_BMSK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18077 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BMSK
18078#endif
18079 use pm_kind, only: SKG => SK
18080 use pm_container, only: cms_type
18081 class(display_type) , intent(inout) :: self
18082 type(cms_type) , intent(in) __CONTIGUOUS :: object(:)
18083 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
18084 character(*, SK) , intent(in) , optional :: format, advance
18085 logical(LK) , intent(in) , optional :: sticky
18086 character(*, SK) , intent(in) , optional :: deliml, delimr
18087 end subroutine
18088
18089 module subroutine show_D1_BMIK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18090#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18091 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BMIK
18092#endif
18093 use pm_kind, only: SKG => SK
18094 use pm_container, only: cmi_type
18095 class(display_type) , intent(inout) :: self
18096 type(cmi_type) , intent(in) __CONTIGUOUS :: object(:)
18097 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
18098 character(*, SK) , intent(in) , optional :: format, advance
18099 logical(LK) , intent(in) , optional :: sticky
18100 character(*, SK) , intent(in) , optional :: deliml, delimr
18101 end subroutine
18102
18103 module subroutine show_D1_BMLK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18105 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BMLK
18106#endif
18107 use pm_kind, only: SKG => SK
18108 use pm_container, only: cml_type
18109 class(display_type) , intent(inout) :: self
18110 type(cml_type) , intent(in) __CONTIGUOUS :: object(:)
18111 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
18112 character(*, SK) , intent(in) , optional :: format, advance
18113 logical(LK) , intent(in) , optional :: sticky
18114 character(*, SK) , intent(in) , optional :: deliml, delimr
18115 end subroutine
18116
18117 module subroutine show_D1_BMCK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18118#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18119 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BMCK
18120#endif
18121 use pm_kind, only: SKG => SK
18122 use pm_container, only: cmc_type
18123 class(display_type) , intent(inout) :: self
18124 type(cmc_type) , intent(in) __CONTIGUOUS :: object(:)
18125 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
18126 character(*, SK) , intent(in) , optional :: format, advance
18127 logical(LK) , intent(in) , optional :: sticky
18128 character(*, SK) , intent(in) , optional :: deliml, delimr
18129 end subroutine
18130
18131 module subroutine show_D1_BMRK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18133 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BMRK
18134#endif
18135 use pm_kind, only: SKG => SK
18136 use pm_container, only: cmr_type
18137 class(display_type) , intent(inout) :: self
18138 type(cmr_type) , intent(in) __CONTIGUOUS :: object(:)
18139 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
18140 character(*, SK) , intent(in) , optional :: format, advance
18141 logical(LK) , intent(in) , optional :: sticky
18142 character(*, SK) , intent(in) , optional :: deliml, delimr
18143 end subroutine
18144
18145 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18146
18147 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18148 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18149 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18150
18151 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18152
18153 module subroutine show_D0_BCSK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18154#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18155 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BCSK
18156#endif
18157 use pm_kind, only: SKG => SK
18158 use pm_container, only: ccs_type
18159 class(display_type) , intent(inout) :: self
18160 type(ccs_type) , intent(in) :: object
18161 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
18162 character(*, SK) , intent(in) , optional :: format, advance
18163 logical(LK) , intent(in) , optional :: sticky
18164 character(*, SK) , intent(in) , optional :: deliml, delimr
18165 end subroutine
18166
18167 module subroutine show_D0_BCIK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18168#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18169 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BCIK
18170#endif
18171 use pm_kind, only: SKG => SK
18172 use pm_container, only: cci_type
18173 class(display_type) , intent(inout) :: self
18174 type(cci_type) , intent(in) :: object
18175 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
18176 character(*, SK) , intent(in) , optional :: format, advance
18177 logical(LK) , intent(in) , optional :: sticky
18178 character(*, SK) , intent(in) , optional :: deliml, delimr
18179 end subroutine
18180
18181 module subroutine show_D0_BCLK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18183 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BCLK
18184#endif
18185 use pm_kind, only: SKG => SK
18186 use pm_container, only: ccl_type
18187 class(display_type) , intent(inout) :: self
18188 type(ccl_type) , intent(in) :: object
18189 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
18190 character(*, SK) , intent(in) , optional :: format, advance
18191 logical(LK) , intent(in) , optional :: sticky
18192 character(*, SK) , intent(in) , optional :: deliml, delimr
18193 end subroutine
18194
18195 module subroutine show_D0_BCCK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18196#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18197 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BCCK
18198#endif
18199 use pm_kind, only: SKG => SK
18200 use pm_container, only: ccc_type
18201 class(display_type) , intent(inout) :: self
18202 type(ccc_type) , intent(in) :: object
18203 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
18204 character(*, SK) , intent(in) , optional :: format, advance
18205 logical(LK) , intent(in) , optional :: sticky
18206 character(*, SK) , intent(in) , optional :: deliml, delimr
18207 end subroutine
18208
18209 module subroutine show_D0_BCRK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18211 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BCRK
18212#endif
18213 use pm_kind, only: SKG => SK
18214 use pm_container, only: ccr_type
18215 class(display_type) , intent(inout) :: self
18216 type(ccr_type) , intent(in) :: object
18217 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
18218 character(*, SK) , intent(in) , optional :: format, advance
18219 logical(LK) , intent(in) , optional :: sticky
18220 character(*, SK) , intent(in) , optional :: deliml, delimr
18221 end subroutine
18222
18223 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18224
18225 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18226 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18227 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18228
18229 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18230 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18231 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18232
18233 end interface
18234
18235!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18236
18238 interface dump
18239
18240 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18241
18242 module subroutine dump_D0(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18244 !DEC$ ATTRIBUTES DLLEXPORT :: dump_D0
18245#endif
18246 use pm_kind, only: SKG => SK
18247 class(display_type) , intent(inout) :: self
18248 class(*) , intent(in) :: object
18249 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
18250 character(*, SK) , intent(in) , optional :: format, advance
18251 logical(LK) , intent(in) , optional :: sticky
18252 character(*, SK) , intent(in) , optional :: deliml, delimr
18253 end subroutine
18254
18255 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18256
18257 module subroutine dump_D1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18259 !DEC$ ATTRIBUTES DLLEXPORT :: dump_D1
18260#endif
18261 use pm_kind, only: SKG => SK
18262 class(display_type) , intent(inout) :: self
18263 class(*) , intent(in) __CONTIGUOUS :: object(:)
18264 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
18265 character(*, SK) , intent(in) , optional :: format, advance
18266 logical(LK) , intent(in) , optional :: sticky
18267 character(*, SK) , intent(in) , optional :: deliml, delimr
18268 end subroutine
18269
18270 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18271
18272 module subroutine dump_D2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18273#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18274 !DEC$ ATTRIBUTES DLLEXPORT :: dump_D2
18275#endif
18276 use pm_kind, only: SKG => SK
18277 class(display_type) , intent(inout) :: self
18278 class(*) , intent(in) __CONTIGUOUS :: object(:,:)
18279 integer(IK) , intent(in) , optional :: tmsize, bmsize, count, unit
18280 character(*, SK) , intent(in) , optional :: format, advance
18281 logical(LK) , intent(in) , optional :: sticky
18282 character(*, SK) , intent(in) , optional :: deliml, delimr
18283 end subroutine
18284
18285 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18286
18287 end interface
18289
18290!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18291
18485 interface getFormat
18486
18487 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18488
18489 PURE module function getFormat_D0_Def(prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed) result(format)
18490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18491 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D0_Def
18492#endif
18493 character(*, SK) , intent(in) , optional :: prefix, ed, sep, deliml, subsep, delimr
18494 integer(IK) , intent(in) , optional :: count, subcount, width, ndigit, lenexp
18495 logical(LK) , intent(in) , optional :: signed
18496 character(:, SK) , allocatable :: format
18497 end function
18498
18499 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18500
18501#if SK5_ENABLED
18502 PURE module function getFormat_D1_SK5(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed) result(format)
18503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18504 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_SK5
18505#endif
18506 use pm_kind, only: SKG => SK5
18507 character(*,SKG) , intent(in) :: mold(:)
18508 character(*, SK) , intent(in) , optional :: prefix, ed, sep, deliml, subsep, delimr
18509 integer(IK) , intent(in) , optional :: count, subcount, width, ndigit, lenexp
18510 logical(LK) , intent(in) , optional :: signed
18511 character(:, SK) , allocatable :: format
18512 end function
18513#endif
18514
18515#if SK4_ENABLED
18516 PURE module function getFormat_D1_SK4(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed) result(format)
18517#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18518 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_SK4
18519#endif
18520 use pm_kind, only: SKG => SK4
18521 character(*,SKG) , intent(in) :: mold(:)
18522 character(*, SK) , intent(in) , optional :: prefix, ed, sep, deliml, subsep, delimr
18523 integer(IK) , intent(in) , optional :: count, subcount, width, ndigit, lenexp
18524 logical(LK) , intent(in) , optional :: signed
18525 character(:, SK) , allocatable :: format
18526 end function
18527#endif
18528
18529#if SK3_ENABLED
18530 PURE module function getFormat_D1_SK3(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed) result(format)
18531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18532 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_SK3
18533#endif
18534 use pm_kind, only: SKG => SK3
18535 character(*,SKG) , intent(in) :: mold(:)
18536 character(*, SK) , intent(in) , optional :: prefix, ed, sep, deliml, subsep, delimr
18537 integer(IK) , intent(in) , optional :: count, subcount, width, ndigit, lenexp
18538 logical(LK) , intent(in) , optional :: signed
18539 character(:, SK) , allocatable :: format
18540 end function
18541#endif
18542
18543#if SK2_ENABLED
18544 PURE module function getFormat_D1_SK2(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed) result(format)
18545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18546 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_SK2
18547#endif
18548 use pm_kind, only: SKG => SK2
18549 character(*,SKG) , intent(in) :: mold(:)
18550 character(*, SK) , intent(in) , optional :: prefix, ed, sep, deliml, subsep, delimr
18551 integer(IK) , intent(in) , optional :: count, subcount, width, ndigit, lenexp
18552 logical(LK) , intent(in) , optional :: signed
18553 character(:, SK) , allocatable :: format
18554 end function
18555#endif
18556
18557#if SK1_ENABLED
18558 PURE module function getFormat_D1_SK1(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed) result(format)
18559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18560 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_SK1
18561#endif
18562 use pm_kind, only: SKG => SK1
18563 character(*,SKG) , intent(in) :: mold(:)
18564 character(*, SK) , intent(in) , optional :: prefix, ed, sep, deliml, subsep, delimr
18565 integer(IK) , intent(in) , optional :: count, subcount, width, ndigit, lenexp
18566 logical(LK) , intent(in) , optional :: signed
18567 character(:, SK) , allocatable :: format
18568 end function
18569#endif
18570
18571 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18572
18573#if IK5_ENABLED
18574 PURE module function getFormat_D1_IK5(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed) result(format)
18575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18576 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_IK5
18577#endif
18578 use pm_kind, only: IKG => IK5
18579 integer(IKG) , intent(in) :: mold(:)
18580 character(*, SK) , intent(in) , optional :: prefix, ed, sep, deliml, subsep, delimr
18581 integer(IK) , intent(in) , optional :: count, subcount, width, ndigit, lenexp
18582 logical(LK) , intent(in) , optional :: signed
18583 character(:, SK) , allocatable :: format
18584 end function
18585#endif
18586
18587#if IK4_ENABLED
18588 PURE module function getFormat_D1_IK4(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed) result(format)
18589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18590 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_IK4
18591#endif
18592 use pm_kind, only: IKG => IK4
18593 integer(IKG) , intent(in) :: mold(:)
18594 character(*, SK) , intent(in) , optional :: prefix, ed, sep, deliml, subsep, delimr
18595 integer(IK) , intent(in) , optional :: count, subcount, width, ndigit, lenexp
18596 logical(LK) , intent(in) , optional :: signed
18597 character(:, SK) , allocatable :: format
18598 end function
18599#endif
18600
18601#if IK3_ENABLED
18602 PURE module function getFormat_D1_IK3(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed) result(format)
18603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18604 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_IK3
18605#endif
18606 use pm_kind, only: IKG => IK3
18607 integer(IKG) , intent(in) :: mold(:)
18608 character(*, SK) , intent(in) , optional :: prefix, ed, sep, deliml, subsep, delimr
18609 integer(IK) , intent(in) , optional :: count, subcount, width, ndigit, lenexp
18610 logical(LK) , intent(in) , optional :: signed
18611 character(:, SK) , allocatable :: format
18612 end function
18613#endif
18614
18615#if IK2_ENABLED
18616 PURE module function getFormat_D1_IK2(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed) result(format)
18617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18618 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_IK2
18619#endif
18620 use pm_kind, only: IKG => IK2
18621 integer(IKG) , intent(in) :: mold(:)
18622 character(*, SK) , intent(in) , optional :: prefix, ed, sep, deliml, subsep, delimr
18623 integer(IK) , intent(in) , optional :: count, subcount, width, ndigit, lenexp
18624 logical(LK) , intent(in) , optional :: signed
18625 character(:, SK) , allocatable :: format
18626 end function
18627#endif
18628
18629#if IK1_ENABLED
18630 PURE module function getFormat_D1_IK1(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed) result(format)
18631#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18632 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_IK1
18633#endif
18634 use pm_kind, only: IKG => IK1
18635 integer(IKG) , intent(in) :: mold(:)
18636 character(*, SK) , intent(in) , optional :: prefix, ed, sep, deliml, subsep, delimr
18637 integer(IK) , intent(in) , optional :: count, subcount, width, ndigit, lenexp
18638 logical(LK) , intent(in) , optional :: signed
18639 character(:, SK) , allocatable :: format
18640 end function
18641#endif
18642
18643 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18644
18645#if LK5_ENABLED
18646 PURE module function getFormat_D1_LK5(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed) result(format)
18647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18648 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_LK5
18649#endif
18650 use pm_kind, only: LKG => LK5
18651 logical(LKG) , intent(in) :: mold(:)
18652 character(*, SK) , intent(in) , optional :: prefix, ed, sep, deliml, subsep, delimr
18653 integer(IK) , intent(in) , optional :: count, subcount, width, ndigit, lenexp
18654 logical(LK) , intent(in) , optional :: signed
18655 character(:, SK) , allocatable :: format
18656 end function
18657#endif
18658
18659#if LK4_ENABLED
18660 PURE module function getFormat_D1_LK4(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed) result(format)
18661#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18662 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_LK4
18663#endif
18664 use pm_kind, only: LKG => LK4
18665 logical(LKG) , intent(in) :: mold(:)
18666 character(*, SK) , intent(in) , optional :: prefix, ed, sep, deliml, subsep, delimr
18667 integer(IK) , intent(in) , optional :: count, subcount, width, ndigit, lenexp
18668 logical(LK) , intent(in) , optional :: signed
18669 character(:, SK) , allocatable :: format
18670 end function
18671#endif
18672
18673#if LK3_ENABLED
18674 PURE module function getFormat_D1_LK3(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed) result(format)
18675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18676 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_LK3
18677#endif
18678 use pm_kind, only: LKG => LK3
18679 logical(LKG) , intent(in) :: mold(:)
18680 character(*, SK) , intent(in) , optional :: prefix, ed, sep, deliml, subsep, delimr
18681 integer(IK) , intent(in) , optional :: count, subcount, width, ndigit, lenexp
18682 logical(LK) , intent(in) , optional :: signed
18683 character(:, SK) , allocatable :: format
18684 end function
18685#endif
18686
18687#if LK2_ENABLED
18688 PURE module function getFormat_D1_LK2(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed) result(format)
18689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18690 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_LK2
18691#endif
18692 use pm_kind, only: LKG => LK2
18693 logical(LKG) , intent(in) :: mold(:)
18694 character(*, SK) , intent(in) , optional :: prefix, ed, sep, deliml, subsep, delimr
18695 integer(IK) , intent(in) , optional :: count, subcount, width, ndigit, lenexp
18696 logical(LK) , intent(in) , optional :: signed
18697 character(:, SK) , allocatable :: format
18698 end function
18699#endif
18700
18701#if LK1_ENABLED
18702 PURE module function getFormat_D1_LK1(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed) result(format)
18703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18704 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_LK1
18705#endif
18706 use pm_kind, only: LKG => LK1
18707 logical(LKG) , intent(in) :: mold(:)
18708 character(*, SK) , intent(in) , optional :: prefix, ed, sep, deliml, subsep, delimr
18709 integer(IK) , intent(in) , optional :: count, subcount, width, ndigit, lenexp
18710 logical(LK) , intent(in) , optional :: signed
18711 character(:, SK) , allocatable :: format
18712 end function
18713#endif
18714
18715 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18716
18717#if CK5_ENABLED
18718 PURE module function getFormat_D1_CK5(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed) result(format)
18719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18720 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_CK5
18721#endif
18722 use pm_kind, only: CKG => CK5
18723 complex(CKG) , intent(in) :: mold(:)
18724 character(*, SK) , intent(in) , optional :: prefix, ed, sep, deliml, subsep, delimr
18725 integer(IK) , intent(in) , optional :: count, subcount, width, ndigit, lenexp
18726 logical(LK) , intent(in) , optional :: signed
18727 character(:, SK) , allocatable :: format
18728 end function
18729#endif
18730
18731#if CK4_ENABLED
18732 PURE module function getFormat_D1_CK4(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed) result(format)
18733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18734 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_CK4
18735#endif
18736 use pm_kind, only: CKG => CK4
18737 complex(CKG) , intent(in) :: mold(:)
18738 character(*, SK) , intent(in) , optional :: prefix, ed, sep, deliml, subsep, delimr
18739 integer(IK) , intent(in) , optional :: count, subcount, width, ndigit, lenexp
18740 logical(LK) , intent(in) , optional :: signed
18741 character(:, SK) , allocatable :: format
18742 end function
18743#endif
18744
18745#if CK3_ENABLED
18746 PURE module function getFormat_D1_CK3(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed) result(format)
18747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18748 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_CK3
18749#endif
18750 use pm_kind, only: CKG => CK3
18751 complex(CKG) , intent(in) :: mold(:)
18752 character(*, SK) , intent(in) , optional :: prefix, ed, sep, deliml, subsep, delimr
18753 integer(IK) , intent(in) , optional :: count, subcount, width, ndigit, lenexp
18754 logical(LK) , intent(in) , optional :: signed
18755 character(:, SK) , allocatable :: format
18756 end function
18757#endif
18758
18759#if CK2_ENABLED
18760 PURE module function getFormat_D1_CK2(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed) result(format)
18761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18762 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_CK2
18763#endif
18764 use pm_kind, only: CKG => CK2
18765 complex(CKG) , intent(in) :: mold(:)
18766 character(*, SK) , intent(in) , optional :: prefix, ed, sep, deliml, subsep, delimr
18767 integer(IK) , intent(in) , optional :: count, subcount, width, ndigit, lenexp
18768 logical(LK) , intent(in) , optional :: signed
18769 character(:, SK) , allocatable :: format
18770 end function
18771#endif
18772
18773#if CK1_ENABLED
18774 PURE module function getFormat_D1_CK1(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed) result(format)
18775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18776 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_CK1
18777#endif
18778 use pm_kind, only: CKG => CK1
18779 complex(CKG) , intent(in) :: mold(:)
18780 character(*, SK) , intent(in) , optional :: prefix, ed, sep, deliml, subsep, delimr
18781 integer(IK) , intent(in) , optional :: count, subcount, width, ndigit, lenexp
18782 logical(LK) , intent(in) , optional :: signed
18783 character(:, SK) , allocatable :: format
18784 end function
18785#endif
18786
18787 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18788
18789#if RK5_ENABLED
18790 PURE module function getFormat_D1_RK5(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed) result(format)
18791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18792 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_RK5
18793#endif
18794 use pm_kind, only: RKG => RK5
18795 real(RKG) , intent(in) :: mold(:)
18796 character(*, SK) , intent(in) , optional :: prefix, ed, sep, deliml, subsep, delimr
18797 integer(IK) , intent(in) , optional :: count, subcount, width, ndigit, lenexp
18798 logical(LK) , intent(in) , optional :: signed
18799 character(:, SK) , allocatable :: format
18800 end function
18801#endif
18802
18803#if RK4_ENABLED
18804 PURE module function getFormat_D1_RK4(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed) result(format)
18805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18806 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_RK4
18807#endif
18808 use pm_kind, only: RKG => RK4
18809 real(RKG) , intent(in) :: mold(:)
18810 character(*, SK) , intent(in) , optional :: prefix, ed, sep, deliml, subsep, delimr
18811 integer(IK) , intent(in) , optional :: count, subcount, width, ndigit, lenexp
18812 logical(LK) , intent(in) , optional :: signed
18813 character(:, SK) , allocatable :: format
18814 end function
18815#endif
18816
18817#if RK3_ENABLED
18818 PURE module function getFormat_D1_RK3(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed) result(format)
18819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18820 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_RK3
18821#endif
18822 use pm_kind, only: RKG => RK3
18823 real(RKG) , intent(in) :: mold(:)
18824 character(*, SK) , intent(in) , optional :: prefix, ed, sep, deliml, subsep, delimr
18825 integer(IK) , intent(in) , optional :: count, subcount, width, ndigit, lenexp
18826 logical(LK) , intent(in) , optional :: signed
18827 character(:, SK) , allocatable :: format
18828 end function
18829#endif
18830
18831#if RK2_ENABLED
18832 PURE module function getFormat_D1_RK2(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed) result(format)
18833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18834 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_RK2
18835#endif
18836 use pm_kind, only: RKG => RK2
18837 real(RKG) , intent(in) :: mold(:)
18838 character(*, SK) , intent(in) , optional :: prefix, ed, sep, deliml, subsep, delimr
18839 integer(IK) , intent(in) , optional :: count, subcount, width, ndigit, lenexp
18840 logical(LK) , intent(in) , optional :: signed
18841 character(:, SK) , allocatable :: format
18842 end function
18843#endif
18844
18845#if RK1_ENABLED
18846 PURE module function getFormat_D1_RK1(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed) result(format)
18847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18848 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_RK1
18849#endif
18850 use pm_kind, only: RKG => RK1
18851 real(RKG) , intent(in) :: mold(:)
18852 character(*, SK) , intent(in) , optional :: prefix, ed, sep, deliml, subsep, delimr
18853 integer(IK) , intent(in) , optional :: count, subcount, width, ndigit, lenexp
18854 logical(LK) , intent(in) , optional :: signed
18855 character(:, SK) , allocatable :: format
18856 end function
18857#endif
18858
18859 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18860
18861 end interface
18862
18863!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18864
18865! !> \brief
18866! !> Generate and return the minimum required IO field width for a single value of the same type and kind as the input `mold`,
18867! !> such that IO with the output field length does not overflow.
18868! !>
18869! !> \details
18870! !> The primary usage of the procedures of this generic interface is
18871! !> to use the output of these procedures as the `width` argument of
18872! !> [getFormat](@ref pm_io::getFormat).<br>
18873! !>
18874! !> \param[in] mold : The input scalar of
18875! !> <ul>
18876! !> <li> type `integer` of kind \IKALL,
18877! !> <li> type `complex` of kind \CKALL,
18878! !> <li> type `real` of kind \RKALL,
18879! !> </ul>
18880! !> whose kind type parameter is used to infer the minimum IO field length required without the possibility of overflow.
18881! !>
18882! !> \return
18883! !> `lenField` : The output scalar of type `integer` of default kind \IK containing the minimum IO field length.
18884! !>
18885! !> \interface{getLenFieldMin}
18886! !> \code{.F90}
18887! !>
18888! !> use pm_kind, only: IK
18889! !> use pm_io, only: getLenFieldMin
18890! !> integer(IK) :: lenField
18891! !>
18892! !> lenField = getLenFieldMin(mold)
18893! !>
18894! !> \endcode
18895! !>
18896! !> \note
18897! !> For `complex` values, the output `lenField` is the minimum required
18898! !> field length for **each (real or imaginary) component** of the complex value.<br>
18899! !>
18900! !> \pure
18901! !>
18902! !> \elemental
18903! !>
18904! !> \see
18905! !> [display_type](@ref pm_io::display_type)<br>
18906! !> [getFormat](@ref pm_io::getFormat)<br>
18907! !> [getFormat](@ref pm_io::getFormat)<br>
18908! !>
18909! !> \example{getLenFieldMin}
18910! !> \include{lineno} example/pm_io/getLenFieldMin/main.F90
18911! !> \compilef{getLenFieldMin}
18912! !> \output{getLenFieldMin}
18913! !> \include{lineno} example/pm_io/getLenFieldMin/main.out.F90
18914! !>
18915! !> \test
18916! !> [test_pm_io](@ref test_pm_io)
18917! !>
18918! !> \bug
18919! !> \status \unresolved
18920! !> \source \ifort{2021.8.0 20221119}
18921! !> \desc
18922! !> The \ifort{2021.8.0 20221119} cannot run the following function call within the implementation of the procedures,
18923! !> \code{.F90}
18924! !> getCountDigit(range(mold))
18925! !> \endcode
18926! !> yielding the following error,<br>
18927! !> \code{.sh}
18928! !> forrtl: severe (174): SIGSEGV, segmentation fault occurred
18929! !> image PC Routine Line Source
18930! !> libpthread-2.33.s 00001550E3A9C1F0 Unknown Unknown Unknown
18931! !> libparamonte_fort 00001550E810D8B4 pm_mathnumsys_MP_ 137 pm_mathNumSys@routines.inc.F90
18932! !> libparamonte_fort 00001550E764778D pm_io_MP_get 83 pm_io@routines.inc.F90
18933! !> main.exe 000000000040CBE9 MAIN__ 83 main.F90
18934! !> main.exe 000000000040938D Unknown Unknown Unknown
18935! !> libc-2.33.so 00001550E38BD565 __libc_start_main Unknown Unknown
18936! !> main.exe 00000000004092AE Unknown Unknown Unknown
18937! !> \endcode
18938! !> \remedy
18939! !> For now, `range(mold)` is saved in a variable and then passed to the function `getCountDigit()`.<br>
18940! !>
18941! !> \todo
18942! !> \pmed
18943! !> A new interface for computing the maximum field length without redundant blanks for a specific given input **value** or collection of values should be added.<br>
18944! !>
18945! !> \final{getLenFieldMin}
18946! !>
18947! !> \author
18948! !> \AmirShahmoradi, Oct 16, 2009, 2:47 AM, Michigan
18949! interface getLenFieldMin
18950!
18951! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18952! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18953! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18954!
18955! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18956!
18957!
18958!#if IK5_ENABLED
18959! pure elemental module function getLenFieldMin_D0_IK5(mold) result(lenField)
18960!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18961! !DEC$ ATTRIBUTES DLLEXPORT :: getLenFieldMin_D0_IK5
18962!#endif
18963! use pm_kind, only: IKG => IK5
18964! integer(IKG) , intent(in) :: mold
18965! integer(IK) :: lenField
18966! end function
18967!#endif
18968!
18969!#if IK4_ENABLED
18970! pure elemental module function getLenFieldMin_D0_IK4(mold) result(lenField)
18971!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18972! !DEC$ ATTRIBUTES DLLEXPORT :: getLenFieldMin_D0_IK4
18973!#endif
18974! use pm_kind, only: IKG => IK4
18975! integer(IKG) , intent(in) :: mold
18976! integer(IK) :: lenField
18977! end function
18978!#endif
18979!
18980!#if IK3_ENABLED
18981! pure elemental module function getLenFieldMin_D0_IK3(mold) result(lenField)
18982!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18983! !DEC$ ATTRIBUTES DLLEXPORT :: getLenFieldMin_D0_IK3
18984!#endif
18985! use pm_kind, only: IKG => IK3
18986! integer(IKG) , intent(in) :: mold
18987! integer(IK) :: lenField
18988! end function
18989!#endif
18990!
18991!#if IK2_ENABLED
18992! pure elemental module function getLenFieldMin_D0_IK2(mold) result(lenField)
18993!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18994! !DEC$ ATTRIBUTES DLLEXPORT :: getLenFieldMin_D0_IK2
18995!#endif
18996! use pm_kind, only: IKG => IK2
18997! integer(IKG) , intent(in) :: mold
18998! integer(IK) :: lenField
18999! end function
19000!#endif
19001!
19002!#if IK1_ENABLED
19003! pure elemental module function getLenFieldMin_D0_IK1(mold) result(lenField)
19004!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19005! !DEC$ ATTRIBUTES DLLEXPORT :: getLenFieldMin_D0_IK1
19006!#endif
19007! use pm_kind, only: IKG => IK1
19008! integer(IKG) , intent(in) :: mold
19009! integer(IK) :: lenField
19010! end function
19011!#endif
19012!
19013! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19014!
19015!#if CK5_ENABLED
19016! pure elemental module function getLenFieldMin_D0_CK5(mold) result(lenField)
19017!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19018! !DEC$ ATTRIBUTES DLLEXPORT :: getLenFieldMin_D0_CK5
19019!#endif
19020! use pm_kind, only: CKG => CK5
19021! complex(CKG) , intent(in) :: mold
19022! integer(IK) :: lenField
19023! end function
19024!#endif
19025!
19026!#if CK4_ENABLED
19027! pure elemental module function getLenFieldMin_D0_CK4(mold) result(lenField)
19028!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19029! !DEC$ ATTRIBUTES DLLEXPORT :: getLenFieldMin_D0_CK4
19030!#endif
19031! use pm_kind, only: CKG => CK4
19032! complex(CKG) , intent(in) :: mold
19033! integer(IK) :: lenField
19034! end function
19035!#endif
19036!
19037!#if CK3_ENABLED
19038! pure elemental module function getLenFieldMin_D0_CK3(mold) result(lenField)
19039!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19040! !DEC$ ATTRIBUTES DLLEXPORT :: getLenFieldMin_D0_CK3
19041!#endif
19042! use pm_kind, only: CKG => CK3
19043! complex(CKG) , intent(in) :: mold
19044! integer(IK) :: lenField
19045! end function
19046!#endif
19047!
19048!#if CK2_ENABLED
19049! pure elemental module function getLenFieldMin_D0_CK2(mold) result(lenField)
19050!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19051! !DEC$ ATTRIBUTES DLLEXPORT :: getLenFieldMin_D0_CK2
19052!#endif
19053! use pm_kind, only: CKG => CK2
19054! complex(CKG) , intent(in) :: mold
19055! integer(IK) :: lenField
19056! end function
19057!#endif
19058!
19059!#if CK1_ENABLED
19060! pure elemental module function getLenFieldMin_D0_CK1(mold) result(lenField)
19061!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19062! !DEC$ ATTRIBUTES DLLEXPORT :: getLenFieldMin_D0_CK1
19063!#endif
19064! use pm_kind, only: CKG => CK1
19065! complex(CKG) , intent(in) :: mold
19066! integer(IK) :: lenField
19067! end function
19068!#endif
19069!
19070! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19071!
19072!#if RK5_ENABLED
19073! pure elemental module function getLenFieldMin_D0_RK5(mold) result(lenField)
19074!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19075! !DEC$ ATTRIBUTES DLLEXPORT :: getLenFieldMin_D0_RK5
19076!#endif
19077! use pm_kind, only: RKG => RK5
19078! real(RKG) , intent(in) :: mold
19079! integer(IK) :: lenField
19080! end function
19081!#endif
19082!
19083!#if RK4_ENABLED
19084! pure elemental module function getLenFieldMin_D0_RK4(mold) result(lenField)
19085!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19086! !DEC$ ATTRIBUTES DLLEXPORT :: getLenFieldMin_D0_RK4
19087!#endif
19088! use pm_kind, only: RKG => RK4
19089! real(RKG) , intent(in) :: mold
19090! integer(IK) :: lenField
19091! end function
19092!#endif
19093!
19094!#if RK3_ENABLED
19095! pure elemental module function getLenFieldMin_D0_RK3(mold) result(lenField)
19096!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19097! !DEC$ ATTRIBUTES DLLEXPORT :: getLenFieldMin_D0_RK3
19098!#endif
19099! use pm_kind, only: RKG => RK3
19100! real(RKG) , intent(in) :: mold
19101! integer(IK) :: lenField
19102! end function
19103!#endif
19104!
19105!#if RK2_ENABLED
19106! pure elemental module function getLenFieldMin_D0_RK2(mold) result(lenField)
19107!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19108! !DEC$ ATTRIBUTES DLLEXPORT :: getLenFieldMin_D0_RK2
19109!#endif
19110! use pm_kind, only: RKG => RK2
19111! real(RKG) , intent(in) :: mold
19112! integer(IK) :: lenField
19113! end function
19114!#endif
19115!
19116!#if RK1_ENABLED
19117! pure elemental module function getLenFieldMin_D0_RK1(mold) result(lenField)
19118!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19119! !DEC$ ATTRIBUTES DLLEXPORT :: getLenFieldMin_D0_RK1
19120!#endif
19121! use pm_kind, only: RKG => RK1
19122! real(RKG) , intent(in) :: mold
19123! integer(IK) :: lenField
19124! end function
19125!#endif
19126!
19127! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19128!
19129! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19130! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19131! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19132!
19133! end interface
19134!
19135!!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19136
19137contains
19138
19139!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19140
19141! !> \brief
19142! !> Set the output optional arguments `iostat, iomsg` (if present) to their corresponding input values `stat, msg`,
19143! !> or if `iostat` is missing, call the `error stop msg` statement.
19144! !>
19145! !> \param[in] stat : The input scalar `integer` of default kind \IK.<br>
19146! !> A non-zero value implies the occurrence of an error.<br>
19147! !> Non-zero values are returned by all intrinsic Fortran IO statements (`open()`, `close()`, `inquire()`, `read()`, `write()`) if an IO error occurs.
19148! !> \param[in] msg : The input scalar `character` of default kind \SK representing the contents of the output argument `iomsg`.<br>
19149! !> If the output argument `iostat` is missing and `stat` is non-zero, then `msg` will be passed to the `error stop` statement.
19150! !> \param[out] iostat : The output scalar `integer` of default kind \IK that, if present, is set to the input `stat`.<br>
19151! !> (**optional**. If missing and `stat` is non-zero, then the program halts by calling `error stop msg`.)
19152! !> \param[inout] iomsg : The input/output scalar `character` of default kind \SK.<br>
19153! !> <ol>
19154! !> <li> If `iomsg` is present and `stat` is non-zero, it is set to the input `msg` on return.<br>
19155! !> <li> If `iomsg` is present and `stat` is zero, the input contents of `iomsg` will not change on return.<br>
19156! !> </ol>
19157! !> (**optional**. The presence of the output `iomsg` is relevant only if `iostat` is also present.)
19158! !>
19159! !> \interface{setStatIO}
19160! !> \code{.F90}
19161! !>
19162! !> use pm_io, only: setStatIO
19163! !>
19164! !> ioFailed = setStatIO(stat, msg, iostat = iostat, iomsg = iomsg)
19165! !>
19166! !> \endcode
19167! !>
19168! !> \note
19169! !> This procedure is primarily intended for handling of IO errors within the parent module ([pm_io](@ref pm_io)).
19170! !>
19171! !> \see
19172! !> [setFileClosed](@ref setFileClosed)<br>
19173! !> [getCountRecord](@ref getCountRecord)<br>
19174! !> [getCountRecordLeft](@ref getCountRecordLeft)<br>
19175! !> [setRecordFrom](@ref setRecordFrom)<br>
19176! !> [setContentsFrom](@ref setContentsFrom)
19177! !>
19178! !> \test
19179! !> [test_pm_io](@ref test_pm_io)
19180! !>
19181! !> \final{setStatIO}
19182! !>
19183! !> \author
19184! !> \AmirShahmoradi, Tuesday March 7, 2017, 2:22 AM, Institute for Computational Engineering and Sciences (ICES), The University of Texas Austin<br>
19185! pure subroutine setStatIO(stat, msg, iostat, iomsg)
19186!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19187! !DEC$ ATTRIBUTES DLLEXPORT :: setStatIO
19188!#endif
19189! integer(IK) , intent(in) :: stat
19190! character(*, SK), intent(in) :: msg
19191! integer(IK) , intent(out) , optional :: iostat
19192! character(*, SK), intent(inout) , optional :: iomsg
19193! if (present(iostat)) then
19194! iostat = stat
19195! if (present(iomsg)) iomsg = msg
19196! else
19197! if (stat /= 0_IK) error stop SK_"FATAL RUNTIME ERROR: " // trim(adjustl(msg))
19198! end if
19199! end subroutine
19200
19201!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19202
19203 pure function isValidAccess(value) result(isValid)
19204 character(*, SK) , intent(in) :: value
19205 logical(LK) :: isValid
19206 isValid = logical(value == SK_"sequential" .or. value == SK_"direct" .or. value == SK_"stream", LK)
19207 end function
19208
19209!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19210
19211 pure function isValidAction(value) result(isValid)
19212 character(*, SK) , intent(in) :: value
19213 logical(LK) :: isValid
19214 isValid = logical(value == SK_"readwrite" .or. value == SK_"read" .or. value == SK_"write", LK)
19215 end function
19216
19217!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19218
19219 pure function isValidAsynchronous(value) result(isValid)
19220 character(*, SK) , intent(in) :: value
19221 logical(LK) :: isValid
19222 isValid = logical(value == SK_"no" .or. value == SK_"yes", LK)
19223 end function
19224
19225!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19226
19227 pure function isValidBlank(value) result(isValid)
19228 character(*, SK) , intent(in) :: value
19229 logical(LK) :: isValid
19230 isValid = logical(value == SK_"null" .or. value == SK_"zero", LK)
19231 end function
19232
19233!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19234
19235 pure function isValidDecimal(value) result(isValid)
19236 character(*, SK) , intent(in) :: value
19237 logical(LK) :: isValid
19238 isValid = logical(value == SK_"point" .or. value == SK_"comma", LK)
19239 end function
19240
19241!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19242
19243 pure function isValidDelim(value) result(isValid)
19244 character(*, SK) , intent(in) :: value
19245 logical(LK) :: isValid
19246 isValid = logical(value == SK_"none" .or. value == SK_"apostrophe" .or. value == SK_"quote", LK)
19247 end function
19248
19249!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19250
19251 pure function isValidEncoding(value) result(isValid)
19252 character(*, SK) , intent(in) :: value
19253 logical(LK) :: isValid
19254 isValid = logical(value == SK_"default" .or. value == SK_"utf-8", LK)
19255 end function
19256
19257!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19258
19259 pure function isValidForm(value) result(isValid)
19260 character(*, SK) , intent(in) :: value
19261 logical(LK) :: isValid
19262 isValid = logical(value == SK_"formatted" .or. value == SK_"unformatted", LK)
19263 end function
19264
19265!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19266
19267 pure function isValidPad(value) result(isValid)
19268 character(*, SK) , intent(in) :: value
19269 logical(LK) :: isValid
19270 isValid = logical(value == SK_"yes" .or. value == SK_"no", LK)
19271 end function
19272
19273!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19274
19275 pure function isValidPosition(value) result(isValid)
19276 character(*, SK) , intent(in) :: value
19277 logical(LK) :: isValid
19278 isValid = logical(value == SK_"asis" .or. value == SK_"rewind" .or. value == SK_"append", LK)
19279 end function
19280
19281!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19282
19283 pure function isValidRecl(value) result(isValid)
19284 integer(IK) , intent(in) :: value
19285 logical(LK) :: isValid
19286 isValid = logical(value > 0_IK, LK)
19287 end function
19288
19289!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19290
19291 pure function isValidRound(value) result(isValid)
19292 character(*, SK) , intent(in) :: value
19293 logical(LK) :: isValid
19294 isValid = logical(value == SK_"processor_defined" .or. value == SK_"compatible" .or. value == SK_"nearest" .or. value == SK_"zero" .or. value == SK_"down" .or. value == SK_"up", LK)
19295 end function
19296
19297!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19298
19299 pure function isValidSign(value) result(isValid)
19300 character(*, SK) , intent(in) :: value
19301 logical(LK) :: isValid
19302 isValid = logical(value == SK_"processor_defined" .or. value == SK_"suppress" .or. value == SK_"plus", LK)
19303 end function
19304
19305!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19306
19307 pure function isValidStatus(value) result(isValid)
19308 character(*, SK) , intent(in) :: value
19309 logical(LK) :: isValid
19310 isValid = logical(value == SK_"unknown" .or. value == SK_"scratch" .or. value == SK_"replace" .or. value == SK_"new" .or. value == SK_"old", LK)
19311 end function
19312
19313!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19314
19364 pure elemental function isPreconnected(unit) result(preconnected)
19365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19366 !DEC$ ATTRIBUTES DLLEXPORT :: isPreconnected
19367#endif
19368 use iso_fortran_env, only: output_unit, input_unit, error_unit
19369 integer(IK) , intent(in) :: unit
19370 logical(LK) :: preconnected
19371 preconnected = logical(unit == int(output_unit, IK) .or. unit == int(input_unit, IK) .or. unit == int(error_unit, IK), LK)
19372 end function isPreconnected
19373
19374!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19375
19434 impure elemental function getFileUnit(file) result(unit)
19435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19436 !DEC$ ATTRIBUTES DLLEXPORT :: getFileUnit
19437#endif
19438 character(*, SK), intent(in), optional :: file
19439 integer(IK) :: unit
19440 logical(LK) :: opened
19441 if (present(file)) then
19442 inquire(file = file, number = unit)
19443 else
19444 unit = 100_IK
19445 do
19446 inquire(unit = unit, opened = opened)
19447 if (.not. opened) return
19448 unit = unit + 1_IK
19449 end do
19450 end if
19451 end function
19452
19453!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19454
19455end module pm_io ! LCOV_EXCL_LINE
Generate and return the action attribute of the input file or unit.
Definition: pm_io.F90:1384
Generate and return the entire contents of the input unconnected file or the (remaining) contents of ...
Definition: pm_io.F90:1586
Generate and return the number of records left (starting immediately after the last accessed record) ...
Definition: pm_io.F90:2226
Generate and return the number of records in the entire record-oriented input file.
Definition: pm_io.F90:1502
Generate and return the iostat code resulting from reading the contents of the specified file or unit...
Definition: pm_io.F90:2390
Generate and return the iostat code resulting from writing the input table of rank 1 or 2 to the spec...
Definition: pm_io.F90:5940
Generate and return the best-guess field separator of a (sequential-access) file stored in the input ...
Definition: pm_io.F90:9407
Generate and return a generic or type/kind-specific IO format with the requested specifications that ...
Definition: pm_io.F90:18485
Generate and return a full record (line) of arbitrary length as a string from the current position of...
Definition: pm_io.F90:1971
Generate and return .true. if the input file (or unit) is connected to a unit (or file),...
Definition: pm_io.F90:1289
Return the entire contents of the input unconnected file or the (remaining) contents of an already-co...
Definition: pm_io.F90:1678
Write the input string contents to the input unconnected file.
Definition: pm_io.F90:1791
Open the given input file, fetch the entire contents return it as a single allocatable string,...
Definition: pm_io.F90:1889
Read a full record (line) of arbitrary length as a string from the current position of the record-ori...
Definition: pm_io.F90:2114
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11726
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11508
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:9995
Generate and return the value of the optional input argument if it is present, otherwise,...
Definition: pm_option.F90:135
Generate and return the conversion of the input value to an output Fortran string,...
Definition: pm_val2str.F90:167
This module contains the derived types for generating allocatable containers of scalar,...
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52
character(*, SK), parameter MODULE_NAME
Definition: pm_err.F90:58
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252
pure elemental logical(LK) function isPreconnected(unit)
Generate and return .true. if the input unit corresponds to one of the processor preconnected units: ...
Definition: pm_io.F90:19365
character(*, SK), parameter MFILL
The scalar character of default kind SK of len = 1 representing the default string that is used for f...
Definition: pm_io.F90:329
type(unknown_type), parameter unknown
This is a scalar parameter object of type unknown_type that is exclusively used to signify the unknow...
Definition: pm_io.F90:592
pure logical(LK) function isValidRecl(value)
Definition: pm_io.F90:19284
pure logical(LK) function isValidAsynchronous(value)
Definition: pm_io.F90:19220
type(fld_type), parameter fld
This is a scalar parameter object of type fld_type that is exclusively used to signify the Fortran-li...
Definition: pm_io.F90:852
pure logical(LK) function isValidBlank(value)
Definition: pm_io.F90:19228
character(*, SK), parameter FORMAT_GENERIC_DISPLAY_COMPLEX_FORTRAN
The scalar character of default kind SK containing the generic signed comma-space-separated format th...
Definition: pm_io.F90:387
pure logical(LK) function isValidSign(value)
Definition: pm_io.F90:19300
pure logical(LK) function isValidDelim(value)
Definition: pm_io.F90:19244
character(1, SK), dimension(4), parameter SPINNER
The scalar character(1, SK) of default kind SK of size 4, containing the four characters used to disp...
Definition: pm_io.F90:394
integer(IK), parameter LEN_RECORD
The scalar integer of default kind IK representing the effective maximum length of a record in a reco...
Definition: pm_io.F90:408
character(1, SK), parameter TAB
The scalar character of default kind SK of len = 4 representing representing ASCII character: Horizon...
Definition: pm_io.F90:336
impure elemental integer(IK) function getFileUnit(file)
Generate and return a random new unconnected file unit number that could be assigned to the unit spec...
Definition: pm_io.F90:19435
pure logical(LK) function isValidAction(value)
Definition: pm_io.F90:19212
pure logical(LK) function isValidEncoding(value)
Definition: pm_io.F90:19252
pure logical(LK) function isValidForm(value)
Definition: pm_io.F90:19260
type(filext_type), parameter filext
The scalar constant object of type filext_type containing file extensions used by different programmi...
Definition: pm_io.F90:316
character(*, SK), parameter FORMAT_GENERIC_DISPLAY
The scalar character of default kind SK containing the generic signed comma-space-separated format us...
Definition: pm_io.F90:371
integer(IK), parameter LEN_IOMSG
The scalar integer of default kind IK representing the maximum length of an IO error message returned...
Definition: pm_io.F90:401
character(*, SK), parameter FORMAT_GENERIC_BLANK
The scalar character of default kind SK containing the generic IO whitespace-separated IO format.
Definition: pm_io.F90:357
pure logical(LK) function isValidDecimal(value)
Definition: pm_io.F90:19236
pure logical(LK) function isValidRound(value)
Definition: pm_io.F90:19292
character(*, SK), parameter FORMAT_GENERIC_DISPLAY_COMPLEX_MATH
The scalar character of default kind SK containing the generic signed comma-space-separated format th...
Definition: pm_io.F90:379
pure logical(LK) function isValidAccess(value)
Definition: pm_io.F90:19204
type(csv_type), parameter csv
This is a scalar parameter object of type csv_type that is exclusively used to signify the CSV file f...
Definition: pm_io.F90:787
pure logical(LK) function isValidPad(value)
Definition: pm_io.F90:19268
pure logical(LK) function isValidPosition(value)
Definition: pm_io.F90:19276
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:11393
pure logical(LK) function isValidStatus(value)
Definition: pm_io.F90:19308
character(*, SK), parameter INDENT
The scalar character of default kind SK of the same value as TABEQV representing the default indentat...
Definition: pm_io.F90:350
character(*, SK), parameter TABEQV
The scalar character of default kind SK of len = 4 representing the default string that is used in pl...
Definition: pm_io.F90:343
character(*, SK), parameter FORMAT_GENERIC_BLANK_TABBED
The scalar character of default kind SK containing the generic IO whitespace-separated IO format with...
Definition: pm_io.F90:364
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
integer, parameter SK5
Definition: pm_kind.F90:326
integer, parameter LK1
Definition: pm_kind.F90:412
integer, parameter IK3
Definition: pm_kind.F90:368
integer, parameter RK5
Definition: pm_kind.F90:478
integer, parameter RK4
Definition: pm_kind.F90:489
integer, parameter SK1
Definition: pm_kind.F90:346
integer, parameter IK1
Definition: pm_kind.F90:382
integer, parameter LK5
Definition: pm_kind.F90:392
integer, parameter RK2
Definition: pm_kind.F90:511
integer, parameter CK1
Definition: pm_kind.F90:464
integer, parameter RK3
Definition: pm_kind.F90:500
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
integer, parameter LK2
Definition: pm_kind.F90:407
integer, parameter LK4
Definition: pm_kind.F90:397
integer, parameter CK5
Definition: pm_kind.F90:420
integer, parameter CK4
Definition: pm_kind.F90:431
integer, parameter SK4
Definition: pm_kind.F90:331
integer, parameter LK3
Definition: pm_kind.F90:402
integer, parameter IK2
Definition: pm_kind.F90:375
integer, parameter CK2
Definition: pm_kind.F90:453
integer, parameter SK2
Definition: pm_kind.F90:341
integer, parameter CK3
Definition: pm_kind.F90:442
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
integer, parameter IK4
Definition: pm_kind.F90:361
integer, parameter IK5
Definition: pm_kind.F90:354
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
integer, parameter RK1
Definition: pm_kind.F90:522
integer, parameter SK3
Definition: pm_kind.F90:336
This module contains abstract and concrete derived types and procedures related to various common mat...
type(trans_type), parameter trans
This is a scalar parameter object of type trans_type that is exclusively used to request no transpose...
This module contains procedures, generic interfaces, and types for generating default values for opti...
Definition: pm_option.F90:34
This module contains the generic procedures for converting values of different types and kinds to For...
Definition: pm_val2str.F90:58
This is the parameterized derived type for generating a container of a cube component of type complex...
This is the derived type for generating a container of a cube component of type complex of default ki...
This is the parameterized derived type for generating a container of a cube component of type integer...
This is the derived type for generating a container of a cube component of type integer of default ki...
This is the parameterized derived type for generating a container of a cube component of type logical...
This is the derived type for generating a container of a cube component of type logical of default ki...
This is the parameterized derived type for generating a container of a cube component of type real of...
This is the derived type for generating a container of a cube component of type real of default kind ...
This is the parameterized derived type for generating a container of a cube component of type charact...
This is the derived type for generating a container of a cube component of type character of default ...
This is the parameterized derived type for generating a container of a matrix component of type compl...
This is the derived type for generating a container of a matrix component of type complex of default ...
This is the parameterized derived type for generating a container of a matrix component of type integ...
This is the derived type for generating a container of a matrix component of type integer of default ...
This is the parameterized derived type for generating a container of a matrix component of type logic...
This is the derived type for generating a container of a matrix component of type logical of default ...
This is the parameterized derived type for generating a container of a matrix component of type real ...
This is the derived type for generating a container of a matrix component of type real of default kin...
This is the parameterized derived type for generating a container of a matrix component of type chara...
This is the derived type for generating a container of a matrix component of type character of defaul...
This is the csc_pdt parameterized type for generating instances of container of scalar of complex obj...
This is the csc_type type for generating instances of container of scalar of logical objects.
This is the csi_pdt parameterized type for generating instances of container of scalar of integer obj...
This is the csi_type type for generating instances of container of scalar of integer objects.
This is the csl_pdt parameterized type for generating instances of container of scalar of logical obj...
This is the csl_type type for generating instances of container of scalar of logical objects.
This is the csr_pdt parameterized type for generating instances of container of scalar of real object...
This is the csr_type type for generating instances of container of scalar of logical objects.
This is the css_pdt parameterized type for generating instances of container of scalar of string obje...
This is the css_type type for generating instances of container of scalar of string objects.
This is the parameterized derived type for generating a container of an allocatable vector component ...
This is the derived type for generating a container of a vector component of type complex of default ...
This is the parameterized derived type for generating a container of a vector component of type integ...
This is the derived type for generating a container of a vector component of type integer of default ...
This is the parameterized derived type for generating a container of an allocatable vector component ...
This is the derived type for generating a container of a vector component of type logical of default ...
This is the parameterized derived type for generating a container of an allocatable vector component ...
This is the derived type for generating a container of a vector component of type real of default kin...
This is the parameterized derived type for generating a container of a vector component of type chara...
This is the derived type for generating a container of a vector component of type character of defaul...
This is the derived type for constructing objects that contain the specifications of the generic inte...
Definition: pm_err.F90:973
Generate and return an object of type mark_type with the user-specified input attributes.
Definition: pm_err.F90:1127
Generate and return an object of type warn_type with the user-specified input attributes.
Definition: pm_err.F90:1442
Generate and return an object of type note_type with the user-specified input attributes.
Definition: pm_err.F90:1278
This is a concrete derived type whose instances are exclusively used to signify the CSV file form wit...
Definition: pm_io.F90:760
Generate and return an object of type display_type.
Definition: pm_io.F90:10282
The derived type that can be used for constructing containers of format or left and right delimiters ...
Definition: pm_io.F90:482
This is the derived type for generating objects containing the source file extensions used by differe...
Definition: pm_io.F90:284
This is a concrete derived type whose instances are exclusively used to signify the Fortran-list-dire...
Definition: pm_io.F90:825
This is an abstract derived type for constructing concrete derived types to distinguish various proce...
Definition: pm_io.F90:529
This is a concrete derived type whose instances are exclusively used to signify the formatted file fo...
Definition: pm_io.F90:695
This is the openArg_type class containing arguments that can be passed to the open() intrinsic Fortra...
Definition: pm_io.F90:1039
This is a concrete derived type whose instances are exclusively used to signify the unformatted (bina...
Definition: pm_io.F90:630
This is a concrete derived type whose instances are exclusively used to signify the unknown file form...
Definition: pm_io.F90:565
This is the derived type for constructing objects that contain the specifications of the getStrWrappe...
Definition: pm_io.F90:9830
This is a derived type for constructing concrete derived types to distinguish various procedure signa...