## On this page

  

 

 # syscOutputComplexVectorDataF

 Last update: 17.07.2025 

<a name="l00001"></a> 1 module fortran

<a name="l00002"></a> 2 !

<a name="l00003"></a> 3 ! Copyright ANSYS, Inc. 

<a name="l00004"></a> 4 ! Unauthorized use, distribution, or duplication is prohibited.

<a name="l00005"></a> 5 !

<a name="l00006"></a> 6 ! Provide free-form Fortran interface for

<a name="l00007"></a> 7 ! System Coupling Participant Library.

<a name="l00008"></a> 8 !

<a name="l00009"></a> 9 ! \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00010"></a> 10 !

<a name="l00018"></a>[ 18](structfortran_1_1syscoutputcomplexvectordataf.xhtml) type :: [syscoutputcomplexvectordataf](structfortran_1_1syscoutputcomplexvectordataf.xhtml)

<a name="l00019"></a>[ 19](structfortran_1_1syscoutputcomplexvectordataf.xhtml#a41aa641a12e238b3d8a12707aa047938) integer(kind=8) :: primitivetype

<a name="l00020"></a>[ 20](structfortran_1_1syscoutputcomplexvectordataf.xhtml#ac557d7a3ef6325269f5e5dd7c25f4477) integer(kind=8) :: data1

<a name="l00021"></a>[ 21](structfortran_1_1syscoutputcomplexvectordataf.xhtml#afa217b7811ef89c1f61608dafa19a208) integer(kind=8) :: data2

<a name="l00022"></a>[ 22](structfortran_1_1syscoutputcomplexvectordataf.xhtml#a82f259f557e606c44963e59e3e8367f4) integer(kind=8) :: data3

<a name="l00023"></a>[ 23](structfortran_1_1syscoutputcomplexvectordataf.xhtml#a88d12a5d353fc1ce52f598e982faea04) integer(kind=8) :: data4

<a name="l00024"></a>[ 24](structfortran_1_1syscoutputcomplexvectordataf.xhtml#a1f2d9b557c5380c877925cf0e483a0ad) integer(kind=8) :: data5

<a name="l00025"></a>[ 25](structfortran_1_1syscoutputcomplexvectordataf.xhtml#a70ff08ad17ebed3f3725b574afe69629) integer(kind=8) :: data6

<a name="l00026"></a>[ 26](structfortran_1_1syscoutputcomplexvectordataf.xhtml#ac8d11b0cadefc4f138b1ef4e0ab50b2a) integer(kind=8) :: datasize

<a name="l00027"></a>[ 27](structfortran_1_1syscoutputcomplexvectordataf.xhtml#a86ac613c1baf4a60d347742b387bb8e4) integer(kind=8) :: dimension

<a name="l00028"></a> 28 end type [syscoutputcomplexvectordataf](structfortran_1_1syscoutputcomplexvectordataf.xhtml)

<a name="l00029"></a> 29 !

<a name="l00030"></a> 30 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00032"></a> 32 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00033"></a>[ 33](interfacefortran_1_1syscgetoutputcomplexvectordataf.xhtml) interface [syscgetoutputcomplexvectordataf](interfacefortran_1_1syscgetoutputcomplexvectordataf.xhtml)

<a name="l00034"></a> 34 !

<a name="l00035"></a> 35 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00041"></a> 41 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00042"></a>[ 42](interfacefortran_1_1syscgetoutputcomplexvectordataf.xhtml#a5fe888c272b66115e15f7b3ab3b2e8e6) function [syscgetoutputcomplexvectordataf](interfacefortran_1_1syscgetoutputcomplexvectordataf.xhtml)() result (ret)

<a name="l00043"></a> 43 import :: [syscoutputcomplexvectordataf](structfortran_1_1syscoutputcomplexvectordataf.xhtml)

<a name="l00044"></a> 44 type([syscoutputcomplexvectordataf](structfortran_1_1syscoutputcomplexvectordataf.xhtml)) :: ret

<a name="l00045"></a> 45 !DIR$ IF DEFINED(\_WIN32) .and. ( .not. DEFINED(SYSTEM\_COUPLING\_PARTICIPANT\_PROXY))

<a name="l00046"></a> 46 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputComplexVectorDataF

<a name="l00047"></a> 47 !DIR$ ENDIF

<a name="l00048"></a> 48 end function [syscgetoutputcomplexvectordataf](interfacefortran_1_1syscgetoutputcomplexvectordataf.xhtml)

<a name="l00049"></a> 49 !

<a name="l00050"></a> 50 end interface [syscgetoutputcomplexvectordataf](interfacefortran_1_1syscgetoutputcomplexvectordataf.xhtml)

<a name="l00051"></a> 51 !

<a name="l00052"></a> 52 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00055"></a> 55 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00056"></a>[ 56](interfacefortran_1_1syscgetoutputcompactcomplexcompactvectordataf.xhtml) interface [syscgetoutputcompactcomplexcompactvectordataf](interfacefortran_1_1syscgetoutputcompactcomplexcompactvectordataf.xhtml)

<a name="l00057"></a> 57 !

<a name="l00058"></a> 58 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00064"></a> 64 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00065"></a>[ 65](interfacefortran_1_1syscgetoutputcompactcomplexcompactvectordataf.xhtml#af73e0007ec09554bf257669ad117e2b9) function syscgetoutputcompactcomplexcompactvectordataf_c82d(&amp;

<a name="l00066"></a> 66 data, dataSize) result (ret)

<a name="l00067"></a> 67 !

<a name="l00068"></a> 68 import :: [syscoutputcomplexvectordataf](structfortran_1_1syscoutputcomplexvectordataf.xhtml)

<a name="l00069"></a> 69 integer(kind=8), intent(in) :: datasize 

<a name="l00070"></a> 70 complex(kind=8), intent(in), target :: data(3, datasize)

<a name="l00071"></a> 71 type([syscoutputcomplexvectordataf](structfortran_1_1syscoutputcomplexvectordataf.xhtml)) :: ret

<a name="l00072"></a> 72 !

<a name="l00073"></a> 73 !DIR$ IF DEFINED(\_WIN32) .and. ( .not. DEFINED(SYSTEM\_COUPLING\_PARTICIPANT\_PROXY))

<a name="l00074"></a> 74 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputCompactComplexCompactVectorDataF\_C82D

<a name="l00075"></a> 75 !DIR$ ENDIF

<a name="l00076"></a> 76 !

<a name="l00077"></a> 77 end function syscgetoutputcompactcomplexcompactvectordataf_c82d

<a name="l00078"></a> 78 !

<a name="l00079"></a> 79 end interface [syscgetoutputcompactcomplexcompactvectordataf](interfacefortran_1_1syscgetoutputcompactcomplexcompactvectordataf.xhtml)

<a name="l00080"></a> 80 !

<a name="l00081"></a> 81 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00083"></a> 83 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00084"></a>[ 84](interfacefortran_1_1syscgetoutputcompactcomplexcompactvectordatadimf.xhtml) interface [syscgetoutputcompactcomplexcompactvectordatadimf](interfacefortran_1_1syscgetoutputcompactcomplexcompactvectordatadimf.xhtml)

<a name="l00085"></a> 85 !

<a name="l00086"></a> 86 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00095"></a> 95 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00096"></a>[ 96](interfacefortran_1_1syscgetoutputcompactcomplexcompactvectordatadimf.xhtml#ab98a86f80ffbfa887a403c5d6065b455) function syscgetoutputcompactcomplexcompactvectordatadimf_c82d(&amp;

<a name="l00097"></a> 97 data, dataSize, dimension) result (ret)

<a name="l00098"></a> 98 !

<a name="l00099"></a> 99 import :: [syscoutputcomplexvectordataf](structfortran_1_1syscoutputcomplexvectordataf.xhtml)

<a name="l00100"></a> 100 integer(kind=8), intent(in) :: datasize 

<a name="l00101"></a> 101 integer(kind=8), intent(in) :: dimension 

<a name="l00102"></a> 102 complex(kind=8), intent(in), target :: data(dimension, datasize)

<a name="l00103"></a> 103 type([syscoutputcomplexvectordataf](structfortran_1_1syscoutputcomplexvectordataf.xhtml)) :: ret

<a name="l00104"></a> 104 !

<a name="l00105"></a> 105 !DIR$ IF DEFINED(\_WIN32) .and. ( .not. DEFINED(SYSTEM\_COUPLING\_PARTICIPANT\_PROXY))

<a name="l00106"></a> 106 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputCompactComplexCompactVectorDataF\_C82D

<a name="l00107"></a> 107 !DIR$ ENDIF

<a name="l00108"></a> 108 !

<a name="l00109"></a> 109 end function syscgetoutputcompactcomplexcompactvectordatadimf_c82d

<a name="l00110"></a> 110 !

<a name="l00111"></a> 111 end interface [syscgetoutputcompactcomplexcompactvectordatadimf](interfacefortran_1_1syscgetoutputcompactcomplexcompactvectordatadimf.xhtml)

<a name="l00112"></a> 112 !

<a name="l00113"></a> 113 end module fortran

[fortran::syscgetoutputcompactcomplexcompactvectordatadimf](interfacefortran_1_1syscgetoutputcompactcomplexcompactvectordatadimf.xhtml)

Provide an interface to get output complex vector data.

**Definition:** [syscOutputComplexVectorDataF.fi:84](syscOutputComplexVectorDataF_8fi_source.xhtml#l00084)



[fortran::syscgetoutputcompactcomplexcompactvectordataf](interfacefortran_1_1syscgetoutputcompactcomplexcompactvectordataf.xhtml)

Provide an interface to get output complex vector data with compact storage for complex and vector co...

**Definition:** [syscOutputComplexVectorDataF.fi:56](syscOutputComplexVectorDataF_8fi_source.xhtml#l00056)



[fortran::syscgetoutputcomplexvectordataf](interfacefortran_1_1syscgetoutputcomplexvectordataf.xhtml)

Provide an interface to get output vector data.

**Definition:** [syscOutputComplexVectorDataF.fi:33](syscOutputComplexVectorDataF_8fi_source.xhtml#l00033)



[fortran::syscoutputcomplexvectordataf](structfortran_1_1syscoutputcomplexvectordataf.xhtml)

Create an output complex vector data access type.

**Definition:** [syscOutputComplexVectorDataF.fi:18](syscOutputComplexVectorDataF_8fi_source.xhtml#l00018)