## On this page

  

 

 # syscInputScalarDataF

 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_1syscinputscalardataf.xhtml) type :: [syscinputscalardataf](structfortran_1_1syscinputscalardataf.xhtml)

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

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

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

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

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

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

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

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

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

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

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

<a name="l00043"></a>[ 43](interfacefortran_1_1syscgetinputscalardataf.xhtml#adb06ffec7c3b3ec37a6f4b5f87786b12) function [syscgetinputscalardataf](interfacefortran_1_1syscgetinputscalardataf.xhtml)() result (ret)

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

<a name="l00045"></a> 45 type([syscinputscalardataf](structfortran_1_1syscinputscalardataf.xhtml)) :: 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 :: syscGetInputScalarDataF

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

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

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

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

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

<a name="l00057"></a>[ 57](interfacefortran_1_1syscgetinputscalardataf.xhtml#a5933417d37ccf309975ef2ff91c23048) function syscgetinputscalardataf_r4(data, dataSize) result (ret)

<a name="l00058"></a> 58 import :: [syscinputscalardataf](structfortran_1_1syscinputscalardataf.xhtml)

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

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

<a name="l00061"></a> 61 type([syscinputscalardataf](structfortran_1_1syscinputscalardataf.xhtml)) :: ret

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

<a name="l00063"></a> 63 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputScalarDataF\_R4

<a name="l00064"></a> 64 !DIR$ ENDIF

<a name="l00065"></a> 65 end function syscgetinputscalardataf_r4

<a name="l00066"></a> 66 !

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

<a name="l00072"></a> 72 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00073"></a>[ 73](interfacefortran_1_1syscgetinputscalardataf.xhtml#aa1f18e156b5e6b26be50fac64f48af8b) function syscgetinputscalardataf_r8(data, dataSize) result (ret)

<a name="l00074"></a> 74 import :: [syscinputscalardataf](structfortran_1_1syscinputscalardataf.xhtml)

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

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

<a name="l00077"></a> 77 type([syscinputscalardataf](structfortran_1_1syscinputscalardataf.xhtml)) :: ret

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

<a name="l00079"></a> 79 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputScalarDataF\_R8

<a name="l00080"></a> 80 !DIR$ ENDIF

<a name="l00081"></a> 81 end function syscgetinputscalardataf_r8

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

<a name="l00083"></a> 83 end interface [syscgetinputscalardataf](interfacefortran_1_1syscgetinputscalardataf.xhtml)

<a name="l00084"></a> 84 !

<a name="l00085"></a> 85 end module fortran

[fortran::syscgetinputscalardataf](interfacefortran_1_1syscgetinputscalardataf.xhtml)

Provide an interface to get input scalar data.

**Definition:** [syscInputScalarDataF.fi:34](syscInputScalarDataF_8fi_source.xhtml#l00034)



[fortran::syscinputscalardataf](structfortran_1_1syscinputscalardataf.xhtml)

Provide an input scalar data access type.

**Definition:** [syscInputScalarDataF.fi:25](syscInputScalarDataF_8fi_source.xhtml#l00025)