System Coupling Fortran library 2025 R1

syscInputVectorDataF

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 ! *********************************************************************
10 !
31 type :: syscinputvectordataf
32  integer(kind=8) :: primitivetype
33  integer(kind=8) :: dataptr1
34  integer(kind=8) :: dataptr2
35  integer(kind=8) :: dataptr3
36  integer(kind=8) :: datasize
37  integer(kind=8) :: dimension
38 end type syscinputvectordataf
39 !
40 !**********************************************************************
42 !**********************************************************************
43 interface syscgetinputvectordataf
44 !
45 !**********************************************************************
51 !**********************************************************************
52 function syscgetinputvectordataf() result (ret)
53  import :: syscinputvectordataf
54  type(syscinputvectordataf) :: ret
55 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
56 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataF
57 !DIR$ ENDIF
58 end function syscgetinputvectordataf
59 !
60 end interface syscgetinputvectordataf
61 !
62 !**********************************************************************
65 !**********************************************************************
66 interface syscgetinputvectordatasplitf
67 !
68 !**********************************************************************
75 !**********************************************************************
76 function syscgetinputvectordatasplitf_r43a(&
77  data0, data1, data2, dataSize) result (ret)
78  import :: syscinputvectordataf
79  integer(kind=8), intent(in) :: datasize
80  real(kind=4), intent(in), target :: data0(datasize)
81  real(kind=4), intent(in), target :: data1(datasize)
82  real(kind=4), intent(in), target :: data2(datasize)
83  type(syscinputvectordataf) :: ret
84 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
85 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataSplitF_R43A
86 !DIR$ ENDIF
87 end function syscgetinputvectordatasplitf_r43a
88 !
89 !**********************************************************************
96 !**********************************************************************
97 function syscgetinputvectordatasplitf_r83a(&
98  data0, data1, data2, dataSize) result (ret)
99  import :: syscinputvectordataf
100  integer(kind=8), intent(in) :: datasize
101  real(kind=8), intent(in), target :: data0(datasize)
102  real(kind=8), intent(in), target :: data1(datasize)
103  real(kind=8), intent(in), target :: data2(datasize)
104  type(syscinputvectordataf) :: ret
105 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
106 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataSplitF_R83A
107 !DIR$ ENDIF
108 end function syscgetinputvectordatasplitf_r83a
109 !
110 !**********************************************************************
115 !**********************************************************************
116 function syscgetinputvectordatasplitf_r42d(data, dataSize) result(ret)
117  import :: syscinputvectordataf
118  integer(kind=8), intent(in) :: datasize
119  real(kind=4), intent(in), target :: data(datasize, 3)
120  type(syscinputvectordataf) :: ret
121 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
122 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataSplitF_R42D
123 !DIR$ ENDIF
124 end function syscgetinputvectordatasplitf_r42d
125 !
126 !**********************************************************************
131 !**********************************************************************
132 function syscgetinputvectordatasplitf_r82d(data, dataSize) result(ret)
133  import :: syscinputvectordataf
134  integer(kind=8), intent(in) :: datasize
135  real(kind=8), intent(in), target :: data(datasize, 3)
136  type(syscinputvectordataf) :: ret
137 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
138 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataSplitF_R82D
139 !DIR$ ENDIF
140 end function syscgetinputvectordatasplitf_r82d
141 !
142 end interface syscgetinputvectordatasplitf
143 !
144 !**********************************************************************
146 !**********************************************************************
147 interface syscgetinput2dvectordatasplitf
148 !
149 !**********************************************************************
155 !**********************************************************************
156 function syscgetinput2dvectordatasplitf_r43a(&
157  data0, data1, dataSize) result (ret)
158  import :: syscinputvectordataf
159  integer(kind=8), intent(in) :: datasize
160  real(kind=4), intent(in), target :: data0(datasize)
161  real(kind=4), intent(in), target :: data1(datasize)
162  type(syscinputvectordataf) :: ret
163 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
164 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInput2DVectorDataSplitF_R43A
165 !DIR$ ENDIF
166 end function syscgetinput2dvectordatasplitf_r43a
167 !
168 !**********************************************************************
174 !**********************************************************************
175 function syscgetinput2dvectordatasplitf_r83a(&
176  data0, data1, dataSize) result (ret)
177  import :: syscinputvectordataf
178  integer(kind=8), intent(in) :: datasize
179  real(kind=8), intent(in), target :: data0(datasize)
180  real(kind=8), intent(in), target :: data1(datasize)
181  type(syscinputvectordataf) :: ret
182 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
183 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInput2DVectorDataSplitF_R83A
184 !DIR$ ENDIF
185 end function syscgetinput2dvectordatasplitf_r83a
186 !
187 !**********************************************************************
192 !**********************************************************************
193 function syscgetinput2dvectordatasplitf_r42d(data, dataSize) result(ret)
194  import :: syscinputvectordataf
195  integer(kind=8), intent(in) :: datasize
196  real(kind=4), intent(in), target :: data(datasize, 2)
197  type(syscinputvectordataf) :: ret
198 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
199 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInput2DVectorDataSplitF_R42D
200 !DIR$ ENDIF
201 end function syscgetinput2dvectordatasplitf_r42d
202 !
203 !**********************************************************************
208 !**********************************************************************
209 function syscgetinput2dvectordatasplitf_r82d(data, dataSize) result(ret)
210  import :: syscinputvectordataf
211  integer(kind=8), intent(in) :: datasize
212  real(kind=8), intent(in), target :: data(datasize, 2)
213  type(syscinputvectordataf) :: ret
214 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
215 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInput2DVectorDataSplitF_R82D
216 !DIR$ ENDIF
217 end function syscgetinput2dvectordatasplitf_r82d
218 !
219 end interface syscgetinput2dvectordatasplitf
220 !
221 !**********************************************************************
224 !**********************************************************************
225 interface syscgetinputvectordatacompactf
226 !
227 !**********************************************************************
232 !**********************************************************************
233 function syscgetinputvectordatacompactf_r41d(data, dataSize)&
234  result(ret)
235  import :: syscinputvectordataf
236  integer(kind=8), intent(in) :: datasize
237  real(kind=4), intent(in), target :: data(datasize * 3)
238  type(syscinputvectordataf) :: ret
239 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
240 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataCompactF_R41D
241 !DIR$ ENDIF
242 end function syscgetinputvectordatacompactf_r41d
243 !
244 !**********************************************************************
249 !**********************************************************************
250 function syscgetinputvectordatacompactf_r81d(data, dataSize)&
251  result(ret)
252  import :: syscinputvectordataf
253  integer(kind=8), intent(in) :: datasize
254  real(kind=8), intent(in), target :: data(datasize * 3)
255  type(syscinputvectordataf) :: ret
256 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
257 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataCompactF_R81D
258 !DIR$ ENDIF
259 end function syscgetinputvectordatacompactf_r81d
260 !
261 !**********************************************************************
266 !**********************************************************************
267 function syscgetinputvectordatacompactf_r42d(data, dataSize)&
268  result(ret)
269  import :: syscinputvectordataf
270  integer(kind=8), intent(in) :: datasize
271  real(kind=4), intent(in), target :: data(3, datasize)
272  type(syscinputvectordataf) :: ret
273 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
274 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataCompactF_R42D
275 !DIR$ ENDIF
276 end function syscgetinputvectordatacompactf_r42d
277 !
278 !**********************************************************************
283 !**********************************************************************
284 function syscgetinputvectordatacompactf_r82d(data, dataSize)&
285  result(ret)
286  import :: syscinputvectordataf
287  integer(kind=8), intent(in) :: datasize
288  real(kind=8), intent(in), target :: data(3, datasize)
289  type(syscinputvectordataf) :: ret
290 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
291 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataCompactF_R82D
292 !DIR$ ENDIF
293 end function syscgetinputvectordatacompactf_r82d
294 !
295 end interface syscgetinputvectordatacompactf
296 !
297 !**********************************************************************
300 !**********************************************************************
301 interface syscgetinputvectordatacompactdimf
302 !
303 !**********************************************************************
310 !**********************************************************************
311 function syscgetinputvectordatacompactdimf_r41d(data, dataSize, dimension)&
312  result(ret)
313  import :: syscinputvectordataf
314  integer(kind=8), intent(in) :: datasize
315  integer(kind=8), intent(in) :: dimension
316  real(kind=4), intent(in), target :: data(datasize * dimension)
317  type(syscinputvectordataf) :: ret
318 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
319 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataCompactDimF_R41D
320 !DIR$ ENDIF
321 end function syscgetinputvectordatacompactdimf_r41d
322 !
323 !**********************************************************************
330 !**********************************************************************
331 function syscgetinputvectordatacompactdimf_r81d(data, dataSize, dimension)&
332  result(ret)
333  import :: syscinputvectordataf
334  integer(kind=8), intent(in) :: datasize
335  integer(kind=8), intent(in) :: dimension
336  real(kind=8), intent(in), target :: data(datasize * dimension)
337  type(syscinputvectordataf) :: ret
338 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
339 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataCompactDimF_R81D
340 !DIR$ ENDIF
341 end function syscgetinputvectordatacompactdimf_r81d
342 !
343 !**********************************************************************
350 !**********************************************************************
351 function syscgetinputvectordatacompactdimf_r42d(data, dataSize, dimension)&
352  result(ret)
353  import :: syscinputvectordataf
354  integer(kind=8), intent(in) :: datasize
355  integer(kind=8), intent(in) :: dimension
356  real(kind=4), intent(in), target :: data(dimension, datasize)
357  type(syscinputvectordataf) :: ret
358 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
359 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataCompactDimF_R42D
360 !DIR$ ENDIF
361 end function syscgetinputvectordatacompactdimf_r42d
362 !
363 !**********************************************************************
370 !**********************************************************************
371 function syscgetinputvectordatacompactdimf_r82d(data, dataSize, dimension)&
372  result(ret)
373  import :: syscinputvectordataf
374  integer(kind=8), intent(in) :: datasize
375  integer(kind=8), intent(in) :: dimension
376  real(kind=8), intent(in), target :: data(dimension, datasize)
377  type(syscinputvectordataf) :: ret
378 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
379 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataCompactDimF_R82D
380 !DIR$ ENDIF
381 end function syscgetinputvectordatacompactdimf_r82d
382 !
383 end interface syscgetinputvectordatacompactdimf
384 !
385 end module fortran
fortran::syscgetinput2dvectordatasplitf
Provide an interface to get 2D input vector data.
Definition: syscInputVectorDataF.fi:147
fortran::syscgetinputvectordatacompactdimf
Provide an interface to get input vector data with compact storage based on dimension.
Definition: syscInputVectorDataF.fi:301
fortran::syscgetinputvectordatacompactf
Provide an interface to get input vector data with compact storage.
Definition: syscInputVectorDataF.fi:225
fortran::syscgetinputvectordataf
Provide an interface to get input vector data.
Definition: syscInputVectorDataF.fi:43
fortran::syscgetinputvectordatasplitf
Provide an interface to get input vector data with split storage.
Definition: syscInputVectorDataF.fi:66
fortran::syscinputvectordataf
Create an input vector data access type.
Definition: syscInputVectorDataF.fi:31

Connect with Ansys