## On this page

  

 

 # syscAttributeF

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

<a id="l00013" name="l00013"></a> 13 character(len=SyscStrLen) :: name

<a id="l00014" name="l00014"></a> 14 integer(kind=8) :: value

<a id="l00015" name="l00015"></a> 15end type [syscintegerattributef](structfortran_1_1syscintegerattributef.xhtml)



<a id="l00016" name="l00016"></a> 16!

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

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

<a id="l00020" name="l00020"></a>[ 20](interfacefortran_1_1syscgetintegerattributef.xhtml)interface [syscgetintegerattributef](interfacefortran_1_1syscgetintegerattributef.xhtml)

<a id="l00021" name="l00021"></a> 21!

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

<a id="l00030" name="l00030"></a> 30!\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a id="l00031" name="l00031"></a>[ 31](interfacefortran_1_1syscgetintegerattributef.xhtml#aac82f8c5c777506867e2d6cf3b3d7359)function [syscgetintegerattributef](interfacefortran_1_1syscgetintegerattributef.xhtml)(name, value) result(ret)

<a id="l00032" name="l00032"></a> 32 import :: [syscintegerattributef](structfortran_1_1syscintegerattributef.xhtml)

<a id="l00033" name="l00033"></a> 33 character(len=\*), intent(in) :: name

<a id="l00034" name="l00034"></a> 34 integer(kind=8), intent(in) :: value

<a id="l00035" name="l00035"></a> 35 type([syscintegerattributef](structfortran_1_1syscintegerattributef.xhtml)) :: ret

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

<a id="l00037" name="l00037"></a> 37!DIR$ ATTRIBUTES DLLIMPORT :: syscGetIntegerAttributeF

<a id="l00038" name="l00038"></a> 38!DIR$ ENDIF



<a id="l00039" name="l00039"></a> 39end function [syscgetintegerattributef](interfacefortran_1_1syscgetintegerattributef.xhtml)

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

<a id="l00041" name="l00041"></a> 41!\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

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



<a id="l00043" name="l00043"></a> 43end interface [syscgetintegerattributef](interfacefortran_1_1syscgetintegerattributef.xhtml)

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

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

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

<a id="l00048" name="l00048"></a>[ 48](structfortran_1_1syscrealattributef.xhtml)type :: [syscrealattributef](structfortran_1_1syscrealattributef.xhtml)

<a id="l00049" name="l00049"></a> 49 character(len=SyscStrLen) :: name

<a id="l00050" name="l00050"></a> 50 real(kind=8) :: value

<a id="l00051" name="l00051"></a> 51 type(SyscDimensionalityF) :: dimensionality

<a id="l00052" name="l00052"></a> 52end type [syscrealattributef](structfortran_1_1syscrealattributef.xhtml)



<a id="l00053" name="l00053"></a> 53!

<a id="l00054" name="l00054"></a> 54!\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a id="l00055" name="l00055"></a> 55!

<a id="l00057" name="l00057"></a>[ 57](interfacefortran_1_1syscgetrealattributef.xhtml)interface [syscgetrealattributef](interfacefortran_1_1syscgetrealattributef.xhtml)

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

<a id="l00059" name="l00059"></a> 59!\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

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

<a id="l00070" name="l00070"></a>[ 70](interfacefortran_1_1syscgetrealattributef.xhtml#ac10d16b1d2a228128ce0b9a96100cb52)function [syscgetrealattributef](interfacefortran_1_1syscgetrealattributef.xhtml)(name, value, dimensionality) result(ret)

<a id="l00071" name="l00071"></a> 71 import :: [syscrealattributef](structfortran_1_1syscrealattributef.xhtml), [syscdimensionalityf](structfortran_1_1syscdimensionalityf.xhtml)

<a id="l00072" name="l00072"></a> 72 character(len=\*), intent(in) :: name

<a id="l00073" name="l00073"></a> 73 real(kind=8), intent(in) :: value

<a id="l00074" name="l00074"></a> 74 type([syscdimensionalityf](structfortran_1_1syscdimensionalityf.xhtml)), intent(in) :: dimensionality

<a id="l00075" name="l00075"></a> 75 type([syscrealattributef](structfortran_1_1syscrealattributef.xhtml)) :: ret

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

<a id="l00077" name="l00077"></a> 77!DIR$ ATTRIBUTES DLLIMPORT :: syscGetRealAttributeF

<a id="l00078" name="l00078"></a> 78!DIR$ ENDIF



<a id="l00079" name="l00079"></a> 79end function [syscgetrealattributef](interfacefortran_1_1syscgetrealattributef.xhtml)

<a id="l00080" name="l00080"></a> 80!

<a id="l00081" name="l00081"></a> 81!\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a id="l00082" name="l00082"></a> 82!



<a id="l00083" name="l00083"></a> 83end interface [syscgetrealattributef](interfacefortran_1_1syscgetrealattributef.xhtml)

<a id="l00084" name="l00084"></a> 84!

<a id="l00085" name="l00085"></a> 85end module fortran

[fortran::syscgetintegerattributef](interfacefortran_1_1syscgetintegerattributef.xhtml)

Provide an interface to get an integer-valued attribute.

**Definition** [syscAttributeF.fi:20](syscAttributeF_8fi_source.xhtml#l00020)



[fortran::syscgetrealattributef](interfacefortran_1_1syscgetrealattributef.xhtml)

Provide an interface to get a real-valued attribute.

**Definition** [syscAttributeF.fi:57](syscAttributeF_8fi_source.xhtml#l00057)



[fortran::syscdimensionalityf](structfortran_1_1syscdimensionalityf.xhtml)

**Definition** [syscCommonTypesF.fi:43](syscCommonTypesF_8fi_source.xhtml#l00043)



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