## On this page

  

 

 # syscInputComplexVectorDataF

 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_1syscinputcomplexvectordataf.xhtml) type :: [syscinputcomplexvectordataf](structfortran_1_1syscinputcomplexvectordataf.xhtml)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

<a name="l00042"></a>[ 42](interfacefortran_1_1syscgetinputcomplexvectordataf.xhtml#ab9cf5d7c3c91ec97b045b952f530a8c8) function [syscgetinputcomplexvectordataf](interfacefortran_1_1syscgetinputcomplexvectordataf.xhtml)() result (ret)

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

<a name="l00044"></a> 44 type([syscinputcomplexvectordataf](structfortran_1_1syscinputcomplexvectordataf.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 :: syscGetInputComplexVectorDataF

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

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

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

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

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

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

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

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

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

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

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

<a name="l00065"></a>[ 65](interfacefortran_1_1syscgetinputcompactcomplexcompactvectordataf.xhtml#a9c00860a0e9a7ba103aab9b5c71b1666) function syscgetinputcompactcomplexcompactvectordataf_c82d(&amp;

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

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

<a name="l00068"></a> 68 import :: [syscinputcomplexvectordataf](structfortran_1_1syscinputcomplexvectordataf.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([syscinputcomplexvectordataf](structfortran_1_1syscinputcomplexvectordataf.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 :: syscGetInputCompactComplexCompactVectorDataF\_C82D

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

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

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

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

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

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

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

<a name="l00084"></a> 84 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00085"></a>[ 85](interfacefortran_1_1syscgetinputcompactcomplexcompactvectordatadimf.xhtml) interface [syscgetinputcompactcomplexcompactvectordatadimf](interfacefortran_1_1syscgetinputcompactcomplexcompactvectordatadimf.xhtml)

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

<a name="l00087"></a> 87 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00096"></a> 96 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00097"></a>[ 97](interfacefortran_1_1syscgetinputcompactcomplexcompactvectordatadimf.xhtml#a2d739d19a7890ca491d99e1f068936e8) function syscgetinputcompactcomplexcompactvectordatadimf_c82d(&amp;

<a name="l00098"></a> 98 data, dataSize, dimension) result (ret)

<a name="l00099"></a> 99 !

<a name="l00100"></a> 100 import :: [syscinputcomplexvectordataf](structfortran_1_1syscinputcomplexvectordataf.xhtml)

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

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

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

<a name="l00104"></a> 104 type([syscinputcomplexvectordataf](structfortran_1_1syscinputcomplexvectordataf.xhtml)) :: ret

<a name="l00105"></a> 105 !

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

<a name="l00107"></a> 107 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputCompactComplexCompactVectorDataDimF\_C82D

<a name="l00108"></a> 108 !DIR$ ENDIF

<a name="l00109"></a> 109 !

<a name="l00110"></a> 110 end function syscgetinputcompactcomplexcompactvectordatadimf_c82d

<a name="l00111"></a> 111 !

<a name="l00112"></a> 112 end interface [syscgetinputcompactcomplexcompactvectordatadimf](interfacefortran_1_1syscgetinputcompactcomplexcompactvectordatadimf.xhtml)

<a name="l00113"></a> 113 !

<a name="l00114"></a> 114 end module fortran

[fortran::syscgetinputcompactcomplexcompactvectordatadimf](interfacefortran_1_1syscgetinputcompactcomplexcompactvectordatadimf.xhtml)

Provide an interface to get input complex vector data with compact storage for complex and vector com...

**Definition:** [syscInputComplexVectorDataF.fi:85](syscInputComplexVectorDataF_8fi_source.xhtml#l00085)



[fortran::syscgetinputcompactcomplexcompactvectordataf](interfacefortran_1_1syscgetinputcompactcomplexcompactvectordataf.xhtml)

Provide an interface to get input complex vector data with compact storage for complex and vector com...

**Definition:** [syscInputComplexVectorDataF.fi:56](syscInputComplexVectorDataF_8fi_source.xhtml#l00056)



[fortran::syscgetinputcomplexvectordataf](interfacefortran_1_1syscgetinputcomplexvectordataf.xhtml)

Provide an interface to get input complex vector data.

**Definition:** [syscInputComplexVectorDataF.fi:33](syscInputComplexVectorDataF_8fi_source.xhtml#l00033)



[fortran::syscinputcomplexvectordataf](structfortran_1_1syscinputcomplexvectordataf.xhtml)

Create an input complex vector data access type.

**Definition:** [syscInputComplexVectorDataF.fi:18](syscInputComplexVectorDataF_8fi_source.xhtml#l00018)