## On this page

  

 

 # syscOutputComplexVectorDataF

 Last update: 17.07.2025 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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



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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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



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

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

<a id="l00113" name="l00113"></a> 113end 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)