## On this page

  

 

 # syscOutputIntegerDataF

 Last update: 17.07.2025 

<a name="l00001"></a> 1 module fortran

<a name="l00002"></a> 2 !

<a name="l00003"></a> 3 ! Copyright ANSYS, Inc. 

<a name="l00004"></a> 4 ! Unauthorized use, distribution, or duplication is prohibited.

<a name="l00005"></a> 5 !

<a name="l00006"></a> 6 ! Provide free-form Fortran interface for

<a name="l00007"></a> 7 ! System Coupling Participant Library.

<a name="l00008"></a> 8 !

<a name="l00009"></a> 9 ! \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00010"></a> 10 ! \*\*\*\*\*\* Output integer data \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00011"></a> 11 ! \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00012"></a> 12 !

<a name="l00013"></a> 13 ! \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00028"></a> 28 !

<a name="l00029"></a>[ 29](structfortran_1_1syscoutputintegerdataf.xhtml) type :: [syscoutputintegerdataf](structfortran_1_1syscoutputintegerdataf.xhtml)

<a name="l00030"></a>[ 30](structfortran_1_1syscoutputintegerdataf.xhtml#a41aa641a12e238b3d8a12707aa047938) integer(kind=8) :: primitivetype

<a name="l00031"></a>[ 31](structfortran_1_1syscoutputintegerdataf.xhtml#a267ef1b5c835b12e571fea3d20a8ff7b) integer(kind=8) :: dataptr

<a name="l00032"></a>[ 32](structfortran_1_1syscoutputintegerdataf.xhtml#ac8d11b0cadefc4f138b1ef4e0ab50b2a) integer(kind=8) :: datasize

<a name="l00033"></a> 33 end type [syscoutputintegerdataf](structfortran_1_1syscoutputintegerdataf.xhtml)

<a name="l00034"></a> 34 !

<a name="l00035"></a> 35 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00037"></a> 37 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00038"></a>[ 38](interfacefortran_1_1syscgetoutputintegerdataf.xhtml) interface [syscgetoutputintegerdataf](interfacefortran_1_1syscgetoutputintegerdataf.xhtml)

<a name="l00039"></a> 39 !

<a name="l00040"></a> 40 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00041"></a> 41 !! \\brief Create an output integer data access type.

<a name="l00042"></a> 42 !!

<a name="l00043"></a> 43 !! Primitive type will default to 64-bit signed integer.

<a name="l00044"></a> 44 !! Data size will be set to zero.

<a name="l00045"></a> 45 !! Data pointer will be set to null.

<a name="l00046"></a> 46 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00047"></a> 47 function [syscgetoutputintegerdataf](interfacefortran_1_1syscgetoutputintegerdataf.xhtml)() result (ret)

<a name="l00048"></a> 48 import :: [syscoutputintegerdataf](structfortran_1_1syscoutputintegerdataf.xhtml)

<a name="l00049"></a> 49 type(SyscOutputIntegerDataF) :: ret

<a name="l00050"></a> 50 !DIR$ IF DEFINED(\_WIN32) .and. ( .not. DEFINED(SYSTEM\_COUPLING\_PARTICIPANT\_PROXY))

<a name="l00051"></a> 51 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputIntegerDataF

<a name="l00052"></a> 52 !DIR$ ENDIF

<a name="l00053"></a> 53 end function [syscgetoutputintegerdataf](interfacefortran_1_1syscgetoutputintegerdataf.xhtml)

<a name="l00054"></a> 54 !

<a name="l00055"></a> 55 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00060"></a> 60 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00061"></a>[ 61](interfacefortran_1_1syscgetoutputintegerdataf.xhtml#ae1a0e75930a3da5a7919c2f51f5b41e7) function syscgetoutputintegerdataf_i4(data, dataSize) result (ret)

<a name="l00062"></a> 62 !

<a name="l00063"></a> 63 import :: [syscoutputintegerdataf](structfortran_1_1syscoutputintegerdataf.xhtml)

<a name="l00064"></a> 64 integer(kind=8), intent(in) :: datasize 

<a name="l00065"></a> 65 integer(kind=4), intent(in), target :: data(datasize)

<a name="l00066"></a> 66 type([syscoutputintegerdataf](structfortran_1_1syscoutputintegerdataf.xhtml)) :: ret

<a name="l00067"></a> 67 !

<a name="l00068"></a> 68 !DIR$ IF DEFINED(\_WIN32) .and. ( .not. DEFINED(SYSTEM\_COUPLING\_PARTICIPANT\_PROXY))

<a name="l00069"></a> 69 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputIntegerDataF\_I4

<a name="l00070"></a> 70 !DIR$ ENDIF

<a name="l00071"></a> 71 !

<a name="l00072"></a> 72 end function syscgetoutputintegerdataf_i4

<a name="l00073"></a> 73 !

<a name="l00074"></a> 74 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00079"></a> 79 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00080"></a>[ 80](interfacefortran_1_1syscgetoutputintegerdataf.xhtml#af330e0d8cf14659775297c3f08a20263) function syscgetoutputintegerdataf_i8(data, dataSize) result (ret)

<a name="l00081"></a> 81 !

<a name="l00082"></a> 82 import :: [syscoutputintegerdataf](structfortran_1_1syscoutputintegerdataf.xhtml)

<a name="l00083"></a> 83 integer(kind=8), intent(in) :: datasize 

<a name="l00084"></a> 84 integer(kind=8), intent(in), target :: data(datasize)

<a name="l00085"></a> 85 type([syscoutputintegerdataf](structfortran_1_1syscoutputintegerdataf.xhtml)) :: ret

<a name="l00086"></a> 86 !

<a name="l00087"></a> 87 !DIR$ IF DEFINED(\_WIN32) .and. ( .not. DEFINED(SYSTEM\_COUPLING\_PARTICIPANT\_PROXY))

<a name="l00088"></a> 88 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputIntegerDataF\_I8

<a name="l00089"></a> 89 !DIR$ ENDIF

<a name="l00090"></a> 90 !

<a name="l00091"></a> 91 end function syscgetoutputintegerdataf_i8

<a name="l00092"></a> 92 !

<a name="l00093"></a> 93 end interface [syscgetoutputintegerdataf](interfacefortran_1_1syscgetoutputintegerdataf.xhtml)

<a name="l00094"></a> 94 !

<a name="l00095"></a> 95 end module fortran

[fortran::syscgetoutputintegerdataf](interfacefortran_1_1syscgetoutputintegerdataf.xhtml)

Provide an interface to get output integer data.

**Definition:** [syscOutputIntegerDataF.fi:38](syscOutputIntegerDataF_8fi_source.xhtml#l00038)



[fortran::syscoutputintegerdataf](structfortran_1_1syscoutputintegerdataf.xhtml)

Provide an output integer data access type.

**Definition:** [syscOutputIntegerDataF.fi:29](syscOutputIntegerDataF_8fi_source.xhtml#l00029)