## On this page

  

 

 # syscOutputIntegerDataF

 Last update: 17.07.2025 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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



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

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

<a id="l00095" name="l00095"></a> 95end 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)