System Coupling Fortran library 2025 R1

syscOutputVectorDataF

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 :: syscoutputvectordataf
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 syscoutputvectordataf
39 !
40 !**********************************************************************
42 !**********************************************************************
43 interface syscgetoutputvectordataf
44 !
45 !**********************************************************************
51 !**********************************************************************
52 function syscgetoutputvectordataf() result (ret)
53  import :: syscoutputvectordataf
54  type(syscoutputvectordataf) :: ret
55 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
56 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataF
57 !DIR$ ENDIF
58 end function syscgetoutputvectordataf
59 !
60 end interface syscgetoutputvectordataf
61 !
62 !**********************************************************************
65 !**********************************************************************
66 interface syscgetoutputvectordatasplitf
67 !
68 !**********************************************************************
75 !**********************************************************************
76 function syscgetoutputvectordatasplitf_r43a(&
77  data0, data1, data2, dataSize) result (ret)
78 !
79  import :: syscoutputvectordataf
80  integer(kind=8), intent(in) :: datasize
81  real(kind=4), intent(in), target :: data0(datasize)
82  real(kind=4), intent(in), target :: data1(datasize)
83  real(kind=4), intent(in), target :: data2(datasize)
84  type(syscoutputvectordataf) :: ret
85 !
86 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
87 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataSplitF_R43A
88 !DIR$ ENDIF
89 !
90 end function syscgetoutputvectordatasplitf_r43a
91 !
92 !**********************************************************************
99 !**********************************************************************
100 function syscgetoutputvectordatasplitf_r83a(&
101  data0, data1, data2, dataSize) result (ret)
102 !
103  import :: syscoutputvectordataf
104  integer(kind=8), intent(in) :: datasize
105  real(kind=8), intent(in), target :: data0(datasize)
106  real(kind=8), intent(in), target :: data1(datasize)
107  real(kind=8), intent(in), target :: data2(datasize)
108  type(syscoutputvectordataf) :: ret
109 !
110 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
111 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataSplitF_R83A
112 !DIR$ ENDIF
113 !
114 end function syscgetoutputvectordatasplitf_r83a
115 !
116 !**********************************************************************
121 !**********************************************************************
122 function syscgetoutputvectordatasplitf_r42d(data, dataSize)&
123  result(ret)
124 !
125  import :: syscoutputvectordataf
126  integer(kind=8), intent(in) :: datasize
127  real(kind=4), intent(in), target :: data(datasize, 3)
128  type(syscoutputvectordataf) :: ret
129 !
130 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
131 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataSplitF_R42D
132 !DIR$ ENDIF
133 !
134 end function syscgetoutputvectordatasplitf_r42d
135 !
136 !**********************************************************************
141 !**********************************************************************
142 function syscgetoutputvectordatasplitf_r82d(vals, nElems) result (ret)
143 !
144  import :: syscoutputvectordataf
145  integer(kind=8), intent(in) :: nelems
146  real(kind=8), intent(in), target :: vals(nelems, 3)
147  type(syscoutputvectordataf) :: ret
148 !
149 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
150 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataSplitF_R82D
151 !DIR$ ENDIF
152 !
153 end function syscgetoutputvectordatasplitf_r82d
154 !
155 end interface syscgetoutputvectordatasplitf
156 !
157 !**********************************************************************
160 !**********************************************************************
161 interface syscgetoutput2dvectordatasplitf
162 !
163 !**********************************************************************
169 !**********************************************************************
170 function syscgetoutput2dvectordatasplitf_r43a(&
171  data0, data1, dataSize) result (ret)
172 !
173  import :: syscoutputvectordataf
174  integer(kind=8), intent(in) :: datasize
175  real(kind=4), intent(in), target :: data0(datasize)
176  real(kind=4), intent(in), target :: data1(datasize)
177  type(syscoutputvectordataf) :: ret
178 !
179 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
180 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutput2DVectorDataSplitF_R43A
181 !DIR$ ENDIF
182 !
183 end function syscgetoutput2dvectordatasplitf_r43a
184 !
185 !**********************************************************************
191 !**********************************************************************
192 function syscgetoutput2dvectordatasplitf_r83a(&
193  data0, data1, dataSize) result (ret)
194 !
195  import :: syscoutputvectordataf
196  integer(kind=8), intent(in) :: datasize
197  real(kind=8), intent(in), target :: data0(datasize)
198  real(kind=8), intent(in), target :: data1(datasize)
199  type(syscoutputvectordataf) :: ret
200 !
201 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
202 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutput2DVectorDataSplitF_R83A
203 !DIR$ ENDIF
204 !
205 end function syscgetoutput2dvectordatasplitf_r83a
206 !
207 !**********************************************************************
212 !**********************************************************************
213 function syscgetoutput2dvectordatasplitf_r42d(data, dataSize)&
214  result(ret)
215 !
216  import :: syscoutputvectordataf
217  integer(kind=8), intent(in) :: datasize
218  real(kind=4), intent(in), target :: data(datasize, 2)
219  type(syscoutputvectordataf) :: ret
220 !
221 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
222 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutput2DVectorDataSplitF_R42D
223 !DIR$ ENDIF
224 !
225 end function syscgetoutput2dvectordatasplitf_r42d
226 !
227 !**********************************************************************
232 !**********************************************************************
233 function syscgetoutput2dvectordatasplitf_r82d(vals, nElems) result (ret)
234 !
235  import :: syscoutputvectordataf
236  integer(kind=8), intent(in) :: nelems
237  real(kind=8), intent(in), target :: vals(nelems, 2)
238  type(syscoutputvectordataf) :: ret
239 !
240 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
241 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutput2DVectorDataSplitF_R82D
242 !DIR$ ENDIF
243 !
244 end function syscgetoutput2dvectordatasplitf_r82d
245 !
246 end interface syscgetoutput2dvectordatasplitf
247 !
248 !**********************************************************************
251 !**********************************************************************
252 interface syscgetoutputvectordatacompactf
253 !
254 !**********************************************************************
260 !**********************************************************************
261 function syscgetoutputvectordatacompactf_r41d(data, dataSize)&
262  result(ret)
263 !
264  import :: syscoutputvectordataf
265  integer(kind=8), intent(in) :: datasize
266  real(kind=4), intent(in), target :: data(datasize * 3)
267  type(syscoutputvectordataf) :: ret
268 !
269 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
270 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataCompactF_R41D
271 !DIR$ ENDIF
272 !
273 end function syscgetoutputvectordatacompactf_r41d
274 !
275 !**********************************************************************
281 !**********************************************************************
282 function syscgetoutputvectordatacompactf_r81d(data, dataSize)&
283  result(ret)
284 !
285  import :: syscoutputvectordataf
286  integer(kind=8), intent(in) :: datasize
287  real(kind=8), intent(in), target :: data(datasize * 3)
288  type(syscoutputvectordataf) :: ret
289 !
290 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
291 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataCompactF_R81D
292 !DIR$ ENDIF
293 !
294 end function syscgetoutputvectordatacompactf_r81d
295 !
296 !**********************************************************************
302 !**********************************************************************
303 function syscgetoutputvectordatacompactf_r42d(vals,nElems) result (ret)
304 !
305  import :: syscoutputvectordataf
306  integer(kind=8), intent(in) :: nelems
307  real(kind=4), intent(in), target :: vals(3, nelems)
308  type(syscoutputvectordataf) :: ret
309 !
310 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
311 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataCompactF_R42D
312 !DIR$ ENDIF
313 !
314 end function syscgetoutputvectordatacompactf_r42d
315 !
316 !**********************************************************************
322 !**********************************************************************
323 function syscgetoutputvectordatacompactf_r82d(vals,nElems) result (ret)
324 !
325  import :: syscoutputvectordataf
326  integer(kind=8), intent(in) :: nelems
327  real(kind=8), intent(in), target :: vals(3, nelems)
328  type(syscoutputvectordataf) :: ret
329 !
330 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
331 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataCompactF_R82D
332 !DIR$ ENDIF
333 !
334 end function syscgetoutputvectordatacompactf_r82d
335 !
336 end interface syscgetoutputvectordatacompactf
337 !
340 !**********************************************************************
341 interface syscgetoutputvectordatacompactdimf
342 !
343 !**********************************************************************
350 !**********************************************************************
351 function syscgetoutputvectordatacompactdimf_r41d(data, dataSize, dimension)&
352  result(ret)
353 !
354  import :: syscoutputvectordataf
355  integer(kind=8), intent(in) :: datasize
356  integer(kind=8), intent(in) :: dimension
357  real(kind=4), intent(in), target :: data(datasize * dimension)
358  type(syscoutputvectordataf) :: ret
359 !
360 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
361 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataCompactDimF_R41D
362 !DIR$ ENDIF
363 !
364 end function syscgetoutputvectordatacompactdimf_r41d
365 !
366 !**********************************************************************
373 !**********************************************************************
374 function syscgetoutputvectordatacompactdimf_r81d(data, dataSize, dimension)&
375  result(ret)
376 !
377  import :: syscoutputvectordataf
378  integer(kind=8), intent(in) :: datasize
379  integer(kind=8), intent(in) :: dimension
380  real(kind=8), intent(in), target :: data(datasize * dimension)
381  type(syscoutputvectordataf) :: ret
382 !
383 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
384 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataCompactDimF_R81D
385 !DIR$ ENDIF
386 !
387 end function syscgetoutputvectordatacompactdimf_r81d
388 !
389 !**********************************************************************
396 !**********************************************************************
397 function syscgetoutputvectordatacompactdimf_r42d(vals,nElems, dimension) result (ret)
398 !
399  import :: syscoutputvectordataf
400  integer(kind=8), intent(in) :: nelems
401  integer(kind=8), intent(in) :: dimension
402  real(kind=4), intent(in), target :: vals(dimension, nelems)
403  type(syscoutputvectordataf) :: ret
404 !
405 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
406 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataCompactDimF_R42D
407 !DIR$ ENDIF
408 !
409 end function syscgetoutputvectordatacompactdimf_r42d
410 !
411 !**********************************************************************
418 !**********************************************************************
419 function syscgetoutputvectordatacompactdimf_r82d(vals,nElems, dimension) result (ret)
420 !
421  import :: syscoutputvectordataf
422  integer(kind=8), intent(in) :: nelems
423  integer(kind=8), intent(in) :: dimension
424  real(kind=8), intent(in), target :: vals(dimension, nelems)
425  type(syscoutputvectordataf) :: ret
426 !
427 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
428 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataCompactDimF_R82D
429 !DIR$ ENDIF
430 !
431 end function syscgetoutputvectordatacompactdimf_r82d
432 !
433 end interface syscgetoutputvectordatacompactdimf
434 !
435 end module fortran
fortran::syscgetoutput2dvectordatasplitf
Provide an interface to get 2D output vector data with split storage.
Definition: syscOutputVectorDataF.fi:161
fortran::syscgetoutputvectordatacompactdimf
Provide an interface to get output vector data with compact storage based on dimension.
Definition: syscOutputVectorDataF.fi:341
fortran::syscgetoutputvectordatacompactf
Provide an interface to get output vector data with compact storage.
Definition: syscOutputVectorDataF.fi:252
fortran::syscgetoutputvectordataf
Provide an interface to get output vector data.
Definition: syscOutputVectorDataF.fi:43
fortran::syscgetoutputvectordatasplitf
Provide an interface to get output vector data with split storage.
Definition: syscOutputVectorDataF.fi:66
fortran::syscoutputvectordataf
Create an output vector data access type.
Definition: syscOutputVectorDataF.fi:31

Connect with Ansys