System Coupling Fortran library 2025 R1

syscAttributeF

Last update: 17.07.2025
1 module fortran
2 !
3 ! Copyright ANSYS, Inc.
4 ! Unauthorized use, distribution, or duplication is prohibited.
5 !
6 ! Provide free-form Fortran interface for
7 ! System Coupling Participant Library.
8 !
9 ! *********************************************************************
11 ! *********************************************************************
12 type :: syscintegerattributef
13  character(len=SyscStrLen) :: name
14  integer(kind=8) :: value
15 end type syscintegerattributef
16 !
17 !**********************************************************************
18 !
20 interface syscgetintegerattributef
21 !
22 !**********************************************************************
30 !**********************************************************************
31 function syscgetintegerattributef(name, value) result(ret)
32  import :: syscintegerattributef
33  character(len=*), intent(in) :: name
34  integer(kind=8), intent(in) :: value
35  type(syscintegerattributef) :: ret
36 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
37 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetIntegerAttributeF
38 !DIR$ ENDIF
39 end function syscgetintegerattributef
40 !
41 !**********************************************************************
42 !
43 end interface syscgetintegerattributef
44 !
45 ! *********************************************************************
47 ! *********************************************************************
48 type :: syscrealattributef
49  character(len=SyscStrLen) :: name
50  real(kind=8) :: value
51  type(SyscDimensionalityF) :: dimensionality
52 end type syscrealattributef
53 !
54 !**********************************************************************
55 !
57 interface syscgetrealattributef
58 !
59 !**********************************************************************
69 !**********************************************************************
70 function syscgetrealattributef(name, value, dimensionality) result(ret)
71  import :: syscrealattributef, syscdimensionalityf
72  character(len=*), intent(in) :: name
73  real(kind=8), intent(in) :: value
74  type(syscdimensionalityf), intent(in) :: dimensionality
75  type(syscrealattributef) :: ret
76 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
77 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetRealAttributeF
78 !DIR$ ENDIF
79 end function syscgetrealattributef
80 !
81 !**********************************************************************
82 !
83 end interface syscgetrealattributef
84 !
85 end module fortran
fortran::syscgetintegerattributef
Provide an interface to get an integer-valued attribute.
Definition: syscAttributeF.fi:20
fortran::syscgetrealattributef
Provide an interface to get a real-valued attribute.
Definition: syscAttributeF.fi:57
fortran::syscintegerattributef
Provide a struct for an integer-valued attribute.
Definition: syscAttributeF.fi:12
fortran::syscrealattributef
Provide a struct for a real-valued attribute.
Definition: syscAttributeF.fi:48

Connect with Ansys