## On this page

  

 

 # syscVariableF

 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="l00022"></a> 22 ! \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00023"></a>[ 23](structfortran_1_1syscvariablef.xhtml) type :: [syscvariablef](structfortran_1_1syscvariablef.xhtml)

<a name="l00025"></a>[ 25](structfortran_1_1syscvariablef.xhtml#a4b564b900d619390a32c15b030dd7e70) character(len=SyscStrLen) :: variablename

<a name="l00027"></a>[ 27](structfortran_1_1syscvariablef.xhtml#a75a35f6f8588983f49b7c297cf909f89) integer(kind=4) :: quantitytype

<a name="l00029"></a>[ 29](structfortran_1_1syscvariablef.xhtml#a273794a0cba93c1b658a44d52509602e) integer(kind=4) :: location

<a name="l00031"></a>[ 31](structfortran_1_1syscvariablef.xhtml#a9278aae61ed92d3128608932a9d9f464) character(len=SyscStrLen) :: displayname

<a name="l00033"></a>[ 33](structfortran_1_1syscvariablef.xhtml#a0002a1ee2cd59d127b4870b6a9ae3a6c) integer(kind=4) :: tensortype

<a name="l00035"></a>[ 35](structfortran_1_1syscvariablef.xhtml#ad3267dcbbecf72d992ab42706eabff7e) logical :: isextensive

<a name="l00037"></a>[ 37](structfortran_1_1syscvariablef.xhtml#a5630b71110de368c88758358db3b720d) integer(kind=4) :: datatype

<a name="l00038"></a> 38 end type [syscvariablef](structfortran_1_1syscvariablef.xhtml)

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

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

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

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

<a name="l00044"></a>[ 44](interfacefortran_1_1syscgetvariablef.xhtml) interface [syscgetvariablef](interfacefortran_1_1syscgetvariablef.xhtml)

<a name="l00045"></a> 45 !

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

<a name="l00063"></a> 63 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00064"></a>[ 64](interfacefortran_1_1syscgetvariablef.xhtml#a608cb70dd0a2392044f91c81fbfd3935) function [syscgetvariablef](interfacefortran_1_1syscgetvariablef.xhtml)(variableName) result(ret)

<a name="l00065"></a> 65 !

<a name="l00066"></a> 66 import :: [syscvariablef](structfortran_1_1syscvariablef.xhtml)

<a name="l00067"></a> 67 character(len=\*), intent(in) :: variablename

<a name="l00068"></a> 68 type([syscvariablef](structfortran_1_1syscvariablef.xhtml)) :: ret

<a name="l00069"></a> 69 !

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

<a name="l00071"></a> 71 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetVariableF

<a name="l00072"></a> 72 !DIR$ ENDIF

<a name="l00073"></a> 73 !

<a name="l00074"></a> 74 end function [syscgetvariablef](interfacefortran_1_1syscgetvariablef.xhtml)

<a name="l00075"></a> 75 !

<a name="l00076"></a> 76 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00094"></a> 94 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00095"></a>[ 95](interfacefortran_1_1syscgetvariablef.xhtml#a500912aab7a473fba9e3b2ef73d0cdc2) function syscgetvariablef_te(&amp;

<a name="l00096"></a> 96 variableName, tensorType, isExtensive,&amp;

<a name="l00097"></a> 97 location) result(ret)

<a name="l00098"></a> 98 !

<a name="l00099"></a> 99 import :: [syscvariablef](structfortran_1_1syscvariablef.xhtml)

<a name="l00100"></a> 100 character(len=\*), intent(in) :: variablename

<a name="l00101"></a> 101 integer(kind=4), intent(in) :: tensortype

<a name="l00102"></a> 102 logical, intent(in) :: isextensive

<a name="l00103"></a> 103 integer(kind=4), intent(in) :: location

<a name="l00104"></a> 104 type([syscvariablef](structfortran_1_1syscvariablef.xhtml)) :: ret

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

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

<a name="l00107"></a> 107 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetVariableF\_TE

<a name="l00108"></a> 108 !DIR$ ENDIF

<a name="l00109"></a> 109 !

<a name="l00110"></a> 110 end function syscgetvariablef_te

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

<a name="l00112"></a> 112 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00143"></a> 143 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00144"></a>[ 144](interfacefortran_1_1syscgetvariablef.xhtml#aa98302cabc43b69aba1ba8e4c4b25b25) function syscgetvariablef_q(&amp;

<a name="l00145"></a> 145 variableName, displayName, location, quantityType) result(ret)

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

<a name="l00147"></a> 147 import :: [syscvariablef](structfortran_1_1syscvariablef.xhtml)

<a name="l00148"></a> 148 character(len=\*), intent(in) :: variablename

<a name="l00149"></a> 149 character(len=\*), intent(in) :: displayname

<a name="l00150"></a> 150 integer(kind=4), intent(in) :: location

<a name="l00151"></a> 151 integer(kind=4), intent(in) :: quantitytype 

<a name="l00152"></a> 152 type([syscvariablef](structfortran_1_1syscvariablef.xhtml)) :: ret

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

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

<a name="l00155"></a> 155 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetVariableF\_Q

<a name="l00156"></a> 156 !DIR$ ENDIF

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

<a name="l00158"></a> 158 end function syscgetvariablef_q

<a name="l00159"></a> 159 !

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

<a name="l00179"></a> 179 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00180"></a>[ 180](interfacefortran_1_1syscgetvariablef.xhtml#a28db29bc33d8fa7aec1ee121dd156485) function syscgetvariablef_teq(&amp;

<a name="l00181"></a> 181 variableName, displayName, tensorType, isExtensive,&amp;

<a name="l00182"></a> 182 location, quantityType) result(ret)

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

<a name="l00184"></a> 184 import :: [syscvariablef](structfortran_1_1syscvariablef.xhtml)

<a name="l00185"></a> 185 character(len=\*), intent(in) :: variablename

<a name="l00186"></a> 186 character(len=\*), intent(in) :: displayname

<a name="l00187"></a> 187 integer(kind=4), intent(in) :: tensortype

<a name="l00188"></a> 188 logical, intent(in) :: isextensive

<a name="l00189"></a> 189 integer(kind=4), intent(in) :: location

<a name="l00190"></a> 190 integer(kind=4), intent(in) :: quantitytype 

<a name="l00191"></a> 191 type([syscvariablef](structfortran_1_1syscvariablef.xhtml)) :: ret

<a name="l00192"></a> 192 !

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

<a name="l00194"></a> 194 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetVariableF\_TEQ

<a name="l00195"></a> 195 !DIR$ ENDIF

<a name="l00196"></a> 196 !

<a name="l00197"></a> 197 end function syscgetvariablef_teq

<a name="l00198"></a> 198 !

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

<a name="l00221"></a>[ 221](interfacefortran_1_1syscgetvariablef.xhtml#a7ccf1db6c97ad5fbc08fc1a850a48343) function syscgetvariablef_dtelqd(&amp;

<a name="l00222"></a> 222 variableName, displayName, tensorType, isExtensive,&amp;

<a name="l00223"></a> 223 location, quantityType, dataType) result(ret)

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

<a name="l00225"></a> 225 import :: [syscvariablef](structfortran_1_1syscvariablef.xhtml)

<a name="l00226"></a> 226 character(len=\*), intent(in) :: variablename

<a name="l00227"></a> 227 character(len=\*), intent(in) :: displayname

<a name="l00228"></a> 228 integer(kind=4), intent(in) :: tensortype

<a name="l00229"></a> 229 logical, intent(in) :: isextensive

<a name="l00230"></a> 230 integer(kind=4), intent(in) :: location

<a name="l00231"></a> 231 integer(kind=4), intent(in) :: quantitytype

<a name="l00232"></a> 232 integer(kind=4), intent(in) :: datatype

<a name="l00233"></a> 233 type([syscvariablef](structfortran_1_1syscvariablef.xhtml)) :: ret

<a name="l00234"></a> 234 !

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

<a name="l00236"></a> 236 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetVariableF\_DTELQD

<a name="l00237"></a> 237 !DIR$ ENDIF

<a name="l00238"></a> 238 !

<a name="l00239"></a> 239 end function syscgetvariablef_dtelqd

<a name="l00240"></a> 240 !

<a name="l00241"></a> 241 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00242"></a> 242 !

<a name="l00243"></a> 243 end interface [syscgetvariablef](interfacefortran_1_1syscgetvariablef.xhtml)

<a name="l00244"></a> 244 !

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

<a name="l00247"></a>[ 247](interfacefortran_1_1syscvariableaddrealattributef.xhtml) interface [syscvariableaddrealattributef](interfacefortran_1_1syscvariableaddrealattributef.xhtml)

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

<a name="l00249"></a> 249 function [syscvariableaddrealattributef](interfacefortran_1_1syscvariableaddrealattributef.xhtml)(variable, attribute) result(ret)

<a name="l00250"></a> 250 !

<a name="l00251"></a> 251 import :: [syscvariablef](structfortran_1_1syscvariablef.xhtml), [syscrealattributef](structfortran_1_1syscrealattributef.xhtml), [syscerrorf](structfortran_1_1syscerrorf.xhtml)

<a name="l00252"></a> 252 type(SyscVariableF) :: variable

<a name="l00253"></a> 253 type(SyscRealAttributeF) :: attribute

<a name="l00254"></a> 254 type(SyscErrorF) :: ret

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

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

<a name="l00257"></a> 257 !DIR$ ATTRIBUTES DLLIMPORT :: syscVariableAddRealAttributeF

<a name="l00258"></a> 258 !DIR$ ENDIF

<a name="l00259"></a> 259 !

<a name="l00260"></a> 260 end function [syscvariableaddrealattributef](interfacefortran_1_1syscvariableaddrealattributef.xhtml)

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

<a name="l00262"></a> 262 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00263"></a> 263 !

<a name="l00264"></a> 264 end interface [syscvariableaddrealattributef](interfacefortran_1_1syscvariableaddrealattributef.xhtml)

<a name="l00265"></a> 265 !

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

<a name="l00268"></a>[ 268](interfacefortran_1_1syscvariableaddintegerattributef.xhtml) interface [syscvariableaddintegerattributef](interfacefortran_1_1syscvariableaddintegerattributef.xhtml)

<a name="l00269"></a> 269 !

<a name="l00270"></a> 270 function [syscvariableaddintegerattributef](interfacefortran_1_1syscvariableaddintegerattributef.xhtml)(variable, attribute) &amp;

<a name="l00271"></a> 271 result(ret)

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

<a name="l00273"></a> 273 import :: [syscvariablef](structfortran_1_1syscvariablef.xhtml), [syscintegerattributef](structfortran_1_1syscintegerattributef.xhtml), [syscerrorf](structfortran_1_1syscerrorf.xhtml)

<a name="l00274"></a> 274 type(SyscVariableF) :: variable

<a name="l00275"></a> 275 type(SyscIntegerAttributeF) :: attribute

<a name="l00276"></a> 276 type(SyscErrorF) :: ret

<a name="l00277"></a> 277 !

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

<a name="l00279"></a> 279 !DIR$ ATTRIBUTES DLLIMPORT :: syscVariableAddIntegerAttributeF

<a name="l00280"></a> 280 !DIR$ ENDIF

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

<a name="l00282"></a> 282 end function [syscvariableaddintegerattributef](interfacefortran_1_1syscvariableaddintegerattributef.xhtml)

<a name="l00283"></a> 283 !

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

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

<a name="l00286"></a> 286 end interface [syscvariableaddintegerattributef](interfacefortran_1_1syscvariableaddintegerattributef.xhtml)

<a name="l00287"></a> 287 !

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

<a name="l00290"></a>[ 290](interfacefortran_1_1syscvariablegetnumrealattributesf.xhtml) interface [syscvariablegetnumrealattributesf](interfacefortran_1_1syscvariablegetnumrealattributesf.xhtml)

<a name="l00291"></a> 291 !

<a name="l00292"></a> 292 function [syscvariablegetnumrealattributesf](interfacefortran_1_1syscvariablegetnumrealattributesf.xhtml)(variable) result(ret)

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

<a name="l00294"></a> 294 import :: [syscvariablef](structfortran_1_1syscvariablef.xhtml)

<a name="l00295"></a> 295 type(SyscVariableF) :: variable

<a name="l00296"></a> 296 integer(kind=8) :: ret

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

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

<a name="l00299"></a> 299 !DIR$ ATTRIBUTES DLLIMPORT :: syscVariableGetNumRealAttributesF

<a name="l00300"></a> 300 !DIR$ ENDIF

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

<a name="l00302"></a> 302 end function [syscvariablegetnumrealattributesf](interfacefortran_1_1syscvariablegetnumrealattributesf.xhtml)

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

<a name="l00304"></a> 304 end interface [syscvariablegetnumrealattributesf](interfacefortran_1_1syscvariablegetnumrealattributesf.xhtml)

<a name="l00305"></a> 305 !

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

<a name="l00308"></a>[ 308](interfacefortran_1_1syscvariablegetnumintegerattributesf.xhtml) interface [syscvariablegetnumintegerattributesf](interfacefortran_1_1syscvariablegetnumintegerattributesf.xhtml)

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

<a name="l00310"></a> 310 function [syscvariablegetnumintegerattributesf](interfacefortran_1_1syscvariablegetnumintegerattributesf.xhtml)(variable) result(ret)

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

<a name="l00312"></a> 312 import :: [syscvariablef](structfortran_1_1syscvariablef.xhtml)

<a name="l00313"></a> 313 type(SyscVariableF) :: variable

<a name="l00314"></a> 314 integer(kind=8) :: ret

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

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

<a name="l00317"></a> 317 !DIR$ ATTRIBUTES DLLIMPORT :: syscVariableGetNumIntegerAttributesF

<a name="l00318"></a> 318 !DIR$ ENDIF

<a name="l00319"></a> 319 !

<a name="l00320"></a> 320 end function [syscvariablegetnumintegerattributesf](interfacefortran_1_1syscvariablegetnumintegerattributesf.xhtml)

<a name="l00321"></a> 321 !

<a name="l00322"></a> 322 end interface [syscvariablegetnumintegerattributesf](interfacefortran_1_1syscvariablegetnumintegerattributesf.xhtml)

<a name="l00323"></a> 323 !

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

<a name="l00326"></a>[ 326](interfacefortran_1_1syscvariablegetrealattributef.xhtml) interface [syscvariablegetrealattributef](interfacefortran_1_1syscvariablegetrealattributef.xhtml)

<a name="l00327"></a> 327 !

<a name="l00328"></a> 328 function [syscvariablegetrealattributef](interfacefortran_1_1syscvariablegetrealattributef.xhtml)(variable, index) result(ret)

<a name="l00329"></a> 329 !

<a name="l00330"></a> 330 import :: [syscvariablef](structfortran_1_1syscvariablef.xhtml), [syscrealattributef](structfortran_1_1syscrealattributef.xhtml)

<a name="l00331"></a> 331 type(SyscVariableF) :: variable

<a name="l00332"></a> 332 integer(kind=8) :: index

<a name="l00333"></a> 333 type(SyscRealAttributeF) :: ret

<a name="l00334"></a> 334 !

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

<a name="l00336"></a> 336 !DIR$ ATTRIBUTES DLLIMPORT :: syscVariableGetRealAttributeF

<a name="l00337"></a> 337 !DIR$ ENDIF

<a name="l00338"></a> 338 !

<a name="l00339"></a> 339 end function [syscvariablegetrealattributef](interfacefortran_1_1syscvariablegetrealattributef.xhtml)

<a name="l00340"></a> 340 !

<a name="l00341"></a> 341 end interface [syscvariablegetrealattributef](interfacefortran_1_1syscvariablegetrealattributef.xhtml)

<a name="l00342"></a> 342 !

<a name="l00343"></a> 343 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00345"></a>[ 345](interfacefortran_1_1syscvariablegetintegerattributef.xhtml) interface [syscvariablegetintegerattributef](interfacefortran_1_1syscvariablegetintegerattributef.xhtml)

<a name="l00346"></a> 346 !

<a name="l00347"></a> 347 function [syscvariablegetintegerattributef](interfacefortran_1_1syscvariablegetintegerattributef.xhtml)(variable, index) result(ret)

<a name="l00348"></a> 348 !

<a name="l00349"></a> 349 import :: [syscvariablef](structfortran_1_1syscvariablef.xhtml), [syscintegerattributef](structfortran_1_1syscintegerattributef.xhtml)

<a name="l00350"></a> 350 type(SyscVariableF) :: variable

<a name="l00351"></a> 351 integer(kind=8) :: index

<a name="l00352"></a> 352 type(SyscIntegerAttributeF) :: ret

<a name="l00353"></a> 353 !

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

<a name="l00355"></a> 355 !DIR$ ATTRIBUTES DLLIMPORT :: syscVariableGetIntegerAttributeF

<a name="l00356"></a> 356 !DIR$ ENDIF

<a name="l00357"></a> 357 !

<a name="l00358"></a> 358 end function [syscvariablegetintegerattributef](interfacefortran_1_1syscvariablegetintegerattributef.xhtml)

<a name="l00359"></a> 359 !

<a name="l00360"></a> 360 end interface [syscvariablegetintegerattributef](interfacefortran_1_1syscvariablegetintegerattributef.xhtml)

<a name="l00361"></a> 361 !

<a name="l00362"></a> 362 end module fortran

[fortran::syscgetvariablef](interfacefortran_1_1syscgetvariablef.xhtml)

Provide an interface to get a System Coupling variable.

**Definition:** [syscVariableF.fi:44](syscVariableF_8fi_source.xhtml#l00044)



[fortran::syscvariableaddintegerattributef](interfacefortran_1_1syscvariableaddintegerattributef.xhtml)

Provide an interface to add integer attribute to a variable.

**Definition:** [syscVariableF.fi:268](syscVariableF_8fi_source.xhtml#l00268)



[fortran::syscvariableaddrealattributef](interfacefortran_1_1syscvariableaddrealattributef.xhtml)

Provide an interface to add real attribute to a variable.

**Definition:** [syscVariableF.fi:247](syscVariableF_8fi_source.xhtml#l00247)



[fortran::syscvariablegetintegerattributef](interfacefortran_1_1syscvariablegetintegerattributef.xhtml)

Provide an interface to get integer attribute from variable.

**Definition:** [syscVariableF.fi:345](syscVariableF_8fi_source.xhtml#l00345)



[fortran::syscvariablegetnumintegerattributesf](interfacefortran_1_1syscvariablegetnumintegerattributesf.xhtml)

Provide an interface to get number of real attributes.

**Definition:** [syscVariableF.fi:308](syscVariableF_8fi_source.xhtml#l00308)



[fortran::syscvariablegetnumrealattributesf](interfacefortran_1_1syscvariablegetnumrealattributesf.xhtml)

Provide an interface to get number of real attributes.

**Definition:** [syscVariableF.fi:290](syscVariableF_8fi_source.xhtml#l00290)



[fortran::syscvariablegetrealattributef](interfacefortran_1_1syscvariablegetrealattributef.xhtml)

Provide an interface to get real attribute from variable.

**Definition:** [syscVariableF.fi:326](syscVariableF_8fi_source.xhtml#l00326)



[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::syscintegerattributef](structfortran_1_1syscintegerattributef.xhtml)

Provide a struct for an integer-valued attribute.

**Definition:** [syscAttributeF.fi:12](syscAttributeF_8fi_source.xhtml#l00012)



[fortran::syscrealattributef](structfortran_1_1syscrealattributef.xhtml)

Provide a struct for a real-valued attribute.

**Definition:** [syscAttributeF.fi:48](syscAttributeF_8fi_source.xhtml#l00048)



[fortran::syscvariablef](structfortran_1_1syscvariablef.xhtml)

Provide a struct for a System Coupling variable.

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