System Coupling Fortran library 2025 R1

syscLegacyInterfacesF

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 ! This interface file contains legacy/deprecated APIs.
10 ! Do not use these interfaces.
11 !
12 !**********************************************************************
13 ! Deprecated - do not use.
14 !**********************************************************************
15 !
16 interface sysccompletecouplingsetupf
17 !
18 function sysccompletecouplingsetupf() result (ret)
19  import :: syscerrorf
20  type(SyscErrorF) :: ret
21 !
22 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
23 !DIR$ ATTRIBUTES DLLIMPORT :: syscCompleteCouplingSetupF
24 !DIR$ ENDIF
25 !
26 end function sysccompletecouplingsetupf
27 !
28 function sysccompletecouplingsetupf_v2(analysisType) result (ret)
29  import :: syscerrorf
30  integer(kind=4), intent(in) :: analysisType
31  type(SyscErrorF) :: ret
32 !
33 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
34 !DIR$ ATTRIBUTES DLLIMPORT :: syscCompleteCouplingSetupF_v2
35 !DIR$ ENDIF
36 !
37 end function sysccompletecouplingsetupf_v2
38 !
39 end interface sysccompletecouplingsetupf
40 !
41 !**********************************************************************
42 ! Deprecated - do not use.
43 !**********************************************************************
44 !
45 interface inputscalardataaccessintf
46 !
47 function inputscalardataaccessintf(regionName, &
48  variableName, &
49  inputScalarData) result (ret)
50  import :: syscinputscalardataf
51  import :: syscerrorf
52  import :: syscstrlen
53  character(len=SyscStrLen), intent(in) :: regionName
54  character(len=SyscStrLen), intent(in) :: variableName
55  type(SyscInputScalarDataF), intent(out) :: inputScalarData
56  type(SyscErrorF) :: ret
57 end function inputscalardataaccessintf
58 !
59 end interface inputscalardataaccessintf
60 !
61 !**********************************************************************
62 ! Deprecated - do not use.
63 !**********************************************************************
64 !
65 interface inputvectordataaccessintf
66 !
67 function inputvectordataaccessintf(regionName, &
68  variableName, &
69  inputVectorData) result (ret)
70  import :: syscinputvectordataf
71  import :: syscerrorf
72  import :: syscstrlen
73  character(len=SyscStrLen), intent(in) :: regionName
74  character(len=SyscStrLen), intent(in) :: variableName
75  type(SyscInputVectorDataF), intent(out) :: inputVectorData
76  type(SyscErrorF) :: ret
77 end function inputvectordataaccessintf
78 !
79 end interface inputvectordataaccessintf
80 !
81 !**********************************************************************
82 ! Deprecated - do not use.
83 !**********************************************************************
84 !
85 interface outputscalardataaccessintf
86 !
87  function outputscalardataaccessintf(regionName, &
88  variableName, &
89  outputScalarData) result (ret)
90  import :: syscoutputscalardataf
91  import :: syscerrorf
92  import :: syscstrlen
93  character(len=SyscStrLen), intent(in) :: regionName
94  character(len=SyscStrLen), intent(in) :: variableName
95  type(SyscOutputScalarDataF), intent(out) :: outputScalarData
96  type(SyscErrorF) :: ret
97  end function outputscalardataaccessintf
98 !
99 end interface outputscalardataaccessintf
100 !
101 !**********************************************************************
102 ! Deprecated - do not use.
103 !**********************************************************************
104 interface outputvectordataaccessintf
105 !
106 function outputvectordataaccessintf(regionName, &
107  variableName, &
108  outputVectorData) result (ret)
109  import :: syscoutputvectordataf
110  import :: syscerrorf
111  import :: syscstrlen
112  character(len=SyscStrLen), intent(in) :: regionName
113  character(len=SyscStrLen), intent(in) :: variableName
114  type(SyscOutputVectorDataF), intent(out) :: outputVectorData
115  type(SyscErrorF) :: ret
116 end function outputvectordataaccessintf
117 !
118 end interface outputvectordataaccessintf
119 !
120 !**********************************************************************
121 ! Deprecated - do not use.
122 !**********************************************************************
123 interface syscregisterinputscalarvariableaccessf
124 !
125 function syscregisterinputscalarvariableaccessf(isvAccess) result (ret)
126 !
127  import :: syscerrorf
128  import :: inputscalardataaccessintf
129  procedure(inputScalarDataAccessIntf) :: isvAccess
130  type(SyscErrorF) :: ret
131 !
132 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
133 !DIR$ ATTRIBUTES DLLIMPORT :: syscRegisterInputScalarVariableAccessF
134 !DIR$ ENDIF
135 !
136 end function syscregisterinputscalarvariableaccessf
137 !
138 end interface syscregisterinputscalarvariableaccessf
139 !
140 !**********************************************************************
141 ! Deprecated - do not use.
142 !**********************************************************************
143 interface syscregisterinputvectorvariableaccessf
144 !
145 function syscregisterinputvectorvariableaccessf(ivvAccess) result (ret)
146 !
147  import :: syscerrorf
148  import :: inputvectordataaccessintf
149  procedure(inputVectorDataAccessIntf) :: ivvAccess
150  type(SyscErrorF) :: ret
151 !
152 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
153 !DIR$ ATTRIBUTES DLLIMPORT :: syscRegisterInputVectorVariableAccessF
154 !DIR$ ENDIF
155 !
156 end function syscregisterinputvectorvariableaccessf
157 !
158 end interface syscregisterinputvectorvariableaccessf
159 !
160 !**********************************************************************
161 ! Deprecated - do not use.
162 !**********************************************************************
163 interface syscregisteroutputscalarvariableaccessf
164 !
165 function syscregisteroutputscalarvariableaccessf(osAccess) result (ret)
166 !
167  import :: outputscalardataaccessintf
168  import :: syscerrorf
169  procedure(outputScalarDataAccessIntf) :: osAccess
170  type(SyscErrorF) :: ret
171 !
172 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
173 !DIR$ ATTRIBUTES DLLIMPORT :: syscRegisterOutputScalarVariableAccessF
174 !DIR$ ENDIF
175 !
176 end function syscregisteroutputscalarvariableaccessf
177 !
178 end interface syscregisteroutputscalarvariableaccessf
179 !
180 !**********************************************************************
181 ! Deprecated - do not use.
182 !**********************************************************************
183 interface syscregisteroutputvectorvariableaccessf
184 !
185 function syscregisteroutputvectorvariableaccessf(ovvAccess)&
186  result(ret)
187 !
188  import :: syscerrorf
189  import :: outputvectordataaccessintf
190  procedure(outputVectorDataAccessIntf) :: ovvAccess
191  type(SyscErrorF) :: ret
192 !
193 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
194 !DIR$ ATTRIBUTES DLLIMPORT :: syscRegisterOutputVectorVariableAccessF
195 !DIR$ ENDIF
196 !
197 end function syscregisteroutputvectorvariableaccessf
198 !
199 end interface syscregisteroutputvectorvariableaccessf
200 !
201 integer(kind=4), parameter :: SyscFloat = 0
202 integer(kind=4), parameter :: SyscDouble = 1
203 integer(kind=4), parameter :: SyscInt32 = 2
204 integer(kind=4), parameter :: SyscInt64 = 3
205 !
206 end module fortran
fortran::syscerrorf
Provide an error type returned by the Fortran interface calls.
Definition: syscCommonTypesF.fi:138
fortran::syscinputscalardataf
Provide an input scalar data access type.
Definition: syscInputScalarDataF.fi:25
fortran::syscinputvectordataf
Create an input vector data access type.
Definition: syscInputVectorDataF.fi:31
fortran::syscoutputscalardataf
Provide an output scalar data access type.
Definition: syscOutputScalarDataF.fi:25
fortran::syscoutputvectordataf
Create an output vector data access type.
Definition: syscOutputVectorDataF.fi:31

Connect with Ansys