248#define __CONTIGUOUS, contiguous
262 use iso_fortran_env,
only:
output_unit
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"
317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
318 !DIR$ ATTRIBUTES DLLEXPORT ::
filext
330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
331 !DIR$ ATTRIBUTES DLLEXPORT ::
MFILL
336 character(
1,
SK),
parameter ::
TAB = achar(
9,
SK)
337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
338 !DIR$ ATTRIBUTES DLLEXPORT ::
TAB
343 character(
*,
SK),
parameter ::
TABEQV = repeat(SK_
" ",
4)
344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
345 !DIR$ ATTRIBUTES DLLEXPORT ::
TABEQV
351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
352 !DIR$ ATTRIBUTES DLLEXPORT ::
INDENT
358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
372#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
387 character(
*,
SK),
parameter ::
FORMAT_GENERIC_DISPLAY_COMPLEX_FORTRAN = SK_
"(sp,*('(',g0,', ',g0,')',:,', '))"
388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
394 character(
1,
SK),
parameter ::
SPINNER(
4)
= [
"|" ,
"/" ,
"-" ,
"\" ]
395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
396 !DIR$ ATTRIBUTES DLLEXPORT ::
SPINNER
404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
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
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
496 character(
*,
SK),
intent(in),
optional :: string,
integer, logical,
complex, real
593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
594 !DIR$ ATTRIBUTES DLLEXPORT ::
unknown
658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
659 !DIR$ ATTRIBUTES DLLEXPORT ::
unformatted
723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
724 !DIR$ ATTRIBUTES DLLEXPORT ::
formatted
788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
789 !DIR$ ATTRIBUTES DLLEXPORT ::
csv
853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
854 !DIR$ ATTRIBUTES DLLEXPORT ::
fld
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
1191 impure elemental module function openArg_typer ( access &
1210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1211 !DEC$ ATTRIBUTES DLLEXPORT :: openArg_typer
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
1291 impure elemental module function isOpenUnit(unit)
result(opened)
1292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1293 !DEC$ ATTRIBUTES DLLEXPORT :: isOpenUnit
1295 integer(IK) ,
intent(in) :: unit
1296 logical(LK) :: opened
1299 impure elemental module function isOpenFile(file)
result(opened)
1300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1301 !DEC$ ATTRIBUTES DLLEXPORT :: isOpenFile
1303 character(
*, SK),
intent(in) :: file
1304 logical(LK) :: opened
1386 impure elemental module function getActionUnit(unit)
result(action)
1387#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1388 !DEC$ ATTRIBUTES DLLEXPORT :: getActionUnit
1390 integer(IK) ,
intent(in) :: unit
1391 character(
9, SK) :: action
1394 impure elemental module function getActionFile(file)
result(action)
1395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1396 !DEC$ ATTRIBUTES DLLEXPORT :: getActionFile
1398 character(
*, SK),
intent(in) :: file
1399 character(
9, SK) :: action
1504 module function getCountRecordFile(file, isCountable, del, iostat, iomsg)
result(nrecord)
1505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1506 !DEC$ ATTRIBUTES DLLEXPORT :: getCountRecordFile
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
1517 module function getCountRecordUnit(unit, isCountable, del, iostat, iomsg)
result(nrecord)
1518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1519 !DEC$ ATTRIBUTES DLLEXPORT :: getCountRecordUnit
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
1588 module function getContentsFromUnit_SK(unit, del)
result(contents)
1589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1590 !DEC$ ATTRIBUTES DLLEXPORT :: getContentsFromUnit_SK
1593 integer(IK) ,
intent(in) :: unit
1594 logical(LK) ,
intent(in) ,
optional :: del
1595 character(:,SKG),
allocatable :: contents
1598 module function getContentsFromFile_SK(file, del)
result(contents)
1599#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1600 !DEC$ ATTRIBUTES DLLEXPORT :: getContentsFromFile_SK
1603 character(
*, SK),
intent(in) :: file
1604 logical(LK) ,
intent(in) ,
optional :: del
1605 character(:,SKG),
allocatable :: contents
1680 module subroutine setContentsFromUnitCDD_SK(unit, contents, del)
1681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1682 !DEC$ ATTRIBUTES DLLEXPORT :: setContentsFromUnitCDD_SK
1685 integer(IK) ,
intent(in) :: unit
1686 character(:,SKG),
intent(out) ,
allocatable :: contents
1687 logical(LK) ,
intent(in) ,
optional :: del
1690 module subroutine setContentsFromUnitCII_SK(unit, contents, iostat, iomsg, del)
1691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1692 !DEC$ ATTRIBUTES DLLEXPORT :: setContentsFromUnitCII_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
1702 module subroutine setContentsFromFileCDD_SK(file, contents, del)
1703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1704 !DEC$ ATTRIBUTES DLLEXPORT :: setContentsFromFileCDD_SK
1707 character(
*, SK),
intent(in) :: file
1708 character(:,SKG),
intent(out) ,
allocatable :: contents
1709 logical(LK) ,
intent(in) ,
optional :: del
1712 module subroutine setContentsFromFileCII_SK(file, contents, iostat, iomsg, del)
1713#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1714 !DEC$ ATTRIBUTES DLLEXPORT :: setContentsFromFileCII_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
1813 module subroutine setContentsToFileCDD_SK(file, contents)
1814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1815 !DEC$ ATTRIBUTES DLLEXPORT :: setContentsToFileCDD_SK
1818 character(
*, SK),
intent(in) :: file
1819 character(
*,SKG),
intent(in) :: contents
1822 module subroutine setContentsToFileCII_SK(file, contents, iostat, iomsg)
1823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1824 !DEC$ ATTRIBUTES DLLEXPORT :: setContentsToFileCII_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
1890 module subroutine setFileClosed_IK(unit, del, iostat, iomsg)
1891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1892 !DEC$ ATTRIBUTES DLLEXPORT :: setFileClosed_IK
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
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
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
2116 module subroutine setRecordFromUR_SK(unit, record, lb, ub, linefed)
2117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2118 !DEC$ ATTRIBUTES DLLEXPORT :: setRecordFromUR_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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
6072 integer(IKG) ,
intent(in) ,
contiguous :: table(:)
6073 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6074 character(
*, SK) ,
intent(in)