## On this page

  

 

 # syscAttributeF

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

<a name="l00085"></a> 85 end 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)