## On this page

  

 

 # syscDataTransferF

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

<a name="l00052"></a> 52 end 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)