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) ,
optional :: deliml, delimr
6075 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6076 integer(IK) ,
intent(in) ,
optional :: roff
6082 module function getErrTableWriteFile_NO_D1_IK1(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6084 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_IK1
6087 integer(IKG) ,
intent(in) ,
contiguous :: table(:)
6088 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6089 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6090 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6091 integer(IK) ,
intent(in) ,
optional :: roff
6099 module function getErrTableWriteFile_NO_D1_LK5(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6100#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6101 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_LK5
6104 logical(LKG) ,
intent(in) ,
contiguous :: table(:)
6105 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6106 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6107 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6108 integer(IK) ,
intent(in) ,
optional :: roff
6114 module function getErrTableWriteFile_NO_D1_LK4(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6116 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_LK4
6119 logical(LKG) ,
intent(in) ,
contiguous :: table(:)
6120 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6121 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6122 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6123 integer(IK) ,
intent(in) ,
optional :: roff
6129 module function getErrTableWriteFile_NO_D1_LK3(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6130#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6131 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_LK3
6134 logical(LKG) ,
intent(in) ,
contiguous :: table(:)
6135 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6136 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6137 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6138 integer(IK) ,
intent(in) ,
optional :: roff
6144 module function getErrTableWriteFile_NO_D1_LK2(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6145#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6146 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_LK2
6149 logical(LKG) ,
intent(in) ,
contiguous :: table(:)
6150 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6151 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6152 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6153 integer(IK) ,
intent(in) ,
optional :: roff
6159 module function getErrTableWriteFile_NO_D1_LK1(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6160#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6161 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_LK1
6164 logical(LKG) ,
intent(in) ,
contiguous :: table(:)
6165 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6166 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6167 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6168 integer(IK) ,
intent(in) ,
optional :: roff
6176 module function getErrTableWriteFile_NO_D1_CK5(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6178 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_CK5
6181 complex(CKG) ,
intent(in) ,
contiguous :: table(:)
6182 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6183 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6184 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6185 integer(IK) ,
intent(in) ,
optional :: roff
6191 module function getErrTableWriteFile_NO_D1_CK4(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6192#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6193 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_CK4
6196 complex(CKG) ,
intent(in) ,
contiguous :: table(:)
6197 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6198 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6199 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6200 integer(IK) ,
intent(in) ,
optional :: roff
6206 module function getErrTableWriteFile_NO_D1_CK3(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6208 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_CK3
6211 complex(CKG) ,
intent(in) ,
contiguous :: table(:)
6212 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6213 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6214 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6215 integer(IK) ,
intent(in) ,
optional :: roff
6221 module function getErrTableWriteFile_NO_D1_CK2(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6222#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6223 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_CK2
6226 complex(CKG) ,
intent(in) ,
contiguous :: table(:)
6227 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6228 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6229 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6230 integer(IK) ,
intent(in) ,
optional :: roff
6236 module function getErrTableWriteFile_NO_D1_CK1(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6238 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_CK1
6241 complex(CKG) ,
intent(in) ,
contiguous :: table(:)
6242 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6243 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6244 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6245 integer(IK) ,
intent(in) ,
optional :: roff
6253 module function getErrTableWriteFile_NO_D1_RK5(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6255 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_RK5
6258 real(RKG) ,
intent(in) ,
contiguous :: table(:)
6259 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6260 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6261 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6262 integer(IK) ,
intent(in) ,
optional :: roff
6268 module function getErrTableWriteFile_NO_D1_RK4(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6270 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_RK4
6273 real(RKG) ,
intent(in) ,
contiguous :: table(:)
6274 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6275 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6276 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6277 integer(IK) ,
intent(in) ,
optional :: roff
6283 module function getErrTableWriteFile_NO_D1_RK3(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6284#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6285 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_RK3
6288 real(RKG) ,
intent(in) ,
contiguous :: table(:)
6289 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6290 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6291 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6292 integer(IK) ,
intent(in) ,
optional :: roff
6298 module function getErrTableWriteFile_NO_D1_RK2(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6300 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_RK2
6303 real(RKG) ,
intent(in) ,
contiguous :: table(:)
6304 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6305 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6306 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6307 integer(IK) ,
intent(in) ,
optional :: roff
6313 module function getErrTableWriteFile_NO_D1_RK1(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6314#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6315 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D1_RK1
6318 real(RKG) ,
intent(in) ,
contiguous :: table(:)
6319 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6320 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6321 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6322 integer(IK) ,
intent(in) ,
optional :: roff
6338 module function getErrTableWriteUnit_NO_D1_SK5(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6340 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_SK5
6343 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:)
6344 character(
*, SK) ,
intent(in) ,
optional :: header, sep
6345 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6346 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6347 integer(IK) ,
intent(in) ,
optional :: roff
6348 integer(IK) ,
intent(in) :: unit
6354 module function getErrTableWriteUnit_NO_D1_SK4(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6356 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_SK4
6359 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:)
6360 character(
*, SK) ,
intent(in) ,
optional :: header, sep
6361 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6362 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6363 integer(IK) ,
intent(in) ,
optional :: roff
6364 integer(IK) ,
intent(in) :: unit
6370 module function getErrTableWriteUnit_NO_D1_SK3(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6372 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_SK3
6375 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:)
6376 character(
*, SK) ,
intent(in) ,
optional :: header, sep
6377 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6378 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6379 integer(IK) ,
intent(in) ,
optional :: roff
6380 integer(IK) ,
intent(in) :: unit
6386 module function getErrTableWriteUnit_NO_D1_SK2(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6387#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6388 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_SK2
6391 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:)
6392 character(
*, SK) ,
intent(in) ,
optional :: header, sep
6393 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6394 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6395 integer(IK) ,
intent(in) ,
optional :: roff
6396 integer(IK) ,
intent(in) :: unit
6402 module function getErrTableWriteUnit_NO_D1_SK1(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6404 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_SK1
6407 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:)
6408 character(
*, SK) ,
intent(in) ,
optional :: header, sep
6409 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6410 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6411 integer(IK) ,
intent(in) ,
optional :: roff
6412 integer(IK) ,
intent(in) :: unit
6420 module function getErrTableWriteUnit_NO_D1_IK5(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6422 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_IK5
6425 integer(IKG) ,
intent(in) ,
contiguous :: table(:)
6426 character(
*, SK) ,
intent(in) ,
optional :: header, sep
6427 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6428 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6429 integer(IK) ,
intent(in) ,
optional :: roff
6430 integer(IK) ,
intent(in) :: unit
6436 module function getErrTableWriteUnit_NO_D1_IK4(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6438 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_IK4
6441 integer(IKG) ,
intent(in) ,
contiguous :: table(:)
6442 character(
*, SK) ,
intent(in) ,
optional :: header, sep
6443 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6444 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6445 integer(IK) ,
intent(in) ,
optional :: roff
6446 integer(IK) ,
intent(in) :: unit
6452 module function getErrTableWriteUnit_NO_D1_IK3(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6454 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_IK3
6457 integer(IKG) ,
intent(in) ,
contiguous :: table(:)
6458 character(
*, SK) ,
intent(in) ,
optional :: header, sep
6459 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6460 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6461 integer(IK) ,
intent(in) ,
optional :: roff
6462 integer(IK) ,
intent(in) :: unit
6468 module function getErrTableWriteUnit_NO_D1_IK2(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6470 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_IK2
6473 integer(IKG) ,
intent(in) ,
contiguous :: table(:)
6474 character(
*, SK) ,
intent(in) ,
optional :: header, sep
6475 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6476 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6477 integer(IK) ,
intent(in) ,
optional :: roff
6478 integer(IK) ,
intent(in) :: unit
6484 module function getErrTableWriteUnit_NO_D1_IK1(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6486 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_IK1
6489 integer(IKG) ,
intent(in) ,
contiguous :: table(:)
6490 character(
*, SK) ,
intent(in) ,
optional :: header, sep
6491 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6492 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6493 integer(IK) ,
intent(in) ,
optional :: roff
6494 integer(IK) ,
intent(in) :: unit
6502 module function getErrTableWriteUnit_NO_D1_LK5(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6504 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_LK5
6507 logical(LKG) ,
intent(in) ,
contiguous :: table(:)
6508 character(
*, SK) ,
intent(in) ,
optional :: header, sep
6509 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6510 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6511 integer(IK) ,
intent(in) ,
optional :: roff
6512 integer(IK) ,
intent(in) :: unit
6518 module function getErrTableWriteUnit_NO_D1_LK4(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6520 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_LK4
6523 logical(LKG) ,
intent(in) ,
contiguous :: table(:)
6524 character(
*, SK) ,
intent(in) ,
optional :: header, sep
6525 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6526 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6527 integer(IK) ,
intent(in) ,
optional :: roff
6528 integer(IK) ,
intent(in) :: unit
6534 module function getErrTableWriteUnit_NO_D1_LK3(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6536 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_LK3
6539 logical(LKG) ,
intent(in) ,
contiguous :: table(:)
6540 character(
*, SK) ,
intent(in) ,
optional :: header, sep
6541 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6542 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6543 integer(IK) ,
intent(in) ,
optional :: roff
6544 integer(IK) ,
intent(in) :: unit
6550 module function getErrTableWriteUnit_NO_D1_LK2(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6552 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_LK2
6555 logical(LKG) ,
intent(in) ,
contiguous :: table(:)
6556 character(
*, SK) ,
intent(in) ,
optional :: header, sep
6557 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6558 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6559 integer(IK) ,
intent(in) ,
optional :: roff
6560 integer(IK) ,
intent(in) :: unit
6566 module function getErrTableWriteUnit_NO_D1_LK1(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6568 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_LK1
6571 logical(LKG) ,
intent(in) ,
contiguous :: table(:)
6572 character(
*, SK) ,
intent(in) ,
optional :: header, sep
6573 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6574 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6575 integer(IK) ,
intent(in) ,
optional :: roff
6576 integer(IK) ,
intent(in) :: unit
6584 module function getErrTableWriteUnit_NO_D1_CK5(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6585#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6586 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_CK5
6589 complex(CKG) ,
intent(in) ,
contiguous :: table(:)
6590 character(
*, SK) ,
intent(in) ,
optional :: header, sep
6591 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6592 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6593 integer(IK) ,
intent(in) ,
optional :: roff
6594 integer(IK) ,
intent(in) :: unit
6600 module function getErrTableWriteUnit_NO_D1_CK4(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6602 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_CK4
6605 complex(CKG) ,
intent(in) ,
contiguous :: table(:)
6606 character(
*, SK) ,
intent(in) ,
optional :: header, sep
6607 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6608 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6609 integer(IK) ,
intent(in) ,
optional :: roff
6610 integer(IK) ,
intent(in) :: unit
6616 module function getErrTableWriteUnit_NO_D1_CK3(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6618 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_CK3
6621 complex(CKG) ,
intent(in) ,
contiguous :: table(:)
6622 character(
*, SK) ,
intent(in) ,
optional :: header, sep
6623 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6624 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6625 integer(IK) ,
intent(in) ,
optional :: roff
6626 integer(IK) ,
intent(in) :: unit
6632 module function getErrTableWriteUnit_NO_D1_CK2(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6634 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_CK2
6637 complex(CKG) ,
intent(in) ,
contiguous :: table(:)
6638 character(
*, SK) ,
intent(in) ,
optional :: header, sep
6639 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6640 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6641 integer(IK) ,
intent(in) ,
optional :: roff
6642 integer(IK) ,
intent(in) :: unit
6648 module function getErrTableWriteUnit_NO_D1_CK1(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6650 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_CK1
6653 complex(CKG) ,
intent(in) ,
contiguous :: table(:)
6654 character(
*, SK) ,
intent(in) ,
optional :: header, sep
6655 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6656 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6657 integer(IK) ,
intent(in) ,
optional :: roff
6658 integer(IK) ,
intent(in) :: unit
6666 module function getErrTableWriteUnit_NO_D1_RK5(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6668 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_RK5
6671 real(RKG) ,
intent(in) ,
contiguous :: table(:)
6672 character(
*, SK) ,
intent(in) ,
optional :: header, sep
6673 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6674 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6675 integer(IK) ,
intent(in) ,
optional :: roff
6676 integer(IK) ,
intent(in) :: unit
6682 module function getErrTableWriteUnit_NO_D1_RK4(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6683#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6684 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_RK4
6687 real(RKG) ,
intent(in) ,
contiguous :: table(:)
6688 character(
*, SK) ,
intent(in) ,
optional :: header, sep
6689 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6690 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6691 integer(IK) ,
intent(in) ,
optional :: roff
6692 integer(IK) ,
intent(in) :: unit
6698 module function getErrTableWriteUnit_NO_D1_RK3(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6700 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_RK3
6703 real(RKG) ,
intent(in) ,
contiguous :: table(:)
6704 character(
*, SK) ,
intent(in) ,
optional :: header, sep
6705 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6706 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6707 integer(IK) ,
intent(in) ,
optional :: roff
6708 integer(IK) ,
intent(in) :: unit
6714 module function getErrTableWriteUnit_NO_D1_RK2(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6716 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_RK2
6719 real(RKG) ,
intent(in) ,
contiguous :: table(:)
6720 character(
*, SK) ,
intent(in) ,
optional :: header, sep
6721 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6722 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6723 integer(IK) ,
intent(in) ,
optional :: roff
6724 integer(IK) ,
intent(in) :: unit
6730 module function getErrTableWriteUnit_NO_D1_RK1(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6732 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D1_RK1
6735 real(RKG) ,
intent(in) ,
contiguous :: table(:)
6736 character(
*, SK) ,
intent(in) ,
optional :: header, sep
6737 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6738 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6739 integer(IK) ,
intent(in) ,
optional :: roff
6740 integer(IK) ,
intent(in) :: unit
6756 module function getErrTableWriteFile_NO_D2_SK5(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6758 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_SK5
6761 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:,:)
6762 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6763 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6764 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6765 integer(IK) ,
intent(in) ,
optional :: roff
6771 module function getErrTableWriteFile_NO_D2_SK4(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6772#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6773 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_SK4
6776 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:,:)
6777 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6778 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6779 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6780 integer(IK) ,
intent(in) ,
optional :: roff
6786 module function getErrTableWriteFile_NO_D2_SK3(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6788 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_SK3
6791 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:,:)
6792 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6793 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6794 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6795 integer(IK) ,
intent(in) ,
optional :: roff
6801 module function getErrTableWriteFile_NO_D2_SK2(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6802#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6803 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_SK2
6806 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:,:)
6807 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6808 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6809 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6810 integer(IK) ,
intent(in) ,
optional :: roff
6816 module function getErrTableWriteFile_NO_D2_SK1(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6818 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_SK1
6821 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:,:)
6822 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6823 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6824 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6825 integer(IK) ,
intent(in) ,
optional :: roff
6833 module function getErrTableWriteFile_NO_D2_IK5(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6834#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6835 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_IK5
6838 integer(IKG) ,
intent(in) ,
contiguous :: table(:,:)
6839 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6840 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6841 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6842 integer(IK) ,
intent(in) ,
optional :: roff
6848 module function getErrTableWriteFile_NO_D2_IK4(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6850 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_IK4
6853 integer(IKG) ,
intent(in) ,
contiguous :: table(:,:)
6854 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6855 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6856 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6857 integer(IK) ,
intent(in) ,
optional :: roff
6863 module function getErrTableWriteFile_NO_D2_IK3(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6864#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6865 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_IK3
6868 integer(IKG) ,
intent(in) ,
contiguous :: table(:,:)
6869 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6870 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6871 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6872 integer(IK) ,
intent(in) ,
optional :: roff
6878 module function getErrTableWriteFile_NO_D2_IK2(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6880 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_IK2
6883 integer(IKG) ,
intent(in) ,
contiguous :: table(:,:)
6884 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6885 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6886 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6887 integer(IK) ,
intent(in) ,
optional :: roff
6893 module function getErrTableWriteFile_NO_D2_IK1(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6894#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6895 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_IK1
6898 integer(IKG) ,
intent(in) ,
contiguous :: table(:,:)
6899 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6900 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6901 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6902 integer(IK) ,
intent(in) ,
optional :: roff
6910 module function getErrTableWriteFile_NO_D2_LK5(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6911#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6912 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_LK5
6915 logical(LKG) ,
intent(in) ,
contiguous :: table(:,:)
6916 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6917 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6918 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6919 integer(IK) ,
intent(in) ,
optional :: roff
6925 module function getErrTableWriteFile_NO_D2_LK4(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6926#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6927 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_LK4
6930 logical(LKG) ,
intent(in) ,
contiguous :: table(:,:)
6931 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6932 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6933 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6934 integer(IK) ,
intent(in) ,
optional :: roff
6940 module function getErrTableWriteFile_NO_D2_LK3(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6942 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_LK3
6945 logical(LKG) ,
intent(in) ,
contiguous :: table(:,:)
6946 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6947 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6948 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6949 integer(IK) ,
intent(in) ,
optional :: roff
6955 module function getErrTableWriteFile_NO_D2_LK2(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6956#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6957 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_LK2
6960 logical(LKG) ,
intent(in) ,
contiguous :: table(:,:)
6961 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6962 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6963 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6964 integer(IK) ,
intent(in) ,
optional :: roff
6970 module function getErrTableWriteFile_NO_D2_LK1(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6972 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_LK1
6975 logical(LKG) ,
intent(in) ,
contiguous :: table(:,:)
6976 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6977 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6978 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6979 integer(IK) ,
intent(in) ,
optional :: roff
6987 module function getErrTableWriteFile_NO_D2_CK5(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
6988#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6989 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_CK5
6992 complex(CKG) ,
intent(in) ,
contiguous :: table(:,:)
6993 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
6994 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
6995 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
6996 integer(IK) ,
intent(in) ,
optional :: roff
7002 module function getErrTableWriteFile_NO_D2_CK4(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7004 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_CK4
7007 complex(CKG) ,
intent(in) ,
contiguous :: table(:,:)
7008 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7009 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7010 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7011 integer(IK) ,
intent(in) ,
optional :: roff
7017 module function getErrTableWriteFile_NO_D2_CK3(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7018#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7019 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_CK3
7022 complex(CKG) ,
intent(in) ,
contiguous :: table(:,:)
7023 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7024 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7025 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7026 integer(IK) ,
intent(in) ,
optional :: roff
7032 module function getErrTableWriteFile_NO_D2_CK2(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7034 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_CK2
7037 complex(CKG) ,
intent(in) ,
contiguous :: table(:,:)
7038 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7039 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7040 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7041 integer(IK) ,
intent(in) ,
optional :: roff
7047 module function getErrTableWriteFile_NO_D2_CK1(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7048#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7049 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_CK1
7052 complex(CKG) ,
intent(in) ,
contiguous :: table(:,:)
7053 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7054 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7055 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7056 integer(IK) ,
intent(in) ,
optional :: roff
7064 module function getErrTableWriteFile_NO_D2_RK5(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7065#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7066 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_RK5
7069 real(RKG) ,
intent(in) ,
contiguous :: table(:,:)
7070 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7071 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7072 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7073 integer(IK) ,
intent(in) ,
optional :: roff
7079 module function getErrTableWriteFile_NO_D2_RK4(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7080#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7081 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_RK4
7084 real(RKG) ,
intent(in) ,
contiguous :: table(:,:)
7085 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7086 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7087 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7088 integer(IK) ,
intent(in) ,
optional :: roff
7094 module function getErrTableWriteFile_NO_D2_RK3(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7096 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_RK3
7099 real(RKG) ,
intent(in) ,
contiguous :: table(:,:)
7100 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7101 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7102 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7103 integer(IK) ,
intent(in) ,
optional :: roff
7109 module function getErrTableWriteFile_NO_D2_RK2(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7110#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7111 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_RK2
7114 real(RKG) ,
intent(in) ,
contiguous :: table(:,:)
7115 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7116 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7117 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7118 integer(IK) ,
intent(in) ,
optional :: roff
7124 module function getErrTableWriteFile_NO_D2_RK1(file, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7126 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_NO_D2_RK1
7129 real(RKG) ,
intent(in) ,
contiguous :: table(:,:)
7130 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7131 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7132 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7133 integer(IK) ,
intent(in) ,
optional :: roff
7149 module function getErrTableWriteUnit_NO_D2_SK5(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7150#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7151 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_SK5
7154 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:,:)
7155 character(
*, SK) ,
intent(in) ,
optional :: header, sep
7156 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7157 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7158 integer(IK) ,
intent(in) ,
optional :: roff
7159 integer(IK) ,
intent(in) :: unit
7165 module function getErrTableWriteUnit_NO_D2_SK4(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7166#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7167 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_SK4
7170 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:,:)
7171 character(
*, SK) ,
intent(in) ,
optional :: header, sep
7172 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7173 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7174 integer(IK) ,
intent(in) ,
optional :: roff
7175 integer(IK) ,
intent(in) :: unit
7181 module function getErrTableWriteUnit_NO_D2_SK3(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7183 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_SK3
7186 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:,:)
7187 character(
*, SK) ,
intent(in) ,
optional :: header, sep
7188 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7189 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7190 integer(IK) ,
intent(in) ,
optional :: roff
7191 integer(IK) ,
intent(in) :: unit
7197 module function getErrTableWriteUnit_NO_D2_SK2(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7198#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7199 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_SK2
7202 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:,:)
7203 character(
*, SK) ,
intent(in) ,
optional :: header, sep
7204 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7205 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7206 integer(IK) ,
intent(in) ,
optional :: roff
7207 integer(IK) ,
intent(in) :: unit
7213 module function getErrTableWriteUnit_NO_D2_SK1(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7215 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_SK1
7218 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:,:)
7219 character(
*, SK) ,
intent(in) ,
optional :: header, sep
7220 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7221 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7222 integer(IK) ,
intent(in) ,
optional :: roff
7223 integer(IK) ,
intent(in) :: unit
7231 module function getErrTableWriteUnit_NO_D2_IK5(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7233 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_IK5
7236 integer(IKG) ,
intent(in) ,
contiguous :: table(:,:)
7237 character(
*, SK) ,
intent(in) ,
optional :: header, sep
7238 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7239 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7240 integer(IK) ,
intent(in) ,
optional :: roff
7241 integer(IK) ,
intent(in) :: unit
7247 module function getErrTableWriteUnit_NO_D2_IK4(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7249 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_IK4
7252 integer(IKG) ,
intent(in) ,
contiguous :: table(:,:)
7253 character(
*, SK) ,
intent(in) ,
optional :: header, sep
7254 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7255 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7256 integer(IK) ,
intent(in) ,
optional :: roff
7257 integer(IK) ,
intent(in) :: unit
7263 module function getErrTableWriteUnit_NO_D2_IK3(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7264#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7265 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_IK3
7268 integer(IKG) ,
intent(in) ,
contiguous :: table(:,:)
7269 character(
*, SK) ,
intent(in) ,
optional :: header, sep
7270 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7271 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7272 integer(IK) ,
intent(in) ,
optional :: roff
7273 integer(IK) ,
intent(in) :: unit
7279 module function getErrTableWriteUnit_NO_D2_IK2(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7280#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7281 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_IK2
7284 integer(IKG) ,
intent(in) ,
contiguous :: table(:,:)
7285 character(
*, SK) ,
intent(in) ,
optional :: header, sep
7286 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7287 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7288 integer(IK) ,
intent(in) ,
optional :: roff
7289 integer(IK) ,
intent(in) :: unit
7295 module function getErrTableWriteUnit_NO_D2_IK1(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7297 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_IK1
7300 integer(IKG) ,
intent(in) ,
contiguous :: table(:,:)
7301 character(
*, SK) ,
intent(in) ,
optional :: header, sep
7302 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7303 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7304 integer(IK) ,
intent(in) ,
optional :: roff
7305 integer(IK) ,
intent(in) :: unit
7313 module function getErrTableWriteUnit_NO_D2_LK5(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7314#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7315 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_LK5
7318 logical(LKG) ,
intent(in) ,
contiguous :: table(:,:)
7319 character(
*, SK) ,
intent(in) ,
optional :: header, sep
7320 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7321 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7322 integer(IK) ,
intent(in) ,
optional :: roff
7323 integer(IK) ,
intent(in) :: unit
7329 module function getErrTableWriteUnit_NO_D2_LK4(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7331 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_LK4
7334 logical(LKG) ,
intent(in) ,
contiguous :: table(:,:)
7335 character(
*, SK) ,
intent(in) ,
optional :: header, sep
7336 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7337 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7338 integer(IK) ,
intent(in) ,
optional :: roff
7339 integer(IK) ,
intent(in) :: unit
7345 module function getErrTableWriteUnit_NO_D2_LK3(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7347 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_LK3
7350 logical(LKG) ,
intent(in) ,
contiguous :: table(:,:)
7351 character(
*, SK) ,
intent(in) ,
optional :: header, sep
7352 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7353 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7354 integer(IK) ,
intent(in) ,
optional :: roff
7355 integer(IK) ,
intent(in) :: unit
7361 module function getErrTableWriteUnit_NO_D2_LK2(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7362#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7363 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_LK2
7366 logical(LKG) ,
intent(in) ,
contiguous :: table(:,:)
7367 character(
*, SK) ,
intent(in) ,
optional :: header, sep
7368 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7369 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7370 integer(IK) ,
intent(in) ,
optional :: roff
7371 integer(IK) ,
intent(in) :: unit
7377 module function getErrTableWriteUnit_NO_D2_LK1(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7379 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_LK1
7382 logical(LKG) ,
intent(in) ,
contiguous :: table(:,:)
7383 character(
*, SK) ,
intent(in) ,
optional :: header, sep
7384 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7385 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7386 integer(IK) ,
intent(in) ,
optional :: roff
7387 integer(IK) ,
intent(in) :: unit
7395 module function getErrTableWriteUnit_NO_D2_CK5(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7397 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_CK5
7400 complex(CKG) ,
intent(in) ,
contiguous :: table(:,:)
7401 character(
*, SK) ,
intent(in) ,
optional :: header, sep
7402 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7403 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7404 integer(IK) ,
intent(in) ,
optional :: roff
7405 integer(IK) ,
intent(in) :: unit
7411 module function getErrTableWriteUnit_NO_D2_CK4(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7413 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_CK4
7416 complex(CKG) ,
intent(in) ,
contiguous :: table(:,:)
7417 character(
*, SK) ,
intent(in) ,
optional :: header, sep
7418 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7419 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7420 integer(IK) ,
intent(in) ,
optional :: roff
7421 integer(IK) ,
intent(in) :: unit
7427 module function getErrTableWriteUnit_NO_D2_CK3(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7429 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_CK3
7432 complex(CKG) ,
intent(in) ,
contiguous :: table(:,:)
7433 character(
*, SK) ,
intent(in) ,
optional :: header, sep
7434 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7435 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7436 integer(IK) ,
intent(in) ,
optional :: roff
7437 integer(IK) ,
intent(in) :: unit
7443 module function getErrTableWriteUnit_NO_D2_CK2(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7445 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_CK2
7448 complex(CKG) ,
intent(in) ,
contiguous :: table(:,:)
7449 character(
*, SK) ,
intent(in) ,
optional :: header, sep
7450 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7451 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7452 integer(IK) ,
intent(in) ,
optional :: roff
7453 integer(IK) ,
intent(in) :: unit
7459 module function getErrTableWriteUnit_NO_D2_CK1(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7461 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_CK1
7464 complex(CKG) ,
intent(in) ,
contiguous :: table(:,:)
7465 character(
*, SK) ,
intent(in) ,
optional :: header, sep
7466 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7467 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7468 integer(IK) ,
intent(in) ,
optional :: roff
7469 integer(IK) ,
intent(in) :: unit
7477 module function getErrTableWriteUnit_NO_D2_RK5(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7479 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_RK5
7482 real(RKG) ,
intent(in) ,
contiguous :: table(:,:)
7483 character(
*, SK) ,
intent(in) ,
optional :: header, sep
7484 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7485 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7486 integer(IK) ,
intent(in) ,
optional :: roff
7487 integer(IK) ,
intent(in) :: unit
7493 module function getErrTableWriteUnit_NO_D2_RK4(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7495 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_RK4
7498 real(RKG) ,
intent(in) ,
contiguous :: table(:,:)
7499 character(
*, SK) ,
intent(in) ,
optional :: header, sep
7500 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7501 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7502 integer(IK) ,
intent(in) ,
optional :: roff
7503 integer(IK) ,
intent(in) :: unit
7509 module function getErrTableWriteUnit_NO_D2_RK3(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7511 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_RK3
7514 real(RKG) ,
intent(in) ,
contiguous :: table(:,:)
7515 character(
*, SK) ,
intent(in) ,
optional :: header, sep
7516 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7517 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7518 integer(IK) ,
intent(in) ,
optional :: roff
7519 integer(IK) ,
intent(in) :: unit
7525 module function getErrTableWriteUnit_NO_D2_RK2(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7526#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7527 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_RK2
7530 real(RKG) ,
intent(in) ,
contiguous :: table(:,:)
7531 character(
*, SK) ,
intent(in) ,
optional :: header, sep
7532 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7533 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7534 integer(IK) ,
intent(in) ,
optional :: roff
7535 integer(IK) ,
intent(in) :: unit
7541 module function getErrTableWriteUnit_NO_D2_RK1(unit, table, header, sep, deliml, delimr, roff, iomsg)
result(err)
7542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7543 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_NO_D2_RK1
7546 real(RKG) ,
intent(in) ,
contiguous :: table(:,:)
7547 character(
*, SK) ,
intent(in) ,
optional :: header, sep
7548 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7549 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7550 integer(IK) ,
intent(in) ,
optional :: roff
7551 integer(IK) ,
intent(in) :: unit
7567 module function getErrTableWriteFile_TO_D1_SK5(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
7568#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7569 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_SK5
7572 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:)
7573 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7574 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7575 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7576 type(trans_type) ,
intent(in) :: operation
7577 integer(IK) ,
intent(in) ,
optional :: roff
7583 module function getErrTableWriteFile_TO_D1_SK4(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
7584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7585 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_SK4
7588 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:)
7589 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7590 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7591 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7592 type(trans_type) ,
intent(in) :: operation
7593 integer(IK) ,
intent(in) ,
optional :: roff
7599 module function getErrTableWriteFile_TO_D1_SK3(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
7600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7601 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_SK3
7604 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:)
7605 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7606 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7607 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7608 type(trans_type) ,
intent(in) :: operation
7609 integer(IK) ,
intent(in) ,
optional :: roff
7615 module function getErrTableWriteFile_TO_D1_SK2(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
7616#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7617 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_SK2
7620 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:)
7621 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7622 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7623 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7624 type(trans_type) ,
intent(in) :: operation
7625 integer(IK) ,
intent(in) ,
optional :: roff
7631 module function getErrTableWriteFile_TO_D1_SK1(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
7632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7633 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_SK1
7636 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:)
7637 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7638 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7639 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7640 type(trans_type) ,
intent(in) :: operation
7641 integer(IK) ,
intent(in) ,
optional :: roff
7649 module function getErrTableWriteFile_TO_D1_IK5(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
7650#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7651 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_IK5
7654 integer(IKG) ,
intent(in) ,
contiguous :: table(:)
7655 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7656 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7657 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7658 type(trans_type) ,
intent(in) :: operation
7659 integer(IK) ,
intent(in) ,
optional :: roff
7665 module function getErrTableWriteFile_TO_D1_IK4(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
7666#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7667 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_IK4
7670 integer(IKG) ,
intent(in) ,
contiguous :: table(:)
7671 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7672 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7673 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7674 type(trans_type) ,
intent(in) :: operation
7675 integer(IK) ,
intent(in) ,
optional :: roff
7681 module function getErrTableWriteFile_TO_D1_IK3(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
7682#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7683 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_IK3
7686 integer(IKG) ,
intent(in) ,
contiguous :: table(:)
7687 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7688 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7689 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7690 type(trans_type) ,
intent(in) :: operation
7691 integer(IK) ,
intent(in) ,
optional :: roff
7697 module function getErrTableWriteFile_TO_D1_IK2(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
7698#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7699 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_IK2
7702 integer(IKG) ,
intent(in) ,
contiguous :: table(:)
7703 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7704 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7705 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7706 type(trans_type) ,
intent(in) :: operation
7707 integer(IK) ,
intent(in) ,
optional :: roff
7713 module function getErrTableWriteFile_TO_D1_IK1(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
7714#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7715 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_IK1
7718 integer(IKG) ,
intent(in) ,
contiguous :: table(:)
7719 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7720 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7721 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7722 type(trans_type) ,
intent(in) :: operation
7723 integer(IK) ,
intent(in) ,
optional :: roff
7731 module function getErrTableWriteFile_TO_D1_LK5(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
7732#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7733 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_LK5
7736 logical(LKG) ,
intent(in) ,
contiguous :: table(:)
7737 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7738 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7739 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7740 type(trans_type) ,
intent(in) :: operation
7741 integer(IK) ,
intent(in) ,
optional :: roff
7747 module function getErrTableWriteFile_TO_D1_LK4(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
7748#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7749 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_LK4
7752 logical(LKG) ,
intent(in) ,
contiguous :: table(:)
7753 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7754 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7755 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7756 type(trans_type) ,
intent(in) :: operation
7757 integer(IK) ,
intent(in) ,
optional :: roff
7763 module function getErrTableWriteFile_TO_D1_LK3(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
7764#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7765 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_LK3
7768 logical(LKG) ,
intent(in) ,
contiguous :: table(:)
7769 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7770 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7771 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7772 type(trans_type) ,
intent(in) :: operation
7773 integer(IK) ,
intent(in) ,
optional :: roff
7779 module function getErrTableWriteFile_TO_D1_LK2(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
7780#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7781 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_LK2
7784 logical(LKG) ,
intent(in) ,
contiguous :: table(:)
7785 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7786 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7787 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7788 type(trans_type) ,
intent(in) :: operation
7789 integer(IK) ,
intent(in) ,
optional :: roff
7795 module function getErrTableWriteFile_TO_D1_LK1(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
7796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7797 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_LK1
7800 logical(LKG) ,
intent(in) ,
contiguous :: table(:)
7801 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7802 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7803 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7804 type(trans_type) ,
intent(in) :: operation
7805 integer(IK) ,
intent(in) ,
optional :: roff
7813 module function getErrTableWriteFile_TO_D1_CK5(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
7814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7815 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_CK5
7818 complex(CKG) ,
intent(in) ,
contiguous :: table(:)
7819 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7820 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7821 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7822 type(trans_type) ,
intent(in) :: operation
7823 integer(IK) ,
intent(in) ,
optional :: roff
7829 module function getErrTableWriteFile_TO_D1_CK4(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
7830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7831 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_CK4
7834 complex(CKG) ,
intent(in) ,
contiguous :: table(:)
7835 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7836 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7837 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7838 type(trans_type) ,
intent(in) :: operation
7839 integer(IK) ,
intent(in) ,
optional :: roff
7845 module function getErrTableWriteFile_TO_D1_CK3(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
7846#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7847 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_CK3
7850 complex(CKG) ,
intent(in) ,
contiguous :: table(:)
7851 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7852 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7853 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7854 type(trans_type) ,
intent(in) :: operation
7855 integer(IK) ,
intent(in) ,
optional :: roff
7861 module function getErrTableWriteFile_TO_D1_CK2(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
7862#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7863 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_CK2
7866 complex(CKG) ,
intent(in) ,
contiguous :: table(:)
7867 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7868 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7869 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7870 type(trans_type) ,
intent(in) :: operation
7871 integer(IK) ,
intent(in) ,
optional :: roff
7877 module function getErrTableWriteFile_TO_D1_CK1(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
7878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7879 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_CK1
7882 complex(CKG) ,
intent(in) ,
contiguous :: table(:)
7883 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7884 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7885 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7886 type(trans_type) ,
intent(in) :: operation
7887 integer(IK) ,
intent(in) ,
optional :: roff
7895 module function getErrTableWriteFile_TO_D1_RK5(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
7896#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7897 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_RK5
7900 real(RKG) ,
intent(in) ,
contiguous :: table(:)
7901 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7902 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7903 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7904 type(trans_type) ,
intent(in) :: operation
7905 integer(IK) ,
intent(in) ,
optional :: roff
7911 module function getErrTableWriteFile_TO_D1_RK4(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
7912#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7913 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_RK4
7916 real(RKG) ,
intent(in) ,
contiguous :: table(:)
7917 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7918 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7919 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7920 type(trans_type) ,
intent(in) :: operation
7921 integer(IK) ,
intent(in) ,
optional :: roff
7927 module function getErrTableWriteFile_TO_D1_RK3(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
7928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7929 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_RK3
7932 real(RKG) ,
intent(in) ,
contiguous :: table(:)
7933 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7934 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7935 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7936 type(trans_type) ,
intent(in) :: operation
7937 integer(IK) ,
intent(in) ,
optional :: roff
7943 module function getErrTableWriteFile_TO_D1_RK2(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
7944#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7945 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_RK2
7948 real(RKG) ,
intent(in) ,
contiguous :: table(:)
7949 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7950 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7951 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7952 type(trans_type) ,
intent(in) :: operation
7953 integer(IK) ,
intent(in) ,
optional :: roff
7959 module function getErrTableWriteFile_TO_D1_RK1(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
7960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7961 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D1_RK1
7964 real(RKG) ,
intent(in) ,
contiguous :: table(:)
7965 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
7966 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7967 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7968 type(trans_type) ,
intent(in) :: operation
7969 integer(IK) ,
intent(in) ,
optional :: roff
7985 module function getErrTableWriteUnit_TO_D1_SK5(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
7986#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7987 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_SK5
7990 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:)
7991 character(
*, SK) ,
intent(in) ,
optional :: header, sep
7992 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
7993 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
7994 type(trans_type) ,
intent(in) :: operation
7995 integer(IK) ,
intent(in) ,
optional :: roff
7996 integer(IK) ,
intent(in) :: unit
8002 module function getErrTableWriteUnit_TO_D1_SK4(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8004 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_SK4
8007 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:)
8008 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8009 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8010 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8011 type(trans_type) ,
intent(in) :: operation
8012 integer(IK) ,
intent(in) ,
optional :: roff
8013 integer(IK) ,
intent(in) :: unit
8019 module function getErrTableWriteUnit_TO_D1_SK3(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8020#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8021 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_SK3
8024 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:)
8025 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8026 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8027 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8028 type(trans_type) ,
intent(in) :: operation
8029 integer(IK) ,
intent(in) ,
optional :: roff
8030 integer(IK) ,
intent(in) :: unit
8036 module function getErrTableWriteUnit_TO_D1_SK2(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8038 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_SK2
8041 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:)
8042 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8043 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8044 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8045 type(trans_type) ,
intent(in) :: operation
8046 integer(IK) ,
intent(in) ,
optional :: roff
8047 integer(IK) ,
intent(in) :: unit
8053 module function getErrTableWriteUnit_TO_D1_SK1(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8054#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8055 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_SK1
8058 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:)
8059 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8060 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8061 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8062 type(trans_type) ,
intent(in) :: operation
8063 integer(IK) ,
intent(in) ,
optional :: roff
8064 integer(IK) ,
intent(in) :: unit
8072 module function getErrTableWriteUnit_TO_D1_IK5(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8074 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_IK5
8077 integer(IKG) ,
intent(in) ,
contiguous :: table(:)
8078 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8079 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8080 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8081 type(trans_type) ,
intent(in) :: operation
8082 integer(IK) ,
intent(in) ,
optional :: roff
8083 integer(IK) ,
intent(in) :: unit
8089 module function getErrTableWriteUnit_TO_D1_IK4(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8090#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8091 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_IK4
8094 integer(IKG) ,
intent(in) ,
contiguous :: table(:)
8095 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8096 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8097 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8098 type(trans_type) ,
intent(in) :: operation
8099 integer(IK) ,
intent(in) ,
optional :: roff
8100 integer(IK) ,
intent(in) :: unit
8106 module function getErrTableWriteUnit_TO_D1_IK3(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8108 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_IK3
8111 integer(IKG) ,
intent(in) ,
contiguous :: table(:)
8112 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8113 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8114 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8115 type(trans_type) ,
intent(in) :: operation
8116 integer(IK) ,
intent(in) ,
optional :: roff
8117 integer(IK) ,
intent(in) :: unit
8123 module function getErrTableWriteUnit_TO_D1_IK2(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8125 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_IK2
8128 integer(IKG) ,
intent(in) ,
contiguous :: table(:)
8129 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8130 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8131 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8132 type(trans_type) ,
intent(in) :: operation
8133 integer(IK) ,
intent(in) ,
optional :: roff
8134 integer(IK) ,
intent(in) :: unit
8140 module function getErrTableWriteUnit_TO_D1_IK1(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8142 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_IK1
8145 integer(IKG) ,
intent(in) ,
contiguous :: table(:)
8146 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8147 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8148 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8149 type(trans_type) ,
intent(in) :: operation
8150 integer(IK) ,
intent(in) ,
optional :: roff
8151 integer(IK) ,
intent(in) :: unit
8159 module function getErrTableWriteUnit_TO_D1_LK5(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8160#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8161 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_LK5
8164 logical(LKG) ,
intent(in) ,
contiguous :: table(:)
8165 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8166 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8167 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8168 type(trans_type) ,
intent(in) :: operation
8169 integer(IK) ,
intent(in) ,
optional :: roff
8170 integer(IK) ,
intent(in) :: unit
8176 module function getErrTableWriteUnit_TO_D1_LK4(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8178 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_LK4
8181 logical(LKG) ,
intent(in) ,
contiguous :: table(:)
8182 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8183 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8184 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8185 type(trans_type) ,
intent(in) :: operation
8186 integer(IK) ,
intent(in) ,
optional :: roff
8187 integer(IK) ,
intent(in) :: unit
8193 module function getErrTableWriteUnit_TO_D1_LK3(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8195 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_LK3
8198 logical(LKG) ,
intent(in) ,
contiguous :: table(:)
8199 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8200 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8201 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8202 type(trans_type) ,
intent(in) :: operation
8203 integer(IK) ,
intent(in) ,
optional :: roff
8204 integer(IK) ,
intent(in) :: unit
8210 module function getErrTableWriteUnit_TO_D1_LK2(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8212 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_LK2
8215 logical(LKG) ,
intent(in) ,
contiguous :: table(:)
8216 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8217 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8218 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8219 type(trans_type) ,
intent(in) :: operation
8220 integer(IK) ,
intent(in) ,
optional :: roff
8221 integer(IK) ,
intent(in) :: unit
8227 module function getErrTableWriteUnit_TO_D1_LK1(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8229 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_LK1
8232 logical(LKG) ,
intent(in) ,
contiguous :: table(:)
8233 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8234 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8235 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8236 type(trans_type) ,
intent(in) :: operation
8237 integer(IK) ,
intent(in) ,
optional :: roff
8238 integer(IK) ,
intent(in) :: unit
8246 module function getErrTableWriteUnit_TO_D1_CK5(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8248 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_CK5
8251 complex(CKG) ,
intent(in) ,
contiguous :: table(:)
8252 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8253 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8254 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8255 type(trans_type) ,
intent(in) :: operation
8256 integer(IK) ,
intent(in) ,
optional :: roff
8257 integer(IK) ,
intent(in) :: unit
8263 module function getErrTableWriteUnit_TO_D1_CK4(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8264#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8265 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_CK4
8268 complex(CKG) ,
intent(in) ,
contiguous :: table(:)
8269 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8270 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8271 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8272 type(trans_type) ,
intent(in) :: operation
8273 integer(IK) ,
intent(in) ,
optional :: roff
8274 integer(IK) ,
intent(in) :: unit
8280 module function getErrTableWriteUnit_TO_D1_CK3(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8282 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_CK3
8285 complex(CKG) ,
intent(in) ,
contiguous :: table(:)
8286 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8287 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8288 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8289 type(trans_type) ,
intent(in) :: operation
8290 integer(IK) ,
intent(in) ,
optional :: roff
8291 integer(IK) ,
intent(in) :: unit
8297 module function getErrTableWriteUnit_TO_D1_CK2(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8299 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_CK2
8302 complex(CKG) ,
intent(in) ,
contiguous :: table(:)
8303 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8304 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8305 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8306 type(trans_type) ,
intent(in) :: operation
8307 integer(IK) ,
intent(in) ,
optional :: roff
8308 integer(IK) ,
intent(in) :: unit
8314 module function getErrTableWriteUnit_TO_D1_CK1(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8316 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_CK1
8319 complex(CKG) ,
intent(in) ,
contiguous :: table(:)
8320 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8321 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8322 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8323 type(trans_type) ,
intent(in) :: operation
8324 integer(IK) ,
intent(in) ,
optional :: roff
8325 integer(IK) ,
intent(in) :: unit
8333 module function getErrTableWriteUnit_TO_D1_RK5(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8335 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_RK5
8338 real(RKG) ,
intent(in) ,
contiguous :: table(:)
8339 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8340 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8341 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8342 type(trans_type) ,
intent(in) :: operation
8343 integer(IK) ,
intent(in) ,
optional :: roff
8344 integer(IK) ,
intent(in) :: unit
8350 module function getErrTableWriteUnit_TO_D1_RK4(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8352 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_RK4
8355 real(RKG) ,
intent(in) ,
contiguous :: table(:)
8356 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8357 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8358 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8359 type(trans_type) ,
intent(in) :: operation
8360 integer(IK) ,
intent(in) ,
optional :: roff
8361 integer(IK) ,
intent(in) :: unit
8367 module function getErrTableWriteUnit_TO_D1_RK3(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8369 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_RK3
8372 real(RKG) ,
intent(in) ,
contiguous :: table(:)
8373 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8374 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8375 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8376 type(trans_type) ,
intent(in) :: operation
8377 integer(IK) ,
intent(in) ,
optional :: roff
8378 integer(IK) ,
intent(in) :: unit
8384 module function getErrTableWriteUnit_TO_D1_RK2(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8386 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_RK2
8389 real(RKG) ,
intent(in) ,
contiguous :: table(:)
8390 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8391 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8392 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8393 type(trans_type) ,
intent(in) :: operation
8394 integer(IK) ,
intent(in) ,
optional :: roff
8395 integer(IK) ,
intent(in) :: unit
8401 module function getErrTableWriteUnit_TO_D1_RK1(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8403 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D1_RK1
8406 real(RKG) ,
intent(in) ,
contiguous :: table(:)
8407 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8408 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8409 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8410 type(trans_type) ,
intent(in) :: operation
8411 integer(IK) ,
intent(in) ,
optional :: roff
8412 integer(IK) ,
intent(in) :: unit
8428 module function getErrTableWriteFile_TO_D2_SK5(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8429#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8430 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_SK5
8433 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:,:)
8434 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
8435 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8436 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8437 type(trans_type) ,
intent(in) :: operation
8438 integer(IK) ,
intent(in) ,
optional :: roff
8444 module function getErrTableWriteFile_TO_D2_SK4(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8446 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_SK4
8449 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:,:)
8450 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
8451 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8452 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8453 type(trans_type) ,
intent(in) :: operation
8454 integer(IK) ,
intent(in) ,
optional :: roff
8460 module function getErrTableWriteFile_TO_D2_SK3(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8462 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_SK3
8465 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:,:)
8466 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
8467 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8468 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8469 type(trans_type) ,
intent(in) :: operation
8470 integer(IK) ,
intent(in) ,
optional :: roff
8476 module function getErrTableWriteFile_TO_D2_SK2(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8478 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_SK2
8481 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:,:)
8482 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
8483 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8484 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8485 type(trans_type) ,
intent(in) :: operation
8486 integer(IK) ,
intent(in) ,
optional :: roff
8492 module function getErrTableWriteFile_TO_D2_SK1(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8494 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_SK1
8497 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:,:)
8498 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
8499 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8500 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8501 type(trans_type) ,
intent(in) :: operation
8502 integer(IK) ,
intent(in) ,
optional :: roff
8510 module function getErrTableWriteFile_TO_D2_IK5(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8512 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_IK5
8515 integer(IKG) ,
intent(in) ,
contiguous :: table(:,:)
8516 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
8517 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8518 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8519 type(trans_type) ,
intent(in) :: operation
8520 integer(IK) ,
intent(in) ,
optional :: roff
8526 module function getErrTableWriteFile_TO_D2_IK4(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8528 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_IK4
8531 integer(IKG) ,
intent(in) ,
contiguous :: table(:,:)
8532 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
8533 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8534 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8535 type(trans_type) ,
intent(in) :: operation
8536 integer(IK) ,
intent(in) ,
optional :: roff
8542 module function getErrTableWriteFile_TO_D2_IK3(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8544 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_IK3
8547 integer(IKG) ,
intent(in) ,
contiguous :: table(:,:)
8548 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
8549 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8550 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8551 type(trans_type) ,
intent(in) :: operation
8552 integer(IK) ,
intent(in) ,
optional :: roff
8558 module function getErrTableWriteFile_TO_D2_IK2(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8560 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_IK2
8563 integer(IKG) ,
intent(in) ,
contiguous :: table(:,:)
8564 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
8565 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8566 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8567 type(trans_type) ,
intent(in) :: operation
8568 integer(IK) ,
intent(in) ,
optional :: roff
8574 module function getErrTableWriteFile_TO_D2_IK1(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8576 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_IK1
8579 integer(IKG) ,
intent(in) ,
contiguous :: table(:,:)
8580 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
8581 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8582 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8583 type(trans_type) ,
intent(in) :: operation
8584 integer(IK) ,
intent(in) ,
optional :: roff
8592 module function getErrTableWriteFile_TO_D2_LK5(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8594 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_LK5
8597 logical(LKG) ,
intent(in) ,
contiguous :: table(:,:)
8598 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
8599 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8600 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8601 type(trans_type) ,
intent(in) :: operation
8602 integer(IK) ,
intent(in) ,
optional :: roff
8608 module function getErrTableWriteFile_TO_D2_LK4(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8610 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_LK4
8613 logical(LKG) ,
intent(in) ,
contiguous :: table(:,:)
8614 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
8615 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8616 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8617 type(trans_type) ,
intent(in) :: operation
8618 integer(IK) ,
intent(in) ,
optional :: roff
8624 module function getErrTableWriteFile_TO_D2_LK3(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8625#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8626 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_LK3
8629 logical(LKG) ,
intent(in) ,
contiguous :: table(:,:)
8630 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
8631 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8632 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8633 type(trans_type) ,
intent(in) :: operation
8634 integer(IK) ,
intent(in) ,
optional :: roff
8640 module function getErrTableWriteFile_TO_D2_LK2(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8642 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_LK2
8645 logical(LKG) ,
intent(in) ,
contiguous :: table(:,:)
8646 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
8647 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8648 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8649 type(trans_type) ,
intent(in) :: operation
8650 integer(IK) ,
intent(in) ,
optional :: roff
8656 module function getErrTableWriteFile_TO_D2_LK1(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8658 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_LK1
8661 logical(LKG) ,
intent(in) ,
contiguous :: table(:,:)
8662 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
8663 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8664 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8665 type(trans_type) ,
intent(in) :: operation
8666 integer(IK) ,
intent(in) ,
optional :: roff
8674 module function getErrTableWriteFile_TO_D2_CK5(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8676 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_CK5
8679 complex(CKG) ,
intent(in) ,
contiguous :: table(:,:)
8680 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
8681 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8682 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8683 type(trans_type) ,
intent(in) :: operation
8684 integer(IK) ,
intent(in) ,
optional :: roff
8690 module function getErrTableWriteFile_TO_D2_CK4(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8692 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_CK4
8695 complex(CKG) ,
intent(in) ,
contiguous :: table(:,:)
8696 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
8697 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8698 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8699 type(trans_type) ,
intent(in) :: operation
8700 integer(IK) ,
intent(in) ,
optional :: roff
8706 module function getErrTableWriteFile_TO_D2_CK3(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8708 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_CK3
8711 complex(CKG) ,
intent(in) ,
contiguous :: table(:,:)
8712 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
8713 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8714 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8715 type(trans_type) ,
intent(in) :: operation
8716 integer(IK) ,
intent(in) ,
optional :: roff
8722 module function getErrTableWriteFile_TO_D2_CK2(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8724 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_CK2
8727 complex(CKG) ,
intent(in) ,
contiguous :: table(:,:)
8728 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
8729 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8730 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8731 type(trans_type) ,
intent(in) :: operation
8732 integer(IK) ,
intent(in) ,
optional :: roff
8738 module function getErrTableWriteFile_TO_D2_CK1(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8740 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_CK1
8743 complex(CKG) ,
intent(in) ,
contiguous :: table(:,:)
8744 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
8745 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8746 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8747 type(trans_type) ,
intent(in) :: operation
8748 integer(IK) ,
intent(in) ,
optional :: roff
8756 module function getErrTableWriteFile_TO_D2_RK5(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8758 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_RK5
8761 real(RKG) ,
intent(in) ,
contiguous :: table(:,:)
8762 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
8763 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8764 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8765 type(trans_type) ,
intent(in) :: operation
8766 integer(IK) ,
intent(in) ,
optional :: roff
8772 module function getErrTableWriteFile_TO_D2_RK4(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8774 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_RK4
8777 real(RKG) ,
intent(in) ,
contiguous :: table(:,:)
8778 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
8779 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8780 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8781 type(trans_type) ,
intent(in) :: operation
8782 integer(IK) ,
intent(in) ,
optional :: roff
8788 module function getErrTableWriteFile_TO_D2_RK3(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8790 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_RK3
8793 real(RKG) ,
intent(in) ,
contiguous :: table(:,:)
8794 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
8795 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8796 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8797 type(trans_type) ,
intent(in) :: operation
8798 integer(IK) ,
intent(in) ,
optional :: roff
8804 module function getErrTableWriteFile_TO_D2_RK2(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8806 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_RK2
8809 real(RKG) ,
intent(in) ,
contiguous :: table(:,:)
8810 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
8811 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8812 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8813 type(trans_type) ,
intent(in) :: operation
8814 integer(IK) ,
intent(in) ,
optional :: roff
8820 module function getErrTableWriteFile_TO_D2_RK1(file, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8822 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteFile_TO_D2_RK1
8825 real(RKG) ,
intent(in) ,
contiguous :: table(:,:)
8826 character(
*, SK) ,
intent(in) ,
optional :: file, header, sep
8827 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8828 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8829 type(trans_type) ,
intent(in) :: operation
8830 integer(IK) ,
intent(in) ,
optional :: roff
8846 module function getErrTableWriteUnit_TO_D2_SK5(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8848 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_SK5
8851 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:,:)
8852 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8853 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8854 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8855 type(trans_type) ,
intent(in) :: operation
8856 integer(IK) ,
intent(in) ,
optional :: roff
8857 integer(IK) ,
intent(in) :: unit
8863 module function getErrTableWriteUnit_TO_D2_SK4(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8864#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8865 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_SK4
8868 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:,:)
8869 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8870 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8871 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8872 type(trans_type) ,
intent(in) :: operation
8873 integer(IK) ,
intent(in) ,
optional :: roff
8874 integer(IK) ,
intent(in) :: unit
8880 module function getErrTableWriteUnit_TO_D2_SK3(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8882 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_SK3
8885 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:,:)
8886 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8887 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8888 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8889 type(trans_type) ,
intent(in) :: operation
8890 integer(IK) ,
intent(in) ,
optional :: roff
8891 integer(IK) ,
intent(in) :: unit
8897 module function getErrTableWriteUnit_TO_D2_SK2(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8899 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_SK2
8902 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:,:)
8903 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8904 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8905 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8906 type(trans_type) ,
intent(in) :: operation
8907 integer(IK) ,
intent(in) ,
optional :: roff
8908 integer(IK) ,
intent(in) :: unit
8914 module function getErrTableWriteUnit_TO_D2_SK1(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8916 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_SK1
8919 character(
*,SKG) ,
intent(in) ,
contiguous :: table(:,:)
8920 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8921 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8922 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8923 type(trans_type) ,
intent(in) :: operation
8924 integer(IK) ,
intent(in) ,
optional :: roff
8925 integer(IK) ,
intent(in) :: unit
8933 module function getErrTableWriteUnit_TO_D2_IK5(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8934#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8935 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_IK5
8938 integer(IKG) ,
intent(in) ,
contiguous :: table(:,:)
8939 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8940 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8941 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8942 type(trans_type) ,
intent(in) :: operation
8943 integer(IK) ,
intent(in) ,
optional :: roff
8944 integer(IK) ,
intent(in) :: unit
8950 module function getErrTableWriteUnit_TO_D2_IK4(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8951#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8952 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_IK4
8955 integer(IKG) ,
intent(in) ,
contiguous :: table(:,:)
8956 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8957 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8958 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8959 type(trans_type) ,
intent(in) :: operation
8960 integer(IK) ,
intent(in) ,
optional :: roff
8961 integer(IK) ,
intent(in) :: unit
8967 module function getErrTableWriteUnit_TO_D2_IK3(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8969 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_IK3
8972 integer(IKG) ,
intent(in) ,
contiguous :: table(:,:)
8973 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8974 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8975 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8976 type(trans_type) ,
intent(in) :: operation
8977 integer(IK) ,
intent(in) ,
optional :: roff
8978 integer(IK) ,
intent(in) :: unit
8984 module function getErrTableWriteUnit_TO_D2_IK2(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
8985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8986 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_IK2
8989 integer(IKG) ,
intent(in) ,
contiguous :: table(:,:)
8990 character(
*, SK) ,
intent(in) ,
optional :: header, sep
8991 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
8992 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
8993 type(trans_type) ,
intent(in) :: operation
8994 integer(IK) ,
intent(in) ,
optional :: roff
8995 integer(IK) ,
intent(in) :: unit
9001 module function getErrTableWriteUnit_TO_D2_IK1(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
9002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9003 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_IK1
9006 integer(IKG) ,
intent(in) ,
contiguous :: table(:,:)
9007 character(
*, SK) ,
intent(in) ,
optional :: header, sep
9008 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
9009 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
9010 type(trans_type) ,
intent(in) :: operation
9011 integer(IK) ,
intent(in) ,
optional :: roff
9012 integer(IK) ,
intent(in) :: unit
9020 module function getErrTableWriteUnit_TO_D2_LK5(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
9021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9022 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_LK5
9025 logical(LKG) ,
intent(in) ,
contiguous :: table(:,:)
9026 character(
*, SK) ,
intent(in) ,
optional :: header, sep
9027 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
9028 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
9029 type(trans_type) ,
intent(in) :: operation
9030 integer(IK) ,
intent(in) ,
optional :: roff
9031 integer(IK) ,
intent(in) :: unit
9037 module function getErrTableWriteUnit_TO_D2_LK4(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
9038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9039 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_LK4
9042 logical(LKG) ,
intent(in) ,
contiguous :: table(:,:)
9043 character(
*, SK) ,
intent(in) ,
optional :: header, sep
9044 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
9045 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
9046 type(trans_type) ,
intent(in) :: operation
9047 integer(IK) ,
intent(in) ,
optional :: roff
9048 integer(IK) ,
intent(in) :: unit
9054 module function getErrTableWriteUnit_TO_D2_LK3(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
9055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9056 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_LK3
9059 logical(LKG) ,
intent(in) ,
contiguous :: table(:,:)
9060 character(
*, SK) ,
intent(in) ,
optional :: header, sep
9061 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
9062 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
9063 type(trans_type) ,
intent(in) :: operation
9064 integer(IK) ,
intent(in) ,
optional :: roff
9065 integer(IK) ,
intent(in) :: unit
9071 module function getErrTableWriteUnit_TO_D2_LK2(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
9072#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9073 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_LK2
9076 logical(LKG) ,
intent(in) ,
contiguous :: table(:,:)
9077 character(
*, SK) ,
intent(in) ,
optional :: header, sep
9078 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
9079 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
9080 type(trans_type) ,
intent(in) :: operation
9081 integer(IK) ,
intent(in) ,
optional :: roff
9082 integer(IK) ,
intent(in) :: unit
9088 module function getErrTableWriteUnit_TO_D2_LK1(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
9089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9090 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_LK1
9093 logical(LKG) ,
intent(in) ,
contiguous :: table(:,:)
9094 character(
*, SK) ,
intent(in) ,
optional :: header, sep
9095 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
9096 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
9097 type(trans_type) ,
intent(in) :: operation
9098 integer(IK) ,
intent(in) ,
optional :: roff
9099 integer(IK) ,
intent(in) :: unit
9107 module function getErrTableWriteUnit_TO_D2_CK5(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
9108#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9109 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_CK5
9112 complex(CKG) ,
intent(in) ,
contiguous :: table(:,:)
9113 character(
*, SK) ,
intent(in) ,
optional :: header, sep
9114 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
9115 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
9116 type(trans_type) ,
intent(in) :: operation
9117 integer(IK) ,
intent(in) ,
optional :: roff
9118 integer(IK) ,
intent(in) :: unit
9124 module function getErrTableWriteUnit_TO_D2_CK4(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
9125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9126 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_CK4
9129 complex(CKG) ,
intent(in) ,
contiguous :: table(:,:)
9130 character(
*, SK) ,
intent(in) ,
optional :: header, sep
9131 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
9132 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
9133 type(trans_type) ,
intent(in) :: operation
9134 integer(IK) ,
intent(in) ,
optional :: roff
9135 integer(IK) ,
intent(in) :: unit
9141 module function getErrTableWriteUnit_TO_D2_CK3(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
9142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9143 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_CK3
9146 complex(CKG) ,
intent(in) ,
contiguous :: table(:,:)
9147 character(
*, SK) ,
intent(in) ,
optional :: header, sep
9148 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
9149 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
9150 type(trans_type) ,
intent(in) :: operation
9151 integer(IK) ,
intent(in) ,
optional :: roff
9152 integer(IK) ,
intent(in) :: unit
9158 module function getErrTableWriteUnit_TO_D2_CK2(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
9159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9160 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_CK2
9163 complex(CKG) ,
intent(in) ,
contiguous :: table(:,:)
9164 character(
*, SK) ,
intent(in) ,
optional :: header, sep
9165 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
9166 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
9167 type(trans_type) ,
intent(in) :: operation
9168 integer(IK) ,
intent(in) ,
optional :: roff
9169 integer(IK) ,
intent(in) :: unit
9175 module function getErrTableWriteUnit_TO_D2_CK1(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
9176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9177 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_CK1
9180 complex(CKG) ,
intent(in) ,
contiguous :: table(:,:)
9181 character(
*, SK) ,
intent(in) ,
optional :: header, sep
9182 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
9183 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
9184 type(trans_type) ,
intent(in) :: operation
9185 integer(IK) ,
intent(in) ,
optional :: roff
9186 integer(IK) ,
intent(in) :: unit
9194 module function getErrTableWriteUnit_TO_D2_RK5(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
9195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9196 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_RK5
9199 real(RKG) ,
intent(in) ,
contiguous :: table(:,:)
9200 character(
*, SK) ,
intent(in) ,
optional :: header, sep
9201 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
9202 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
9203 type(trans_type) ,
intent(in) :: operation
9204 integer(IK) ,
intent(in) ,
optional :: roff
9205 integer(IK) ,
intent(in) :: unit
9211 module function getErrTableWriteUnit_TO_D2_RK4(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
9212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9213 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_RK4
9216 real(RKG) ,
intent(in) ,
contiguous :: table(:,:)
9217 character(
*, SK) ,
intent(in) ,
optional :: header, sep
9218 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
9219 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
9220 type(trans_type) ,
intent(in) :: operation
9221 integer(IK) ,
intent(in) ,
optional :: roff
9222 integer(IK) ,
intent(in) :: unit
9228 module function getErrTableWriteUnit_TO_D2_RK3(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
9229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9230 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_RK3
9233 real(RKG) ,
intent(in) ,
contiguous :: table(:,:)
9234 character(
*, SK) ,
intent(in) ,
optional :: header, sep
9235 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
9236 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
9237 type(trans_type) ,
intent(in) :: operation
9238 integer(IK) ,
intent(in) ,
optional :: roff
9239 integer(IK) ,
intent(in) :: unit
9245 module function getErrTableWriteUnit_TO_D2_RK2(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
9246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9247 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_RK2
9250 real(RKG) ,
intent(in) ,
contiguous :: table(:,:)
9251 character(
*, SK) ,
intent(in) ,
optional :: header, sep
9252 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
9253 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
9254 type(trans_type) ,
intent(in) :: operation
9255 integer(IK) ,
intent(in) ,
optional :: roff
9256 integer(IK) ,
intent(in) :: unit
9262 module function getErrTableWriteUnit_TO_D2_RK1(unit, table, operation, header, sep, deliml, delimr, roff, iomsg)
result(err)
9263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9264 !DEC$ ATTRIBUTES DLLEXPORT :: getErrTableWriteUnit_TO_D2_RK1
9267 real(RKG) ,
intent(in) ,
contiguous :: table(:,:)
9268 character(
*, SK) ,
intent(in) ,
optional :: header, sep
9269 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
9270 character(
*, SK) ,
intent(inout) ,
optional :: iomsg
9271 type(trans_type) ,
intent(in) :: operation
9272 integer(IK) ,
intent(in) ,
optional :: roff
9273 integer(IK) ,
intent(in) :: unit
9409 module function getFieldSepFile_ID0_FDEF_XX_SK(file, seps, iomsg)
result(sep)
9410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9411 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepFile_ID0_FDEF_XX_SK
9414 character(
*, SK) ,
intent(in) :: file
9415 character(
*,SKG) ,
intent(in) :: seps
9416 character(
*,SKG) ,
intent(inout) ,
optional :: iomsg
9417 character(:,SKG) ,
allocatable :: sep
9420 module function getFieldSepUnit_ID0_FDEF_XX_SK(unit, seps, iomsg)
result(sep)
9421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9422 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepUnit_ID0_FDEF_XX_SK
9425 integer(IK) ,
intent(in) :: unit
9426 character(
*,SKG) ,
intent(in) :: seps
9427 character(
*,SKG) ,
intent(inout) ,
optional :: iomsg
9428 character(:,SKG) ,
allocatable :: sep
9431 module function getFieldSepFile_ID0_FCSV_XX_SK(file, seps, form, iomsg)
result(sep)
9432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9433 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepFile_ID0_FCSV_XX_SK
9436 character(
*, SK) ,
intent(in) :: file
9437 character(
*,SKG) ,
intent(in) :: seps
9438 type(csv_type) ,
intent(in) :: form
9439 character(
*,SKG) ,
intent(inout) ,
optional :: iomsg
9440 character(:,SKG) ,
allocatable :: sep
9443 module function getFieldSepUnit_ID0_FCSV_XX_SK(unit, seps, form, iomsg)
result(sep)
9444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9445 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepUnit_ID0_FCSV_XX_SK
9448 integer(IK) ,
intent(in) :: unit
9449 character(
*,SKG) ,
intent(in) :: seps
9450 type(csv_type) ,
intent(in) :: form
9451 character(
*,SKG) ,
intent(inout) ,
optional :: iomsg
9452 character(:,SKG) ,
allocatable :: sep
9455 module function getFieldSepFile_ID0_FFLD_XX_SK(file, seps, form, iomsg)
result(sep)
9456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9457 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepFile_ID0_FFLD_XX_SK
9460 character(
*, SK) ,
intent(in) :: file
9461 character(
*,SKG) ,
intent(in) :: seps
9462 type(fld_type) ,
intent(in) :: form
9463 character(
*,SKG) ,
intent(inout) ,
optional :: iomsg
9464 character(:,SKG) ,
allocatable :: sep
9467 module function getFieldSepUnit_ID0_FFLD_XX_SK(unit, seps, form, iomsg)
result(sep)
9468#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9469 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepUnit_ID0_FFLD_XX_SK
9472 integer(IK) ,
intent(in) :: unit
9473 character(
*,SKG) ,
intent(in) :: seps
9474 type(fld_type) ,
intent(in) :: form
9475 character(
*,SKG) ,
intent(inout) ,
optional :: iomsg
9476 character(:,SKG) ,
allocatable :: sep
9485 module function getFieldSepFile_ID0_FDEF_NF_SK(file, seps, nfield, iomsg)
result(sep)
9486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9487 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepFile_ID0_FDEF_NF_SK
9490 character(
*, SK) ,
intent(in) :: file
9491 character(
*,SKG) ,
intent(in) :: seps
9492 character(
*,SKG) ,
intent(inout) ,
optional :: iomsg
9493 character(:,SKG) ,
allocatable :: sep
9494 integer(IK) ,
intent(out) :: nfield
9497 module function getFieldSepUnit_ID0_FDEF_NF_SK(unit, seps, nfield, iomsg)
result(sep)
9498#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9499 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepUnit_ID0_FDEF_NF_SK
9502 integer(IK) ,
intent(in) :: unit
9503 character(
*,SKG) ,
intent(in) :: seps
9504 character(
*,SKG) ,
intent(inout) ,
optional :: iomsg
9505 character(:,SKG) ,
allocatable :: sep
9506 integer(IK) ,
intent(out) :: nfield
9509 module function getFieldSepFile_ID0_FCSV_NF_SK(file, seps, form, nfield, iomsg)
result(sep)
9510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9511 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepFile_ID0_FCSV_NF_SK
9514 character(
*, SK) ,
intent(in) :: file
9515 character(
*,SKG) ,
intent(in) :: seps
9516 type(csv_type) ,
intent(in) :: form
9517 character(
*,SKG) ,
intent(inout) ,
optional :: iomsg
9518 character(:,SKG) ,
allocatable :: sep
9519 integer(IK) ,
intent(out) :: nfield
9522 module function getFieldSepUnit_ID0_FCSV_NF_SK(unit, seps, form, nfield, iomsg)
result(sep)
9523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9524 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepUnit_ID0_FCSV_NF_SK
9527 integer(IK) ,
intent(in) :: unit
9528 character(
*,SKG) ,
intent(in) :: seps
9529 type(csv_type) ,
intent(in) :: form
9530 character(
*,SKG) ,
intent(inout) ,
optional :: iomsg
9531 character(:,SKG) ,
allocatable :: sep
9532 integer(IK) ,
intent(out) :: nfield
9535 module function getFieldSepFile_ID0_FFLD_NF_SK(file, seps, form, nfield, iomsg)
result(sep)
9536#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9537 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepFile_ID0_FFLD_NF_SK
9540 character(
*, SK) ,
intent(in) :: file
9541 character(
*,SKG) ,
intent(in) :: seps
9542 type(fld_type) ,
intent(in) :: form
9543 character(
*,SKG) ,
intent(inout) ,
optional :: iomsg
9544 character(:,SKG) ,
allocatable :: sep
9545 integer(IK) ,
intent(out) :: nfield
9548 module function getFieldSepUnit_ID0_FFLD_NF_SK(unit, seps, form, nfield, iomsg)
result(sep)
9549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9550 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepUnit_ID0_FFLD_NF_SK
9553 integer(IK) ,
intent(in) :: unit
9554 character(
*,SKG) ,
intent(in) :: seps
9555 type(fld_type) ,
intent(in) :: form
9556 character(
*,SKG) ,
intent(inout) ,
optional :: iomsg
9557 character(:,SKG) ,
allocatable :: sep
9558 integer(IK) ,
intent(out) :: nfield
9567 module function getFieldSepFile_CD1_FDEF_XX_SK(file, seps, iomsg)
result(sep)
9568#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9569 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepFile_CD1_FDEF_XX_SK
9572 character(
*, SK) ,
intent(in) :: file
9573 type(css_type) ,
intent(in) :: seps(:)
9574 character(
*,SKG) ,
intent(inout) ,
optional :: iomsg
9575 character(:,SKG) ,
allocatable :: sep
9578 module function getFieldSepUnit_CD1_FDEF_XX_SK(unit, seps, iomsg)
result(sep)
9579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9580 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepUnit_CD1_FDEF_XX_SK
9583 integer(IK) ,
intent(in) :: unit
9584 type(css_type) ,
intent(in) :: seps(:)
9585 character(
*,SKG) ,
intent(inout) ,
optional :: iomsg
9586 character(:,SKG) ,
allocatable :: sep
9589 module function getFieldSepFile_CD1_FCSV_XX_SK(file, seps, form, iomsg)
result(sep)
9590#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9591 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepFile_CD1_FCSV_XX_SK
9594 character(
*, SK) ,
intent(in) :: file
9595 type(css_type) ,
intent(in) :: seps(:)
9596 type(csv_type) ,
intent(in) :: form
9597 character(
*,SKG) ,
intent(inout) ,
optional :: iomsg
9598 character(:,SKG) ,
allocatable :: sep
9601 module function getFieldSepUnit_CD1_FCSV_XX_SK(unit, seps, form, iomsg)
result(sep)
9602#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9603 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepUnit_CD1_FCSV_XX_SK
9606 integer(IK) ,
intent(in) :: unit
9607 type(css_type) ,
intent(in) :: seps(:)
9608 type(csv_type) ,
intent(in) :: form
9609 character(
*,SKG) ,
intent(inout) ,
optional :: iomsg
9610 character(:,SKG) ,
allocatable :: sep
9613 module function getFieldSepFile_CD1_FFLD_XX_SK(file, seps, form, iomsg)
result(sep)
9614#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9615 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepFile_CD1_FFLD_XX_SK
9618 character(
*, SK) ,
intent(in) :: file
9619 type(css_type) ,
intent(in) :: seps(:)
9620 type(fld_type) ,
intent(in) :: form
9621 character(
*,SKG) ,
intent(inout) ,
optional :: iomsg
9622 character(:,SKG) ,
allocatable :: sep
9625 module function getFieldSepUnit_CD1_FFLD_XX_SK(unit, seps, form, iomsg)
result(sep)
9626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9627 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepUnit_CD1_FFLD_XX_SK
9630 integer(IK) ,
intent(in) :: unit
9631 type(css_type) ,
intent(in) :: seps(:)
9632 type(fld_type) ,
intent(in) :: form
9633 character(
*,SKG) ,
intent(inout) ,
optional :: iomsg
9634 character(:,SKG) ,
allocatable :: sep
9643 module function getFieldSepFile_CD1_FDEF_NF_SK(file, seps, nfield, iomsg)
result(sep)
9644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9645 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepFile_CD1_FDEF_NF_SK
9648 character(
*, SK) ,
intent(in) :: file
9649 type(css_type) ,
intent(in) :: seps(:)
9650 character(
*,SKG) ,
intent(inout) ,
optional :: iomsg
9651 character(:,SKG) ,
allocatable :: sep
9652 integer(IK) ,
intent(out) :: nfield
9655 module function getFieldSepUnit_CD1_FDEF_NF_SK(unit, seps, nfield, iomsg)
result(sep)
9656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9657 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepUnit_CD1_FDEF_NF_SK
9660 integer(IK) ,
intent(in) :: unit
9661 type(css_type) ,
intent(in) :: seps(:)
9662 character(
*,SKG) ,
intent(inout) ,
optional :: iomsg
9663 character(:,SKG) ,
allocatable :: sep
9664 integer(IK) ,
intent(out) :: nfield
9667 module function getFieldSepFile_CD1_FCSV_NF_SK(file, seps, form, nfield, iomsg)
result(sep)
9668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9669 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepFile_CD1_FCSV_NF_SK
9672 character(
*, SK) ,
intent(in) :: file
9673 type(css_type) ,
intent(in) :: seps(:)
9674 type(csv_type) ,
intent(in) :: form
9675 character(
*,SKG) ,
intent(inout) ,
optional :: iomsg
9676 character(:,SKG) ,
allocatable :: sep
9677 integer(IK) ,
intent(out) :: nfield
9680 module function getFieldSepUnit_CD1_FCSV_NF_SK(unit, seps, form, nfield, iomsg)
result(sep)
9681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9682 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepUnit_CD1_FCSV_NF_SK
9685 integer(IK) ,
intent(in) :: unit
9686 type(css_type) ,
intent(in) :: seps(:)
9687 type(csv_type) ,
intent(in) :: form
9688 character(
*,SKG) ,
intent(inout) ,
optional :: iomsg
9689 character(:,SKG) ,
allocatable :: sep
9690 integer(IK) ,
intent(out) :: nfield
9693 module function getFieldSepFile_CD1_FFLD_NF_SK(file, seps, form, nfield, iomsg)
result(sep)
9694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9695 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepFile_CD1_FFLD_NF_SK
9698 character(
*, SK) ,
intent(in) :: file
9699 type(css_type) ,
intent(in) :: seps(:)
9700 type(fld_type) ,
intent(in) :: form
9701 character(
*,SKG) ,
intent(inout) ,
optional :: iomsg
9702 character(:,SKG) ,
allocatable :: sep
9703 integer(IK) ,
intent(out) :: nfield
9706 module function getFieldSepUnit_CD1_FFLD_NF_SK(unit, seps, form, nfield, iomsg)
result(sep)
9707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9708 !DEC$ ATTRIBUTES DLLEXPORT :: getFieldSepUnit_CD1_FFLD_NF_SK
9711 integer(IK) ,
intent(in) :: unit
9712 type(css_type) ,
intent(in) :: seps(:)
9713 type(fld_type) ,
intent(in) :: form
9714 character(
*,SKG) ,
intent(inout) ,
optional :: iomsg
9715 character(:,SKG) ,
allocatable :: sep
9716 integer(IK) ,
intent(out) :: nfield
9831 character(:, SK),
allocatable ,
public :: newline
9832 character(:, SK),
allocatable ,
public :: fill
9833 character(:, SK),
allocatable ,
public :: lwfill
9834 character(:, SK),
allocatable ,
public :: rwfill
9835 character(:, SK),
allocatable ,
public :: twfill
9836 character(:, SK),
allocatable ,
public :: bwfill
9837 integer(IK) ,
public :: lwsize
= 2_IK
9838 integer(IK) ,
public :: rwsize
= 2_IK
9839 integer(IK) ,
public :: twsize
= 1_IK
9840 integer(IK) ,
public :: bwsize
= 1_IK
9841 integer(IK) ,
public :: tmsize
= 0_IK
9842 integer(IK) ,
public :: bmsize
= 0_IK
9843 integer(IK) ,
public :: width
= 96_IK
9844 integer(IK) ,
public :: unit
= output_unit
9845 logical(LK) ,
private :: sticky
= .false._LK
9846 logical(LK) ,
private :: uninit
= .true._LK
9850 procedure,
pass,
private :: wrap_D0_SK5
9851 generic ::
wrap => wrap_D0_SK5
9854 procedure,
pass,
private :: wrap_D0_SK4
9855 generic ::
wrap => wrap_D0_SK4
9858 procedure,
pass,
private :: wrap_D0_SK3
9859 generic ::
wrap => wrap_D0_SK3
9862 procedure,
pass,
private :: wrap_D0_SK2
9863 generic ::
wrap => wrap_D0_SK2
9866 procedure,
pass,
private :: wrap_D0_SK1
9867 generic ::
wrap => wrap_D0_SK1
10000 impure module subroutine wrap_D0_SK5(self, str, newline, fill, lwfill, rwfill, twfill, bwfill, lwsize, rwsize, twsize, bwsize, tmsize, bmsize, width, unit, sticky)
10001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10002 !DEC$ ATTRIBUTES DLLEXPORT :: wrap_D0_SK5
10005 class(wrap_type) ,
intent(inout) :: self
10006 character(
*,SKG) ,
intent(in) :: str
10007 character(
*,SKG) ,
intent(in) ,
optional :: newline
10008 character(
1,SKG) ,
intent(in) ,
optional :: fill, lwfill, rwfill, twfill, bwfill
10009 integer(IK) ,
intent(in) ,
optional :: lwsize, twsize, rwsize, bwsize
10010 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize
10011 integer(IK) ,
intent(in) ,
optional :: width, unit
10012 logical(LK) ,
intent(in) ,
optional :: sticky
10017 impure module subroutine wrap_D0_SK4(self, str, newline, fill, lwfill, rwfill, twfill, bwfill, lwsize, rwsize, twsize, bwsize, tmsize, bmsize, width, unit, sticky)
10018#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10019 !DEC$ ATTRIBUTES DLLEXPORT :: wrap_D0_SK4
10022 class(wrap_type) ,
intent(inout) :: self
10023 character(
*,SKG) ,
intent(in) :: str
10024 character(
*,SKG) ,
intent(in) ,
optional :: newline
10025 character(
1,SKG) ,
intent(in) ,
optional :: fill, lwfill, rwfill, twfill, bwfill
10026 integer(IK) ,
intent(in) ,
optional :: lwsize, twsize, rwsize, bwsize
10027 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize
10028 integer(IK) ,
intent(in) ,
optional :: width, unit
10029 logical(LK) ,
intent(in) ,
optional :: sticky
10034 impure module subroutine wrap_D0_SK3(self, str, newline, fill, lwfill, rwfill, twfill, bwfill, lwsize, rwsize, twsize, bwsize, tmsize, bmsize, width, unit, sticky)
10035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10036 !DEC$ ATTRIBUTES DLLEXPORT :: wrap_D0_SK3
10039 class(wrap_type) ,
intent(inout) :: self
10040 character(
*,SKG) ,
intent(in) :: str
10041 character(
*,SKG) ,
intent(in) ,
optional :: newline
10042 character(
1,SKG) ,
intent(in) ,
optional :: fill, lwfill, rwfill, twfill, bwfill
10043 integer(IK) ,
intent(in) ,
optional :: lwsize, twsize, rwsize, bwsize
10044 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize
10045 integer(IK) ,
intent(in) ,
optional :: width, unit
10046 logical(LK) ,
intent(in) ,
optional :: sticky
10051 impure module subroutine wrap_D0_SK2(self, str, newline, fill, lwfill, rwfill, twfill, bwfill, lwsize, rwsize, twsize, bwsize, tmsize, bmsize, width, unit, sticky)
10052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10053 !DEC$ ATTRIBUTES DLLEXPORT :: wrap_D0_SK2
10056 class(wrap_type) ,
intent(inout) :: self
10057 character(
*,SKG) ,
intent(in) :: str
10058 character(
*,SKG) ,
intent(in) ,
optional :: newline
10059 character(
1,SKG) ,
intent(in) ,
optional :: fill, lwfill, rwfill, twfill, bwfill
10060 integer(IK) ,
intent(in) ,
optional :: lwsize, twsize, rwsize, bwsize
10061 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize
10062 integer(IK) ,
intent(in) ,
optional :: width, unit
10063 logical(LK) ,
intent(in) ,
optional :: sticky
10068 impure module subroutine wrap_D0_SK1(self, str, newline, fill, lwfill, rwfill, twfill, bwfill, lwsize, rwsize, twsize, bwsize, tmsize, bmsize, width, unit, sticky)
10069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10070 !DEC$ ATTRIBUTES DLLEXPORT :: wrap_D0_SK1
10073 class(wrap_type) ,
intent(inout) :: self
10074 character(
*,SKG) ,
intent(in) :: str
10075 character(
*,SKG) ,
intent(in) ,
optional :: newline
10076 character(
1,SKG) ,
intent(in) ,
optional :: fill, lwfill, rwfill, twfill, bwfill
10077 integer(IK) ,
intent(in) ,
optional :: lwsize, twsize, rwsize, bwsize
10078 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize
10079 integer(IK) ,
intent(in) ,
optional :: width, unit
10080 logical(LK) ,
intent(in) ,
optional :: sticky
10283 logical(LK) ,
private :: sticky
= .false._LK
10284 logical(LK) ,
private :: uninit
= .true._LK
10288 integer(IK) ,
public :: width
= -huge(
0_IK)
10289 integer(IK) ,
public :: height
= -huge(
0_IK)
10290 integer(IK) ,
public :: tmsize
= 0_IK
10291 integer(IK) ,
public :: count
= 1_IK
10292 integer(IK) ,
public :: bmsize
= 0_IK
10293 integer(IK) ,
public :: unit
= output_unit
10294 character(
3, SK) ,
public :: advance
= SK_
"YES"
10295 character(:, SK),
allocatable ,
public :: file
10313 procedure,
pass,
private :: show_D0_SK5
10314 generic ::
show => show_D0_SK5
10317 procedure,
pass,
private :: show_D0_SK4
10318 generic ::
show => show_D0_SK4
10321 procedure,
pass,
private :: show_D0_SK3
10322 generic ::
show => show_D0_SK3
10325 procedure,
pass,
private :: show_D0_SK2
10326 generic ::
show => show_D0_SK2
10329 procedure,
pass,
private :: show_D0_SK1
10330 generic ::
show => show_D0_SK1
10336 procedure,
pass,
private :: show_D0_IK5
10337 generic ::
show => show_D0_IK5
10340 procedure,
pass,
private :: show_D0_IK4
10341 generic ::
show => show_D0_IK4
10344 procedure,
pass,
private :: show_D0_IK3
10345 generic ::
show => show_D0_IK3
10348 procedure,
pass,
private :: show_D0_IK2
10349 generic ::
show => show_D0_IK2
10352 procedure,
pass,
private :: show_D0_IK1
10353 generic ::
show => show_D0_IK1
10359 procedure,
pass,
private :: show_D0_LK5
10360 generic ::
show => show_D0_LK5
10363 procedure,
pass,
private :: show_D0_LK4
10364 generic ::
show => show_D0_LK4
10367 procedure,
pass,
private :: show_D0_LK3
10368 generic ::
show => show_D0_LK3
10371 procedure,
pass,
private :: show_D0_LK2
10372 generic ::
show => show_D0_LK2
10375 procedure,
pass,
private :: show_D0_LK1
10376 generic ::
show => show_D0_LK1
10382 procedure,
pass,
private :: show_D0_CK5
10383 generic ::
show => show_D0_CK5
10386 procedure,
pass,
private :: show_D0_CK4
10387 generic ::
show => show_D0_CK4
10390 procedure,
pass,
private :: show_D0_CK3
10391 generic ::
show => show_D0_CK3
10394 procedure,
pass,
private :: show_D0_CK2
10395 generic ::
show => show_D0_CK2
10398 procedure,
pass,
private :: show_D0_CK1
10399 generic ::
show => show_D0_CK1
10405 procedure,
pass,
private :: show_D0_RK5
10406 generic ::
show => show_D0_RK5
10409 procedure,
pass,
private :: show_D0_RK4
10410 generic ::
show => show_D0_RK4
10413 procedure,
pass,
private :: show_D0_RK3
10414 generic ::
show => show_D0_RK3
10417 procedure,
pass,
private :: show_D0_RK2
10418 generic ::
show => show_D0_RK2
10421 procedure,
pass,
private :: show_D0_RK1
10422 generic ::
show => show_D0_RK1
10434 procedure,
pass,
private :: show_D1_SK5
10435 generic ::
show => show_D1_SK5
10438 procedure,
pass,
private :: show_D1_SK4
10439 generic ::
show => show_D1_SK4
10442 procedure,
pass,
private :: show_D1_SK3
10443 generic ::
show => show_D1_SK3
10446 procedure,
pass,
private :: show_D1_SK2
10447 generic ::
show => show_D1_SK2
10450 procedure,
pass,
private :: show_D1_SK1
10451 generic ::
show => show_D1_SK1
10457 procedure,
pass,
private :: show_D1_IK5
10458 generic ::
show => show_D1_IK5
10461 procedure,
pass,
private :: show_D1_IK4
10462 generic ::
show => show_D1_IK4
10465 procedure,
pass,
private :: show_D1_IK3
10466 generic ::
show => show_D1_IK3
10469 procedure,
pass,
private :: show_D1_IK2
10470 generic ::
show => show_D1_IK2
10473 procedure,
pass,
private :: show_D1_IK1
10474 generic ::
show => show_D1_IK1
10480 procedure,
pass,
private :: show_D1_LK5
10481 generic ::
show => show_D1_LK5
10484 procedure,
pass,
private :: show_D1_LK4
10485 generic ::
show => show_D1_LK4
10488 procedure,
pass,
private :: show_D1_LK3
10489 generic ::
show => show_D1_LK3
10492 procedure,
pass,
private :: show_D1_LK2
10493 generic ::
show => show_D1_LK2
10496 procedure,
pass,
private :: show_D1_LK1
10497 generic ::
show => show_D1_LK1
10503 procedure,
pass,
private :: show_D1_CK5
10504 generic ::
show => show_D1_CK5
10507 procedure,
pass,
private :: show_D1_CK4
10508 generic ::
show => show_D1_CK4
10511 procedure,
pass,
private :: show_D1_CK3
10512 generic ::
show => show_D1_CK3
10515 procedure,
pass,
private :: show_D1_CK2
10516 generic ::
show => show_D1_CK2
10519 procedure,
pass,
private :: show_D1_CK1
10520 generic ::
show => show_D1_CK1
10526 procedure,
pass,
private :: show_D1_RK5
10527 generic ::
show => show_D1_RK5
10530 procedure,
pass,
private :: show_D1_RK4
10531 generic ::
show => show_D1_RK4
10534 procedure,
pass,
private :: show_D1_RK3
10535 generic ::
show => show_D1_RK3
10538 procedure,
pass,
private :: show_D1_RK2
10539 generic ::
show => show_D1_RK2
10542 procedure,
pass,
private :: show_D1_RK1
10543 generic ::
show => show_D1_RK1
10555 procedure,
pass,
private :: show_D2_SK5
10556 generic ::
show => show_D2_SK5
10559 procedure,
pass,
private :: show_D2_SK4
10560 generic ::
show => show_D2_SK4
10563 procedure,
pass,
private :: show_D2_SK3
10564 generic ::
show => show_D2_SK3
10567 procedure,
pass,
private :: show_D2_SK2
10568 generic ::
show => show_D2_SK2
10571 procedure,
pass,
private :: show_D2_SK1
10572 generic ::
show => show_D2_SK1
10578 procedure,
pass,
private :: show_D2_IK5
10579 generic ::
show => show_D2_IK5
10582 procedure,
pass,
private :: show_D2_IK4
10583 generic ::
show => show_D2_IK4
10586 procedure,
pass,
private :: show_D2_IK3
10587 generic ::
show => show_D2_IK3
10590 procedure,
pass,
private :: show_D2_IK2
10591 generic ::
show => show_D2_IK2
10594 procedure,
pass,
private :: show_D2_IK1
10595 generic ::
show => show_D2_IK1
10601 procedure,
pass,
private :: show_D2_LK5
10602 generic ::
show => show_D2_LK5
10605 procedure,
pass,
private :: show_D2_LK4
10606 generic ::
show => show_D2_LK4
10609 procedure,
pass,
private :: show_D2_LK3
10610 generic ::
show => show_D2_LK3
10613 procedure,
pass,
private :: show_D2_LK2
10614 generic ::
show => show_D2_LK2
10617 procedure,
pass,
private :: show_D2_LK1
10618 generic ::
show => show_D2_LK1
10624 procedure,
pass,
private :: show_D2_CK5
10625 generic ::
show => show_D2_CK5
10628 procedure,
pass,
private :: show_D2_CK4
10629 generic ::
show => show_D2_CK4
10632 procedure,
pass,
private :: show_D2_CK3
10633 generic ::
show => show_D2_CK3
10636 procedure,
pass,
private :: show_D2_CK2
10637 generic ::
show => show_D2_CK2
10640 procedure,
pass,
private :: show_D2_CK1
10641 generic ::
show => show_D2_CK1
10647 procedure,
pass,
private :: show_D2_RK5
10648 generic ::
show => show_D2_RK5
10651 procedure,
pass,
private :: show_D2_RK4
10652 generic ::
show => show_D2_RK4
10655 procedure,
pass,
private :: show_D2_RK3
10656 generic ::
show => show_D2_RK3
10659 procedure,
pass,
private :: show_D2_RK2
10660 generic ::
show => show_D2_RK2
10663 procedure,
pass,
private :: show_D2_RK1
10664 generic ::
show => show_D2_RK1
10678 procedure,
pass,
private :: show_D3_SK5
10679 generic ::
show => show_D3_SK5
10682 procedure,
pass,
private :: show_D3_SK4
10683 generic ::
show => show_D3_SK4
10686 procedure,
pass,
private :: show_D3_SK3
10687 generic ::
show => show_D3_SK3
10690 procedure,
pass,
private :: show_D3_SK2
10691 generic ::
show => show_D3_SK2
10694 procedure,
pass,
private :: show_D3_SK1
10695 generic ::
show => show_D3_SK1
10701 procedure,
pass,
private :: show_D3_IK5
10702 generic ::
show => show_D3_IK5
10705 procedure,
pass,
private :: show_D3_IK4
10706 generic ::
show => show_D3_IK4
10709 procedure,
pass,
private :: show_D3_IK3
10710 generic ::
show => show_D3_IK3
10713 procedure,
pass,
private :: show_D3_IK2
10714 generic ::
show => show_D3_IK2
10717 procedure,
pass,
private :: show_D3_IK1
10718 generic ::
show => show_D3_IK1
10724 procedure,
pass,
private :: show_D3_LK5
10725 generic ::
show => show_D3_LK5
10728 procedure,
pass,
private :: show_D3_LK4
10729 generic ::
show => show_D3_LK4
10732 procedure,
pass,
private :: show_D3_LK3
10733 generic ::
show => show_D3_LK3
10736 procedure,
pass,
private :: show_D3_LK2
10737 generic ::
show => show_D3_LK2
10740 procedure,
pass,
private :: show_D3_LK1
10741 generic ::
show => show_D3_LK1
10747 procedure,
pass,
private :: show_D3_CK5
10748 generic ::
show => show_D3_CK5
10751 procedure,
pass,
private :: show_D3_CK4
10752 generic ::
show => show_D3_CK4
10755 procedure,
pass,
private :: show_D3_CK3
10756 generic ::
show => show_D3_CK3
10759 procedure,
pass,
private :: show_D3_CK2
10760 generic ::
show => show_D3_CK2
10763 procedure,
pass,
private :: show_D3_CK1
10764 generic ::
show => show_D3_CK1
10770 procedure,
pass,
private :: show_D3_RK5
10771 generic ::
show => show_D3_RK5
10774 procedure,
pass,
private :: show_D3_RK4
10775 generic ::
show => show_D3_RK4
10778 procedure,
pass,
private :: show_D3_RK3
10779 generic ::
show => show_D3_RK3
10782 procedure,
pass,
private :: show_D3_RK2
10783 generic ::
show => show_D3_RK2
10786 procedure,
pass,
private :: show_D3_RK1
10787 generic ::
show => show_D3_RK1
10804 procedure,
pass,
private :: show_D0_PSSK5, show_D1_PSSK5, show_D2_PSSK5, show_D3_PSSK5
10805 generic ::
show => show_D0_PSSK5, show_D1_PSSK5, show_D2_PSSK5, show_D3_PSSK5
10808 procedure,
pass,
private :: show_D0_PSSK4, show_D1_PSSK4, show_D2_PSSK4, show_D3_PSSK4
10809 generic ::
show => show_D0_PSSK4, show_D1_PSSK4, show_D2_PSSK4, show_D3_PSSK4
10812 procedure,
pass,
private :: show_D0_PSSK3, show_D1_PSSK3, show_D2_PSSK3, show_D3_PSSK3
10813 generic ::
show => show_D0_PSSK3, show_D1_PSSK3, show_D2_PSSK3, show_D3_PSSK3
10816 procedure,
pass,
private :: show_D0_PSSK2, show_D1_PSSK2, show_D2_PSSK2, show_D3_PSSK2
10817 generic ::
show => show_D0_PSSK2, show_D1_PSSK2, show_D2_PSSK2, show_D3_PSSK2
10820 procedure,
pass,
private :: show_D0_PSSK1, show_D1_PSSK1, show_D2_PSSK1, show_D3_PSSK1
10821 generic ::
show => show_D0_PSSK1, show_D1_PSSK1, show_D2_PSSK1, show_D3_PSSK1
10827 procedure,
pass,
private :: show_D0_PSIK5, show_D1_PSIK5, show_D2_PSIK5, show_D3_PSIK5
10828 generic ::
show => show_D0_PSIK5, show_D1_PSIK5, show_D2_PSIK5, show_D3_PSIK5
10831 procedure,
pass,
private :: show_D0_PSIK4, show_D1_PSIK4, show_D2_PSIK4, show_D3_PSIK4
10832 generic ::
show => show_D0_PSIK4, show_D1_PSIK4, show_D2_PSIK4, show_D3_PSIK4
10835 procedure,
pass,
private :: show_D0_PSIK3, show_D1_PSIK3, show_D2_PSIK3, show_D3_PSIK3
10836 generic ::
show => show_D0_PSIK3, show_D1_PSIK3, show_D2_PSIK3, show_D3_PSIK3
10839 procedure,
pass,
private :: show_D0_PSIK2, show_D1_PSIK2, show_D2_PSIK2, show_D3_PSIK2
10840 generic ::
show => show_D0_PSIK2, show_D1_PSIK2, show_D2_PSIK2, show_D3_PSIK2
10843 procedure,
pass,
private :: show_D0_PSIK1, show_D1_PSIK1, show_D2_PSIK1, show_D3_PSIK1
10844 generic ::
show => show_D0_PSIK1, show_D1_PSIK1, show_D2_PSIK1, show_D3_PSIK1
10850 procedure,
pass,
private :: show_D0_PSLK5, show_D1_PSLK5, show_D2_PSLK5, show_D3_PSLK5
10851 generic ::
show => show_D0_PSLK5, show_D1_PSLK5, show_D2_PSLK5, show_D3_PSLK5
10854 procedure,
pass,
private :: show_D0_PSLK4, show_D1_PSLK4, show_D2_PSLK4, show_D3_PSLK4
10855 generic ::
show => show_D0_PSLK4, show_D1_PSLK4, show_D2_PSLK4, show_D3_PSLK4
10858 procedure,
pass,
private :: show_D0_PSLK3, show_D1_PSLK3, show_D2_PSLK3, show_D3_PSLK3
10859 generic ::
show => show_D0_PSLK3, show_D1_PSLK3, show_D2_PSLK3, show_D3_PSLK3
10862 procedure,
pass,
private :: show_D0_PSLK2, show_D1_PSLK2, show_D2_PSLK2, show_D3_PSLK2
10863 generic ::
show => show_D0_PSLK2, show_D1_PSLK2, show_D2_PSLK2, show_D3_PSLK2
10866 procedure,
pass,
private :: show_D0_PSLK1, show_D1_PSLK1, show_D2_PSLK1, show_D3_PSLK1
10867 generic ::
show => show_D0_PSLK1, show_D1_PSLK1, show_D2_PSLK1, show_D3_PSLK1
10873 procedure,
pass,
private :: show_D0_PSCK5, show_D1_PSCK5, show_D2_PSCK5, show_D3_PSCK5
10874 generic ::
show => show_D0_PSCK5, show_D1_PSCK5, show_D2_PSCK5, show_D3_PSCK5
10877 procedure,
pass,
private :: show_D0_PSCK4, show_D1_PSCK4, show_D2_PSCK4, show_D3_PSCK4
10878 generic ::
show => show_D0_PSCK4, show_D1_PSCK4, show_D2_PSCK4, show_D3_PSCK4
10881 procedure,
pass,
private :: show_D0_PSCK3, show_D1_PSCK3, show_D2_PSCK3, show_D3_PSCK3
10882 generic ::
show => show_D0_PSCK3, show_D1_PSCK3, show_D2_PSCK3, show_D3_PSCK3
10885 procedure,
pass,
private :: show_D0_PSCK2, show_D1_PSCK2, show_D2_PSCK2, show_D3_PSCK2
10886 generic ::
show => show_D0_PSCK2, show_D1_PSCK2, show_D2_PSCK2, show_D3_PSCK2
10889 procedure,
pass,
private :: show_D0_PSCK1, show_D1_PSCK1, show_D2_PSCK1, show_D3_PSCK1
10890 generic ::
show => show_D0_PSCK1, show_D1_PSCK1, show_D2_PSCK1, show_D3_PSCK1
10896 procedure,
pass,
private :: show_D0_PSRK5, show_D1_PSRK5, show_D2_PSRK5, show_D3_PSRK5
10897 generic ::
show => show_D0_PSRK5, show_D1_PSRK5, show_D2_PSRK5, show_D3_PSRK5
10900 procedure,
pass,
private :: show_D0_PSRK4, show_D1_PSRK4, show_D2_PSRK4, show_D3_PSRK4
10901 generic ::
show => show_D0_PSRK4, show_D1_PSRK4, show_D2_PSRK4, show_D3_PSRK4
10904 procedure,
pass,
private :: show_D0_PSRK3, show_D1_PSRK3, show_D2_PSRK3, show_D3_PSRK3
10905 generic ::
show => show_D0_PSRK3, show_D1_PSRK3, show_D2_PSRK3, show_D3_PSRK3
10908 procedure,
pass,
private :: show_D0_PSRK2, show_D1_PSRK2, show_D2_PSRK2, show_D3_PSRK2
10909 generic ::
show => show_D0_PSRK2, show_D1_PSRK2, show_D2_PSRK2, show_D3_PSRK2
10912 procedure,
pass,
private :: show_D0_PSRK1, show_D1_PSRK1, show_D2_PSRK1, show_D3_PSRK1
10913 generic ::
show => show_D0_PSRK1, show_D1_PSRK1, show_D2_PSRK1, show_D3_PSRK1
10925 procedure,
pass,
private :: show_D0_PVSK5, show_D1_PVSK5, show_D2_PVSK5
10926 generic ::
show => show_D0_PVSK5, show_D1_PVSK5, show_D2_PVSK5
10929 procedure,
pass,
private :: show_D0_PVSK4, show_D1_PVSK4, show_D2_PVSK4
10930 generic ::
show => show_D0_PVSK4, show_D1_PVSK4, show_D2_PVSK4
10933 procedure,
pass,
private :: show_D0_PVSK3, show_D1_PVSK3, show_D2_PVSK3
10934 generic ::
show => show_D0_PVSK3, show_D1_PVSK3, show_D2_PVSK3
10937 procedure,
pass,
private :: show_D0_PVSK2, show_D1_PVSK2, show_D2_PVSK2
10938 generic ::
show => show_D0_PVSK2, show_D1_PVSK2, show_D2_PVSK2
10941 procedure,
pass,
private :: show_D0_PVSK1, show_D1_PVSK1, show_D2_PVSK1
10942 generic ::
show => show_D0_PVSK1, show_D1_PVSK1, show_D2_PVSK1
10948 procedure,
pass,
private :: show_D0_PVIK5, show_D1_PVIK5, show_D2_PVIK5
10949 generic ::
show => show_D0_PVIK5, show_D1_PVIK5, show_D2_PVIK5
10952 procedure,
pass,
private :: show_D0_PVIK4, show_D1_PVIK4, show_D2_PVIK4
10953 generic ::
show => show_D0_PVIK4, show_D1_PVIK4, show_D2_PVIK4
10956 procedure,
pass,
private :: show_D0_PVIK3, show_D1_PVIK3, show_D2_PVIK3
10957 generic ::
show => show_D0_PVIK3, show_D1_PVIK3, show_D2_PVIK3
10960 procedure,
pass,
private :: show_D0_PVIK2, show_D1_PVIK2, show_D2_PVIK2
10961 generic ::
show => show_D0_PVIK2, show_D1_PVIK2, show_D2_PVIK2
10964 procedure,
pass,
private :: show_D0_PVIK1, show_D1_PVIK1, show_D2_PVIK1
10965 generic ::
show => show_D0_PVIK1, show_D1_PVIK1, show_D2_PVIK1
10971 procedure,
pass,
private :: show_D0_PVLK5, show_D1_PVLK5, show_D2_PVLK5
10972 generic ::
show => show_D0_PVLK5, show_D1_PVLK5, show_D2_PVLK5
10975 procedure,
pass,
private :: show_D0_PVLK4, show_D1_PVLK4, show_D2_PVLK4
10976 generic ::
show => show_D0_PVLK4, show_D1_PVLK4, show_D2_PVLK4
10979 procedure,
pass,
private :: show_D0_PVLK3, show_D1_PVLK3, show_D2_PVLK3
10980 generic ::
show => show_D0_PVLK3, show_D1_PVLK3, show_D2_PVLK3
10983 procedure,
pass,
private :: show_D0_PVLK2, show_D1_PVLK2, show_D2_PVLK2
10984 generic ::
show => show_D0_PVLK2, show_D1_PVLK2, show_D2_PVLK2
10987 procedure,
pass,
private :: show_D0_PVLK1, show_D1_PVLK1, show_D2_PVLK1
10988 generic ::
show => show_D0_PVLK1, show_D1_PVLK1, show_D2_PVLK1
10994 procedure,
pass,
private :: show_D0_PVCK5, show_D1_PVCK5, show_D2_PVCK5
10995 generic ::
show => show_D0_PVCK5, show_D1_PVCK5, show_D2_PVCK5
10998 procedure,
pass,
private :: show_D0_PVCK4, show_D1_PVCK4, show_D2_PVCK4
10999 generic ::
show => show_D0_PVCK4, show_D1_PVCK4, show_D2_PVCK4
11002 procedure,
pass,
private :: show_D0_PVCK3, show_D1_PVCK3, show_D2_PVCK3
11003 generic ::
show => show_D0_PVCK3, show_D1_PVCK3, show_D2_PVCK3
11006 procedure,
pass,
private :: show_D0_PVCK2, show_D1_PVCK2, show_D2_PVCK2
11007 generic ::
show => show_D0_PVCK2, show_D1_PVCK2, show_D2_PVCK2
11010 procedure,
pass,
private :: show_D0_PVCK1, show_D1_PVCK1, show_D2_PVCK1
11011 generic ::
show => show_D0_PVCK1, show_D1_PVCK1, show_D2_PVCK1
11017 procedure,
pass,
private :: show_D0_PVRK5, show_D1_PVRK5, show_D2_PVRK5
11018 generic ::
show => show_D0_PVRK5, show_D1_PVRK5, show_D2_PVRK5
11021 procedure,
pass,
private :: show_D0_PVRK4, show_D1_PVRK4, show_D2_PVRK4
11022 generic ::
show => show_D0_PVRK4, show_D1_PVRK4, show_D2_PVRK4
11025 procedure,
pass,
private :: show_D0_PVRK3, show_D1_PVRK3, show_D2_PVRK3
11026 generic ::
show => show_D0_PVRK3, show_D1_PVRK3, show_D2_PVRK3
11029 procedure,
pass,
private :: show_D0_PVRK2, show_D1_PVRK2, show_D2_PVRK2
11030 generic ::
show => show_D0_PVRK2, show_D1_PVRK2, show_D2_PVRK2
11033 procedure,
pass,
private :: show_D0_PVRK1, show_D1_PVRK1, show_D2_PVRK1
11034 generic ::
show => show_D0_PVRK1, show_D1_PVRK1, show_D2_PVRK1
11046 procedure,
pass,
private :: show_D0_PMSK5, show_D1_PMSK5
11047 generic ::
show => show_D0_PMSK5, show_D1_PMSK5
11050 procedure,
pass,
private :: show_D0_PMSK4, show_D1_PMSK4
11051 generic ::
show => show_D0_PMSK4, show_D1_PMSK4
11054 procedure,
pass,
private :: show_D0_PMSK3, show_D1_PMSK3
11055 generic ::
show => show_D0_PMSK3, show_D1_PMSK3
11058 procedure,
pass,
private :: show_D0_PMSK2, show_D1_PMSK2
11059 generic ::
show => show_D0_PMSK2, show_D1_PMSK2
11062 procedure,
pass,
private :: show_D0_PMSK1, show_D1_PMSK1
11063 generic ::
show => show_D0_PMSK1, show_D1_PMSK1
11069 procedure,
pass,
private :: show_D0_PMIK5, show_D1_PMIK5
11070 generic ::
show => show_D0_PMIK5, show_D1_PMIK5
11073 procedure,
pass,
private :: show_D0_PMIK4, show_D1_PMIK4
11074 generic ::
show => show_D0_PMIK4, show_D1_PMIK4
11077 procedure,
pass,
private :: show_D0_PMIK3, show_D1_PMIK3
11078 generic ::
show => show_D0_PMIK3, show_D1_PMIK3
11081 procedure,
pass,
private :: show_D0_PMIK2, show_D1_PMIK2
11082 generic ::
show => show_D0_PMIK2, show_D1_PMIK2
11085 procedure,
pass,
private :: show_D0_PMIK1, show_D1_PMIK1
11086 generic ::
show => show_D0_PMIK1, show_D1_PMIK1
11092 procedure,
pass,
private :: show_D0_PMLK5, show_D1_PMLK5
11093 generic ::
show => show_D0_PMLK5, show_D1_PMLK5
11096 procedure,
pass,
private :: show_D0_PMLK4, show_D1_PMLK4
11097 generic ::
show => show_D0_PMLK4, show_D1_PMLK4
11100 procedure,
pass,
private :: show_D0_PMLK3, show_D1_PMLK3
11101 generic ::
show => show_D0_PMLK3, show_D1_PMLK3
11104 procedure,
pass,
private :: show_D0_PMLK2, show_D1_PMLK2
11105 generic ::
show => show_D0_PMLK2, show_D1_PMLK2
11108 procedure,
pass,
private :: show_D0_PMLK1, show_D1_PMLK1
11109 generic ::
show => show_D0_PMLK1, show_D1_PMLK1
11115 procedure,
pass,
private :: show_D0_PMCK5, show_D1_PMCK5
11116 generic ::
show => show_D0_PMCK5, show_D1_PMCK5
11119 procedure,
pass,
private :: show_D0_PMCK4, show_D1_PMCK4
11120 generic ::
show => show_D0_PMCK4, show_D1_PMCK4
11123 procedure,
pass,
private :: show_D0_PMCK3, show_D1_PMCK3
11124 generic ::
show => show_D0_PMCK3, show_D1_PMCK3
11127 procedure,
pass,
private :: show_D0_PMCK2, show_D1_PMCK2
11128 generic ::
show => show_D0_PMCK2, show_D1_PMCK2
11131 procedure,
pass,
private :: show_D0_PMCK1, show_D1_PMCK1
11132 generic ::
show => show_D0_PMCK1, show_D1_PMCK1
11138 procedure,
pass,
private :: show_D0_PMRK5, show_D1_PMRK5
11139 generic ::
show => show_D0_PMRK5, show_D1_PMRK5
11142 procedure,
pass,
private :: show_D0_PMRK4, show_D1_PMRK4
11143 generic ::
show => show_D0_PMRK4, show_D1_PMRK4
11146 procedure,
pass,
private :: show_D0_PMRK3, show_D1_PMRK3
11147 generic ::
show => show_D0_PMRK3, show_D1_PMRK3
11150 procedure,
pass,
private :: show_D0_PMRK2, show_D1_PMRK2
11151 generic ::
show => show_D0_PMRK2, show_D1_PMRK2
11154 procedure,
pass,
private :: show_D0_PMRK1, show_D1_PMRK1
11155 generic ::
show => show_D0_PMRK1, show_D1_PMRK1
11167 procedure,
pass,
private :: show_D0_PCSK5
11168 generic ::
show => show_D0_PCSK5
11171 procedure,
pass,
private :: show_D0_PCSK4
11172 generic ::
show => show_D0_PCSK4
11175 procedure,
pass,
private :: show_D0_PCSK3
11176 generic ::
show => show_D0_PCSK3
11179 procedure,
pass,
private :: show_D0_PCSK2
11180 generic ::
show => show_D0_PCSK2
11183 procedure,
pass,
private :: show_D0_PCSK1
11184 generic ::
show => show_D0_PCSK1
11190 procedure,
pass,
private :: show_D0_PCIK5
11191 generic ::
show => show_D0_PCIK5
11194 procedure,
pass,
private :: show_D0_PCIK4
11195 generic ::
show => show_D0_PCIK4
11198 procedure,
pass,
private :: show_D0_PCIK3
11199 generic ::
show => show_D0_PCIK3
11202 procedure,
pass,
private :: show_D0_PCIK2
11203 generic ::
show => show_D0_PCIK2
11206 procedure,
pass,
private :: show_D0_PCIK1
11207 generic ::
show => show_D0_PCIK1
11213 procedure,
pass,
private :: show_D0_PCLK5
11214 generic ::
show => show_D0_PCLK5
11217 procedure,
pass,
private :: show_D0_PCLK4
11218 generic ::
show => show_D0_PCLK4
11221 procedure,
pass,
private :: show_D0_PCLK3
11222 generic ::
show => show_D0_PCLK3
11225 procedure,
pass,
private :: show_D0_PCLK2
11226 generic ::
show => show_D0_PCLK2
11229 procedure,
pass,
private :: show_D0_PCLK1
11230 generic ::
show => show_D0_PCLK1
11236 procedure,
pass,
private :: show_D0_PCCK5
11237 generic ::
show => show_D0_PCCK5
11240 procedure,
pass,
private :: show_D0_PCCK4
11241 generic ::
show => show_D0_PCCK4
11244 procedure,
pass,
private :: show_D0_PCCK3
11245 generic ::
show => show_D0_PCCK3
11248 procedure,
pass,
private :: show_D0_PCCK2
11249 generic ::
show => show_D0_PCCK2
11252 procedure,
pass,
private :: show_D0_PCCK1
11253 generic ::
show => show_D0_PCCK1
11259 procedure,
pass,
private :: show_D0_PCRK5
11260 generic ::
show => show_D0_PCRK5
11263 procedure,
pass,
private :: show_D0_PCRK4
11264 generic ::
show => show_D0_PCRK4
11267 procedure,
pass,
private :: show_D0_PCRK3
11268 generic ::
show => show_D0_PCRK3
11271 procedure,
pass,
private :: show_D0_PCRK2
11272 generic ::
show => show_D0_PCRK2
11275 procedure,
pass,
private :: show_D0_PCRK1
11276 generic ::
show => show_D0_PCRK1
11291 procedure,
pass,
private :: show_D0_BSSK, show_D1_BSSK, show_D2_BSSK, show_D3_BSSK
11292 generic ::
show => show_D0_BSSK, show_D1_BSSK, show_D2_BSSK, show_D3_BSSK
11294 procedure,
pass,
private :: show_D0_BSIK, show_D1_BSIK, show_D2_BSIK, show_D3_BSIK
11295 generic ::
show => show_D0_BSIK, show_D1_BSIK, show_D2_BSIK, show_D3_BSIK
11297 procedure,
pass,
private :: show_D0_BSLK, show_D1_BSLK, show_D2_BSLK, show_D3_BSLK
11298 generic ::
show => show_D0_BSLK, show_D1_BSLK, show_D2_BSLK, show_D3_BSLK
11300 procedure,
pass,
private :: show_D0_BSCK, show_D1_BSCK, show_D2_BSCK, show_D3_BSCK
11301 generic ::
show => show_D0_BSCK, show_D1_BSCK, show_D2_BSCK, show_D3_BSCK
11303 procedure,
pass,
private :: show_D0_BSRK, show_D1_BSRK, show_D2_BSRK, show_D3_BSRK
11304 generic ::
show => show_D0_BSRK, show_D1_BSRK, show_D2_BSRK, show_D3_BSRK
11306 procedure,
pass,
private :: show_D0_BVSK, show_D1_BVSK, show_D2_BVSK
11307 generic ::
show => show_D0_BVSK, show_D1_BVSK, show_D2_BVSK
11309 procedure,
pass,
private :: show_D0_BVIK, show_D1_BVIK, show_D2_BVIK
11310 generic ::
show => show_D0_BVIK, show_D1_BVIK, show_D2_BVIK
11312 procedure,
pass,
private :: show_D0_BVLK, show_D1_BVLK, show_D2_BVLK
11313 generic ::
show => show_D0_BVLK, show_D1_BVLK, show_D2_BVLK
11315 procedure,
pass,
private :: show_D0_BVCK, show_D1_BVCK, show_D2_BVCK
11316 generic ::
show => show_D0_BVCK, show_D1_BVCK, show_D2_BVCK
11318 procedure,
pass,
private :: show_D0_BVRK, show_D1_BVRK, show_D2_BVRK
11319 generic ::
show => show_D0_BVRK, show_D1_BVRK, show_D2_BVRK
11322 procedure,
pass,
private :: show_D0_BMSK, show_D1_BMSK
11323 generic ::
show => show_D0_BMSK, show_D1_BMSK
11325 procedure,
pass,
private :: show_D0_BMIK, show_D1_BMIK
11326 generic ::
show => show_D0_BMIK, show_D1_BMIK
11328 procedure,
pass,
private :: show_D0_BMLK, show_D1_BMLK
11329 generic ::
show => show_D0_BMLK, show_D1_BMLK
11331 procedure,
pass,
private :: show_D0_BMCK, show_D1_BMCK
11332 generic ::
show => show_D0_BMCK, show_D1_BMCK
11334 procedure,
pass,
private :: show_D0_BMRK, show_D1_BMRK
11335 generic ::
show => show_D0_BMRK, show_D1_BMRK
11337 procedure,
pass,
private :: show_D0_BCSK
11338 generic ::
show => show_D0_BCSK
11340 procedure,
pass,
private :: show_D0_BCIK
11341 generic ::
show => show_D0_BCIK
11343 procedure,
pass,
private :: show_D0_BCLK
11344 generic ::
show => show_D0_BCLK
11346 procedure,
pass,
private :: show_D0_BCCK
11347 generic ::
show => show_D0_BCCK
11349 procedure,
pass,
private :: show_D0_BCRK
11350 generic ::
show => show_D0_BCRK
11360 procedure,
pass,
private :: dump_D0, dump_D1, dump_D2
11361 generic :: dump
=> dump_D0, dump_D1, dump_D2
11367 procedure,
pass :: skip_IK
11368 generic ::
skip => skip_IK
11394#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11395 !DIR$ ATTRIBUTES DLLEXPORT ::
disp
11403 module function display_typer_file(file, status, position, advance, format, deliml, delimr, tmsize, bmsize, count, sticky, text, mark, note, warn, stop)
result(disp)
11404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11405 !DEC$ ATTRIBUTES DLLEXPORT :: display_typer_file
11407 character(
*, SK),
intent(in) :: file
11408 logical(LK) ,
intent(in),
optional :: sticky
11409 integer(IK) ,
intent(in),
optional :: count
11410 integer(IK) ,
intent(in),
optional :: tmsize, bmsize
11411 character(
*, SK),
intent(in),
optional :: position
11412 character(
*, SK),
intent(in),
optional :: advance
11413 character(
*, SK),
intent(in),
optional :: status
11414 type(
field_type),
intent(in),
optional :: format
11415 type(
field_type),
intent(in),
optional :: deliml
11416 type(
field_type),
intent(in),
optional :: delimr
11417 type(
mark_type) ,
intent(in),
optional :: mark
11418 type(
note_type) ,
intent(in),
optional :: note
11419 type(
warn_type) ,
intent(in),
optional :: warn
11420 type(
stop_type) ,
intent(in),
optional :: stop
11421 type(
wrap_type) ,
intent(in),
optional :: text
11425 module function display_typer_unit(unit, advance, format, deliml, delimr, tmsize, bmsize, count, sticky, text, mark, note, warn, stop)
result(disp)
11426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11427 !DEC$ ATTRIBUTES DLLEXPORT :: display_typer_unit
11429 integer(IK) ,
intent(in),
optional :: unit
11430 logical(LK) ,
intent(in),
optional :: sticky
11431 integer(IK) ,
intent(in),
optional :: count
11432 integer(IK) ,
intent(in),
optional :: tmsize, bmsize
11433 character(
*, SK),
intent(in),
optional :: advance
11434 type(
field_type),
intent(in),
optional :: format
11435 type(
field_type),
intent(in),
optional :: deliml
11436 type(
field_type),
intent(in),
optional :: delimr
11437 type(
mark_type) ,
intent(in),
optional :: mark
11438 type(
note_type) ,
intent(in),
optional :: note
11439 type(
warn_type) ,
intent(in),
optional :: warn
11440 type(
stop_type) ,
intent(in),
optional :: stop
11441 type(
wrap_type) ,
intent(in),
optional :: text
11509 module subroutine skip_IK(self, count, unit, sticky)
11510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11511 !DEC$ ATTRIBUTES DLLEXPORT :: skip_IK
11513 class(display_type) ,
intent(inout) :: self
11514 integer(IK) ,
intent(in),
optional :: unit
11515 integer(IK) ,
intent(in),
optional :: count
11516 logical(LK) ,
intent(in),
optional :: sticky
11739 module subroutine show_D0_SK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11740#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11741 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_SK5
11744 class(display_type) ,
intent(inout) :: self
11745 character(
*,SKG) ,
intent(in) :: object
11746 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
11747 character(
*, SK) ,
intent(in) ,
optional :: format, advance
11748 logical(LK) ,
intent(in) ,
optional :: sticky
11749 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
11754 module subroutine show_D0_SK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11755#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11756 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_SK4
11759 class(display_type) ,
intent(inout) :: self
11760 character(
*,SKG) ,
intent(in) :: object
11761 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
11762 character(
*, SK) ,
intent(in) ,
optional :: format, advance
11763 logical(LK) ,
intent(in) ,
optional :: sticky
11764 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
11769 module subroutine show_D0_SK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11771 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_SK3
11774 class(display_type) ,
intent(inout) :: self
11775 character(
*,SKG) ,
intent(in) :: object
11776 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
11777 character(
*, SK) ,
intent(in) ,
optional :: format, advance
11778 logical(LK) ,
intent(in) ,
optional :: sticky
11779 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
11784 module subroutine show_D0_SK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11786 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_SK2
11789 class(display_type) ,
intent(inout) :: self
11790 character(
*,SKG) ,
intent(in) :: object
11791 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
11792 character(
*, SK) ,
intent(in) ,
optional :: format, advance
11793 logical(LK) ,
intent(in) ,
optional :: sticky
11794 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
11799 module subroutine show_D0_SK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11800#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11801 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_SK1
11804 class(display_type) ,
intent(inout) :: self
11805 character(
*,SKG) ,
intent(in) :: object
11806 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
11807 character(
*, SK) ,
intent(in) ,
optional :: format, advance
11808 logical(LK) ,
intent(in) ,
optional :: sticky
11809 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
11816 module subroutine show_D0_IK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11818 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_IK5
11821 class(display_type) ,
intent(inout) :: self
11822 integer(IKG) ,
intent(in) :: object
11823 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
11824 character(
*, SK) ,
intent(in) ,
optional :: format, advance
11825 logical(LK) ,
intent(in) ,
optional :: sticky
11826 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
11831 module subroutine show_D0_IK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11832#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11833 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_IK4
11836 class(display_type) ,
intent(inout) :: self
11837 integer(IKG) ,
intent(in) :: object
11838 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
11839 character(
*, SK) ,
intent(in) ,
optional :: format, advance
11840 logical(LK) ,
intent(in) ,
optional :: sticky
11841 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
11846 module subroutine show_D0_IK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11848 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_IK3
11851 class(display_type) ,
intent(inout) :: self
11852 integer(IKG) ,
intent(in) :: object
11853 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
11854 character(
*, SK) ,
intent(in) ,
optional :: format, advance
11855 logical(LK) ,
intent(in) ,
optional :: sticky
11856 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
11861 module subroutine show_D0_IK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11862#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11863 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_IK2
11866 class(display_type) ,
intent(inout) :: self
11867 integer(IKG) ,
intent(in) :: object
11868 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
11869 character(
*, SK) ,
intent(in) ,
optional :: format, advance
11870 logical(LK) ,
intent(in) ,
optional :: sticky
11871 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
11876 module subroutine show_D0_IK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11878 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_IK1
11881 class(display_type) ,
intent(inout) :: self
11882 integer(IKG) ,
intent(in) :: object
11883 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
11884 character(
*, SK) ,
intent(in) ,
optional :: format, advance
11885 logical(LK) ,
intent(in) ,
optional :: sticky
11886 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
11893 module subroutine show_D0_LK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11894#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11895 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_LK5
11898 class(display_type) ,
intent(inout) :: self
11899 logical(LKG) ,
intent(in) :: object
11900 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
11901 character(
*, SK) ,
intent(in) ,
optional :: format, advance
11902 logical(LK) ,
intent(in) ,
optional :: sticky
11903 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
11908 module subroutine show_D0_LK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11909#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11910 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_LK4
11913 class(display_type) ,
intent(inout) :: self
11914 logical(LKG) ,
intent(in) :: object
11915 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
11916 character(
*, SK) ,
intent(in) ,
optional :: format, advance
11917 logical(LK) ,
intent(in) ,
optional :: sticky
11918 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
11923 module subroutine show_D0_LK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11925 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_LK3
11928 class(display_type) ,
intent(inout) :: self
11929 logical(LKG) ,
intent(in) :: object
11930 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
11931 character(
*, SK) ,
intent(in) ,
optional :: format, advance
11932 logical(LK) ,
intent(in) ,
optional :: sticky
11933 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
11938 module subroutine show_D0_LK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11940 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_LK2
11943 class(display_type) ,
intent(inout) :: self
11944 logical(LKG) ,
intent(in) :: object
11945 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
11946 character(
*, SK) ,
intent(in) ,
optional :: format, advance
11947 logical(LK) ,
intent(in) ,
optional :: sticky
11948 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
11953 module subroutine show_D0_LK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11955 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_LK1
11958 class(display_type) ,
intent(inout) :: self
11959 logical(LKG) ,
intent(in) :: object
11960 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
11961 character(
*, SK) ,
intent(in) ,
optional :: format, advance
11962 logical(LK) ,
intent(in) ,
optional :: sticky
11963 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
11970 module subroutine show_D0_CK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11972 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_CK5
11975 class(display_type) ,
intent(inout) :: self
11976 complex(CKG) ,
intent(in) :: object
11977 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
11978 character(
*, SK) ,
intent(in) ,
optional :: format, advance
11979 logical(LK) ,
intent(in) ,
optional :: sticky
11980 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
11985 module subroutine show_D0_CK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
11986#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11987 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_CK4
11990 class(display_type) ,
intent(inout) :: self
11991 complex(CKG) ,
intent(in) :: object
11992 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
11993 character(
*, SK) ,
intent(in) ,
optional :: format, advance
11994 logical(LK) ,
intent(in) ,
optional :: sticky
11995 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12000 module subroutine show_D0_CK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12002 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_CK3
12005 class(display_type) ,
intent(inout) :: self
12006 complex(CKG) ,
intent(in) :: object
12007 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12008 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12009 logical(LK) ,
intent(in) ,
optional :: sticky
12010 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12015 module subroutine show_D0_CK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12017 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_CK2
12020 class(display_type) ,
intent(inout) :: self
12021 complex(CKG) ,
intent(in) :: object
12022 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12023 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12024 logical(LK) ,
intent(in) ,
optional :: sticky
12025 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12030 module subroutine show_D0_CK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12032 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_CK1
12035 class(display_type) ,
intent(inout) :: self
12036 complex(CKG) ,
intent(in) :: object
12037 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12038 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12039 logical(LK) ,
intent(in) ,
optional :: sticky
12040 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12047 module subroutine show_D0_RK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12048#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12049 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_RK5
12052 class(display_type) ,
intent(inout) :: self
12053 real(RKG) ,
intent(in) :: object
12054 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12055 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12056 logical(LK) ,
intent(in) ,
optional :: sticky
12057 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12062 module subroutine show_D0_RK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12064 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_RK4
12067 class(display_type) ,
intent(inout) :: self
12068 real(RKG) ,
intent(in) :: object
12069 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12070 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12071 logical(LK) ,
intent(in) ,
optional :: sticky
12072 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12077 module subroutine show_D0_RK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12079 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_RK3
12082 class(display_type) ,
intent(inout) :: self
12083 real(RKG) ,
intent(in) :: object
12084 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12085 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12086 logical(LK) ,
intent(in) ,
optional :: sticky
12087 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12092 module subroutine show_D0_RK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12094 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_RK2
12097 class(display_type) ,
intent(inout) :: self
12098 real(RKG) ,
intent(in) :: object
12099 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12100 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12101 logical(LK) ,
intent(in) ,
optional :: sticky
12102 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12107 module subroutine show_D0_RK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12108#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12109 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_RK1
12112 class(display_type) ,
intent(inout) :: self
12113 real(RKG) ,
intent(in) :: object
12114 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12115 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12116 logical(LK) ,
intent(in) ,
optional :: sticky
12117 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12130 module subroutine show_D1_SK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12132 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_SK5
12135 class(display_type) ,
intent(inout) :: self
12136 character(
*,SKG) , intent(in) __CONTIGUOUS :: object(:)
12137 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12138 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12139 logical(LK) ,
intent(in) ,
optional :: sticky
12140 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12145 module subroutine show_D1_SK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12147 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_SK4
12150 class(display_type) ,
intent(inout) :: self
12151 character(
*,SKG) , intent(in) __CONTIGUOUS :: object(:)
12152 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12153 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12154 logical(LK) ,
intent(in) ,
optional :: sticky
12155 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12160 module subroutine show_D1_SK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12162 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_SK3
12165 class(display_type) ,
intent(inout) :: self
12166 character(
*,SKG) , intent(in) __CONTIGUOUS :: object(:)
12167 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12168 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12169 logical(LK) ,
intent(in) ,
optional :: sticky
12170 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12175 module subroutine show_D1_SK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12177 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_SK2
12180 class(display_type) ,
intent(inout) :: self
12181 character(
*,SKG) , intent(in) __CONTIGUOUS :: object(:)
12182 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12183 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12184 logical(LK) ,
intent(in) ,
optional :: sticky
12185 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12190 module subroutine show_D1_SK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12192 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_SK1
12195 class(display_type) ,
intent(inout) :: self
12196 character(
*,SKG) , intent(in) __CONTIGUOUS :: object(:)
12197 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12198 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12199 logical(LK) ,
intent(in) ,
optional :: sticky
12200 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12207 module subroutine show_D1_IK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12209 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_IK5
12212 class(display_type) ,
intent(inout) :: self
12213 integer(IKG) , intent(in) __CONTIGUOUS :: object(:)
12214 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12215 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12216 logical(LK) ,
intent(in) ,
optional :: sticky
12217 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12222 module subroutine show_D1_IK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12224 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_IK4
12227 class(display_type) ,
intent(inout) :: self
12228 integer(IKG) , intent(in) __CONTIGUOUS :: object(:)
12229 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12230 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12231 logical(LK) ,
intent(in) ,
optional :: sticky
12232 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12237 module subroutine show_D1_IK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12239 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_IK3
12242 class(display_type) ,
intent(inout) :: self
12243 integer(IKG) , intent(in) __CONTIGUOUS :: object(:)
12244 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12245 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12246 logical(LK) ,
intent(in) ,
optional :: sticky
12247 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12252 module subroutine show_D1_IK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12254 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_IK2
12257 class(display_type) ,
intent(inout) :: self
12258 integer(IKG) , intent(in) __CONTIGUOUS :: object(:)
12259 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12260 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12261 logical(LK) ,
intent(in) ,
optional :: sticky
12262 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12267 module subroutine show_D1_IK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12269 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_IK1
12272 class(display_type) ,
intent(inout) :: self
12273 integer(IKG) , intent(in) __CONTIGUOUS :: object(:)
12274 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12275 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12276 logical(LK) ,
intent(in) ,
optional :: sticky
12277 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12284 module subroutine show_D1_LK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12286 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_LK5
12289 class(display_type) ,
intent(inout) :: self
12290 logical(LKG) , intent(in) __CONTIGUOUS :: object(:)
12291 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12292 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12293 logical(LK) ,
intent(in) ,
optional :: sticky
12294 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12299 module subroutine show_D1_LK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12301 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_LK4
12304 class(display_type) ,
intent(inout) :: self
12305 logical(LKG) , intent(in) __CONTIGUOUS :: object(:)
12306 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12307 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12308 logical(LK) ,
intent(in) ,
optional :: sticky
12309 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12314 module subroutine show_D1_LK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12316 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_LK3
12319 class(display_type) ,
intent(inout) :: self
12320 logical(LKG) , intent(in) __CONTIGUOUS :: object(:)
12321 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12322 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12323 logical(LK) ,
intent(in) ,
optional :: sticky
12324 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12329 module subroutine show_D1_LK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12331 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_LK2
12334 class(display_type) ,
intent(inout) :: self
12335 logical(LKG) , intent(in) __CONTIGUOUS :: object(:)
12336 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12337 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12338 logical(LK) ,
intent(in) ,
optional :: sticky
12339 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12344 module subroutine show_D1_LK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12345#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12346 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_LK1
12349 class(display_type) ,
intent(inout) :: self
12350 logical(LKG) , intent(in) __CONTIGUOUS :: object(:)
12351 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12352 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12353 logical(LK) ,
intent(in) ,
optional :: sticky
12354 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12361 module subroutine show_D1_CK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12362#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12363 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_CK5
12366 class(display_type) ,
intent(inout) :: self
12367 complex(CKG) , intent(in) __CONTIGUOUS :: object(:)
12368 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12369 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12370 logical(LK) ,
intent(in) ,
optional :: sticky
12371 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12376 module subroutine show_D1_CK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12378 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_CK4
12381 class(display_type) ,
intent(inout) :: self
12382 complex(CKG) , intent(in) __CONTIGUOUS :: object(:)
12383 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12384 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12385 logical(LK) ,
intent(in) ,
optional :: sticky
12386 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12391 module subroutine show_D1_CK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12393 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_CK3
12396 class(display_type) ,
intent(inout) :: self
12397 complex(CKG) , intent(in) __CONTIGUOUS :: object(:)
12398 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12399 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12400 logical(LK) ,
intent(in) ,
optional :: sticky
12401 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12406 module subroutine show_D1_CK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12408 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_CK2
12411 class(display_type) ,
intent(inout) :: self
12412 complex(CKG) , intent(in) __CONTIGUOUS :: object(:)
12413 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12414 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12415 logical(LK) ,
intent(in) ,
optional :: sticky
12416 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12421 module subroutine show_D1_CK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12422#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12423 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_CK1
12426 class(display_type) ,
intent(inout) :: self
12427 complex(CKG) , intent(in) __CONTIGUOUS :: object(:)
12428 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12429 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12430 logical(LK) ,
intent(in) ,
optional :: sticky
12431 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12438 module subroutine show_D1_RK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12440 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_RK5
12443 class(display_type) ,
intent(inout) :: self
12444 real(RKG) , intent(in) __CONTIGUOUS :: object(:)
12445 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12446 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12447 logical(LK) ,
intent(in) ,
optional :: sticky
12448 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12453 module subroutine show_D1_RK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12455 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_RK4
12458 class(display_type) ,
intent(inout) :: self
12459 real(RKG) , intent(in) __CONTIGUOUS :: object(:)
12460 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12461 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12462 logical(LK) ,
intent(in) ,
optional :: sticky
12463 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12468 module subroutine show_D1_RK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12470 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_RK3
12473 class(display_type) ,
intent(inout) :: self
12474 real(RKG) , intent(in) __CONTIGUOUS :: object(:)
12475 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12476 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12477 logical(LK) ,
intent(in) ,
optional :: sticky
12478 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12483 module subroutine show_D1_RK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12484#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12485 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_RK2
12488 class(display_type) ,
intent(inout) :: self
12489 real(RKG) , intent(in) __CONTIGUOUS :: object(:)
12490 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12491 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12492 logical(LK) ,
intent(in) ,
optional :: sticky
12493 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12498 module subroutine show_D1_RK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12500 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_RK1
12503 class(display_type) ,
intent(inout) :: self
12504 real(RKG) , intent(in) __CONTIGUOUS :: object(:)
12505 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12506 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12507 logical(LK) ,
intent(in) ,
optional :: sticky
12508 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12521 module subroutine show_D2_SK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12522#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12523 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_SK5
12526 class(display_type) ,
intent(inout) :: self
12527 character(
*,SKG) , intent(in) __CONTIGUOUS :: object(:,:)
12528 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12529 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12530 logical(LK) ,
intent(in) ,
optional :: sticky
12531 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12536 module subroutine show_D2_SK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12538 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_SK4
12541 class(display_type) ,
intent(inout) :: self
12542 character(
*,SKG) , intent(in) __CONTIGUOUS :: object(:,:)
12543 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12544 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12545 logical(LK) ,
intent(in) ,
optional :: sticky
12546 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12551 module subroutine show_D2_SK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12553 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_SK3
12556 class(display_type) ,
intent(inout) :: self
12557 character(
*,SKG) , intent(in) __CONTIGUOUS :: object(:,:)
12558 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12559 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12560 logical(LK) ,
intent(in) ,
optional :: sticky
12561 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12566 module subroutine show_D2_SK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12568 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_SK2
12571 class(display_type) ,
intent(inout) :: self
12572 character(
*,SKG) , intent(in) __CONTIGUOUS :: object(:,:)
12573 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12574 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12575 logical(LK) ,
intent(in) ,
optional :: sticky
12576 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12581 module subroutine show_D2_SK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12583 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_SK1
12586 class(display_type) ,
intent(inout) :: self
12587 character(
*,SKG) , intent(in) __CONTIGUOUS :: object(:,:)
12588 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12589 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12590 logical(LK) ,
intent(in) ,
optional :: sticky
12591 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12598 module subroutine show_D2_IK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12599#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12600 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_IK5
12603 class(display_type) ,
intent(inout) :: self
12604 integer(IKG) , intent(in) __CONTIGUOUS :: object(:,:)
12605 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12606 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12607 logical(LK) ,
intent(in) ,
optional :: sticky
12608 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12613 module subroutine show_D2_IK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12614#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12615 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_IK4
12618 class(display_type) ,
intent(inout) :: self
12619 integer(IKG) , intent(in) __CONTIGUOUS :: object(:,:)
12620 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12621 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12622 logical(LK) ,
intent(in) ,
optional :: sticky
12623 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12628 module subroutine show_D2_IK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12630 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_IK3
12633 class(display_type) ,
intent(inout) :: self
12634 integer(IKG) , intent(in) __CONTIGUOUS :: object(:,:)
12635 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12636 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12637 logical(LK) ,
intent(in) ,
optional :: sticky
12638 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12643 module subroutine show_D2_IK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12645 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_IK2
12648 class(display_type) ,
intent(inout) :: self
12649 integer(IKG) , intent(in) __CONTIGUOUS :: object(:,:)
12650 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12651 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12652 logical(LK) ,
intent(in) ,
optional :: sticky
12653 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12658 module subroutine show_D2_IK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12660 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_IK1
12663 class(display_type) ,
intent(inout) :: self
12664 integer(IKG) , intent(in) __CONTIGUOUS :: object(:,:)
12665 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12666 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12667 logical(LK) ,
intent(in) ,
optional :: sticky
12668 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12675 module subroutine show_D2_LK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12676#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12677 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_LK5
12680 class(display_type) ,
intent(inout) :: self
12681 logical(LKG) , intent(in) __CONTIGUOUS :: object(:,:)
12682 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12683 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12684 logical(LK) ,
intent(in) ,
optional :: sticky
12685 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12690 module subroutine show_D2_LK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12692 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_LK4
12695 class(display_type) ,
intent(inout) :: self
12696 logical(LKG) , intent(in) __CONTIGUOUS :: object(:,:)
12697 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12698 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12699 logical(LK) ,
intent(in) ,
optional :: sticky
12700 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12705 module subroutine show_D2_LK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12707 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_LK3
12710 class(display_type) ,
intent(inout) :: self
12711 logical(LKG) , intent(in) __CONTIGUOUS :: object(:,:)
12712 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12713 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12714 logical(LK) ,
intent(in) ,
optional :: sticky
12715 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12720 module subroutine show_D2_LK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12722 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_LK2
12725 class(display_type) ,
intent(inout) :: self
12726 logical(LKG) , intent(in) __CONTIGUOUS :: object(:,:)
12727 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12728 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12729 logical(LK) ,
intent(in) ,
optional :: sticky
12730 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12735 module subroutine show_D2_LK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12737 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_LK1
12740 class(display_type) ,
intent(inout) :: self
12741 logical(LKG) , intent(in) __CONTIGUOUS :: object(:,:)
12742 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12743 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12744 logical(LK) ,
intent(in) ,
optional :: sticky
12745 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12752 module subroutine show_D2_CK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12754 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_CK5
12757 class(display_type) ,
intent(inout) :: self
12758 complex(CKG) , intent(in) __CONTIGUOUS :: object(:,:)
12759 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12760 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12761 logical(LK) ,
intent(in) ,
optional :: sticky
12762 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12767 module subroutine show_D2_CK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12769 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_CK4
12772 class(display_type) ,
intent(inout) :: self
12773 complex(CKG) , intent(in) __CONTIGUOUS :: object(:,:)
12774 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12775 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12776 logical(LK) ,
intent(in) ,
optional :: sticky
12777 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12782 module subroutine show_D2_CK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12784 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_CK3
12787 class(display_type) ,
intent(inout) :: self
12788 complex(CKG) , intent(in) __CONTIGUOUS :: object(:,:)
12789 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12790 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12791 logical(LK) ,
intent(in) ,
optional :: sticky
12792 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12797 module subroutine show_D2_CK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12799 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_CK2
12802 class(display_type) ,
intent(inout) :: self
12803 complex(CKG) , intent(in) __CONTIGUOUS :: object(:,:)
12804 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12805 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12806 logical(LK) ,
intent(in) ,
optional :: sticky
12807 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12812 module subroutine show_D2_CK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12814 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_CK1
12817 class(display_type) ,
intent(inout) :: self
12818 complex(CKG) , intent(in) __CONTIGUOUS :: object(:,:)
12819 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12820 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12821 logical(LK) ,
intent(in) ,
optional :: sticky
12822 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12829 module subroutine show_D2_RK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12831 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_RK5
12834 class(display_type) ,
intent(inout) :: self
12835 real(RKG) , intent(in) __CONTIGUOUS :: object(:,:)
12836 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12837 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12838 logical(LK) ,
intent(in) ,
optional :: sticky
12839 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12844 module subroutine show_D2_RK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12846 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_RK4
12849 class(display_type) ,
intent(inout) :: self
12850 real(RKG) , intent(in) __CONTIGUOUS :: object(:,:)
12851 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12852 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12853 logical(LK) ,
intent(in) ,
optional :: sticky
12854 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12859 module subroutine show_D2_RK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12861 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_RK3
12864 class(display_type) ,
intent(inout) :: self
12865 real(RKG) , intent(in) __CONTIGUOUS :: object(:,:)
12866 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12867 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12868 logical(LK) ,
intent(in) ,
optional :: sticky
12869 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12874 module subroutine show_D2_RK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12876 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_RK2
12879 class(display_type) ,
intent(inout) :: self
12880 real(RKG) , intent(in) __CONTIGUOUS :: object(:,:)
12881 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12882 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12883 logical(LK) ,
intent(in) ,
optional :: sticky
12884 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12889 module subroutine show_D2_RK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12891 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_RK1
12894 class(display_type) ,
intent(inout) :: self
12895 real(RKG) , intent(in) __CONTIGUOUS :: object(:,:)
12896 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12897 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12898 logical(LK) ,
intent(in) ,
optional :: sticky
12899 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12912 module subroutine show_D3_SK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12914 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_SK5
12917 class(display_type) ,
intent(inout) :: self
12918 character(
*,SKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
12919 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12920 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12921 logical(LK) ,
intent(in) ,
optional :: sticky
12922 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12927 module subroutine show_D3_SK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12929 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_SK4
12932 class(display_type) ,
intent(inout) :: self
12933 character(
*,SKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
12934 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12935 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12936 logical(LK) ,
intent(in) ,
optional :: sticky
12937 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12942 module subroutine show_D3_SK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12944 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_SK3
12947 class(display_type) ,
intent(inout) :: self
12948 character(
*,SKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
12949 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12950 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12951 logical(LK) ,
intent(in) ,
optional :: sticky
12952 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12957 module subroutine show_D3_SK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12958#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12959 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_SK2
12962 class(display_type) ,
intent(inout) :: self
12963 character(
*,SKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
12964 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12965 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12966 logical(LK) ,
intent(in) ,
optional :: sticky
12967 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12972 module subroutine show_D3_SK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12973#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12974 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_SK1
12977 class(display_type) ,
intent(inout) :: self
12978 character(
*,SKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
12979 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12980 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12981 logical(LK) ,
intent(in) ,
optional :: sticky
12982 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
12989 module subroutine show_D3_IK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
12990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12991 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_IK5
12994 class(display_type) ,
intent(inout) :: self
12995 integer(IKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
12996 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
12997 character(
*, SK) ,
intent(in) ,
optional :: format, advance
12998 logical(LK) ,
intent(in) ,
optional :: sticky
12999 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13004 module subroutine show_D3_IK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13006 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_IK4
13009 class(display_type) ,
intent(inout) :: self
13010 integer(IKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13011 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13012 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13013 logical(LK) ,
intent(in) ,
optional :: sticky
13014 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13019 module subroutine show_D3_IK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13020#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13021 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_IK3
13024 class(display_type) ,
intent(inout) :: self
13025 integer(IKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13026 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13027 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13028 logical(LK) ,
intent(in) ,
optional :: sticky
13029 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13034 module subroutine show_D3_IK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13036 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_IK2
13039 class(display_type) ,
intent(inout) :: self
13040 integer(IKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13041 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13042 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13043 logical(LK) ,
intent(in) ,
optional :: sticky
13044 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13049 module subroutine show_D3_IK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13050#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13051 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_IK1
13054 class(display_type) ,
intent(inout) :: self
13055 integer(IKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13056 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13057 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13058 logical(LK) ,
intent(in) ,
optional :: sticky
13059 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13066 module subroutine show_D3_LK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13068 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_LK5
13071 class(display_type) ,
intent(inout) :: self
13072 logical(LKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13073 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13074 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13075 logical(LK) ,
intent(in) ,
optional :: sticky
13076 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13081 module subroutine show_D3_LK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13083 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_LK4
13086 class(display_type) ,
intent(inout) :: self
13087 logical(LKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13088 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13089 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13090 logical(LK) ,
intent(in) ,
optional :: sticky
13091 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13096 module subroutine show_D3_LK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13098 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_LK3
13101 class(display_type) ,
intent(inout) :: self
13102 logical(LKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13103 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13104 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13105 logical(LK) ,
intent(in) ,
optional :: sticky
13106 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13111 module subroutine show_D3_LK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13112#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13113 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_LK2
13116 class(display_type) ,
intent(inout) :: self
13117 logical(LKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13118 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13119 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13120 logical(LK) ,
intent(in) ,
optional :: sticky
13121 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13126 module subroutine show_D3_LK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13128 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_LK1
13131 class(display_type) ,
intent(inout) :: self
13132 logical(LKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13133 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13134 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13135 logical(LK) ,
intent(in) ,
optional :: sticky
13136 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13143 module subroutine show_D3_CK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13144#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13145 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_CK5
13148 class(display_type) ,
intent(inout) :: self
13149 complex(CKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13150 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13151 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13152 logical(LK) ,
intent(in) ,
optional :: sticky
13153 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13158 module subroutine show_D3_CK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13160 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_CK4
13163 class(display_type) ,
intent(inout) :: self
13164 complex(CKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13165 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13166 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13167 logical(LK) ,
intent(in) ,
optional :: sticky
13168 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13173 module subroutine show_D3_CK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13175 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_CK3
13178 class(display_type) ,
intent(inout) :: self
13179 complex(CKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13180 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13181 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13182 logical(LK) ,
intent(in) ,
optional :: sticky
13183 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13188 module subroutine show_D3_CK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13190 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_CK2
13193 class(display_type) ,
intent(inout) :: self
13194 complex(CKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13195 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13196 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13197 logical(LK) ,
intent(in) ,
optional :: sticky
13198 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13203 module subroutine show_D3_CK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13205 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_CK1
13208 class(display_type) ,
intent(inout) :: self
13209 complex(CKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13210 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13211 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13212 logical(LK) ,
intent(in) ,
optional :: sticky
13213 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13220 module subroutine show_D3_RK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13222 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_RK5
13225 class(display_type) ,
intent(inout) :: self
13226 real(RKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13227 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13228 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13229 logical(LK) ,
intent(in) ,
optional :: sticky
13230 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13235 module subroutine show_D3_RK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13237 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_RK4
13240 class(display_type) ,
intent(inout) :: self
13241 real(RKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13242 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13243 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13244 logical(LK) ,
intent(in) ,
optional :: sticky
13245 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13250 module subroutine show_D3_RK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13252 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_RK3
13255 class(display_type) ,
intent(inout) :: self
13256 real(RKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13257 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13258 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13259 logical(LK) ,
intent(in) ,
optional :: sticky
13260 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13265 module subroutine show_D3_RK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13267 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_RK2
13270 class(display_type) ,
intent(inout) :: self
13271 real(RKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13272 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13273 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13274 logical(LK) ,
intent(in) ,
optional :: sticky
13275 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13280 module subroutine show_D3_RK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13282 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_RK1
13285 class(display_type) ,
intent(inout) :: self
13286 real(RKG) , intent(in) __CONTIGUOUS :: object(:,:,:)
13287 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13288 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13289 logical(LK) ,
intent(in) ,
optional :: sticky
13290 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13309 module subroutine show_D0_PSSK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13310#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13311 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSSK5
13315 class(display_type) ,
intent(inout) :: self
13316 type(css_pdt(SKG)) ,
intent(in) :: object
13317 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13318 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13319 logical(LK) ,
intent(in) ,
optional :: sticky
13320 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13325 module subroutine show_D0_PSSK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13327 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSSK4
13331 class(display_type) ,
intent(inout) :: self
13332 type(css_pdt(SKG)) ,
intent(in) :: object
13333 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13334 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13335 logical(LK) ,
intent(in) ,
optional :: sticky
13336 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13341 module subroutine show_D0_PSSK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13343 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSSK3
13347 class(display_type) ,
intent(inout) :: self
13348 type(css_pdt(SKG)) ,
intent(in) :: object
13349 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13350 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13351 logical(LK) ,
intent(in) ,
optional :: sticky
13352 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13357 module subroutine show_D0_PSSK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13359 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSSK2
13363 class(display_type) ,
intent(inout) :: self
13364 type(css_pdt(SKG)) ,
intent(in) :: object
13365 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13366 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13367 logical(LK) ,
intent(in) ,
optional :: sticky
13368 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13373 module subroutine show_D0_PSSK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13374#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13375 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSSK1
13379 class(display_type) ,
intent(inout) :: self
13380 type(css_pdt(SKG)) ,
intent(in) :: object
13381 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13382 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13383 logical(LK) ,
intent(in) ,
optional :: sticky
13384 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13391 module subroutine show_D0_PSIK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13393 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSIK5
13397 class(display_type) ,
intent(inout) :: self
13398 type(csi_pdt(IKG)) ,
intent(in) :: object
13399 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13400 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13401 logical(LK) ,
intent(in) ,
optional :: sticky
13402 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13407 module subroutine show_D0_PSIK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13409 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSIK4
13413 class(display_type) ,
intent(inout) :: self
13414 type(csi_pdt(IKG)) ,
intent(in) :: object
13415 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13416 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13417 logical(LK) ,
intent(in) ,
optional :: sticky
13418 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13423 module subroutine show_D0_PSIK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13424#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13425 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSIK3
13429 class(display_type) ,
intent(inout) :: self
13430 type(csi_pdt(IKG)) ,
intent(in) :: object
13431 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13432 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13433 logical(LK) ,
intent(in) ,
optional :: sticky
13434 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13439 module subroutine show_D0_PSIK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13441 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSIK2
13445 class(display_type) ,
intent(inout) :: self
13446 type(csi_pdt(IKG)) ,
intent(in) :: object
13447 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13448 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13449 logical(LK) ,
intent(in) ,
optional :: sticky
13450 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13455 module subroutine show_D0_PSIK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13457 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSIK1
13461 class(display_type) ,
intent(inout) :: self
13462 type(csi_pdt(IKG)) ,
intent(in) :: object
13463 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13464 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13465 logical(LK) ,
intent(in) ,
optional :: sticky
13466 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13473 module subroutine show_D0_PSLK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13474#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13475 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSLK5
13479 class(display_type) ,
intent(inout) :: self
13480 type(csl_pdt(LKG)) ,
intent(in) :: object
13481 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13482 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13483 logical(LK) ,
intent(in) ,
optional :: sticky
13484 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13489 module subroutine show_D0_PSLK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13491 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSLK4
13495 class(display_type) ,
intent(inout) :: self
13496 type(csl_pdt(LKG)) ,
intent(in) :: object
13497 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13498 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13499 logical(LK) ,
intent(in) ,
optional :: sticky
13500 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13505 module subroutine show_D0_PSLK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13506#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13507 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSLK3
13511 class(display_type) ,
intent(inout) :: self
13512 type(csl_pdt(LKG)) ,
intent(in) :: object
13513 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13514 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13515 logical(LK) ,
intent(in) ,
optional :: sticky
13516 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13521 module subroutine show_D0_PSLK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13522#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13523 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSLK2
13527 class(display_type) ,
intent(inout) :: self
13528 type(csl_pdt(LKG)) ,
intent(in) :: object
13529 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13530 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13531 logical(LK) ,
intent(in) ,
optional :: sticky
13532 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13537 module subroutine show_D0_PSLK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13538#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13539 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSLK1
13543 class(display_type) ,
intent(inout) :: self
13544 type(csl_pdt(LKG)) ,
intent(in) :: object
13545 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13546 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13547 logical(LK) ,
intent(in) ,
optional :: sticky
13548 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13555 module subroutine show_D0_PSCK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13557 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSCK5
13561 class(display_type) ,
intent(inout) :: self
13562 type(csc_pdt(CKG)) ,
intent(in) :: object
13563 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13564 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13565 logical(LK) ,
intent(in) ,
optional :: sticky
13566 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13571 module subroutine show_D0_PSCK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13573 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSCK4
13577 class(display_type) ,
intent(inout) :: self
13578 type(csc_pdt(CKG)) ,
intent(in) :: object
13579 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13580 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13581 logical(LK) ,
intent(in) ,
optional :: sticky
13582 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13587 module subroutine show_D0_PSCK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13588#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13589 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSCK3
13593 class(display_type) ,
intent(inout) :: self
13594 type(csc_pdt(CKG)) ,
intent(in) :: object
13595 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13596 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13597 logical(LK) ,
intent(in) ,
optional :: sticky
13598 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13603 module subroutine show_D0_PSCK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13605 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSCK2
13609 class(display_type) ,
intent(inout) :: self
13610 type(csc_pdt(CKG)) ,
intent(in) :: object
13611 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13612 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13613 logical(LK) ,
intent(in) ,
optional :: sticky
13614 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13619 module subroutine show_D0_PSCK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13620#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13621 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSCK1
13625 class(display_type) ,
intent(inout) :: self
13626 type(csc_pdt(CKG)) ,
intent(in) :: object
13627 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13628 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13629 logical(LK) ,
intent(in) ,
optional :: sticky
13630 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13637 module subroutine show_D0_PSRK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13638#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13639 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSRK5
13643 class(display_type) ,
intent(inout) :: self
13644 type(csr_pdt(RKG)) ,
intent(in) :: object
13645 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13646 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13647 logical(LK) ,
intent(in) ,
optional :: sticky
13648 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13653 module subroutine show_D0_PSRK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13654#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13655 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSRK4
13659 class(display_type) ,
intent(inout) :: self
13660 type(csr_pdt(RKG)) ,
intent(in) :: object
13661 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13662 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13663 logical(LK) ,
intent(in) ,
optional :: sticky
13664 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13669 module subroutine show_D0_PSRK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13671 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSRK3
13675 class(display_type) ,
intent(inout) :: self
13676 type(csr_pdt(RKG)) ,
intent(in) :: object
13677 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13678 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13679 logical(LK) ,
intent(in) ,
optional :: sticky
13680 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13685 module subroutine show_D0_PSRK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13687 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSRK2
13691 class(display_type) ,
intent(inout) :: self
13692 type(csr_pdt(RKG)) ,
intent(in) :: object
13693 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13694 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13695 logical(LK) ,
intent(in) ,
optional :: sticky
13696 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13701 module subroutine show_D0_PSRK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13702#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13703 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PSRK1
13707 class(display_type) ,
intent(inout) :: self
13708 type(csr_pdt(RKG)) ,
intent(in) :: object
13709 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13710 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13711 logical(LK) ,
intent(in) ,
optional :: sticky
13712 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13725 module subroutine show_D1_PSSK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13727 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSSK5
13731 class(display_type) ,
intent(inout) :: self
13732 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
13733 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13734 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13735 logical(LK) ,
intent(in) ,
optional :: sticky
13736 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13741 module subroutine show_D1_PSSK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13742#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13743 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSSK4
13747 class(display_type) ,
intent(inout) :: self
13748 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
13749 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13750 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13751 logical(LK) ,
intent(in) ,
optional :: sticky
13752 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13757 module subroutine show_D1_PSSK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13759 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSSK3
13763 class(display_type) ,
intent(inout) :: self
13764 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
13765 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13766 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13767 logical(LK) ,
intent(in) ,
optional :: sticky
13768 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13773 module subroutine show_D1_PSSK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13775 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSSK2
13779 class(display_type) ,
intent(inout) :: self
13780 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
13781 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13782 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13783 logical(LK) ,
intent(in) ,
optional :: sticky
13784 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13789 module subroutine show_D1_PSSK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13790#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13791 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSSK1
13795 class(display_type) ,
intent(inout) :: self
13796 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
13797 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13798 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13799 logical(LK) ,
intent(in) ,
optional :: sticky
13800 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13807 module subroutine show_D1_PSIK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13809 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSIK5
13813 class(display_type) ,
intent(inout) :: self
13814 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
13815 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13816 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13817 logical(LK) ,
intent(in) ,
optional :: sticky
13818 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13823 module subroutine show_D1_PSIK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13825 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSIK4
13829 class(display_type) ,
intent(inout) :: self
13830 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
13831 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13832 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13833 logical(LK) ,
intent(in) ,
optional :: sticky
13834 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13839 module subroutine show_D1_PSIK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13841 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSIK3
13845 class(display_type) ,
intent(inout) :: self
13846 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
13847 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13848 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13849 logical(LK) ,
intent(in) ,
optional :: sticky
13850 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13855 module subroutine show_D1_PSIK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13857 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSIK2
13861 class(display_type) ,
intent(inout) :: self
13862 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
13863 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13864 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13865 logical(LK) ,
intent(in) ,
optional :: sticky
13866 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13871 module subroutine show_D1_PSIK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13872#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13873 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSIK1
13877 class(display_type) ,
intent(inout) :: self
13878 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
13879 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13880 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13881 logical(LK) ,
intent(in) ,
optional :: sticky
13882 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13889 module subroutine show_D1_PSLK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13891 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSLK5
13895 class(display_type) ,
intent(inout) :: self
13896 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
13897 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13898 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13899 logical(LK) ,
intent(in) ,
optional :: sticky
13900 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13905 module subroutine show_D1_PSLK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13906#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13907 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSLK4
13911 class(display_type) ,
intent(inout) :: self
13912 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
13913 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13914 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13915 logical(LK) ,
intent(in) ,
optional :: sticky
13916 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13921 module subroutine show_D1_PSLK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13922#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13923 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSLK3
13927 class(display_type) ,
intent(inout) :: self
13928 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
13929 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13930 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13931 logical(LK) ,
intent(in) ,
optional :: sticky
13932 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13937 module subroutine show_D1_PSLK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13938#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13939 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSLK2
13943 class(display_type) ,
intent(inout) :: self
13944 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
13945 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13946 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13947 logical(LK) ,
intent(in) ,
optional :: sticky
13948 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13953 module subroutine show_D1_PSLK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13955 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSLK1
13959 class(display_type) ,
intent(inout) :: self
13960 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
13961 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13962 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13963 logical(LK) ,
intent(in) ,
optional :: sticky
13964 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13971 module subroutine show_D1_PSCK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13972#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13973 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSCK5
13977 class(display_type) ,
intent(inout) :: self
13978 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
13979 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13980 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13981 logical(LK) ,
intent(in) ,
optional :: sticky
13982 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
13987 module subroutine show_D1_PSCK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
13988#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13989 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSCK4
13993 class(display_type) ,
intent(inout) :: self
13994 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
13995 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
13996 character(
*, SK) ,
intent(in) ,
optional :: format, advance
13997 logical(LK) ,
intent(in) ,
optional :: sticky
13998 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14003 module subroutine show_D1_PSCK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14004#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14005 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSCK3
14009 class(display_type) ,
intent(inout) :: self
14010 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
14011 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14012 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14013 logical(LK) ,
intent(in) ,
optional :: sticky
14014 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14019 module subroutine show_D1_PSCK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14020#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14021 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSCK2
14025 class(display_type) ,
intent(inout) :: self
14026 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
14027 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14028 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14029 logical(LK) ,
intent(in) ,
optional :: sticky
14030 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14035 module subroutine show_D1_PSCK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14036#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14037 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSCK1
14041 class(display_type) ,
intent(inout) :: self
14042 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
14043 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14044 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14045 logical(LK) ,
intent(in) ,
optional :: sticky
14046 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14053 module subroutine show_D1_PSRK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14054#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14055 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSRK5
14059 class(display_type) ,
intent(inout) :: self
14060 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
14061 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14062 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14063 logical(LK) ,
intent(in) ,
optional :: sticky
14064 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14069 module subroutine show_D1_PSRK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14071 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSRK4
14075 class(display_type) ,
intent(inout) :: self
14076 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
14077 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14078 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14079 logical(LK) ,
intent(in) ,
optional :: sticky
14080 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14085 module subroutine show_D1_PSRK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14086#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14087 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSRK3
14091 class(display_type) ,
intent(inout) :: self
14092 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
14093 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14094 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14095 logical(LK) ,
intent(in) ,
optional :: sticky
14096 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14101 module subroutine show_D1_PSRK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14103 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSRK2
14107 class(display_type) ,
intent(inout) :: self
14108 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
14109 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14110 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14111 logical(LK) ,
intent(in) ,
optional :: sticky
14112 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14117 module subroutine show_D1_PSRK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14118#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14119 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PSRK1
14123 class(display_type) ,
intent(inout) :: self
14124 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
14125 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14126 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14127 logical(LK) ,
intent(in) ,
optional :: sticky
14128 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14141 module subroutine show_D2_PSSK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14143 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSSK5
14147 class(display_type) ,
intent(inout) :: self
14148 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14149 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14150 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14151 logical(LK) ,
intent(in) ,
optional :: sticky
14152 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14157 module subroutine show_D2_PSSK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14158#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14159 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSSK4
14163 class(display_type) ,
intent(inout) :: self
14164 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14165 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14166 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14167 logical(LK) ,
intent(in) ,
optional :: sticky
14168 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14173 module subroutine show_D2_PSSK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14175 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSSK3
14179 class(display_type) ,
intent(inout) :: self
14180 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14181 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14182 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14183 logical(LK) ,
intent(in) ,
optional :: sticky
14184 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14189 module subroutine show_D2_PSSK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14191 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSSK2
14195 class(display_type) ,
intent(inout) :: self
14196 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14197 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14198 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14199 logical(LK) ,
intent(in) ,
optional :: sticky
14200 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14205 module subroutine show_D2_PSSK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14207 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSSK1
14211 class(display_type) ,
intent(inout) :: self
14212 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14213 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14214 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14215 logical(LK) ,
intent(in) ,
optional :: sticky
14216 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14223 module subroutine show_D2_PSIK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14224#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14225 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSIK5
14229 class(display_type) ,
intent(inout) :: self
14230 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14231 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14232 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14233 logical(LK) ,
intent(in) ,
optional :: sticky
14234 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14239 module subroutine show_D2_PSIK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14240#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14241 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSIK4
14245 class(display_type) ,
intent(inout) :: self
14246 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14247 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14248 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14249 logical(LK) ,
intent(in) ,
optional :: sticky
14250 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14255 module subroutine show_D2_PSIK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14257 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSIK3
14261 class(display_type) ,
intent(inout) :: self
14262 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14263 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14264 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14265 logical(LK) ,
intent(in) ,
optional :: sticky
14266 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14271 module subroutine show_D2_PSIK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14273 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSIK2
14277 class(display_type) ,
intent(inout) :: self
14278 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14279 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14280 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14281 logical(LK) ,
intent(in) ,
optional :: sticky
14282 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14287 module subroutine show_D2_PSIK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14289 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSIK1
14293 class(display_type) ,
intent(inout) :: self
14294 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14295 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14296 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14297 logical(LK) ,
intent(in) ,
optional :: sticky
14298 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14305 module subroutine show_D2_PSLK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14307 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSLK5
14311 class(display_type) ,
intent(inout) :: self
14312 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14313 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14314 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14315 logical(LK) ,
intent(in) ,
optional :: sticky
14316 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14321 module subroutine show_D2_PSLK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14323 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSLK4
14327 class(display_type) ,
intent(inout) :: self
14328 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14329 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14330 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14331 logical(LK) ,
intent(in) ,
optional :: sticky
14332 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14337 module subroutine show_D2_PSLK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14339 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSLK3
14343 class(display_type) ,
intent(inout) :: self
14344 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14345 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14346 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14347 logical(LK) ,
intent(in) ,
optional :: sticky
14348 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14353 module subroutine show_D2_PSLK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14355 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSLK2
14359 class(display_type) ,
intent(inout) :: self
14360 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14361 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14362 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14363 logical(LK) ,
intent(in) ,
optional :: sticky
14364 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14369 module subroutine show_D2_PSLK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14371 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSLK1
14375 class(display_type) ,
intent(inout) :: self
14376 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14377 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14378 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14379 logical(LK) ,
intent(in) ,
optional :: sticky
14380 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14387 module subroutine show_D2_PSCK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14389 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSCK5
14393 class(display_type) ,
intent(inout) :: self
14394 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14395 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14396 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14397 logical(LK) ,
intent(in) ,
optional :: sticky
14398 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14403 module subroutine show_D2_PSCK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14405 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSCK4
14409 class(display_type) ,
intent(inout) :: self
14410 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14411 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14412 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14413 logical(LK) ,
intent(in) ,
optional :: sticky
14414 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14419 module subroutine show_D2_PSCK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14421 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSCK3
14425 class(display_type) ,
intent(inout) :: self
14426 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14427 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14428 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14429 logical(LK) ,
intent(in) ,
optional :: sticky
14430 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14435 module subroutine show_D2_PSCK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14437 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSCK2
14441 class(display_type) ,
intent(inout) :: self
14442 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14443 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14444 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14445 logical(LK) ,
intent(in) ,
optional :: sticky
14446 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14451 module subroutine show_D2_PSCK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14452#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14453 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSCK1
14457 class(display_type) ,
intent(inout) :: self
14458 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14459 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14460 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14461 logical(LK) ,
intent(in) ,
optional :: sticky
14462 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14469 module subroutine show_D2_PSRK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14471 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSRK5
14475 class(display_type) ,
intent(inout) :: self
14476 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14477 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14478 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14479 logical(LK) ,
intent(in) ,
optional :: sticky
14480 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14485 module subroutine show_D2_PSRK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14487 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSRK4
14491 class(display_type) ,
intent(inout) :: self
14492 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14493 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14494 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14495 logical(LK) ,
intent(in) ,
optional :: sticky
14496 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14501 module subroutine show_D2_PSRK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14503 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSRK3
14507 class(display_type) ,
intent(inout) :: self
14508 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14509 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14510 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14511 logical(LK) ,
intent(in) ,
optional :: sticky
14512 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14517 module subroutine show_D2_PSRK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14519 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSRK2
14523 class(display_type) ,
intent(inout) :: self
14524 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14525 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14526 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14527 logical(LK) ,
intent(in) ,
optional :: sticky
14528 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14533 module subroutine show_D2_PSRK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14534#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14535 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PSRK1
14539 class(display_type) ,
intent(inout) :: self
14540 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:)
14541 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14542 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14543 logical(LK) ,
intent(in) ,
optional :: sticky
14544 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14557 module subroutine show_D3_PSSK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14559 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSSK5
14563 class(display_type) ,
intent(inout) :: self
14564 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14565 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14566 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14567 logical(LK) ,
intent(in) ,
optional :: sticky
14568 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14573 module subroutine show_D3_PSSK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14575 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSSK4
14579 class(display_type) ,
intent(inout) :: self
14580 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14581 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14582 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14583 logical(LK) ,
intent(in) ,
optional :: sticky
14584 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14589 module subroutine show_D3_PSSK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14590#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14591 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSSK3
14595 class(display_type) ,
intent(inout) :: self
14596 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14597 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14598 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14599 logical(LK) ,
intent(in) ,
optional :: sticky
14600 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14605 module subroutine show_D3_PSSK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14607 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSSK2
14611 class(display_type) ,
intent(inout) :: self
14612 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14613 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14614 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14615 logical(LK) ,
intent(in) ,
optional :: sticky
14616 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14621 module subroutine show_D3_PSSK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14622#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14623 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSSK1
14627 class(display_type) ,
intent(inout) :: self
14628 type(css_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14629 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14630 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14631 logical(LK) ,
intent(in) ,
optional :: sticky
14632 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14639 module subroutine show_D3_PSIK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14641 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSIK5
14645 class(display_type) ,
intent(inout) :: self
14646 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14647 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14648 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14649 logical(LK) ,
intent(in) ,
optional :: sticky
14650 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14655 module subroutine show_D3_PSIK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14657 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSIK4
14661 class(display_type) ,
intent(inout) :: self
14662 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14663 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14664 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14665 logical(LK) ,
intent(in) ,
optional :: sticky
14666 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14671 module subroutine show_D3_PSIK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14672#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14673 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSIK3
14677 class(display_type) ,
intent(inout) :: self
14678 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14679 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14680 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14681 logical(LK) ,
intent(in) ,
optional :: sticky
14682 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14687 module subroutine show_D3_PSIK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14689 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSIK2
14693 class(display_type) ,
intent(inout) :: self
14694 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14695 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14696 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14697 logical(LK) ,
intent(in) ,
optional :: sticky
14698 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14703 module subroutine show_D3_PSIK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14705 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSIK1
14709 class(display_type) ,
intent(inout) :: self
14710 type(csi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14711 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14712 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14713 logical(LK) ,
intent(in) ,
optional :: sticky
14714 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14721 module subroutine show_D3_PSLK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14723 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSLK5
14727 class(display_type) ,
intent(inout) :: self
14728 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14729 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14730 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14731 logical(LK) ,
intent(in) ,
optional :: sticky
14732 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14737 module subroutine show_D3_PSLK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14739 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSLK4
14743 class(display_type) ,
intent(inout) :: self
14744 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14745 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14746 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14747 logical(LK) ,
intent(in) ,
optional :: sticky
14748 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14753 module subroutine show_D3_PSLK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14755 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSLK3
14759 class(display_type) ,
intent(inout) :: self
14760 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14761 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14762 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14763 logical(LK) ,
intent(in) ,
optional :: sticky
14764 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14769 module subroutine show_D3_PSLK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14771 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSLK2
14775 class(display_type) ,
intent(inout) :: self
14776 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14777 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14778 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14779 logical(LK) ,
intent(in) ,
optional :: sticky
14780 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14785 module subroutine show_D3_PSLK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14786#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14787 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSLK1
14791 class(display_type) ,
intent(inout) :: self
14792 type(csl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14793 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14794 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14795 logical(LK) ,
intent(in) ,
optional :: sticky
14796 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14803 module subroutine show_D3_PSCK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14804#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14805 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSCK5
14809 class(display_type) ,
intent(inout) :: self
14810 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14811 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14812 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14813 logical(LK) ,
intent(in) ,
optional :: sticky
14814 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14819 module subroutine show_D3_PSCK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14821 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSCK4
14825 class(display_type) ,
intent(inout) :: self
14826 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14827 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14828 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14829 logical(LK) ,
intent(in) ,
optional :: sticky
14830 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14835 module subroutine show_D3_PSCK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14836#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14837 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSCK3
14841 class(display_type) ,
intent(inout) :: self
14842 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14843 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14844 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14845 logical(LK) ,
intent(in) ,
optional :: sticky
14846 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14851 module subroutine show_D3_PSCK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14852#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14853 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSCK2
14857 class(display_type) ,
intent(inout) :: self
14858 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14859 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14860 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14861 logical(LK) ,
intent(in) ,
optional :: sticky
14862 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14867 module subroutine show_D3_PSCK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14869 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSCK1
14873 class(display_type) ,
intent(inout) :: self
14874 type(csc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14875 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14876 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14877 logical(LK) ,
intent(in) ,
optional :: sticky
14878 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14885 module subroutine show_D3_PSRK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14886#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14887 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSRK5
14891 class(display_type) ,
intent(inout) :: self
14892 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14893 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14894 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14895 logical(LK) ,
intent(in) ,
optional :: sticky
14896 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14901 module subroutine show_D3_PSRK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14902#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14903 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSRK4
14907 class(display_type) ,
intent(inout) :: self
14908 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14909 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14910 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14911 logical(LK) ,
intent(in) ,
optional :: sticky
14912 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14917 module subroutine show_D3_PSRK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14918#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14919 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSRK3
14923 class(display_type) ,
intent(inout) :: self
14924 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14925 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14926 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14927 logical(LK) ,
intent(in) ,
optional :: sticky
14928 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14933 module subroutine show_D3_PSRK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14934#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14935 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSRK2
14939 class(display_type) ,
intent(inout) :: self
14940 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14941 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14942 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14943 logical(LK) ,
intent(in) ,
optional :: sticky
14944 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14949 module subroutine show_D3_PSRK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14951 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_PSRK1
14955 class(display_type) ,
intent(inout) :: self
14956 type(csr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:,:)
14957 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14958 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14959 logical(LK) ,
intent(in) ,
optional :: sticky
14960 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14977 module subroutine show_D0_PVSK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14979 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVSK5
14983 class(display_type) ,
intent(inout) :: self
14984 type(cvs_pdt(SKG)) ,
intent(in) :: object
14985 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
14986 character(
*, SK) ,
intent(in) ,
optional :: format, advance
14987 logical(LK) ,
intent(in) ,
optional :: sticky
14988 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
14993 module subroutine show_D0_PVSK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
14994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14995 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVSK4
14999 class(display_type) ,
intent(inout) :: self
15000 type(cvs_pdt(SKG)) ,
intent(in) :: object
15001 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15002 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15003 logical(LK) ,
intent(in) ,
optional :: sticky
15004 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15009 module subroutine show_D0_PVSK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15010#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15011 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVSK3
15015 class(display_type) ,
intent(inout) :: self
15016 type(cvs_pdt(SKG)) ,
intent(in) :: object
15017 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15018 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15019 logical(LK) ,
intent(in) ,
optional :: sticky
15020 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15025 module subroutine show_D0_PVSK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15027 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVSK2
15031 class(display_type) ,
intent(inout) :: self
15032 type(cvs_pdt(SKG)) ,
intent(in) :: object
15033 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15034 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15035 logical(LK) ,
intent(in) ,
optional :: sticky
15036 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15041 module subroutine show_D0_PVSK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15043 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVSK1
15047 class(display_type) ,
intent(inout) :: self
15048 type(cvs_pdt(SKG)) ,
intent(in) :: object
15049 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15050 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15051 logical(LK) ,
intent(in) ,
optional :: sticky
15052 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15059 module subroutine show_D0_PVIK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15060#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15061 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVIK5
15065 class(display_type) ,
intent(inout) :: self
15066 type(cvi_pdt(IKG)) ,
intent(in) :: object
15067 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15068 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15069 logical(LK) ,
intent(in) ,
optional :: sticky
15070 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15075 module subroutine show_D0_PVIK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15077 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVIK4
15081 class(display_type) ,
intent(inout) :: self
15082 type(cvi_pdt(IKG)) ,
intent(in) :: object
15083 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15084 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15085 logical(LK) ,
intent(in) ,
optional :: sticky
15086 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15091 module subroutine show_D0_PVIK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15092#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15093 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVIK3
15097 class(display_type) ,
intent(inout) :: self
15098 type(cvi_pdt(IKG)) ,
intent(in) :: object
15099 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15100 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15101 logical(LK) ,
intent(in) ,
optional :: sticky
15102 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15107 module subroutine show_D0_PVIK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15108#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15109 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVIK2
15113 class(display_type) ,
intent(inout) :: self
15114 type(cvi_pdt(IKG)) ,
intent(in) :: object
15115 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15116 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15117 logical(LK) ,
intent(in) ,
optional :: sticky
15118 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15123 module subroutine show_D0_PVIK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15125 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVIK1
15129 class(display_type) ,
intent(inout) :: self
15130 type(cvi_pdt(IKG)) ,
intent(in) :: object
15131 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15132 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15133 logical(LK) ,
intent(in) ,
optional :: sticky
15134 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15141 module subroutine show_D0_PVLK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15143 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVLK5
15147 class(display_type) ,
intent(inout) :: self
15148 type(cvl_pdt(LKG)) ,
intent(in) :: object
15149 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15150 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15151 logical(LK) ,
intent(in) ,
optional :: sticky
15152 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15157 module subroutine show_D0_PVLK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15158#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15159 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVLK4
15163 class(display_type) ,
intent(inout) :: self
15164 type(cvl_pdt(LKG)) ,
intent(in) :: object
15165 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15166 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15167 logical(LK) ,
intent(in) ,
optional :: sticky
15168 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15173 module subroutine show_D0_PVLK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15175 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVLK3
15179 class(display_type) ,
intent(inout) :: self
15180 type(cvl_pdt(LKG)) ,
intent(in) :: object
15181 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15182 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15183 logical(LK) ,
intent(in) ,
optional :: sticky
15184 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15189 module subroutine show_D0_PVLK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15191 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVLK2
15195 class(display_type) ,
intent(inout) :: self
15196 type(cvl_pdt(LKG)) ,
intent(in) :: object
15197 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15198 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15199 logical(LK) ,
intent(in) ,
optional :: sticky
15200 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15205 module subroutine show_D0_PVLK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15207 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVLK1
15211 class(display_type) ,
intent(inout) :: self
15212 type(cvl_pdt(LKG)) ,
intent(in) :: object
15213 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15214 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15215 logical(LK) ,
intent(in) ,
optional :: sticky
15216 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15223 module subroutine show_D0_PVCK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15224#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15225 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVCK5
15229 class(display_type) ,
intent(inout) :: self
15230 type(cvc_pdt(CKG)) ,
intent(in) :: object
15231 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15232 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15233 logical(LK) ,
intent(in) ,
optional :: sticky
15234 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15239 module subroutine show_D0_PVCK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15240#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15241 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVCK4
15245 class(display_type) ,
intent(inout) :: self
15246 type(cvc_pdt(CKG)) ,
intent(in) :: object
15247 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15248 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15249 logical(LK) ,
intent(in) ,
optional :: sticky
15250 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15255 module subroutine show_D0_PVCK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15257 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVCK3
15261 class(display_type) ,
intent(inout) :: self
15262 type(cvc_pdt(CKG)) ,
intent(in) :: object
15263 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15264 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15265 logical(LK) ,
intent(in) ,
optional :: sticky
15266 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15271 module subroutine show_D0_PVCK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15273 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVCK2
15277 class(display_type) ,
intent(inout) :: self
15278 type(cvc_pdt(CKG)) ,
intent(in) :: object
15279 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15280 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15281 logical(LK) ,
intent(in) ,
optional :: sticky
15282 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15287 module subroutine show_D0_PVCK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15289 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVCK1
15293 class(display_type) ,
intent(inout) :: self
15294 type(cvc_pdt(CKG)) ,
intent(in) :: object
15295 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15296 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15297 logical(LK) ,
intent(in) ,
optional :: sticky
15298 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15305 module subroutine show_D0_PVRK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15307 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVRK5
15311 class(display_type) ,
intent(inout) :: self
15312 type(cvr_pdt(RKG)) ,
intent(in) :: object
15313 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15314 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15315 logical(LK) ,
intent(in) ,
optional :: sticky
15316 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15321 module subroutine show_D0_PVRK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15323 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVRK4
15327 class(display_type) ,
intent(inout) :: self
15328 type(cvr_pdt(RKG)) ,
intent(in) :: object
15329 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15330 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15331 logical(LK) ,
intent(in) ,
optional :: sticky
15332 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15337 module subroutine show_D0_PVRK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15339 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVRK3
15343 class(display_type) ,
intent(inout) :: self
15344 type(cvr_pdt(RKG)) ,
intent(in) :: object
15345 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15346 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15347 logical(LK) ,
intent(in) ,
optional :: sticky
15348 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15353 module subroutine show_D0_PVRK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15355 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVRK2
15359 class(display_type) ,
intent(inout) :: self
15360 type(cvr_pdt(RKG)) ,
intent(in) :: object
15361 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15362 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15363 logical(LK) ,
intent(in) ,
optional :: sticky
15364 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15369 module subroutine show_D0_PVRK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15371 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PVRK1
15375 class(display_type) ,
intent(inout) :: self
15376 type(cvr_pdt(RKG)) ,
intent(in) :: object
15377 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15378 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15379 logical(LK) ,
intent(in) ,
optional :: sticky
15380 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15393 module subroutine show_D1_PVSK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15394#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15395 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVSK5
15399 class(display_type) ,
intent(inout) :: self
15400 type(cvs_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
15401 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15402 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15403 logical(LK) ,
intent(in) ,
optional :: sticky
15404 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15409 module subroutine show_D1_PVSK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15411 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVSK4
15415 class(display_type) ,
intent(inout) :: self
15416 type(cvs_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
15417 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15418 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15419 logical(LK) ,
intent(in) ,
optional :: sticky
15420 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15425 module subroutine show_D1_PVSK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15427 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVSK3
15431 class(display_type) ,
intent(inout) :: self
15432 type(cvs_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
15433 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15434 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15435 logical(LK) ,
intent(in) ,
optional :: sticky
15436 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15441 module subroutine show_D1_PVSK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15443 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVSK2
15447 class(display_type) ,
intent(inout) :: self
15448 type(cvs_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
15449 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15450 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15451 logical(LK) ,
intent(in) ,
optional :: sticky
15452 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15457 module subroutine show_D1_PVSK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15459 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVSK1
15463 class(display_type) ,
intent(inout) :: self
15464 type(cvs_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
15465 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15466 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15467 logical(LK) ,
intent(in) ,
optional :: sticky
15468 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15475 module subroutine show_D1_PVIK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15476#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15477 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVIK5
15481 class(display_type) ,
intent(inout) :: self
15482 type(cvi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
15483 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15484 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15485 logical(LK) ,
intent(in) ,
optional :: sticky
15486 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15491 module subroutine show_D1_PVIK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15492#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15493 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVIK4
15497 class(display_type) ,
intent(inout) :: self
15498 type(cvi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
15499 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15500 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15501 logical(LK) ,
intent(in) ,
optional :: sticky
15502 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15507 module subroutine show_D1_PVIK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15509 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVIK3
15513 class(display_type) ,
intent(inout) :: self
15514 type(cvi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
15515 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15516 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15517 logical(LK) ,
intent(in) ,
optional :: sticky
15518 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15523 module subroutine show_D1_PVIK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15524#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15525 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVIK2
15529 class(display_type) ,
intent(inout) :: self
15530 type(cvi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
15531 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15532 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15533 logical(LK) ,
intent(in) ,
optional :: sticky
15534 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15539 module subroutine show_D1_PVIK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15541 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVIK1
15545 class(display_type) ,
intent(inout) :: self
15546 type(cvi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
15547 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15548 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15549 logical(LK) ,
intent(in) ,
optional :: sticky
15550 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15557 module subroutine show_D1_PVLK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15559 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVLK5
15563 class(display_type) ,
intent(inout) :: self
15564 type(cvl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
15565 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15566 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15567 logical(LK) ,
intent(in) ,
optional :: sticky
15568 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15573 module subroutine show_D1_PVLK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15575 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVLK4
15579 class(display_type) ,
intent(inout) :: self
15580 type(cvl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
15581 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15582 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15583 logical(LK) ,
intent(in) ,
optional :: sticky
15584 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15589 module subroutine show_D1_PVLK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15590#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15591 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVLK3
15595 class(display_type) ,
intent(inout) :: self
15596 type(cvl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
15597 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15598 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15599 logical(LK) ,
intent(in) ,
optional :: sticky
15600 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15605 module subroutine show_D1_PVLK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15607 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVLK2
15611 class(display_type) ,
intent(inout) :: self
15612 type(cvl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
15613 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15614 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15615 logical(LK) ,
intent(in) ,
optional :: sticky
15616 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15621 module subroutine show_D1_PVLK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15622#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15623 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVLK1
15627 class(display_type) ,
intent(inout) :: self
15628 type(cvl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
15629 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15630 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15631 logical(LK) ,
intent(in) ,
optional :: sticky
15632 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15639 module subroutine show_D1_PVCK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15641 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVCK5
15645 class(display_type) ,
intent(inout) :: self
15646 type(cvc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
15647 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15648 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15649 logical(LK) ,
intent(in) ,
optional :: sticky
15650 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15655 module subroutine show_D1_PVCK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15657 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVCK4
15661 class(display_type) ,
intent(inout) :: self
15662 type(cvc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
15663 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15664 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15665 logical(LK) ,
intent(in) ,
optional :: sticky
15666 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15671 module subroutine show_D1_PVCK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15672#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15673 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVCK3
15677 class(display_type) ,
intent(inout) :: self
15678 type(cvc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
15679 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15680 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15681 logical(LK) ,
intent(in) ,
optional :: sticky
15682 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15687 module subroutine show_D1_PVCK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15689 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVCK2
15693 class(display_type) ,
intent(inout) :: self
15694 type(cvc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
15695 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15696 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15697 logical(LK) ,
intent(in) ,
optional :: sticky
15698 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15703 module subroutine show_D1_PVCK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15705 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVCK1
15709 class(display_type) ,
intent(inout) :: self
15710 type(cvc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
15711 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15712 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15713 logical(LK) ,
intent(in) ,
optional :: sticky
15714 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15721 module subroutine show_D1_PVRK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15723 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVRK5
15727 class(display_type) ,
intent(inout) :: self
15728 type(cvr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
15729 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15730 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15731 logical(LK) ,
intent(in) ,
optional :: sticky
15732 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15737 module subroutine show_D1_PVRK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15739 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVRK4
15743 class(display_type) ,
intent(inout) :: self
15744 type(cvr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
15745 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15746 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15747 logical(LK) ,
intent(in) ,
optional :: sticky
15748 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15753 module subroutine show_D1_PVRK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15755 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVRK3
15759 class(display_type) ,
intent(inout) :: self
15760 type(cvr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
15761 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15762 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15763 logical(LK) ,
intent(in) ,
optional :: sticky
15764 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15769 module subroutine show_D1_PVRK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15771 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVRK2
15775 class(display_type) ,
intent(inout) :: self
15776 type(cvr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
15777 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15778 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15779 logical(LK) ,
intent(in) ,
optional :: sticky
15780 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15785 module subroutine show_D1_PVRK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15786#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15787 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PVRK1
15791 class(display_type) ,
intent(inout) :: self
15792 type(cvr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
15793 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15794 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15795 logical(LK) ,
intent(in) ,
optional :: sticky
15796 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15809 module subroutine show_D2_PVSK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15810#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15811 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVSK5
15815 class(display_type) ,
intent(inout) :: self
15816 type(cvs_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:)
15817 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15818 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15819 logical(LK) ,
intent(in) ,
optional :: sticky
15820 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15825 module subroutine show_D2_PVSK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15826#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15827 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVSK4
15831 class(display_type) ,
intent(inout) :: self
15832 type(cvs_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:)
15833 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15834 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15835 logical(LK) ,
intent(in) ,
optional :: sticky
15836 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15841 module subroutine show_D2_PVSK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15842#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15843 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVSK3
15847 class(display_type) ,
intent(inout) :: self
15848 type(cvs_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:)
15849 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15850 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15851 logical(LK) ,
intent(in) ,
optional :: sticky
15852 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15857 module subroutine show_D2_PVSK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15859 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVSK2
15863 class(display_type) ,
intent(inout) :: self
15864 type(cvs_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:)
15865 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15866 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15867 logical(LK) ,
intent(in) ,
optional :: sticky
15868 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15873 module subroutine show_D2_PVSK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15874#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15875 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVSK1
15879 class(display_type) ,
intent(inout) :: self
15880 type(cvs_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:,:)
15881 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15882 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15883 logical(LK) ,
intent(in) ,
optional :: sticky
15884 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15891 module subroutine show_D2_PVIK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15892#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15893 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVIK5
15897 class(display_type) ,
intent(inout) :: self
15898 type(cvi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:)
15899 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15900 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15901 logical(LK) ,
intent(in) ,
optional :: sticky
15902 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15907 module subroutine show_D2_PVIK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15908#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15909 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVIK4
15913 class(display_type) ,
intent(inout) :: self
15914 type(cvi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:)
15915 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15916 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15917 logical(LK) ,
intent(in) ,
optional :: sticky
15918 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15923 module subroutine show_D2_PVIK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15925 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVIK3
15929 class(display_type) ,
intent(inout) :: self
15930 type(cvi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:)
15931 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15932 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15933 logical(LK) ,
intent(in) ,
optional :: sticky
15934 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15939 module subroutine show_D2_PVIK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15941 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVIK2
15945 class(display_type) ,
intent(inout) :: self
15946 type(cvi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:)
15947 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15948 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15949 logical(LK) ,
intent(in) ,
optional :: sticky
15950 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15955 module subroutine show_D2_PVIK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15956#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15957 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVIK1
15961 class(display_type) ,
intent(inout) :: self
15962 type(cvi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:,:)
15963 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15964 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15965 logical(LK) ,
intent(in) ,
optional :: sticky
15966 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15973 module subroutine show_D2_PVLK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15974#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15975 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVLK5
15979 class(display_type) ,
intent(inout) :: self
15980 type(cvl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:)
15981 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15982 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15983 logical(LK) ,
intent(in) ,
optional :: sticky
15984 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
15989 module subroutine show_D2_PVLK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
15990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15991 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVLK4
15995 class(display_type) ,
intent(inout) :: self
15996 type(cvl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:)
15997 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
15998 character(
*, SK) ,
intent(in) ,
optional :: format, advance
15999 logical(LK) ,
intent(in) ,
optional :: sticky
16000 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16005 module subroutine show_D2_PVLK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16006#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16007 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVLK3
16011 class(display_type) ,
intent(inout) :: self
16012 type(cvl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:)
16013 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16014 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16015 logical(LK) ,
intent(in) ,
optional :: sticky
16016 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16021 module subroutine show_D2_PVLK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16023 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVLK2
16027 class(display_type) ,
intent(inout) :: self
16028 type(cvl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:)
16029 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16030 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16031 logical(LK) ,
intent(in) ,
optional :: sticky
16032 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16037 module subroutine show_D2_PVLK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16039 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVLK1
16043 class(display_type) ,
intent(inout) :: self
16044 type(cvl_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:,:)
16045 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16046 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16047 logical(LK) ,
intent(in) ,
optional :: sticky
16048 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16055 module subroutine show_D2_PVCK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16056#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16057 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVCK5
16061 class(display_type) ,
intent(inout) :: self
16062 type(cvc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:)
16063 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16064 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16065 logical(LK) ,
intent(in) ,
optional :: sticky
16066 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16071 module subroutine show_D2_PVCK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16072#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16073 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVCK4
16077 class(display_type) ,
intent(inout) :: self
16078 type(cvc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:)
16079 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16080 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16081 logical(LK) ,
intent(in) ,
optional :: sticky
16082 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16087 module subroutine show_D2_PVCK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16088#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16089 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVCK3
16093 class(display_type) ,
intent(inout) :: self
16094 type(cvc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:)
16095 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16096 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16097 logical(LK) ,
intent(in) ,
optional :: sticky
16098 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16103 module subroutine show_D2_PVCK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16105 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVCK2
16109 class(display_type) ,
intent(inout) :: self
16110 type(cvc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:)
16111 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16112 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16113 logical(LK) ,
intent(in) ,
optional :: sticky
16114 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16119 module subroutine show_D2_PVCK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16121 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVCK1
16125 class(display_type) ,
intent(inout) :: self
16126 type(cvc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:,:)
16127 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16128 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16129 logical(LK) ,
intent(in) ,
optional :: sticky
16130 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16137 module subroutine show_D2_PVRK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16138#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16139 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVRK5
16143 class(display_type) ,
intent(inout) :: self
16144 type(cvr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:)
16145 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16146 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16147 logical(LK) ,
intent(in) ,
optional :: sticky
16148 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16153 module subroutine show_D2_PVRK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16154#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16155 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVRK4
16159 class(display_type) ,
intent(inout) :: self
16160 type(cvr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:)
16161 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16162 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16163 logical(LK) ,
intent(in) ,
optional :: sticky
16164 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16169 module subroutine show_D2_PVRK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16170#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16171 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVRK3
16175 class(display_type) ,
intent(inout) :: self
16176 type(cvr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:)
16177 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16178 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16179 logical(LK) ,
intent(in) ,
optional :: sticky
16180 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16185 module subroutine show_D2_PVRK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16186#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16187 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVRK2
16191 class(display_type) ,
intent(inout) :: self
16192 type(cvr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:)
16193 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16194 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16195 logical(LK) ,
intent(in) ,
optional :: sticky
16196 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16201 module subroutine show_D2_PVRK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16202#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16203 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_PVRK1
16207 class(display_type) ,
intent(inout) :: self
16208 type(cvr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:,:)
16209 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16210 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16211 logical(LK) ,
intent(in) ,
optional :: sticky
16212 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16229 module subroutine show_D0_PMSK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16231 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMSK5
16235 class(display_type) ,
intent(inout) :: self
16236 type(cms_pdt(SKG)) ,
intent(in) :: object
16237 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16238 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16239 logical(LK) ,
intent(in) ,
optional :: sticky
16240 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16245 module subroutine show_D0_PMSK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16247 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMSK4
16251 class(display_type) ,
intent(inout) :: self
16252 type(cms_pdt(SKG)) ,
intent(in) :: object
16253 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16254 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16255 logical(LK) ,
intent(in) ,
optional :: sticky
16256 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16261 module subroutine show_D0_PMSK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16262#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16263 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMSK3
16267 class(display_type) ,
intent(inout) :: self
16268 type(cms_pdt(SKG)) ,
intent(in) :: object
16269 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16270 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16271 logical(LK) ,
intent(in) ,
optional :: sticky
16272 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16277 module subroutine show_D0_PMSK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16279 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMSK2
16283 class(display_type) ,
intent(inout) :: self
16284 type(cms_pdt(SKG)) ,
intent(in) :: object
16285 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16286 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16287 logical(LK) ,
intent(in) ,
optional :: sticky
16288 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16293 module subroutine show_D0_PMSK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16295 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMSK1
16299 class(display_type) ,
intent(inout) :: self
16300 type(cms_pdt(SKG)) ,
intent(in) :: object
16301 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16302 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16303 logical(LK) ,
intent(in) ,
optional :: sticky
16304 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16311 module subroutine show_D0_PMIK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16313 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMIK5
16317 class(display_type) ,
intent(inout) :: self
16318 type(cmi_pdt(IKG)) ,
intent(in) :: object
16319 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16320 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16321 logical(LK) ,
intent(in) ,
optional :: sticky
16322 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16327 module subroutine show_D0_PMIK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16329 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMIK4
16333 class(display_type) ,
intent(inout) :: self
16334 type(cmi_pdt(IKG)) ,
intent(in) :: object
16335 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16336 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16337 logical(LK) ,
intent(in) ,
optional :: sticky
16338 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16343 module subroutine show_D0_PMIK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16345 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMIK3
16349 class(display_type) ,
intent(inout) :: self
16350 type(cmi_pdt(IKG)) ,
intent(in) :: object
16351 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16352 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16353 logical(LK) ,
intent(in) ,
optional :: sticky
16354 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16359 module subroutine show_D0_PMIK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16361 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMIK2
16365 class(display_type) ,
intent(inout) :: self
16366 type(cmi_pdt(IKG)) ,
intent(in) :: object
16367 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16368 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16369 logical(LK) ,
intent(in) ,
optional :: sticky
16370 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16375 module subroutine show_D0_PMIK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16376#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16377 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMIK1
16381 class(display_type) ,
intent(inout) :: self
16382 type(cmi_pdt(IKG)) ,
intent(in) :: object
16383 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16384 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16385 logical(LK) ,
intent(in) ,
optional :: sticky
16386 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16393 module subroutine show_D0_PMLK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16394#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16395 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMLK5
16399 class(display_type) ,
intent(inout) :: self
16400 type(cml_pdt(LKG)) ,
intent(in) :: object
16401 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16402 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16403 logical(LK) ,
intent(in) ,
optional :: sticky
16404 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16409 module subroutine show_D0_PMLK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16411 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMLK4
16415 class(display_type) ,
intent(inout) :: self
16416 type(cml_pdt(LKG)) ,
intent(in) :: object
16417 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16418 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16419 logical(LK) ,
intent(in) ,
optional :: sticky
16420 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16425 module subroutine show_D0_PMLK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16427 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMLK3
16431 class(display_type) ,
intent(inout) :: self
16432 type(cml_pdt(LKG)) ,
intent(in) :: object
16433 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16434 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16435 logical(LK) ,
intent(in) ,
optional :: sticky
16436 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16441 module subroutine show_D0_PMLK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16443 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMLK2
16447 class(display_type) ,
intent(inout) :: self
16448 type(cml_pdt(LKG)) ,
intent(in) :: object
16449 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16450 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16451 logical(LK) ,
intent(in) ,
optional :: sticky
16452 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16457 module subroutine show_D0_PMLK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16459 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMLK1
16463 class(display_type) ,
intent(inout) :: self
16464 type(cml_pdt(LKG)) ,
intent(in) :: object
16465 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16466 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16467 logical(LK) ,
intent(in) ,
optional :: sticky
16468 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16475 module subroutine show_D0_PMCK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16476#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16477 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMCK5
16481 class(display_type) ,
intent(inout) :: self
16482 type(cmc_pdt(CKG)) ,
intent(in) :: object
16483 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16484 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16485 logical(LK) ,
intent(in) ,
optional :: sticky
16486 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16491 module subroutine show_D0_PMCK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16492#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16493 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMCK4
16497 class(display_type) ,
intent(inout) :: self
16498 type(cmc_pdt(CKG)) ,
intent(in) :: object
16499 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16500 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16501 logical(LK) ,
intent(in) ,
optional :: sticky
16502 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16507 module subroutine show_D0_PMCK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16509 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMCK3
16513 class(display_type) ,
intent(inout) :: self
16514 type(cmc_pdt(CKG)) ,
intent(in) :: object
16515 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16516 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16517 logical(LK) ,
intent(in) ,
optional :: sticky
16518 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16523 module subroutine show_D0_PMCK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16524#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16525 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMCK2
16529 class(display_type) ,
intent(inout) :: self
16530 type(cmc_pdt(CKG)) ,
intent(in) :: object
16531 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16532 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16533 logical(LK) ,
intent(in) ,
optional :: sticky
16534 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16539 module subroutine show_D0_PMCK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16541 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMCK1
16545 class(display_type) ,
intent(inout) :: self
16546 type(cmc_pdt(CKG)) ,
intent(in) :: object
16547 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16548 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16549 logical(LK) ,
intent(in) ,
optional :: sticky
16550 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16557 module subroutine show_D0_PMRK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16559 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMRK5
16563 class(display_type) ,
intent(inout) :: self
16564 type(cmr_pdt(RKG)) ,
intent(in) :: object
16565 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16566 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16567 logical(LK) ,
intent(in) ,
optional :: sticky
16568 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16573 module subroutine show_D0_PMRK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16575 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMRK4
16579 class(display_type) ,
intent(inout) :: self
16580 type(cmr_pdt(RKG)) ,
intent(in) :: object
16581 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16582 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16583 logical(LK) ,
intent(in) ,
optional :: sticky
16584 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16589 module subroutine show_D0_PMRK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16590#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16591 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMRK3
16595 class(display_type) ,
intent(inout) :: self
16596 type(cmr_pdt(RKG)) ,
intent(in) :: object
16597 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16598 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16599 logical(LK) ,
intent(in) ,
optional :: sticky
16600 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16605 module subroutine show_D0_PMRK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16607 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMRK2
16611 class(display_type) ,
intent(inout) :: self
16612 type(cmr_pdt(RKG)) ,
intent(in) :: object
16613 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16614 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16615 logical(LK) ,
intent(in) ,
optional :: sticky
16616 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16621 module subroutine show_D0_PMRK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16622#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16623 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PMRK1
16627 class(display_type) ,
intent(inout) :: self
16628 type(cmr_pdt(RKG)) ,
intent(in) :: object
16629 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16630 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16631 logical(LK) ,
intent(in) ,
optional :: sticky
16632 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16645 module subroutine show_D1_PMSK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16646#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16647 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMSK5
16651 class(display_type) ,
intent(inout) :: self
16652 type(cms_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
16653 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16654 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16655 logical(LK) ,
intent(in) ,
optional :: sticky
16656 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16661 module subroutine show_D1_PMSK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16663 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMSK4
16667 class(display_type) ,
intent(inout) :: self
16668 type(cms_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
16669 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16670 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16671 logical(LK) ,
intent(in) ,
optional :: sticky
16672 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16677 module subroutine show_D1_PMSK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16678#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16679 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMSK3
16683 class(display_type) ,
intent(inout) :: self
16684 type(cms_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
16685 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16686 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16687 logical(LK) ,
intent(in) ,
optional :: sticky
16688 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16693 module subroutine show_D1_PMSK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16695 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMSK2
16699 class(display_type) ,
intent(inout) :: self
16700 type(cms_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
16701 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16702 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16703 logical(LK) ,
intent(in) ,
optional :: sticky
16704 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16709 module subroutine show_D1_PMSK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16711 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMSK1
16715 class(display_type) ,
intent(inout) :: self
16716 type(cms_pdt(SKG)) , intent(in) __CONTIGUOUS :: object(:)
16717 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16718 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16719 logical(LK) ,
intent(in) ,
optional :: sticky
16720 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16727 module subroutine show_D1_PMIK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16729 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMIK5
16733 class(display_type) ,
intent(inout) :: self
16734 type(cmi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
16735 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16736 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16737 logical(LK) ,
intent(in) ,
optional :: sticky
16738 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16743 module subroutine show_D1_PMIK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16744#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16745 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMIK4
16749 class(display_type) ,
intent(inout) :: self
16750 type(cmi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
16751 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16752 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16753 logical(LK) ,
intent(in) ,
optional :: sticky
16754 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16759 module subroutine show_D1_PMIK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16761 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMIK3
16765 class(display_type) ,
intent(inout) :: self
16766 type(cmi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
16767 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16768 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16769 logical(LK) ,
intent(in) ,
optional :: sticky
16770 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16775 module subroutine show_D1_PMIK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16776#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16777 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMIK2
16781 class(display_type) ,
intent(inout) :: self
16782 type(cmi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
16783 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16784 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16785 logical(LK) ,
intent(in) ,
optional :: sticky
16786 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16791 module subroutine show_D1_PMIK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16792#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16793 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMIK1
16797 class(display_type) ,
intent(inout) :: self
16798 type(cmi_pdt(IKG)) , intent(in) __CONTIGUOUS :: object(:)
16799 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16800 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16801 logical(LK) ,
intent(in) ,
optional :: sticky
16802 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16809 module subroutine show_D1_PMLK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16810#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16811 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMLK5
16815 class(display_type) ,
intent(inout) :: self
16816 type(cml_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
16817 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16818 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16819 logical(LK) ,
intent(in) ,
optional :: sticky
16820 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16825 module subroutine show_D1_PMLK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16826#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16827 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMLK4
16831 class(display_type) ,
intent(inout) :: self
16832 type(cml_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
16833 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16834 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16835 logical(LK) ,
intent(in) ,
optional :: sticky
16836 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16841 module subroutine show_D1_PMLK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16842#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16843 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMLK3
16847 class(display_type) ,
intent(inout) :: self
16848 type(cml_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
16849 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16850 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16851 logical(LK) ,
intent(in) ,
optional :: sticky
16852 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16857 module subroutine show_D1_PMLK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16859 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMLK2
16863 class(display_type) ,
intent(inout) :: self
16864 type(cml_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
16865 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16866 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16867 logical(LK) ,
intent(in) ,
optional :: sticky
16868 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16873 module subroutine show_D1_PMLK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16874#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16875 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMLK1
16879 class(display_type) ,
intent(inout) :: self
16880 type(cml_pdt(LKG)) , intent(in) __CONTIGUOUS :: object(:)
16881 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16882 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16883 logical(LK) ,
intent(in) ,
optional :: sticky
16884 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16891 module subroutine show_D1_PMCK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16892#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16893 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMCK5
16897 class(display_type) ,
intent(inout) :: self
16898 type(cmc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
16899 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16900 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16901 logical(LK) ,
intent(in) ,
optional :: sticky
16902 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16907 module subroutine show_D1_PMCK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16908#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16909 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMCK4
16913 class(display_type) ,
intent(inout) :: self
16914 type(cmc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
16915 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16916 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16917 logical(LK) ,
intent(in) ,
optional :: sticky
16918 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16923 module subroutine show_D1_PMCK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16925 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMCK3
16929 class(display_type) ,
intent(inout) :: self
16930 type(cmc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
16931 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16932 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16933 logical(LK) ,
intent(in) ,
optional :: sticky
16934 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16939 module subroutine show_D1_PMCK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16941 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMCK2
16945 class(display_type) ,
intent(inout) :: self
16946 type(cmc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
16947 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16948 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16949 logical(LK) ,
intent(in) ,
optional :: sticky
16950 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16955 module subroutine show_D1_PMCK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16956#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16957 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMCK1
16961 class(display_type) ,
intent(inout) :: self
16962 type(cmc_pdt(CKG)) , intent(in) __CONTIGUOUS :: object(:)
16963 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16964 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16965 logical(LK) ,
intent(in) ,
optional :: sticky
16966 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16973 module subroutine show_D1_PMRK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16974#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16975 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMRK5
16979 class(display_type) ,
intent(inout) :: self
16980 type(cmr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
16981 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16982 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16983 logical(LK) ,
intent(in) ,
optional :: sticky
16984 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
16989 module subroutine show_D1_PMRK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
16990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16991 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMRK4
16995 class(display_type) ,
intent(inout) :: self
16996 type(cmr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
16997 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
16998 character(
*, SK) ,
intent(in) ,
optional :: format, advance
16999 logical(LK) ,
intent(in) ,
optional :: sticky
17000 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17005 module subroutine show_D1_PMRK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17006#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17007 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMRK3
17011 class(display_type) ,
intent(inout) :: self
17012 type(cmr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
17013 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17014 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17015 logical(LK) ,
intent(in) ,
optional :: sticky
17016 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17021 module subroutine show_D1_PMRK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17023 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMRK2
17027 class(display_type) ,
intent(inout) :: self
17028 type(cmr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
17029 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17030 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17031 logical(LK) ,
intent(in) ,
optional :: sticky
17032 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17037 module subroutine show_D1_PMRK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17039 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_PMRK1
17043 class(display_type) ,
intent(inout) :: self
17044 type(cmr_pdt(RKG)) , intent(in) __CONTIGUOUS :: object(:)
17045 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17046 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17047 logical(LK) ,
intent(in) ,
optional :: sticky
17048 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17065 module subroutine show_D0_PCSK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17066#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17067 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCSK5
17071 class(display_type) ,
intent(inout) :: self
17072 type(ccs_pdt(SKG)) ,
intent(in) :: object
17073 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17074 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17075 logical(LK) ,
intent(in) ,
optional :: sticky
17076 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17081 module subroutine show_D0_PCSK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17083 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCSK4
17087 class(display_type) ,
intent(inout) :: self
17088 type(ccs_pdt(SKG)) ,
intent(in) :: object
17089 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17090 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17091 logical(LK) ,
intent(in) ,
optional :: sticky
17092 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17097 module subroutine show_D0_PCSK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17098#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17099 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCSK3
17103 class(display_type) ,
intent(inout) :: self
17104 type(ccs_pdt(SKG)) ,
intent(in) :: object
17105 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17106 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17107 logical(LK) ,
intent(in) ,
optional :: sticky
17108 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17113 module subroutine show_D0_PCSK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17114#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17115 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCSK2
17119 class(display_type) ,
intent(inout) :: self
17120 type(ccs_pdt(SKG)) ,
intent(in) :: object
17121 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17122 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17123 logical(LK) ,
intent(in) ,
optional :: sticky
17124 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17129 module subroutine show_D0_PCSK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17130#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17131 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCSK1
17135 class(display_type) ,
intent(inout) :: self
17136 type(ccs_pdt(SKG)) ,
intent(in) :: object
17137 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17138 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17139 logical(LK) ,
intent(in) ,
optional :: sticky
17140 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17147 module subroutine show_D0_PCIK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17149 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCIK5
17153 class(display_type) ,
intent(inout) :: self
17154 type(cci_pdt(IKG)) ,
intent(in) :: object
17155 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17156 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17157 logical(LK) ,
intent(in) ,
optional :: sticky
17158 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17163 module subroutine show_D0_PCIK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17165 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCIK4
17169 class(display_type) ,
intent(inout) :: self
17170 type(cci_pdt(IKG)) ,
intent(in) :: object
17171 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17172 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17173 logical(LK) ,
intent(in) ,
optional :: sticky
17174 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17179 module subroutine show_D0_PCIK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17180#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17181 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCIK3
17185 class(display_type) ,
intent(inout) :: self
17186 type(cci_pdt(IKG)) ,
intent(in) :: object
17187 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17188 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17189 logical(LK) ,
intent(in) ,
optional :: sticky
17190 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17195 module subroutine show_D0_PCIK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17196#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17197 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCIK2
17201 class(display_type) ,
intent(inout) :: self
17202 type(cci_pdt(IKG)) ,
intent(in) :: object
17203 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17204 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17205 logical(LK) ,
intent(in) ,
optional :: sticky
17206 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17211 module subroutine show_D0_PCIK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17213 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCIK1
17217 class(display_type) ,
intent(inout) :: self
17218 type(cci_pdt(IKG)) ,
intent(in) :: object
17219 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17220 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17221 logical(LK) ,
intent(in) ,
optional :: sticky
17222 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17229 module subroutine show_D0_PCLK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17231 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCLK5
17235 class(display_type) ,
intent(inout) :: self
17236 type(ccl_pdt(LKG)) ,
intent(in) :: object
17237 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17238 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17239 logical(LK) ,
intent(in) ,
optional :: sticky
17240 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17245 module subroutine show_D0_PCLK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17247 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCLK4
17251 class(display_type) ,
intent(inout) :: self
17252 type(ccl_pdt(LKG)) ,
intent(in) :: object
17253 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17254 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17255 logical(LK) ,
intent(in) ,
optional :: sticky
17256 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17261 module subroutine show_D0_PCLK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17262#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17263 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCLK3
17267 class(display_type) ,
intent(inout) :: self
17268 type(ccl_pdt(LKG)) ,
intent(in) :: object
17269 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17270 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17271 logical(LK) ,
intent(in) ,
optional :: sticky
17272 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17277 module subroutine show_D0_PCLK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17279 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCLK2
17283 class(display_type) ,
intent(inout) :: self
17284 type(ccl_pdt(LKG)) ,
intent(in) :: object
17285 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17286 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17287 logical(LK) ,
intent(in) ,
optional :: sticky
17288 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17293 module subroutine show_D0_PCLK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17295 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCLK1
17299 class(display_type) ,
intent(inout) :: self
17300 type(ccl_pdt(LKG)) ,
intent(in) :: object
17301 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17302 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17303 logical(LK) ,
intent(in) ,
optional :: sticky
17304 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17311 module subroutine show_D0_PCCK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17313 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCCK5
17317 class(display_type) ,
intent(inout) :: self
17318 type(ccc_pdt(CKG)) ,
intent(in) :: object
17319 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17320 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17321 logical(LK) ,
intent(in) ,
optional :: sticky
17322 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17327 module subroutine show_D0_PCCK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17329 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCCK4
17333 class(display_type) ,
intent(inout) :: self
17334 type(ccc_pdt(CKG)) ,
intent(in) :: object
17335 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17336 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17337 logical(LK) ,
intent(in) ,
optional :: sticky
17338 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17343 module subroutine show_D0_PCCK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17345 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCCK3
17349 class(display_type) ,
intent(inout) :: self
17350 type(ccc_pdt(CKG)) ,
intent(in) :: object
17351 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17352 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17353 logical(LK) ,
intent(in) ,
optional :: sticky
17354 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17359 module subroutine show_D0_PCCK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17361 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCCK2
17365 class(display_type) ,
intent(inout) :: self
17366 type(ccc_pdt(CKG)) ,
intent(in) :: object
17367 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17368 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17369 logical(LK) ,
intent(in) ,
optional :: sticky
17370 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17375 module subroutine show_D0_PCCK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17376#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17377 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCCK1
17381 class(display_type) ,
intent(inout) :: self
17382 type(ccc_pdt(CKG)) ,
intent(in) :: object
17383 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17384 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17385 logical(LK) ,
intent(in) ,
optional :: sticky
17386 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17393 module subroutine show_D0_PCRK5(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17394#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17395 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCRK5
17399 class(display_type) ,
intent(inout) :: self
17400 type(ccr_pdt(RKG)) ,
intent(in) :: object
17401 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17402 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17403 logical(LK) ,
intent(in) ,
optional :: sticky
17404 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17409 module subroutine show_D0_PCRK4(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17411 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCRK4
17415 class(display_type) ,
intent(inout) :: self
17416 type(ccr_pdt(RKG)) ,
intent(in) :: object
17417 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17418 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17419 logical(LK) ,
intent(in) ,
optional :: sticky
17420 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17425 module subroutine show_D0_PCRK3(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17427 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCRK3
17431 class(display_type) ,
intent(inout) :: self
17432 type(ccr_pdt(RKG)) ,
intent(in) :: object
17433 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17434 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17435 logical(LK) ,
intent(in) ,
optional :: sticky
17436 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17441 module subroutine show_D0_PCRK2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17443 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCRK2
17447 class(display_type) ,
intent(inout) :: self
17448 type(ccr_pdt(RKG)) ,
intent(in) :: object
17449 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17450 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17451 logical(LK) ,
intent(in) ,
optional :: sticky
17452 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17457 module subroutine show_D0_PCRK1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17459 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_PCRK1
17463 class(display_type) ,
intent(inout) :: self
17464 type(ccr_pdt(RKG)) ,
intent(in) :: object
17465 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17466 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17467 logical(LK) ,
intent(in) ,
optional :: sticky
17468 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17487 module subroutine show_D0_BSSK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17489 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BSSK
17493 class(display_type) ,
intent(inout) :: self
17494 type(css_type) ,
intent(in) :: object
17495 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17496 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17497 logical(LK) ,
intent(in) ,
optional :: sticky
17498 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17501 module subroutine show_D0_BSIK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17503 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BSIK
17507 class(display_type) ,
intent(inout) :: self
17508 type(csi_type) ,
intent(in) :: object
17509 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17510 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17511 logical(LK) ,
intent(in) ,
optional :: sticky
17512 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17515 module subroutine show_D0_BSLK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17516#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17517 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BSLK
17521 class(display_type) ,
intent(inout) :: self
17522 type(csl_type) ,
intent(in) :: object
17523 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17524 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17525 logical(LK) ,
intent(in) ,
optional :: sticky
17526 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17529 module subroutine show_D0_BSCK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17530#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17531 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BSCK
17535 class(display_type) ,
intent(inout) :: self
17536 type(csc_type) ,
intent(in) :: object
17537 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17538 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17539 logical(LK) ,
intent(in) ,
optional :: sticky
17540 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17543 module subroutine show_D0_BSRK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17545 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BSRK
17549 class(display_type) ,
intent(inout) :: self
17550 type(csr_type) ,
intent(in) :: object
17551 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17552 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17553 logical(LK) ,
intent(in) ,
optional :: sticky
17554 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17559 module subroutine show_D1_BSSK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17561 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BSSK
17565 class(display_type) ,
intent(inout) :: self
17566 type(css_type) , intent(in) __CONTIGUOUS :: object(:)
17567 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17568 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17569 logical(LK) ,
intent(in) ,
optional :: sticky
17570 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17573 module subroutine show_D1_BSIK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17575 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BSIK
17579 class(display_type) ,
intent(inout) :: self
17580 type(csi_type) , intent(in) __CONTIGUOUS :: object(:)
17581 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17582 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17583 logical(LK) ,
intent(in) ,
optional :: sticky
17584 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17587 module subroutine show_D1_BSLK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17588#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17589 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BSLK
17593 class(display_type) ,
intent(inout) :: self
17594 type(csl_type) , intent(in) __CONTIGUOUS :: object(:)
17595 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17596 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17597 logical(LK) ,
intent(in) ,
optional :: sticky
17598 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17601 module subroutine show_D1_BSCK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17602#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17603 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BSCK
17607 class(display_type) ,
intent(inout) :: self
17608 type(csc_type) , intent(in) __CONTIGUOUS :: object(:)
17609 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17610 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17611 logical(LK) ,
intent(in) ,
optional :: sticky
17612 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17615 module subroutine show_D1_BSRK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17616#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17617 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BSRK
17621 class(display_type) ,
intent(inout) :: self
17622 type(csr_type) , intent(in) __CONTIGUOUS :: object(:)
17623 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17624 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17625 logical(LK) ,
intent(in) ,
optional :: sticky
17626 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17631 module subroutine show_D2_BSSK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17633 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_BSSK
17637 class(display_type) ,
intent(inout) :: self
17638 type(css_type) , intent(in) __CONTIGUOUS :: object(:,:)
17639 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17640 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17641 logical(LK) ,
intent(in) ,
optional :: sticky
17642 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17645 module subroutine show_D2_BSIK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17646#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17647 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_BSIK
17651 class(display_type) ,
intent(inout) :: self
17652 type(csi_type) , intent(in) __CONTIGUOUS :: object(:,:)
17653 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17654 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17655 logical(LK) ,
intent(in) ,
optional :: sticky
17656 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17659 module subroutine show_D2_BSLK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17661 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_BSLK
17665 class(display_type) ,
intent(inout) :: self
17666 type(csl_type) , intent(in) __CONTIGUOUS :: object(:,:)
17667 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17668 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17669 logical(LK) ,
intent(in) ,
optional :: sticky
17670 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17673 module subroutine show_D2_BSCK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17675 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_BSCK
17679 class(display_type) ,
intent(inout) :: self
17680 type(csc_type) , intent(in) __CONTIGUOUS :: object(:,:)
17681 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17682 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17683 logical(LK) ,
intent(in) ,
optional :: sticky
17684 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17687 module subroutine show_D2_BSRK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17689 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_BSRK
17693 class(display_type) ,
intent(inout) :: self
17694 type(csr_type) , intent(in) __CONTIGUOUS :: object(:,:)
17695 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17696 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17697 logical(LK) ,
intent(in) ,
optional :: sticky
17698 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17703 module subroutine show_D3_BSSK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17705 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_BSSK
17709 class(display_type) ,
intent(inout) :: self
17710 type(css_type) , intent(in) __CONTIGUOUS :: object(:,:,:)
17711 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17712 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17713 logical(LK) ,
intent(in) ,
optional :: sticky
17714 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17717 module subroutine show_D3_BSIK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17718#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17719 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_BSIK
17723 class(display_type) ,
intent(inout) :: self
17724 type(csi_type) , intent(in) __CONTIGUOUS :: object(:,:,:)
17725 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17726 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17727 logical(LK) ,
intent(in) ,
optional :: sticky
17728 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17731 module subroutine show_D3_BSLK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17732#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17733 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_BSLK
17737 class(display_type) ,
intent(inout) :: self
17738 type(csl_type) , intent(in) __CONTIGUOUS :: object(:,:,:)
17739 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17740 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17741 logical(LK) ,
intent(in) ,
optional :: sticky
17742 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17745 module subroutine show_D3_BSCK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17747 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_BSCK
17751 class(display_type) ,
intent(inout) :: self
17752 type(csc_type) , intent(in) __CONTIGUOUS :: object(:,:,:)
17753 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17754 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17755 logical(LK) ,
intent(in) ,
optional :: sticky
17756 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17759 module subroutine show_D3_BSRK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17761 !DEC$ ATTRIBUTES DLLEXPORT :: show_D3_BSRK
17765 class(display_type) ,
intent(inout) :: self
17766 type(csr_type) , intent(in) __CONTIGUOUS :: object(:,:,:)
17767 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17768 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17769 logical(LK) ,
intent(in) ,
optional :: sticky
17770 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17781 module subroutine show_D0_BVSK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17782#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17783 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BVSK
17787 class(display_type) ,
intent(inout) :: self
17788 type(cvs_type) ,
intent(in) :: object
17789 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17790 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17791 logical(LK) ,
intent(in) ,
optional :: sticky
17792 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17795 module subroutine show_D0_BVIK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17797 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BVIK
17801 class(display_type) ,
intent(inout) :: self
17802 type(cvi_type) ,
intent(in) :: object
17803 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17804 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17805 logical(LK) ,
intent(in) ,
optional :: sticky
17806 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17809 module subroutine show_D0_BVLK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17810#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17811 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BVLK
17815 class(display_type) ,
intent(inout) :: self
17816 type(cvl_type) ,
intent(in) :: object
17817 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17818 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17819 logical(LK) ,
intent(in) ,
optional :: sticky
17820 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17823 module subroutine show_D0_BVCK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17825 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BVCK
17829 class(display_type) ,
intent(inout) :: self
17830 type(cvc_type) ,
intent(in) :: object
17831 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17832 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17833 logical(LK) ,
intent(in) ,
optional :: sticky
17834 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17837 module subroutine show_D0_BVRK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17839 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BVRK
17843 class(display_type) ,
intent(inout) :: self
17844 type(cvr_type) ,
intent(in) :: object
17845 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17846 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17847 logical(LK) ,
intent(in) ,
optional :: sticky
17848 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17853 module subroutine show_D1_BVSK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17855 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BVSK
17859 class(display_type) ,
intent(inout) :: self
17860 type(cvs_type) , intent(in) __CONTIGUOUS :: object(:)
17861 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17862 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17863 logical(LK) ,
intent(in) ,
optional :: sticky
17864 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17867 module subroutine show_D1_BVIK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17869 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BVIK
17873 class(display_type) ,
intent(inout) :: self
17874 type(cvi_type) , intent(in) __CONTIGUOUS :: object(:)
17875 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17876 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17877 logical(LK) ,
intent(in) ,
optional :: sticky
17878 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17881 module subroutine show_D1_BVLK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17883 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BVLK
17887 class(display_type) ,
intent(inout) :: self
17888 type(cvl_type) , intent(in) __CONTIGUOUS :: object(:)
17889 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17890 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17891 logical(LK) ,
intent(in) ,
optional :: sticky
17892 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17895 module subroutine show_D1_BVCK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17896#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17897 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BVCK
17901 class(display_type) ,
intent(inout) :: self
17902 type(cvc_type) , intent(in) __CONTIGUOUS :: object(:)
17903 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17904 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17905 logical(LK) ,
intent(in) ,
optional :: sticky
17906 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17909 module subroutine show_D1_BVRK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17911 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BVRK
17915 class(display_type) ,
intent(inout) :: self
17916 type(cvr_type) , intent(in) __CONTIGUOUS :: object(:)
17917 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17918 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17919 logical(LK) ,
intent(in) ,
optional :: sticky
17920 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17925 module subroutine show_D2_BVSK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17926#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17927 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_BVSK
17931 class(display_type) ,
intent(inout) :: self
17932 type(cvs_type) , intent(in) __CONTIGUOUS :: object(:,:)
17933 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17934 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17935 logical(LK) ,
intent(in) ,
optional :: sticky
17936 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17939 module subroutine show_D2_BVIK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17941 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_BVIK
17945 class(display_type) ,
intent(inout) :: self
17946 type(cvi_type) , intent(in) __CONTIGUOUS :: object(:,:)
17947 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17948 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17949 logical(LK) ,
intent(in) ,
optional :: sticky
17950 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17953 module subroutine show_D2_BVLK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17955 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_BVLK
17959 class(display_type) ,
intent(inout) :: self
17960 type(cvl_type) , intent(in) __CONTIGUOUS :: object(:,:)
17961 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17962 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17963 logical(LK) ,
intent(in) ,
optional :: sticky
17964 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17967 module subroutine show_D2_BVCK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17969 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_BVCK
17973 class(display_type) ,
intent(inout) :: self
17974 type(cvc_type) , intent(in) __CONTIGUOUS :: object(:,:)
17975 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17976 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17977 logical(LK) ,
intent(in) ,
optional :: sticky
17978 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
17981 module subroutine show_D2_BVRK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
17982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17983 !DEC$ ATTRIBUTES DLLEXPORT :: show_D2_BVRK
17987 class(display_type) ,
intent(inout) :: self
17988 type(cvr_type) , intent(in) __CONTIGUOUS :: object(:,:)
17989 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
17990 character(
*, SK) ,
intent(in) ,
optional :: format, advance
17991 logical(LK) ,
intent(in) ,
optional :: sticky
17992 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
18003 module subroutine show_D0_BMSK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18004#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18005 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BMSK
18009 class(display_type) ,
intent(inout) :: self
18010 type(cms_type) ,
intent(in) :: object
18011 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
18012 character(
*, SK) ,
intent(in) ,
optional :: format, advance
18013 logical(LK) ,
intent(in) ,
optional :: sticky
18014 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
18017 module subroutine show_D0_BMIK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18018#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18019 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BMIK
18023 class(display_type) ,
intent(inout) :: self
18024 type(cmi_type) ,
intent(in) :: object
18025 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
18026 character(
*, SK) ,
intent(in) ,
optional :: format, advance
18027 logical(LK) ,
intent(in) ,
optional :: sticky
18028 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
18031 module subroutine show_D0_BMLK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18032#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18033 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BMLK
18037 class(display_type) ,
intent(inout) :: self
18038 type(cml_type) ,
intent(in) :: object
18039 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
18040 character(
*, SK) ,
intent(in) ,
optional :: format, advance
18041 logical(LK) ,
intent(in) ,
optional :: sticky
18042 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
18045 module subroutine show_D0_BMCK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18046#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18047 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BMCK
18051 class(display_type) ,
intent(inout) :: self
18052 type(cmc_type) ,
intent(in) :: object
18053 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
18054 character(
*, SK) ,
intent(in) ,
optional :: format, advance
18055 logical(LK) ,
intent(in) ,
optional :: sticky
18056 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
18059 module subroutine show_D0_BMRK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18060#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18061 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BMRK
18065 class(display_type) ,
intent(inout) :: self
18066 type(cmr_type) ,
intent(in) :: object
18067 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
18068 character(
*, SK) ,
intent(in) ,
optional :: format, advance
18069 logical(LK) ,
intent(in) ,
optional :: sticky
18070 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
18075 module subroutine show_D1_BMSK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18077 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BMSK
18081 class(display_type) ,
intent(inout) :: self
18082 type(cms_type) , intent(in) __CONTIGUOUS :: object(:)
18083 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
18084 character(
*, SK) ,
intent(in) ,
optional :: format, advance
18085 logical(LK) ,
intent(in) ,
optional :: sticky
18086 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
18089 module subroutine show_D1_BMIK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18090#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18091 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BMIK
18095 class(display_type) ,
intent(inout) :: self
18096 type(cmi_type) , intent(in) __CONTIGUOUS :: object(:)
18097 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
18098 character(
*, SK) ,
intent(in) ,
optional :: format, advance
18099 logical(LK) ,
intent(in) ,
optional :: sticky
18100 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
18103 module subroutine show_D1_BMLK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18105 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BMLK
18109 class(display_type) ,
intent(inout) :: self
18110 type(cml_type) , intent(in) __CONTIGUOUS :: object(:)
18111 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
18112 character(
*, SK) ,
intent(in) ,
optional :: format, advance
18113 logical(LK) ,
intent(in) ,
optional :: sticky
18114 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
18117 module subroutine show_D1_BMCK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18118#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18119 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BMCK
18123 class(display_type) ,
intent(inout) :: self
18124 type(cmc_type) , intent(in) __CONTIGUOUS :: object(:)
18125 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
18126 character(
*, SK) ,
intent(in) ,
optional :: format, advance
18127 logical(LK) ,
intent(in) ,
optional :: sticky
18128 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
18131 module subroutine show_D1_BMRK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18133 !DEC$ ATTRIBUTES DLLEXPORT :: show_D1_BMRK
18137 class(display_type) ,
intent(inout) :: self
18138 type(cmr_type) , intent(in) __CONTIGUOUS :: object(:)
18139 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
18140 character(
*, SK) ,
intent(in) ,
optional :: format, advance
18141 logical(LK) ,
intent(in) ,
optional :: sticky
18142 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
18153 module subroutine show_D0_BCSK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18154#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18155 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BCSK
18159 class(display_type) ,
intent(inout) :: self
18160 type(ccs_type) ,
intent(in) :: object
18161 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
18162 character(
*, SK) ,
intent(in) ,
optional :: format, advance
18163 logical(LK) ,
intent(in) ,
optional :: sticky
18164 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
18167 module subroutine show_D0_BCIK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18168#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18169 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BCIK
18173 class(display_type) ,
intent(inout) :: self
18174 type(cci_type) ,
intent(in) :: object
18175 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
18176 character(
*, SK) ,
intent(in) ,
optional :: format, advance
18177 logical(LK) ,
intent(in) ,
optional :: sticky
18178 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
18181 module subroutine show_D0_BCLK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18183 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BCLK
18187 class(display_type) ,
intent(inout) :: self
18188 type(ccl_type) ,
intent(in) :: object
18189 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
18190 character(
*, SK) ,
intent(in) ,
optional :: format, advance
18191 logical(LK) ,
intent(in) ,
optional :: sticky
18192 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
18195 module subroutine show_D0_BCCK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18196#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18197 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BCCK
18201 class(display_type) ,
intent(inout) :: self
18202 type(ccc_type) ,
intent(in) :: object
18203 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
18204 character(
*, SK) ,
intent(in) ,
optional :: format, advance
18205 logical(LK) ,
intent(in) ,
optional :: sticky
18206 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
18209 module subroutine show_D0_BCRK(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18211 !DEC$ ATTRIBUTES DLLEXPORT :: show_D0_BCRK
18215 class(display_type) ,
intent(inout) :: self
18216 type(ccr_type) ,
intent(in) :: object
18217 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
18218 character(
*, SK) ,
intent(in) ,
optional :: format, advance
18219 logical(LK) ,
intent(in) ,
optional :: sticky
18220 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
18242 module subroutine dump_D0(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18244 !DEC$ ATTRIBUTES DLLEXPORT :: dump_D0
18247 class(display_type) ,
intent(inout) :: self
18248 class(
*) ,
intent(in) :: object
18249 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
18250 character(
*, SK) ,
intent(in) ,
optional :: format, advance
18251 logical(LK) ,
intent(in) ,
optional :: sticky
18252 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
18257 module subroutine dump_D1(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18259 !DEC$ ATTRIBUTES DLLEXPORT :: dump_D1
18262 class(display_type) ,
intent(inout) :: self
18263 class(
*) , intent(in) __CONTIGUOUS :: object(:)
18264 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
18265 character(
*, SK) ,
intent(in) ,
optional :: format, advance
18266 logical(LK) ,
intent(in) ,
optional :: sticky
18267 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
18272 module subroutine dump_D2(self, object, tmsize, bmsize, count, unit, advance, format, deliml, delimr, sticky)
18273#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18274 !DEC$ ATTRIBUTES DLLEXPORT :: dump_D2
18277 class(display_type) ,
intent(inout) :: self
18278 class(
*) , intent(in) __CONTIGUOUS :: object(:,:)
18279 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, count, unit
18280 character(
*, SK) ,
intent(in) ,
optional :: format, advance
18281 logical(LK) ,
intent(in) ,
optional :: sticky
18282 character(
*, SK) ,
intent(in) ,
optional :: deliml, delimr
18489 PURE module function getFormat_D0_Def(prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed)
result(format)
18490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18491 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D0_Def
18493 character(
*, SK) ,
intent(in) ,
optional :: prefix, ed, sep, deliml, subsep, delimr
18494 integer(IK) ,
intent(in) ,
optional :: count, subcount, width, ndigit, lenexp
18495 logical(LK) ,
intent(in) ,
optional :: signed
18496 character(:, SK) ,
allocatable :: format
18502 PURE module function getFormat_D1_SK5(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed)
result(format)
18503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18504 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_SK5
18507 character(
*,SKG) ,
intent(in) :: mold(:)
18508 character(
*, SK) ,
intent(in) ,
optional :: prefix, ed, sep, deliml, subsep, delimr
18509 integer(IK) ,
intent(in) ,
optional :: count, subcount, width, ndigit, lenexp
18510 logical(LK) ,
intent(in) ,
optional :: signed
18511 character(:, SK) ,
allocatable :: format
18516 PURE module function getFormat_D1_SK4(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed)
result(format)
18517#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18518 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_SK4
18521 character(
*,SKG) ,
intent(in) :: mold(:)
18522 character(
*, SK) ,
intent(in) ,
optional :: prefix, ed, sep, deliml, subsep, delimr
18523 integer(IK) ,
intent(in) ,
optional :: count, subcount, width, ndigit, lenexp
18524 logical(LK) ,
intent(in) ,
optional :: signed
18525 character(:, SK) ,
allocatable :: format
18530 PURE module function getFormat_D1_SK3(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed)
result(format)
18531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18532 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_SK3
18535 character(
*,SKG) ,
intent(in) :: mold(:)
18536 character(
*, SK) ,
intent(in) ,
optional :: prefix, ed, sep, deliml, subsep, delimr
18537 integer(IK) ,
intent(in) ,
optional :: count, subcount, width, ndigit, lenexp
18538 logical(LK) ,
intent(in) ,
optional :: signed
18539 character(:, SK) ,
allocatable :: format
18544 PURE module function getFormat_D1_SK2(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed)
result(format)
18545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18546 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_SK2
18549 character(
*,SKG) ,
intent(in) :: mold(:)
18550 character(
*, SK) ,
intent(in) ,
optional :: prefix, ed, sep, deliml, subsep, delimr
18551 integer(IK) ,
intent(in) ,
optional :: count, subcount, width, ndigit, lenexp
18552 logical(LK) ,
intent(in) ,
optional :: signed
18553 character(:, SK) ,
allocatable :: format
18558 PURE module function getFormat_D1_SK1(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed)
result(format)
18559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18560 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_SK1
18563 character(
*,SKG) ,
intent(in) :: mold(:)
18564 character(
*, SK) ,
intent(in) ,
optional :: prefix, ed, sep, deliml, subsep, delimr
18565 integer(IK) ,
intent(in) ,
optional :: count, subcount, width, ndigit, lenexp
18566 logical(LK) ,
intent(in) ,
optional :: signed
18567 character(:, SK) ,
allocatable :: format
18574 PURE module function getFormat_D1_IK5(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed)
result(format)
18575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18576 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_IK5
18579 integer(IKG) ,
intent(in) :: mold(:)
18580 character(
*, SK) ,
intent(in) ,
optional :: prefix, ed, sep, deliml, subsep, delimr
18581 integer(IK) ,
intent(in) ,
optional :: count, subcount, width, ndigit, lenexp
18582 logical(LK) ,
intent(in) ,
optional :: signed
18583 character(:, SK) ,
allocatable :: format
18588 PURE module function getFormat_D1_IK4(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed)
result(format)
18589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18590 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_IK4
18593 integer(IKG) ,
intent(in) :: mold(:)
18594 character(
*, SK) ,
intent(in) ,
optional :: prefix, ed, sep, deliml, subsep, delimr
18595 integer(IK) ,
intent(in) ,
optional :: count, subcount, width, ndigit, lenexp
18596 logical(LK) ,
intent(in) ,
optional :: signed
18597 character(:, SK) ,
allocatable :: format
18602 PURE module function getFormat_D1_IK3(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed)
result(format)
18603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18604 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_IK3
18607 integer(IKG) ,
intent(in) :: mold(:)
18608 character(
*, SK) ,
intent(in) ,
optional :: prefix, ed, sep, deliml, subsep, delimr
18609 integer(IK) ,
intent(in) ,
optional :: count, subcount, width, ndigit, lenexp
18610 logical(LK) ,
intent(in) ,
optional :: signed
18611 character(:, SK) ,
allocatable :: format
18616 PURE module function getFormat_D1_IK2(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed)
result(format)
18617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18618 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_IK2
18621 integer(IKG) ,
intent(in) :: mold(:)
18622 character(
*, SK) ,
intent(in) ,
optional :: prefix, ed, sep, deliml, subsep, delimr
18623 integer(IK) ,
intent(in) ,
optional :: count, subcount, width, ndigit, lenexp
18624 logical(LK) ,
intent(in) ,
optional :: signed
18625 character(:, SK) ,
allocatable :: format
18630 PURE module function getFormat_D1_IK1(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed)
result(format)
18631#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18632 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_IK1
18635 integer(IKG) ,
intent(in) :: mold(:)
18636 character(
*, SK) ,
intent(in) ,
optional :: prefix, ed, sep, deliml, subsep, delimr
18637 integer(IK) ,
intent(in) ,
optional :: count, subcount, width, ndigit, lenexp
18638 logical(LK) ,
intent(in) ,
optional :: signed
18639 character(:, SK) ,
allocatable :: format
18646 PURE module function getFormat_D1_LK5(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed)
result(format)
18647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18648 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_LK5
18651 logical(LKG) ,
intent(in) :: mold(:)
18652 character(
*, SK) ,
intent(in) ,
optional :: prefix, ed, sep, deliml, subsep, delimr
18653 integer(IK) ,
intent(in) ,
optional :: count, subcount, width, ndigit, lenexp
18654 logical(LK) ,
intent(in) ,
optional :: signed
18655 character(:, SK) ,
allocatable :: format
18660 PURE module function getFormat_D1_LK4(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed)
result(format)
18661#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18662 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_LK4
18665 logical(LKG) ,
intent(in) :: mold(:)
18666 character(
*, SK) ,
intent(in) ,
optional :: prefix, ed, sep, deliml, subsep, delimr
18667 integer(IK) ,
intent(in) ,
optional :: count, subcount, width, ndigit, lenexp
18668 logical(LK) ,
intent(in) ,
optional :: signed
18669 character(:, SK) ,
allocatable :: format
18674 PURE module function getFormat_D1_LK3(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed)
result(format)
18675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18676 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_LK3
18679 logical(LKG) ,
intent(in) :: mold(:)
18680 character(
*, SK) ,
intent(in) ,
optional :: prefix, ed, sep, deliml, subsep, delimr
18681 integer(IK) ,
intent(in) ,
optional :: count, subcount, width, ndigit, lenexp
18682 logical(LK) ,
intent(in) ,
optional :: signed
18683 character(:, SK) ,
allocatable :: format
18688 PURE module function getFormat_D1_LK2(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed)
result(format)
18689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18690 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_LK2
18693 logical(LKG) ,
intent(in) :: mold(:)
18694 character(
*, SK) ,
intent(in) ,
optional :: prefix, ed, sep, deliml, subsep, delimr
18695 integer(IK) ,
intent(in) ,
optional :: count, subcount, width, ndigit, lenexp
18696 logical(LK) ,
intent(in) ,
optional :: signed
18697 character(:, SK) ,
allocatable :: format
18702 PURE module function getFormat_D1_LK1(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed)
result(format)
18703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18704 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_LK1
18707 logical(LKG) ,
intent(in) :: mold(:)
18708 character(
*, SK) ,
intent(in) ,
optional :: prefix, ed, sep, deliml, subsep, delimr
18709 integer(IK) ,
intent(in) ,
optional :: count, subcount, width, ndigit, lenexp
18710 logical(LK) ,
intent(in) ,
optional :: signed
18711 character(:, SK) ,
allocatable :: format
18718 PURE module function getFormat_D1_CK5(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed)
result(format)
18719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18720 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_CK5
18723 complex(CKG) ,
intent(in) :: mold(:)
18724 character(
*, SK) ,
intent(in) ,
optional :: prefix, ed, sep, deliml, subsep, delimr
18725 integer(IK) ,
intent(in) ,
optional :: count, subcount, width, ndigit, lenexp
18726 logical(LK) ,
intent(in) ,
optional :: signed
18727 character(:, SK) ,
allocatable :: format
18732 PURE module function getFormat_D1_CK4(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed)
result(format)
18733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18734 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_CK4
18737 complex(CKG) ,
intent(in) :: mold(:)
18738 character(
*, SK) ,
intent(in) ,
optional :: prefix, ed, sep, deliml, subsep, delimr
18739 integer(IK) ,
intent(in) ,
optional :: count, subcount, width, ndigit, lenexp
18740 logical(LK) ,
intent(in) ,
optional :: signed
18741 character(:, SK) ,
allocatable :: format
18746 PURE module function getFormat_D1_CK3(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed)
result(format)
18747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18748 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_CK3
18751 complex(CKG) ,
intent(in) :: mold(:)
18752 character(
*, SK) ,
intent(in) ,
optional :: prefix, ed, sep, deliml, subsep, delimr
18753 integer(IK) ,
intent(in) ,
optional :: count, subcount, width, ndigit, lenexp
18754 logical(LK) ,
intent(in) ,
optional :: signed
18755 character(:, SK) ,
allocatable :: format
18760 PURE module function getFormat_D1_CK2(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed)
result(format)
18761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18762 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_CK2
18765 complex(CKG) ,
intent(in) :: mold(:)
18766 character(
*, SK) ,
intent(in) ,
optional :: prefix, ed, sep, deliml, subsep, delimr
18767 integer(IK) ,
intent(in) ,
optional :: count, subcount, width, ndigit, lenexp
18768 logical(LK) ,
intent(in) ,
optional :: signed
18769 character(:, SK) ,
allocatable :: format
18774 PURE module function getFormat_D1_CK1(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed)
result(format)
18775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18776 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_CK1
18779 complex(CKG) ,
intent(in) :: mold(:)
18780 character(
*, SK) ,
intent(in) ,
optional :: prefix, ed, sep, deliml, subsep, delimr
18781 integer(IK) ,
intent(in) ,
optional :: count, subcount, width, ndigit, lenexp
18782 logical(LK) ,
intent(in) ,
optional :: signed
18783 character(:, SK) ,
allocatable :: format
18790 PURE module function getFormat_D1_RK5(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed)
result(format)
18791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18792 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_RK5
18795 real(RKG) ,
intent(in) :: mold(:)
18796 character(
*, SK) ,
intent(in) ,
optional :: prefix, ed, sep, deliml, subsep, delimr
18797 integer(IK) ,
intent(in) ,
optional :: count, subcount, width, ndigit, lenexp
18798 logical(LK) ,
intent(in) ,
optional :: signed
18799 character(:, SK) ,
allocatable :: format
18804 PURE module function getFormat_D1_RK4(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed)
result(format)
18805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18806 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_RK4
18809 real(RKG) ,
intent(in) :: mold(:)
18810 character(
*, SK) ,
intent(in) ,
optional :: prefix, ed, sep, deliml, subsep, delimr
18811 integer(IK) ,
intent(in) ,
optional :: count, subcount, width, ndigit, lenexp
18812 logical(LK) ,
intent(in) ,
optional :: signed
18813 character(:, SK) ,
allocatable :: format
18818 PURE module function getFormat_D1_RK3(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed)
result(format)
18819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18820 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_RK3
18823 real(RKG) ,
intent(in) :: mold(:)
18824 character(
*, SK) ,
intent(in) ,
optional :: prefix, ed, sep, deliml, subsep, delimr
18825 integer(IK) ,
intent(in) ,
optional :: count, subcount, width, ndigit, lenexp
18826 logical(LK) ,
intent(in) ,
optional :: signed
18827 character(:, SK) ,
allocatable :: format
18832 PURE module function getFormat_D1_RK2(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed)
result(format)
18833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18834 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_RK2
18837 real(RKG) ,
intent(in) :: mold(:)
18838 character(
*, SK) ,
intent(in) ,
optional :: prefix, ed, sep, deliml, subsep, delimr
18839 integer(IK) ,
intent(in) ,
optional :: count, subcount, width, ndigit, lenexp
18840 logical(LK) ,
intent(in) ,
optional :: signed
18841 character(:, SK) ,
allocatable :: format
18846 PURE module function getFormat_D1_RK1(mold, prefix, ed, sep, deliml, subsep, delimr, count, subcount, width, ndigit, lenexp, signed)
result(format)
18847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18848 !DEC$ ATTRIBUTES DLLEXPORT :: getFormat_D1_RK1
18851 real(RKG) ,
intent(in) :: mold(:)
18852 character(
*, SK) ,
intent(in) ,
optional :: prefix, ed, sep, deliml, subsep, delimr
18853 integer(IK) ,
intent(in) ,
optional :: count, subcount, width, ndigit, lenexp
18854 logical(LK) ,
intent(in) ,
optional :: signed
18855 character(:, SK) ,
allocatable :: format
19204 character(
*, SK) ,
intent(in) :: value
19205 logical(LK) :: isValid
19206 isValid
= logical(value
== SK_
"sequential" .or. value
== SK_
"direct" .or. value
== SK_
"stream", LK)
19212 character(
*, SK) ,
intent(in) :: value
19213 logical(LK) :: isValid
19214 isValid
= logical(value
== SK_
"readwrite" .or. value
== SK_
"read" .or. value
== SK_
"write", LK)
19220 character(
*, SK) ,
intent(in) :: value
19221 logical(LK) :: isValid
19222 isValid
= logical(value
== SK_
"no" .or. value
== SK_
"yes", LK)
19228 character(
*, SK) ,
intent(in) :: value
19229 logical(LK) :: isValid
19230 isValid
= logical(value
== SK_
"null" .or. value
== SK_
"zero", LK)
19236 character(
*, SK) ,
intent(in) :: value
19237 logical(LK) :: isValid
19238 isValid
= logical(value
== SK_
"point" .or. value
== SK_
"comma", LK)
19244 character(
*, SK) ,
intent(in) :: value
19245 logical(LK) :: isValid
19246 isValid
= logical(value
== SK_
"none" .or. value
== SK_
"apostrophe" .or. value
== SK_
"quote", LK)
19252 character(
*, SK) ,
intent(in) :: value
19253 logical(LK) :: isValid
19254 isValid
= logical(value
== SK_
"default" .or. value
== SK_
"utf-8", LK)
19260 character(
*, SK) ,
intent(in) :: value
19261 logical(LK) :: isValid
19262 isValid
= logical(value
== SK_
"formatted" .or. value
== SK_
"unformatted", LK)
19268 character(
*, SK) ,
intent(in) :: value
19269 logical(LK) :: isValid
19270 isValid
= logical(value
== SK_
"yes" .or. value
== SK_
"no", LK)
19276 character(
*, SK) ,
intent(in) :: value
19277 logical(LK) :: isValid
19278 isValid
= logical(value
== SK_
"asis" .or. value
== SK_
"rewind" .or. value
== SK_
"append", LK)
19284 integer(IK) ,
intent(in) :: value
19285 logical(LK) :: isValid
19286 isValid
= logical(value
> 0_IK, LK)
19292 character(
*, SK) ,
intent(in) :: value
19293 logical(LK) :: isValid
19294 isValid
= logical(value
== SK_
"processor_defined" .or. value
== SK_
"compatible" .or. value
== SK_
"nearest" .or. value
== SK_
"zero" .or. value
== SK_
"down" .or. value
== SK_
"up", LK)
19300 character(
*, SK) ,
intent(in) :: value
19301 logical(LK) :: isValid
19302 isValid
= logical(value
== SK_
"processor_defined" .or. value
== SK_
"suppress" .or. value
== SK_
"plus", LK)
19308 character(
*, SK) ,
intent(in) :: value
19309 logical(LK) :: isValid
19310 isValid
= logical(value
== SK_
"unknown" .or. value
== SK_
"scratch" .or. value
== SK_
"replace" .or. value
== SK_
"new" .or. value
== SK_
"old", LK)
19365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19368 use iso_fortran_env,
only:
output_unit,
input_unit,
error_unit
19369 integer(IK) ,
intent(in) :: unit
19370 logical(LK) :: preconnected
19371 preconnected
= logical(unit
== int(
output_unit, IK)
.or. unit
== int(
input_unit, IK)
.or. unit
== int(
error_unit, IK), LK)
19435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19438 character(
*, SK),
intent(in),
optional :: file
19439 integer(IK) :: unit
19440 logical(LK) :: opened
19441 if (
present(file))
then
19442 inquire(
file = file,
number = unit)
19446 inquire(
unit = unit,
opened = opened)
19447 if (
.not. opened)
return
Generate and return the action attribute of the input file or unit.
Generate and return the entire contents of the input unconnected file or the (remaining) contents of ...
Generate and return the number of records left (starting immediately after the last accessed record) ...
Generate and return the number of records in the entire record-oriented input file.
Generate and return the iostat code resulting from reading the contents of the specified file or unit...
Generate and return the iostat code resulting from writing the input table of rank 1 or 2 to the spec...
Generate and return the best-guess field separator of a (sequential-access) file stored in the input ...
Generate and return a full record (line) of arbitrary length as a string from the current position of...
Generate and return .true. if the input file (or unit) is connected to a unit (or file),...
Return the entire contents of the input unconnected file or the (remaining) contents of an already-co...
Write the input string contents to the input unconnected file.
Open the given input file, fetch the entire contents return it as a single allocatable string,...
Read a full record (line) of arbitrary length as a string from the current position of the record-ori...
This is a generic method of the derived type display_type with pass attribute.
This is a generic method of the derived type display_type with pass attribute.
This is a generic method of the derived type display_type with pass attribute.
Generate and return the value of the optional input argument if it is present, otherwise,...
Generate and return the conversion of the input value to an output Fortran string,...
This module contains the derived types for generating allocatable containers of scalar,...
This module contains classes and procedures for reporting and handling errors.
character(*, SK), parameter MODULE_NAME
This module contains classes and procedures for input/output (IO) or generic display operations on st...
pure elemental logical(LK) function isPreconnected(unit)
Generate and return .true. if the input unit corresponds to one of the processor preconnected units: ...
character(*, SK), parameter MFILL
The scalar character of default kind SK of len = 1 representing the default string that is used for f...
type(unknown_type), parameter unknown
This is a scalar parameter object of type unknown_type that is exclusively used to signify the unknow...
pure logical(LK) function isValidRecl(value)
pure logical(LK) function isValidAsynchronous(value)
type(fld_type), parameter fld
This is a scalar parameter object of type fld_type that is exclusively used to signify the Fortran-li...
pure logical(LK) function isValidBlank(value)
character(*, SK), parameter FORMAT_GENERIC_DISPLAY_COMPLEX_FORTRAN
The scalar character of default kind SK containing the generic signed comma-space-separated format th...
pure logical(LK) function isValidSign(value)
pure logical(LK) function isValidDelim(value)
character(1, SK), dimension(4), parameter SPINNER
The scalar character(1, SK) of default kind SK of size 4, containing the four characters used to disp...
integer(IK), parameter LEN_RECORD
The scalar integer of default kind IK representing the effective maximum length of a record in a reco...
character(1, SK), parameter TAB
The scalar character of default kind SK of len = 4 representing representing ASCII character: Horizon...
impure elemental integer(IK) function getFileUnit(file)
Generate and return a random new unconnected file unit number that could be assigned to the unit spec...
pure logical(LK) function isValidAction(value)
pure logical(LK) function isValidEncoding(value)
pure logical(LK) function isValidForm(value)
type(filext_type), parameter filext
The scalar constant object of type filext_type containing file extensions used by different programmi...
character(*, SK), parameter FORMAT_GENERIC_DISPLAY
The scalar character of default kind SK containing the generic signed comma-space-separated format us...
integer(IK), parameter LEN_IOMSG
The scalar integer of default kind IK representing the maximum length of an IO error message returned...
character(*, SK), parameter FORMAT_GENERIC_BLANK
The scalar character of default kind SK containing the generic IO whitespace-separated IO format.
pure logical(LK) function isValidDecimal(value)
pure logical(LK) function isValidRound(value)
character(*, SK), parameter FORMAT_GENERIC_DISPLAY_COMPLEX_MATH
The scalar character of default kind SK containing the generic signed comma-space-separated format th...
pure logical(LK) function isValidAccess(value)
type(csv_type), parameter csv
This is a scalar parameter object of type csv_type that is exclusively used to signify the CSV file f...
pure logical(LK) function isValidPad(value)
pure logical(LK) function isValidPosition(value)
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
pure logical(LK) function isValidStatus(value)
character(*, SK), parameter INDENT
The scalar character of default kind SK of the same value as TABEQV representing the default indentat...
character(*, SK), parameter TABEQV
The scalar character of default kind SK of len = 4 representing the default string that is used in pl...
character(*, SK), parameter FORMAT_GENERIC_BLANK_TABBED
The scalar character of default kind SK containing the generic IO whitespace-separated IO format with...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
This module contains abstract and concrete derived types and procedures related to various common mat...
type(trans_type), parameter trans
This is a scalar parameter object of type trans_type that is exclusively used to request no transpose...
This module contains procedures, generic interfaces, and types for generating default values for opti...
This module contains the generic procedures for converting values of different types and kinds to For...
This is the parameterized derived type for generating a container of a cube component of type complex...
This is the derived type for generating a container of a cube component of type complex of default ki...
This is the parameterized derived type for generating a container of a cube component of type integer...
This is the derived type for generating a container of a cube component of type integer of default ki...
This is the parameterized derived type for generating a container of a cube component of type logical...
This is the derived type for generating a container of a cube component of type logical of default ki...
This is the parameterized derived type for generating a container of a cube component of type real of...
This is the derived type for generating a container of a cube component of type real of default kind ...
This is the parameterized derived type for generating a container of a cube component of type charact...
This is the derived type for generating a container of a cube component of type character of default ...
This is the parameterized derived type for generating a container of a matrix component of type compl...
This is the derived type for generating a container of a matrix component of type complex of default ...
This is the parameterized derived type for generating a container of a matrix component of type integ...
This is the derived type for generating a container of a matrix component of type integer of default ...
This is the parameterized derived type for generating a container of a matrix component of type logic...
This is the derived type for generating a container of a matrix component of type logical of default ...
This is the parameterized derived type for generating a container of a matrix component of type real ...
This is the derived type for generating a container of a matrix component of type real of default kin...
This is the parameterized derived type for generating a container of a matrix component of type chara...
This is the derived type for generating a container of a matrix component of type character of defaul...
This is the csc_pdt parameterized type for generating instances of container of scalar of complex obj...
This is the csc_type type for generating instances of container of scalar of logical objects.
This is the csi_pdt parameterized type for generating instances of container of scalar of integer obj...
This is the csi_type type for generating instances of container of scalar of integer objects.
This is the csl_pdt parameterized type for generating instances of container of scalar of logical obj...
This is the csl_type type for generating instances of container of scalar of logical objects.
This is the csr_pdt parameterized type for generating instances of container of scalar of real object...
This is the csr_type type for generating instances of container of scalar of logical objects.
This is the css_pdt parameterized type for generating instances of container of scalar of string obje...
This is the css_type type for generating instances of container of scalar of string objects.
This is the parameterized derived type for generating a container of an allocatable vector component ...
This is the derived type for generating a container of a vector component of type complex of default ...
This is the parameterized derived type for generating a container of a vector component of type integ...
This is the derived type for generating a container of a vector component of type integer of default ...
This is the parameterized derived type for generating a container of an allocatable vector component ...
This is the derived type for generating a container of a vector component of type logical of default ...
This is the parameterized derived type for generating a container of an allocatable vector component ...
This is the derived type for generating a container of a vector component of type real of default kin...
This is the parameterized derived type for generating a container of a vector component of type chara...
This is the derived type for generating a container of a vector component of type character of defaul...
This is the derived type for constructing objects that contain the specifications of the generic inte...
Generate and return an object of type mark_type with the user-specified input attributes.
Generate and return an object of type warn_type with the user-specified input attributes.
Generate and return an object of type note_type with the user-specified input attributes.
This is a concrete derived type whose instances are exclusively used to signify the CSV file form wit...
Generate and return an object of type display_type.
The derived type that can be used for constructing containers of format or left and right delimiters ...
This is the derived type for generating objects containing the source file extensions used by differe...
This is a concrete derived type whose instances are exclusively used to signify the Fortran-list-dire...
This is the openArg_type class containing arguments that can be passed to the open() intrinsic Fortra...
This is a concrete derived type whose instances are exclusively used to signify the unknown file form...
This is the derived type for constructing objects that contain the specifications of the getStrWrappe...
This is a derived type for constructing concrete derived types to distinguish various procedure signa...