## On this page

  

 

 # syscOutputScalarDataF

 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 2023 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="l00024" name="l00024"></a> 24!

<a id="l00025" name="l00025"></a>[ 25](structfortran_1_1syscoutputscalardataf.xhtml)type :: [syscoutputscalardataf](structfortran_1_1syscoutputscalardataf.xhtml)

<a id="l00026" name="l00026"></a>[ 26](structfortran_1_1syscoutputscalardataf.xhtml#a41aa641a12e238b3d8a12707aa047938) integer(kind=8) :: primitivetype

<a id="l00027" name="l00027"></a>[ 27](structfortran_1_1syscoutputscalardataf.xhtml#a267ef1b5c835b12e571fea3d20a8ff7b) integer(kind=8) :: dataptr

<a id="l00028" name="l00028"></a>[ 28](structfortran_1_1syscoutputscalardataf.xhtml#ac8d11b0cadefc4f138b1ef4e0ab50b2a) integer(kind=8) :: datasize

<a id="l00029" name="l00029"></a> 29end type [syscoutputscalardataf](structfortran_1_1syscoutputscalardataf.xhtml)

<a id="l00030" name="l00030"></a> 30!

<a id="l00031" name="l00031"></a> 31!\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a id="l00033" name="l00033"></a> 33!\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a id="l00034" name="l00034"></a>[ 34](interfacefortran_1_1syscgetoutputscalardataf.xhtml)interface [syscgetoutputscalardataf](interfacefortran_1_1syscgetoutputscalardataf.xhtml)

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

<a id="l00036" name="l00036"></a> 36!\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a id="l00037" name="l00037"></a> 37!! \\brief Create an output scalar data access type.

<a id="l00038" name="l00038"></a> 38!!

<a id="l00039" name="l00039"></a> 39!! Primitive type will default to double-precision (64-bit).

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

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

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

<a id="l00043" name="l00043"></a> 43function [syscgetoutputscalardataf](interfacefortran_1_1syscgetoutputscalardataf.xhtml)() result (ret)

<a id="l00044" name="l00044"></a> 44 import :: [syscoutputscalardataf](structfortran_1_1syscoutputscalardataf.xhtml)

<a id="l00045" name="l00045"></a> 45 type(SyscOutputScalarDataF) :: ret

<a id="l00046" name="l00046"></a> 46!DIR$ IF DEFINED(\_WIN32)

<a id="l00047" name="l00047"></a> 47!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputScalarDataF

<a id="l00048" name="l00048"></a> 48!DIR$ ENDIF

<a id="l00049" name="l00049"></a> 49end function [syscgetoutputscalardataf](interfacefortran_1_1syscgetoutputscalardataf.xhtml)

<a id="l00050" name="l00050"></a> 50!

<a id="l00051" name="l00051"></a> 51!\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a id="l00056" name="l00056"></a> 56!\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a id="l00057" name="l00057"></a>[ 57](interfacefortran_1_1syscgetoutputscalardataf.xhtml#aa0fc1202c9abbcc583566e27919afc2d)function syscgetoutputscalardataf_r4(data, dataSize) result (ret)

<a id="l00058" name="l00058"></a> 58!

<a id="l00059" name="l00059"></a> 59 import :: [syscoutputscalardataf](structfortran_1_1syscoutputscalardataf.xhtml)

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

<a id="l00061" name="l00061"></a> 61 real(kind=4), intent(in), target :: data(datasize)

<a id="l00062" name="l00062"></a> 62 type([syscoutputscalardataf](structfortran_1_1syscoutputscalardataf.xhtml)) :: ret

<a id="l00063" name="l00063"></a> 63!

<a id="l00064" name="l00064"></a> 64!DIR$ IF DEFINED(\_WIN32)

<a id="l00065" name="l00065"></a> 65!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputScalarDataF\_R4

<a id="l00066" name="l00066"></a> 66!DIR$ ENDIF

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

<a id="l00068" name="l00068"></a> 68end function syscgetoutputscalardataf_r4

<a id="l00069" name="l00069"></a> 69!

<a id="l00070" name="l00070"></a> 70!\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a id="l00075" name="l00075"></a> 75!\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a id="l00076" name="l00076"></a>[ 76](interfacefortran_1_1syscgetoutputscalardataf.xhtml#aea3e7515b6ad50dca7f13b8b459bf7a2)function syscgetoutputscalardataf_r8(data, dataSize) result (ret)

<a id="l00077" name="l00077"></a> 77!

<a id="l00078" name="l00078"></a> 78 import :: [syscoutputscalardataf](structfortran_1_1syscoutputscalardataf.xhtml)

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

<a id="l00080" name="l00080"></a> 80 real(kind=8), intent(in), target :: data(datasize)

<a id="l00081" name="l00081"></a> 81 type([syscoutputscalardataf](structfortran_1_1syscoutputscalardataf.xhtml)) :: ret

<a id="l00082" name="l00082"></a> 82!

<a id="l00083" name="l00083"></a> 83!DIR$ IF DEFINED(\_WIN32)

<a id="l00084" name="l00084"></a> 84!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputScalarDataF\_R8

<a id="l00085" name="l00085"></a> 85!DIR$ ENDIF

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

<a id="l00087" name="l00087"></a> 87end function syscgetoutputscalardataf_r8

<a id="l00088" name="l00088"></a> 88!

<a id="l00089" name="l00089"></a> 89!\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

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

<a id="l00095" name="l00095"></a>[ 95](interfacefortran_1_1syscgetoutputscalardataf.xhtml#aba984631b55a3022f2868cf603110e2c)function syscgetoutputscalardataf_i4(data, dataSize) result (ret)

<a id="l00096" name="l00096"></a> 96!

<a id="l00097" name="l00097"></a> 97 import :: [syscoutputscalardataf](structfortran_1_1syscoutputscalardataf.xhtml)

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

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

<a id="l00100" name="l00100"></a> 100 type([syscoutputscalardataf](structfortran_1_1syscoutputscalardataf.xhtml)) :: ret

<a id="l00101" name="l00101"></a> 101!

<a id="l00102" name="l00102"></a> 102!DIR$ IF DEFINED(\_WIN32)

<a id="l00103" name="l00103"></a> 103!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputScalarDataF\_I4

<a id="l00104" name="l00104"></a> 104!DIR$ ENDIF

<a id="l00105" name="l00105"></a> 105!

<a id="l00106" name="l00106"></a> 106end function syscgetoutputscalardataf_i4

<a id="l00107" name="l00107"></a> 107!

<a id="l00108" name="l00108"></a> 108!\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a id="l00113" name="l00113"></a> 113!\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a id="l00114" name="l00114"></a>[ 114](interfacefortran_1_1syscgetoutputscalardataf.xhtml#ac4fbf5afb57f3e177fa8aaffca76a482)function syscgetoutputscalardataf_i8(data, dataSize) result (ret)

<a id="l00115" name="l00115"></a> 115!

<a id="l00116" name="l00116"></a> 116 import :: [syscoutputscalardataf](structfortran_1_1syscoutputscalardataf.xhtml)

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

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

<a id="l00119" name="l00119"></a> 119 type([syscoutputscalardataf](structfortran_1_1syscoutputscalardataf.xhtml)) :: ret

<a id="l00120" name="l00120"></a> 120!

<a id="l00121" name="l00121"></a> 121!DIR$ IF DEFINED(\_WIN32)

<a id="l00122" name="l00122"></a> 122!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputScalarDataF\_I8

<a id="l00123" name="l00123"></a> 123!DIR$ ENDIF

<a id="l00124" name="l00124"></a> 124!

<a id="l00125" name="l00125"></a> 125end function syscgetoutputscalardataf_i8

<a id="l00126" name="l00126"></a> 126!

<a id="l00127" name="l00127"></a> 127end interface [syscgetoutputscalardataf](interfacefortran_1_1syscgetoutputscalardataf.xhtml)

<a id="l00128" name="l00128"></a> 128!

<a id="l00129" name="l00129"></a> 129end module fortran

[fortran::syscgetoutputscalardataf](interfacefortran_1_1syscgetoutputscalardataf.xhtml)

Provide an interface to get output scalar data.

**Definition:** [syscOutputScalarDataF.fi:34](syscOutputScalarDataF_8fi_source.xhtml#l00034)



[fortran::syscoutputscalardataf](structfortran_1_1syscoutputscalardataf.xhtml)

Provide an output scalar data access type.

**Definition:** [syscOutputScalarDataF.fi:25](syscOutputScalarDataF_8fi_source.xhtml#l00025)