Skip to main content

System Coupling Fortran library 2024 R1

syscOutputComplexVectorDataF

Last update: 17.07.2025
1module 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!
19 integer(kind=8) :: primitivetype
20 integer(kind=8) :: data1
21 integer(kind=8) :: data2
22 integer(kind=8) :: data3
23 integer(kind=8) :: data4
24 integer(kind=8) :: data5
25 integer(kind=8) :: data6
26 integer(kind=8) :: datasize
27 integer(kind=8) :: dimension
29!
30!**********************************************************************
32!**********************************************************************
34!
35!**********************************************************************
41!**********************************************************************
42function syscgetoutputcomplexvectordataf() result (ret)
45!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
46!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputComplexVectorDataF
47!DIR$ ENDIF
49!
51!
52!**********************************************************************
55!**********************************************************************
57!
58!**********************************************************************
64!**********************************************************************
65function syscgetoutputcompactcomplexcompactvectordataf_c82d(&
66 data, dataSize) result (ret)
67!
69 integer(kind=8), intent(in) :: datasize
70 complex(kind=8), intent(in), target :: data(3, datasize)
72!
73!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
74!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputCompactComplexCompactVectorDataF_C82D
75!DIR$ ENDIF
76!
77end function syscgetoutputcompactcomplexcompactvectordataf_c82d
78!
80!
81!**********************************************************************
83!**********************************************************************
85!
86!**********************************************************************
95!**********************************************************************
96function syscgetoutputcompactcomplexcompactvectordatadimf_c82d(&
97 data, dataSize, dimension) result (ret)
98!
100 integer(kind=8), intent(in) :: datasize
101 integer(kind=8), intent(in) :: dimension
102 complex(kind=8), intent(in), target :: data(dimension, datasize)
104!
105!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
106!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputCompactComplexCompactVectorDataF_C82D
107!DIR$ ENDIF
108!
109end function syscgetoutputcompactcomplexcompactvectordatadimf_c82d
110!
112!
113end module fortran
Provide an interface to get output complex vector data.
Provide an interface to get output complex vector data with compact storage for complex and vector co...
Provide an interface to get output vector data.
Create an output complex vector data access type.

Connect with Ansys