## On this page

  

 

 # syscDataTransferF

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

<a id="l00012" name="l00012"></a>[ 12](structfortran_1_1syscdatatransferf.xhtml)type :: [syscdatatransferf](structfortran_1_1syscdatatransferf.xhtml)

<a id="l00013" name="l00013"></a>[ 13](structfortran_1_1syscdatatransferf.xhtml#af21e64ccd79e4331f04477e979a5ad7e) type([syscvariablef](structfortran_1_1syscvariablef.xhtml)) :: sourcevariable

<a id="l00014" name="l00014"></a>[ 14](structfortran_1_1syscdatatransferf.xhtml#a25b318e666a7df521caa1cf70944be48) type([syscvariablef](structfortran_1_1syscvariablef.xhtml)) :: targetvariable

<a id="l00015" name="l00015"></a>[ 15](structfortran_1_1syscdatatransferf.xhtml#a9f6c6078b224bb2f4b9d69236dae416c) integer(kind=4) :: targetside

<a id="l00016" name="l00016"></a> 16end type [syscdatatransferf](structfortran_1_1syscdatatransferf.xhtml)



<a id="l00017" name="l00017"></a> 17!

<a id="l00018" name="l00018"></a> 18!\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a id="l00019" name="l00019"></a> 19!

<a id="l00021" name="l00021"></a>[ 21](interfacefortran_1_1syscgetdatatransferf.xhtml)interface [syscgetdatatransferf](interfacefortran_1_1syscgetdatatransferf.xhtml)

<a id="l00022" name="l00022"></a> 22!

<a id="l00023" name="l00023"></a> 23!\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

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

<a id="l00032" name="l00032"></a>[ 32](interfacefortran_1_1syscgetdatatransferf.xhtml#ac52f9b1a5b54382e682daa312d5babd2)function [syscgetdatatransferf](interfacefortran_1_1syscgetdatatransferf.xhtml)(sourceVariable, targetVariable, &amp;

<a id="l00033" name="l00033"></a> 33 targetSide) result(ret)

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

<a id="l00035" name="l00035"></a> 35 import :: [syscdatatransferf](structfortran_1_1syscdatatransferf.xhtml), [syscvariablef](structfortran_1_1syscvariablef.xhtml)

<a id="l00036" name="l00036"></a> 36 type([syscvariablef](structfortran_1_1syscvariablef.xhtml)), intent(in) :: sourcevariable

<a id="l00037" name="l00037"></a> 37 type([syscvariablef](structfortran_1_1syscvariablef.xhtml)), intent(in) :: targetvariable

<a id="l00038" name="l00038"></a> 38 integer(kind=4), intent(in) :: targetside

<a id="l00039" name="l00039"></a> 39 type([syscdatatransferf](structfortran_1_1syscdatatransferf.xhtml)) :: ret

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

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

<a id="l00042" name="l00042"></a> 42!DIR$ ATTRIBUTES DLLIMPORT :: syscGetDataTransferF

<a id="l00043" name="l00043"></a> 43!DIR$ ENDIF

<a id="l00044" name="l00044"></a> 44!



<a id="l00045" name="l00045"></a> 45end function [syscgetdatatransferf](interfacefortran_1_1syscgetdatatransferf.xhtml)

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

<a id="l00047" name="l00047"></a> 47!\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a id="l00048" name="l00048"></a> 48!



<a id="l00049" name="l00049"></a> 49end interface [syscgetdatatransferf](interfacefortran_1_1syscgetdatatransferf.xhtml)

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

<a id="l00051" name="l00051"></a> 51 

<a id="l00052" name="l00052"></a> 52end module fortran

[fortran::syscgetdatatransferf](interfacefortran_1_1syscgetdatatransferf.xhtml)

Provide an interface to get a data transfer.

**Definition** [syscDataTransferF.fi:21](syscDataTransferF_8fi_source.xhtml#l00021)



[fortran::syscdatatransferf](structfortran_1_1syscdatatransferf.xhtml)

Provide a struct for a data transfer.

**Definition** [syscDataTransferF.fi:12](syscDataTransferF_8fi_source.xhtml#l00012)



[fortran::syscvariablef](structfortran_1_1syscvariablef.xhtml)

Provide a struct for a System Coupling variable.

**Definition** [syscVariableF.fi:23](syscVariableF_8fi_source.xhtml#l00023)