## On this page

  

 

 # syscOutputScalarDataF

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

<a name="l00129"></a> 129 end 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)