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 at Austin
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