## On this page

  

 

 # syscInputScalarDataF

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

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

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

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

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

<a id="l00029" name="l00029"></a> 29end type [syscinputscalardataf](structfortran_1_1syscinputscalardataf.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_1syscgetinputscalardataf.xhtml)interface [syscgetinputscalardataf](interfacefortran_1_1syscgetinputscalardataf.xhtml)

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

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

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

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

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

<a id="l00045" name="l00045"></a> 45 type([syscinputscalardataf](structfortran_1_1syscinputscalardataf.xhtml)) :: ret

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

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

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



<a id="l00049" name="l00049"></a> 49end function [syscgetinputscalardataf](interfacefortran_1_1syscgetinputscalardataf.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_1syscgetinputscalardataf.xhtml#a65b41b431fd0b3f4fa9e8d16819aa6a1)function syscgetinputscalardataf_r4(data, dataSize) result (ret)

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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



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

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



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

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

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