## On this page

  

 

 # syscCouplingInterfaceF

 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="l00033"></a> 33 ! \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00034"></a>[ 34](structfortran_1_1sysccouplinginterfacef.xhtml) type :: [sysccouplinginterfacef](structfortran_1_1sysccouplinginterfacef.xhtml)

<a name="l00035"></a>[ 35](structfortran_1_1sysccouplinginterfacef.xhtml#a72f0326f2d38c6a753a748136992df3a) character(len=SyscStrLen) :: name

<a name="l00036"></a> 36 end type [sysccouplinginterfacef](structfortran_1_1sysccouplinginterfacef.xhtml)

<a name="l00037"></a> 37 !

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

<a name="l00039"></a> 39 !

<a name="l00041"></a>[ 41](interfacefortran_1_1syscgetcouplinginterfacef.xhtml) interface [syscgetcouplinginterfacef](interfacefortran_1_1syscgetcouplinginterfacef.xhtml)

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

<a name="l00043"></a> 43 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

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

<a name="l00049"></a>[ 49](interfacefortran_1_1syscgetcouplinginterfacef.xhtml#aec4bf2d947b022718429d490da07c2f7) function [syscgetcouplinginterfacef](interfacefortran_1_1syscgetcouplinginterfacef.xhtml)(name) result(ret)

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

<a name="l00051"></a> 51 import :: [sysccouplinginterfacef](structfortran_1_1sysccouplinginterfacef.xhtml)

<a name="l00052"></a> 52 character(len=\*), intent(in) :: name

<a name="l00053"></a> 53 type([sysccouplinginterfacef](structfortran_1_1sysccouplinginterfacef.xhtml)) :: ret

<a name="l00054"></a> 54 !

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

<a name="l00056"></a> 56 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetCouplingInterfaceF

<a name="l00057"></a> 57 !DIR$ ENDIF

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

<a name="l00059"></a> 59 end function [syscgetcouplinginterfacef](interfacefortran_1_1syscgetcouplinginterfacef.xhtml)

<a name="l00060"></a> 60 !

<a name="l00061"></a> 61 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00062"></a> 62 !

<a name="l00063"></a> 63 end interface [syscgetcouplinginterfacef](interfacefortran_1_1syscgetcouplinginterfacef.xhtml)

<a name="l00064"></a> 64 !

<a name="l00066"></a>[ 66](interfacefortran_1_1syscaddsideoneregionf.xhtml) interface [syscaddsideoneregionf](interfacefortran_1_1syscaddsideoneregionf.xhtml)

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

<a name="l00068"></a> 68 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00087"></a> 87 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

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

<a name="l00089"></a>[ 89](interfacefortran_1_1syscaddsideoneregionf.xhtml#a6a2f1fe1b0c810365fec64d98be79d79) function [syscaddsideoneregionf](interfacefortran_1_1syscaddsideoneregionf.xhtml)(interface, region) result (ret)

<a name="l00090"></a> 90 !

<a name="l00091"></a> 91 import :: [sysccouplinginterfacef](structfortran_1_1sysccouplinginterfacef.xhtml)

<a name="l00092"></a> 92 import :: [syscregionf](structfortran_1_1syscregionf.xhtml)

<a name="l00093"></a> 93 import :: [syscerrorf](structfortran_1_1syscerrorf.xhtml)

<a name="l00094"></a> 94 type([sysccouplinginterfacef](structfortran_1_1sysccouplinginterfacef.xhtml)), intent(in) :: interface

<a name="l00095"></a> 95 type([syscregionf](structfortran_1_1syscregionf.xhtml)), intent(in) :: region

<a name="l00096"></a> 96 type([syscerrorf](structfortran_1_1syscerrorf.xhtml)) :: ret

<a name="l00097"></a> 97 !

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

<a name="l00099"></a> 99 !DIR$ ATTRIBUTES DLLIMPORT :: syscAddSideOneRegionF

<a name="l00100"></a> 100 !DIR$ ENDIF

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

<a name="l00102"></a> 102 end function [syscaddsideoneregionf](interfacefortran_1_1syscaddsideoneregionf.xhtml)

<a name="l00103"></a> 103 !

<a name="l00104"></a> 104 end interface [syscaddsideoneregionf](interfacefortran_1_1syscaddsideoneregionf.xhtml)

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

<a name="l00106"></a> 106 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

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

<a name="l00109"></a>[ 109](interfacefortran_1_1syscaddsidetworegionf.xhtml) interface [syscaddsidetworegionf](interfacefortran_1_1syscaddsidetworegionf.xhtml)

<a name="l00110"></a> 110 !

<a name="l00111"></a> 111 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00130"></a> 130 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00131"></a> 131 !

<a name="l00132"></a>[ 132](interfacefortran_1_1syscaddsidetworegionf.xhtml#a9bd8b8ff8727de23eabd530fef19e5ac) function [syscaddsidetworegionf](interfacefortran_1_1syscaddsidetworegionf.xhtml)(interface, region) result (ret)

<a name="l00133"></a> 133 !

<a name="l00134"></a> 134 import :: [sysccouplinginterfacef](structfortran_1_1sysccouplinginterfacef.xhtml)

<a name="l00135"></a> 135 import :: [syscregionf](structfortran_1_1syscregionf.xhtml)

<a name="l00136"></a> 136 import :: [syscerrorf](structfortran_1_1syscerrorf.xhtml)

<a name="l00137"></a> 137 type([sysccouplinginterfacef](structfortran_1_1sysccouplinginterfacef.xhtml)), intent(in) :: interface

<a name="l00138"></a> 138 type([syscregionf](structfortran_1_1syscregionf.xhtml)), intent(in) :: region

<a name="l00139"></a> 139 type([syscerrorf](structfortran_1_1syscerrorf.xhtml)) :: ret

<a name="l00140"></a> 140 !

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

<a name="l00142"></a> 142 !DIR$ ATTRIBUTES DLLIMPORT :: syscAddSideTwoRegionF

<a name="l00143"></a> 143 !DIR$ ENDIF

<a name="l00144"></a> 144 !

<a name="l00145"></a> 145 end function [syscaddsidetworegionf](interfacefortran_1_1syscaddsidetworegionf.xhtml)

<a name="l00146"></a> 146 !

<a name="l00147"></a> 147 end interface [syscaddsidetworegionf](interfacefortran_1_1syscaddsidetworegionf.xhtml)

<a name="l00148"></a> 148 !

<a name="l00149"></a> 149 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00150"></a> 150 !

<a name="l00152"></a>[ 152](interfacefortran_1_1syscadddatatransferf.xhtml) interface [syscadddatatransferf](interfacefortran_1_1syscadddatatransferf.xhtml)

<a name="l00153"></a> 153 !

<a name="l00154"></a> 154 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00156"></a> 156 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00157"></a> 157 !

<a name="l00158"></a>[ 158](interfacefortran_1_1syscadddatatransferf.xhtml#a21b444e439f1fde567611e565cd5e268) function [syscadddatatransferf](interfacefortran_1_1syscadddatatransferf.xhtml)(couplingInterface, dataTransfer)&amp;

<a name="l00159"></a> 159 result(ret)

<a name="l00160"></a> 160 !

<a name="l00161"></a> 161 import :: [sysccouplinginterfacef](structfortran_1_1sysccouplinginterfacef.xhtml)

<a name="l00162"></a> 162 import :: [syscdatatransferf](structfortran_1_1syscdatatransferf.xhtml)

<a name="l00163"></a> 163 import :: [syscerrorf](structfortran_1_1syscerrorf.xhtml)

<a name="l00164"></a> 164 type([sysccouplinginterfacef](structfortran_1_1sysccouplinginterfacef.xhtml)), intent(in) :: couplinginterface

<a name="l00165"></a> 165 type([syscdatatransferf](structfortran_1_1syscdatatransferf.xhtml)), intent(in) :: datatransfer

<a name="l00166"></a> 166 type([syscerrorf](structfortran_1_1syscerrorf.xhtml)) :: ret

<a name="l00167"></a> 167 !

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

<a name="l00169"></a> 169 !DIR$ ATTRIBUTES DLLIMPORT :: syscAddDataTransferF

<a name="l00170"></a> 170 !DIR$ ENDIF

<a name="l00171"></a> 171 !

<a name="l00172"></a> 172 end function [syscadddatatransferf](interfacefortran_1_1syscadddatatransferf.xhtml)

<a name="l00173"></a> 173 !

<a name="l00174"></a> 174 end interface [syscadddatatransferf](interfacefortran_1_1syscadddatatransferf.xhtml)

<a name="l00175"></a> 175 !

<a name="l00176"></a> 176 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00177"></a> 177 !

<a name="l00179"></a>[ 179](interfacefortran_1_1sysccouplinginterfacegetnumdatatransfersf.xhtml) interface [sysccouplinginterfacegetnumdatatransfersf](interfacefortran_1_1sysccouplinginterfacegetnumdatatransfersf.xhtml)

<a name="l00180"></a> 180 !

<a name="l00181"></a> 181 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00183"></a> 183 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00184"></a> 184 !

<a name="l00185"></a>[ 185](interfacefortran_1_1sysccouplinginterfacegetnumdatatransfersf.xhtml#a3ad7cb0c600bc3aa73c2faeff0a1c3e9) function [sysccouplinginterfacegetnumdatatransfersf](interfacefortran_1_1sysccouplinginterfacegetnumdatatransfersf.xhtml)(&amp;

<a name="l00186"></a> 186 couplingInterface) result (ret)

<a name="l00187"></a> 187 !

<a name="l00188"></a> 188 import :: [sysccouplinginterfacef](structfortran_1_1sysccouplinginterfacef.xhtml)

<a name="l00189"></a> 189 type([sysccouplinginterfacef](structfortran_1_1sysccouplinginterfacef.xhtml)), intent(in) :: couplinginterface

<a name="l00190"></a> 190 integer(kind=8) :: ret

<a name="l00191"></a> 191 !

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

<a name="l00193"></a> 193 !DIR$ ATTRIBUTES DLLIMPORT :: syscCouplingInterfaceGetNumDataTransfersF

<a name="l00194"></a> 194 !DIR$ ENDIF

<a name="l00195"></a> 195 !

<a name="l00196"></a> 196 end function [sysccouplinginterfacegetnumdatatransfersf](interfacefortran_1_1sysccouplinginterfacegetnumdatatransfersf.xhtml)

<a name="l00197"></a> 197 !

<a name="l00198"></a> 198 end interface [sysccouplinginterfacegetnumdatatransfersf](interfacefortran_1_1sysccouplinginterfacegetnumdatatransfersf.xhtml)

<a name="l00199"></a> 199 !

<a name="l00200"></a> 200 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00201"></a> 201 !

<a name="l00203"></a>[ 203](interfacefortran_1_1sysccouplinginterfacegetnumsideoneregionsf.xhtml) interface [sysccouplinginterfacegetnumsideoneregionsf](interfacefortran_1_1sysccouplinginterfacegetnumsideoneregionsf.xhtml)

<a name="l00204"></a> 204 !

<a name="l00205"></a> 205 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00207"></a> 207 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00208"></a> 208 !

<a name="l00209"></a>[ 209](interfacefortran_1_1sysccouplinginterfacegetnumsideoneregionsf.xhtml#a4b03d2962f76dc8cee7926b038d6e537) function [sysccouplinginterfacegetnumsideoneregionsf](interfacefortran_1_1sysccouplinginterfacegetnumsideoneregionsf.xhtml)(&amp;

<a name="l00210"></a> 210 couplingInterface) result (ret)

<a name="l00211"></a> 211 !

<a name="l00212"></a> 212 import :: [sysccouplinginterfacef](structfortran_1_1sysccouplinginterfacef.xhtml)

<a name="l00213"></a> 213 type([sysccouplinginterfacef](structfortran_1_1sysccouplinginterfacef.xhtml)), intent(in) :: couplinginterface

<a name="l00214"></a> 214 integer(kind=8) :: ret

<a name="l00215"></a> 215 !

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

<a name="l00217"></a> 217 !DIR$ ATTRIBUTES DLLIMPORT :: syscCouplingInterfaceGetNumSideOneRegionsF

<a name="l00218"></a> 218 !DIR$ ENDIF

<a name="l00219"></a> 219 !

<a name="l00220"></a> 220 end function [sysccouplinginterfacegetnumsideoneregionsf](interfacefortran_1_1sysccouplinginterfacegetnumsideoneregionsf.xhtml)

<a name="l00221"></a> 221 !

<a name="l00222"></a> 222 end interface [sysccouplinginterfacegetnumsideoneregionsf](interfacefortran_1_1sysccouplinginterfacegetnumsideoneregionsf.xhtml)

<a name="l00223"></a> 223 !

<a name="l00224"></a> 224 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00225"></a> 225 !

<a name="l00227"></a>[ 227](interfacefortran_1_1sysccouplinginterfacegetnumsidetworegionsf.xhtml) interface [sysccouplinginterfacegetnumsidetworegionsf](interfacefortran_1_1sysccouplinginterfacegetnumsidetworegionsf.xhtml)

<a name="l00228"></a> 228 !

<a name="l00229"></a> 229 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00231"></a> 231 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00232"></a> 232 !

<a name="l00233"></a>[ 233](interfacefortran_1_1sysccouplinginterfacegetnumsidetworegionsf.xhtml#a047bee8e2d14252e359e38352400352c) function [sysccouplinginterfacegetnumsidetworegionsf](interfacefortran_1_1sysccouplinginterfacegetnumsidetworegionsf.xhtml)(&amp;

<a name="l00234"></a> 234 couplingInterface) result (ret)

<a name="l00235"></a> 235 !

<a name="l00236"></a> 236 import :: [sysccouplinginterfacef](structfortran_1_1sysccouplinginterfacef.xhtml)

<a name="l00237"></a> 237 type([sysccouplinginterfacef](structfortran_1_1sysccouplinginterfacef.xhtml)), intent(in) :: couplinginterface

<a name="l00238"></a> 238 integer(kind=8) :: ret

<a name="l00239"></a> 239 !

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

<a name="l00241"></a> 241 !DIR$ ATTRIBUTES DLLIMPORT :: syscCouplingInterfaceGetNumSideTwoRegionsF

<a name="l00242"></a> 242 !DIR$ ENDIF

<a name="l00243"></a> 243 !

<a name="l00244"></a> 244 end function [sysccouplinginterfacegetnumsidetworegionsf](interfacefortran_1_1sysccouplinginterfacegetnumsidetworegionsf.xhtml)

<a name="l00245"></a> 245 !

<a name="l00246"></a> 246 end interface [sysccouplinginterfacegetnumsidetworegionsf](interfacefortran_1_1sysccouplinginterfacegetnumsidetworegionsf.xhtml)

<a name="l00247"></a> 247 !

<a name="l00248"></a> 248 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00249"></a> 249 !

<a name="l00252"></a> 252 !

<a name="l00253"></a>[ 253](interfacefortran_1_1sysccouplinginterfacegetdatatransferf.xhtml) interface [sysccouplinginterfacegetdatatransferf](interfacefortran_1_1sysccouplinginterfacegetdatatransferf.xhtml)

<a name="l00254"></a> 254 !

<a name="l00255"></a> 255 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00257"></a> 257 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00258"></a> 258 !

<a name="l00259"></a>[ 259](interfacefortran_1_1sysccouplinginterfacegetdatatransferf.xhtml#a018899d40dfcec3633ad8aeb06d821ff) function [sysccouplinginterfacegetdatatransferf](interfacefortran_1_1sysccouplinginterfacegetdatatransferf.xhtml)(&amp;

<a name="l00260"></a> 260 couplingInterface, index) result (ret)

<a name="l00261"></a> 261 !

<a name="l00262"></a> 262 import :: [sysccouplinginterfacef](structfortran_1_1sysccouplinginterfacef.xhtml), [syscdatatransferf](structfortran_1_1syscdatatransferf.xhtml)

<a name="l00263"></a> 263 type([sysccouplinginterfacef](structfortran_1_1sysccouplinginterfacef.xhtml)), intent(in) :: couplinginterface

<a name="l00264"></a> 264 integer(kind=8), intent(in) :: index

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

<a name="l00266"></a> 266 !

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

<a name="l00268"></a> 268 !DIR$ ATTRIBUTES DLLIMPORT :: syscCouplingInterfaceGetDataTransferF

<a name="l00269"></a> 269 !DIR$ ENDIF

<a name="l00270"></a> 270 !

<a name="l00271"></a> 271 end function [sysccouplinginterfacegetdatatransferf](interfacefortran_1_1sysccouplinginterfacegetdatatransferf.xhtml)

<a name="l00272"></a> 272 !

<a name="l00273"></a> 273 end interface [sysccouplinginterfacegetdatatransferf](interfacefortran_1_1sysccouplinginterfacegetdatatransferf.xhtml)

<a name="l00274"></a> 274 !

<a name="l00275"></a> 275 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00276"></a> 276 !

<a name="l00279"></a> 279 !

<a name="l00280"></a>[ 280](interfacefortran_1_1sysccouplinginterfacegetsideoneregionf.xhtml) interface [sysccouplinginterfacegetsideoneregionf](interfacefortran_1_1sysccouplinginterfacegetsideoneregionf.xhtml)

<a name="l00281"></a> 281 !

<a name="l00282"></a> 282 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00284"></a> 284 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00285"></a> 285 !

<a name="l00286"></a>[ 286](interfacefortran_1_1sysccouplinginterfacegetsideoneregionf.xhtml#a59948dc89acf49e6d2f45941eccb1c29) function [sysccouplinginterfacegetsideoneregionf](interfacefortran_1_1sysccouplinginterfacegetsideoneregionf.xhtml)(&amp;

<a name="l00287"></a> 287 couplingInterface, index) result (ret)

<a name="l00288"></a> 288 !

<a name="l00289"></a> 289 import :: [sysccouplinginterfacef](structfortran_1_1sysccouplinginterfacef.xhtml), [syscregionf](structfortran_1_1syscregionf.xhtml)

<a name="l00290"></a> 290 type([sysccouplinginterfacef](structfortran_1_1sysccouplinginterfacef.xhtml)), intent(in) :: couplinginterface

<a name="l00291"></a> 291 integer(kind=8), intent(in) :: index

<a name="l00292"></a> 292 type([syscregionf](structfortran_1_1syscregionf.xhtml)) :: ret

<a name="l00293"></a> 293 !

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

<a name="l00295"></a> 295 !DIR$ ATTRIBUTES DLLIMPORT :: syscCouplingInterfaceGetSideOneRegionF

<a name="l00296"></a> 296 !DIR$ ENDIF

<a name="l00297"></a> 297 !

<a name="l00298"></a> 298 end function [sysccouplinginterfacegetsideoneregionf](interfacefortran_1_1sysccouplinginterfacegetsideoneregionf.xhtml)

<a name="l00299"></a> 299 !

<a name="l00300"></a> 300 end interface [sysccouplinginterfacegetsideoneregionf](interfacefortran_1_1sysccouplinginterfacegetsideoneregionf.xhtml)

<a name="l00301"></a> 301 !

<a name="l00302"></a> 302 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00303"></a> 303 !

<a name="l00306"></a> 306 !

<a name="l00307"></a>[ 307](interfacefortran_1_1sysccouplinginterfacegetsidetworegionf.xhtml) interface [sysccouplinginterfacegetsidetworegionf](interfacefortran_1_1sysccouplinginterfacegetsidetworegionf.xhtml)

<a name="l00308"></a> 308 !

<a name="l00309"></a> 309 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00311"></a> 311 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00312"></a> 312 !

<a name="l00313"></a>[ 313](interfacefortran_1_1sysccouplinginterfacegetsidetworegionf.xhtml#afff5d4564fa194bbf1493b0505f910b4) function [sysccouplinginterfacegetsidetworegionf](interfacefortran_1_1sysccouplinginterfacegetsidetworegionf.xhtml)(&amp;

<a name="l00314"></a> 314 couplingInterface, index) result (ret)

<a name="l00315"></a> 315 !

<a name="l00316"></a> 316 import :: [sysccouplinginterfacef](structfortran_1_1sysccouplinginterfacef.xhtml), [syscregionf](structfortran_1_1syscregionf.xhtml)

<a name="l00317"></a> 317 type([sysccouplinginterfacef](structfortran_1_1sysccouplinginterfacef.xhtml)), intent(in) :: couplinginterface

<a name="l00318"></a> 318 integer(kind=8), intent(in) :: index

<a name="l00319"></a> 319 type([syscregionf](structfortran_1_1syscregionf.xhtml)) :: ret

<a name="l00320"></a> 320 !

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

<a name="l00322"></a> 322 !DIR$ ATTRIBUTES DLLIMPORT :: syscCouplingInterfaceGetSideTwoRegionF

<a name="l00323"></a> 323 !DIR$ ENDIF

<a name="l00324"></a> 324 !

<a name="l00325"></a> 325 end function [sysccouplinginterfacegetsidetworegionf](interfacefortran_1_1sysccouplinginterfacegetsidetworegionf.xhtml)

<a name="l00326"></a> 326 !

<a name="l00327"></a> 327 end interface [sysccouplinginterfacegetsidetworegionf](interfacefortran_1_1sysccouplinginterfacegetsidetworegionf.xhtml)

<a name="l00328"></a> 328 !

<a name="l00329"></a> 329 end module fortran

[fortran::syscadddatatransferf](interfacefortran_1_1syscadddatatransferf.xhtml)

Provide an interface to add data transfer.

**Definition:** [syscCouplingInterfaceF.fi:152](syscCouplingInterfaceF_8fi_source.xhtml#l00152)



[fortran::syscaddsideoneregionf](interfacefortran_1_1syscaddsideoneregionf.xhtml)

Provide an interface to add side one region.

**Definition:** [syscCouplingInterfaceF.fi:66](syscCouplingInterfaceF_8fi_source.xhtml#l00066)



[fortran::syscaddsidetworegionf](interfacefortran_1_1syscaddsidetworegionf.xhtml)

Provide an interface to add side two region.

**Definition:** [syscCouplingInterfaceF.fi:109](syscCouplingInterfaceF_8fi_source.xhtml#l00109)



[fortran::sysccouplinginterfacegetdatatransferf](interfacefortran_1_1sysccouplinginterfacegetdatatransferf.xhtml)

Provide an interface to get a data transfer from a coupling interface.

**Definition:** [syscCouplingInterfaceF.fi:253](syscCouplingInterfaceF_8fi_source.xhtml#l00253)



[fortran::sysccouplinginterfacegetnumdatatransfersf](interfacefortran_1_1sysccouplinginterfacegetnumdatatransfersf.xhtml)

Provide an interface to get number of data transfers.

**Definition:** [syscCouplingInterfaceF.fi:179](syscCouplingInterfaceF_8fi_source.xhtml#l00179)



[fortran::sysccouplinginterfacegetnumsideoneregionsf](interfacefortran_1_1sysccouplinginterfacegetnumsideoneregionsf.xhtml)

Provide an interface to get number of side one regions.

**Definition:** [syscCouplingInterfaceF.fi:203](syscCouplingInterfaceF_8fi_source.xhtml#l00203)



[fortran::sysccouplinginterfacegetnumsidetworegionsf](interfacefortran_1_1sysccouplinginterfacegetnumsidetworegionsf.xhtml)

Provide an interface to get number of side two regions.

**Definition:** [syscCouplingInterfaceF.fi:227](syscCouplingInterfaceF_8fi_source.xhtml#l00227)



[fortran::sysccouplinginterfacegetsideoneregionf](interfacefortran_1_1sysccouplinginterfacegetsideoneregionf.xhtml)

Provide an interface to get side one region from a coupling interface.

**Definition:** [syscCouplingInterfaceF.fi:280](syscCouplingInterfaceF_8fi_source.xhtml#l00280)



[fortran::sysccouplinginterfacegetsidetworegionf](interfacefortran_1_1sysccouplinginterfacegetsidetworegionf.xhtml)

Provide an interface to get side two region from a coupling interface.

**Definition:** [syscCouplingInterfaceF.fi:307](syscCouplingInterfaceF_8fi_source.xhtml#l00307)



[fortran::syscgetcouplinginterfacef](interfacefortran_1_1syscgetcouplinginterfacef.xhtml)

Provide an interface to get a coupling interface.

**Definition:** [syscCouplingInterfaceF.fi:41](syscCouplingInterfaceF_8fi_source.xhtml#l00041)



[fortran::sysccouplinginterfacef](structfortran_1_1sysccouplinginterfacef.xhtml)

Provide a struct for a coupling interface.

**Definition:** [syscCouplingInterfaceF.fi:34](syscCouplingInterfaceF_8fi_source.xhtml#l00034)



[fortran::syscdatatransferf](structfortran_1_1syscdatatransferf.xhtml)

Provide a struct for a data transfer.

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



[fortran::syscerrorf](structfortran_1_1syscerrorf.xhtml)

Provide an error type returned by the Fortran interface calls.

**Definition:** [syscCommonTypesF.fi:138](syscCommonTypesF_8fi_source.xhtml#l00138)



[fortran::syscregionf](structfortran_1_1syscregionf.xhtml)

Provide a struct for a System Coupling region.

**Definition:** [syscRegionF.fi:29](syscRegionF_8fi_source.xhtml#l00029)