## On this page

  

 

 # syscVariableF

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

<a id="l00362" name="l00362"></a> 362end 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:133](syscCommonTypesF_8fi_source.xhtml#l00133)



[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)