## On this page

  

 

 # syscInputVectorDataF

 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="l00031"></a>[ 31](structfortran_1_1syscinputvectordataf.xhtml) type :: [syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)

<a name="l00032"></a>[ 32](structfortran_1_1syscinputvectordataf.xhtml#a41aa641a12e238b3d8a12707aa047938) integer(kind=8) :: primitivetype

<a name="l00033"></a>[ 33](structfortran_1_1syscinputvectordataf.xhtml#a9ff86b31b305de4d1722dd390eb413d6) integer(kind=8) :: dataptr1

<a name="l00034"></a>[ 34](structfortran_1_1syscinputvectordataf.xhtml#a3f77c87d288879c34e8f04f2d1f0e159) integer(kind=8) :: dataptr2

<a name="l00035"></a>[ 35](structfortran_1_1syscinputvectordataf.xhtml#a59296d314ebb802f9490fe430a0cd3d4) integer(kind=8) :: dataptr3

<a name="l00036"></a>[ 36](structfortran_1_1syscinputvectordataf.xhtml#ac8d11b0cadefc4f138b1ef4e0ab50b2a) integer(kind=8) :: datasize

<a name="l00037"></a>[ 37](structfortran_1_1syscinputvectordataf.xhtml#a86ac613c1baf4a60d347742b387bb8e4) integer(kind=8) :: dimension

<a name="l00038"></a> 38 end type [syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)

<a name="l00039"></a> 39 !

<a name="l00040"></a> 40 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00042"></a> 42 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00043"></a>[ 43](interfacefortran_1_1syscgetinputvectordataf.xhtml) interface [syscgetinputvectordataf](interfacefortran_1_1syscgetinputvectordataf.xhtml)

<a name="l00044"></a> 44 !

<a name="l00045"></a> 45 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

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

<a name="l00052"></a>[ 52](interfacefortran_1_1syscgetinputvectordataf.xhtml#aacb50f62f4cdfd7fb3cc871071170db7) function [syscgetinputvectordataf](interfacefortran_1_1syscgetinputvectordataf.xhtml)() result (ret)

<a name="l00053"></a> 53 import :: [syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)

<a name="l00054"></a> 54 type([syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)) :: ret

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

<a name="l00056"></a> 56 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataF

<a name="l00057"></a> 57 !DIR$ ENDIF

<a name="l00058"></a> 58 end function [syscgetinputvectordataf](interfacefortran_1_1syscgetinputvectordataf.xhtml)

<a name="l00059"></a> 59 !

<a name="l00060"></a> 60 end interface [syscgetinputvectordataf](interfacefortran_1_1syscgetinputvectordataf.xhtml)

<a name="l00061"></a> 61 !

<a name="l00062"></a> 62 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00065"></a> 65 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00066"></a>[ 66](interfacefortran_1_1syscgetinputvectordatasplitf.xhtml) interface [syscgetinputvectordatasplitf](interfacefortran_1_1syscgetinputvectordatasplitf.xhtml)

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

<a name="l00068"></a> 68 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00075"></a> 75 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00076"></a>[ 76](interfacefortran_1_1syscgetinputvectordatasplitf.xhtml#ab81781eff68f8449ad2bc30a8fa450dd) function syscgetinputvectordatasplitf_r43a(&amp;

<a name="l00077"></a> 77 data0, data1, data2, dataSize) result (ret)

<a name="l00078"></a> 78 import :: [syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)

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

<a name="l00080"></a> 80  real(kind=4), intent(in), target :: data0(datasize)

<a name="l00081"></a> 81  real(kind=4), intent(in), target :: data1(datasize)

<a name="l00082"></a> 82  real(kind=4), intent(in), target :: data2(datasize)

<a name="l00083"></a> 83 type([syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)) :: ret

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

<a name="l00085"></a> 85 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataSplitF\_R43A

<a name="l00086"></a> 86 !DIR$ ENDIF

<a name="l00087"></a> 87 end function syscgetinputvectordatasplitf_r43a

<a name="l00088"></a> 88 !

<a name="l00089"></a> 89 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

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

<a name="l00097"></a>[ 97](interfacefortran_1_1syscgetinputvectordatasplitf.xhtml#a67b8a204cee3ad2e6ab75cc01cf1bf49) function syscgetinputvectordatasplitf_r83a(&amp;

<a name="l00098"></a> 98 data0, data1, data2, dataSize) result (ret)

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

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

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

<a name="l00102"></a> 102  real(kind=8), intent(in), target :: data1(datasize)

<a name="l00103"></a> 103  real(kind=8), intent(in), target :: data2(datasize)

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

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

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

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

<a name="l00108"></a> 108 end function syscgetinputvectordatasplitf_r83a

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

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

<a name="l00115"></a> 115 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00116"></a>[ 116](interfacefortran_1_1syscgetinputvectordatasplitf.xhtml#aad415cc2a63ce6d44c6b9d94f6b3bb33) function syscgetinputvectordatasplitf_r42d(data, dataSize) result(ret)

<a name="l00117"></a> 117 import :: [syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)

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

<a name="l00119"></a> 119  real(kind=4), intent(in), target :: data(datasize, 3)

<a name="l00120"></a> 120 type([syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)) :: ret

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

<a name="l00122"></a> 122 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataSplitF\_R42D

<a name="l00123"></a> 123 !DIR$ ENDIF

<a name="l00124"></a> 124 end function syscgetinputvectordatasplitf_r42d

<a name="l00125"></a> 125 !

<a name="l00126"></a> 126 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00131"></a> 131 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00132"></a>[ 132](interfacefortran_1_1syscgetinputvectordatasplitf.xhtml#aa71c26494dc42c0e18e4e0feca308012) function syscgetinputvectordatasplitf_r82d(data, dataSize) result(ret)

<a name="l00133"></a> 133 import :: [syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)

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

<a name="l00135"></a> 135  real(kind=8), intent(in), target :: data(datasize, 3)

<a name="l00136"></a> 136 type([syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)) :: ret

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

<a name="l00138"></a> 138 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataSplitF\_R82D

<a name="l00139"></a> 139 !DIR$ ENDIF

<a name="l00140"></a> 140 end function syscgetinputvectordatasplitf_r82d

<a name="l00141"></a> 141 !

<a name="l00142"></a> 142 end interface [syscgetinputvectordatasplitf](interfacefortran_1_1syscgetinputvectordatasplitf.xhtml)

<a name="l00143"></a> 143 !

<a name="l00144"></a> 144 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00146"></a> 146 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00147"></a>[ 147](interfacefortran_1_1syscgetinput2dvectordatasplitf.xhtml) interface [syscgetinput2dvectordatasplitf](interfacefortran_1_1syscgetinput2dvectordatasplitf.xhtml)

<a name="l00148"></a> 148 !

<a name="l00149"></a> 149 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00155"></a> 155 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00156"></a>[ 156](interfacefortran_1_1syscgetinput2dvectordatasplitf.xhtml#ac3a4f638961a67225f5547f38ee4e409) function syscgetinput2dvectordatasplitf_r43a(&amp;

<a name="l00157"></a> 157 data0, data1, dataSize) result (ret)

<a name="l00158"></a> 158 import :: [syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)

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

<a name="l00160"></a> 160  real(kind=4), intent(in), target :: data0(datasize)

<a name="l00161"></a> 161  real(kind=4), intent(in), target :: data1(datasize)

<a name="l00162"></a> 162 type([syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)) :: ret

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

<a name="l00164"></a> 164 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInput2DVectorDataSplitF\_R43A

<a name="l00165"></a> 165 !DIR$ ENDIF

<a name="l00166"></a> 166 end function syscgetinput2dvectordatasplitf_r43a

<a name="l00167"></a> 167 !

<a name="l00168"></a> 168 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00174"></a> 174 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00175"></a>[ 175](interfacefortran_1_1syscgetinput2dvectordatasplitf.xhtml#a7412d1de460be591d377e347870e8b2d) function syscgetinput2dvectordatasplitf_r83a(&amp;

<a name="l00176"></a> 176 data0, data1, dataSize) result (ret)

<a name="l00177"></a> 177 import :: [syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)

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

<a name="l00179"></a> 179  real(kind=8), intent(in), target :: data0(datasize)

<a name="l00180"></a> 180  real(kind=8), intent(in), target :: data1(datasize)

<a name="l00181"></a> 181 type([syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)) :: ret

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

<a name="l00183"></a> 183 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInput2DVectorDataSplitF\_R83A

<a name="l00184"></a> 184 !DIR$ ENDIF

<a name="l00185"></a> 185 end function syscgetinput2dvectordatasplitf_r83a

<a name="l00186"></a> 186 !

<a name="l00187"></a> 187 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00192"></a> 192 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00193"></a>[ 193](interfacefortran_1_1syscgetinput2dvectordatasplitf.xhtml#afdd442b99555d504ed7ae6452f05d4ec) function syscgetinput2dvectordatasplitf_r42d(data, dataSize) result(ret)

<a name="l00194"></a> 194 import :: [syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)

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

<a name="l00196"></a> 196  real(kind=4), intent(in), target :: data(datasize, 2)

<a name="l00197"></a> 197 type([syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)) :: ret

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

<a name="l00199"></a> 199 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInput2DVectorDataSplitF\_R42D

<a name="l00200"></a> 200 !DIR$ ENDIF

<a name="l00201"></a> 201 end function syscgetinput2dvectordatasplitf_r42d

<a name="l00202"></a> 202 !

<a name="l00203"></a> 203 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00208"></a> 208 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00209"></a>[ 209](interfacefortran_1_1syscgetinput2dvectordatasplitf.xhtml#a6a314a0093b9fc2c5f2d5cac730d29b6) function syscgetinput2dvectordatasplitf_r82d(data, dataSize) result(ret)

<a name="l00210"></a> 210 import :: [syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)

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

<a name="l00212"></a> 212  real(kind=8), intent(in), target :: data(datasize, 2)

<a name="l00213"></a> 213 type([syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)) :: ret

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

<a name="l00215"></a> 215 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInput2DVectorDataSplitF\_R82D

<a name="l00216"></a> 216 !DIR$ ENDIF

<a name="l00217"></a> 217 end function syscgetinput2dvectordatasplitf_r82d

<a name="l00218"></a> 218 !

<a name="l00219"></a> 219 end interface [syscgetinput2dvectordatasplitf](interfacefortran_1_1syscgetinput2dvectordatasplitf.xhtml)

<a name="l00220"></a> 220 !

<a name="l00221"></a> 221 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00224"></a> 224 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00225"></a>[ 225](interfacefortran_1_1syscgetinputvectordatacompactf.xhtml) interface [syscgetinputvectordatacompactf](interfacefortran_1_1syscgetinputvectordatacompactf.xhtml)

<a name="l00226"></a> 226 !

<a name="l00227"></a> 227 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00232"></a> 232 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00233"></a>[ 233](interfacefortran_1_1syscgetinputvectordatacompactf.xhtml#abba0d92f6ea7ac6452bc8af2ca0b5de5) function syscgetinputvectordatacompactf_r41d(data, dataSize)&amp;

<a name="l00234"></a> 234 result(ret)

<a name="l00235"></a> 235 import :: [syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)

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

<a name="l00237"></a> 237  real(kind=4), intent(in), target :: data(datasize * 3)

<a name="l00238"></a> 238 type([syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)) :: ret

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

<a name="l00240"></a> 240 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataCompactF\_R41D

<a name="l00241"></a> 241 !DIR$ ENDIF

<a name="l00242"></a> 242 end function syscgetinputvectordatacompactf_r41d

<a name="l00243"></a> 243 !

<a name="l00244"></a> 244 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00249"></a> 249 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00250"></a>[ 250](interfacefortran_1_1syscgetinputvectordatacompactf.xhtml#a61ff5c0acf1426bdb2a2f3632438de88) function syscgetinputvectordatacompactf_r81d(data, dataSize)&amp;

<a name="l00251"></a> 251 result(ret)

<a name="l00252"></a> 252 import :: [syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)

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

<a name="l00254"></a> 254  real(kind=8), intent(in), target :: data(datasize * 3)

<a name="l00255"></a> 255 type([syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)) :: ret

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

<a name="l00257"></a> 257 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataCompactF\_R81D

<a name="l00258"></a> 258 !DIR$ ENDIF

<a name="l00259"></a> 259 end function syscgetinputvectordatacompactf_r81d

<a name="l00260"></a> 260 !

<a name="l00261"></a> 261 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00266"></a> 266 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00267"></a>[ 267](interfacefortran_1_1syscgetinputvectordatacompactf.xhtml#af4264f8d072aab82c3ad384e94227cab) function syscgetinputvectordatacompactf_r42d(data, dataSize)&amp;

<a name="l00268"></a> 268 result(ret)

<a name="l00269"></a> 269 import :: [syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)

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

<a name="l00271"></a> 271  real(kind=4), intent(in), target :: data(3, datasize)

<a name="l00272"></a> 272 type([syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)) :: ret

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

<a name="l00274"></a> 274 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataCompactF\_R42D

<a name="l00275"></a> 275 !DIR$ ENDIF

<a name="l00276"></a> 276 end function syscgetinputvectordatacompactf_r42d

<a name="l00277"></a> 277 !

<a name="l00278"></a> 278 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00283"></a> 283 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00284"></a>[ 284](interfacefortran_1_1syscgetinputvectordatacompactf.xhtml#a1e742cf1102a13eab00b4488c2174e9d) function syscgetinputvectordatacompactf_r82d(data, dataSize)&amp;

<a name="l00285"></a> 285 result(ret)

<a name="l00286"></a> 286 import :: [syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)

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

<a name="l00288"></a> 288  real(kind=8), intent(in), target :: data(3, datasize)

<a name="l00289"></a> 289 type([syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)) :: ret

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

<a name="l00291"></a> 291 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataCompactF\_R82D

<a name="l00292"></a> 292 !DIR$ ENDIF

<a name="l00293"></a> 293 end function syscgetinputvectordatacompactf_r82d

<a name="l00294"></a> 294 !

<a name="l00295"></a> 295 end interface [syscgetinputvectordatacompactf](interfacefortran_1_1syscgetinputvectordatacompactf.xhtml)

<a name="l00296"></a> 296 !

<a name="l00297"></a> 297 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00300"></a> 300 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00301"></a>[ 301](interfacefortran_1_1syscgetinputvectordatacompactdimf.xhtml) interface [syscgetinputvectordatacompactdimf](interfacefortran_1_1syscgetinputvectordatacompactdimf.xhtml)

<a name="l00302"></a> 302 !

<a name="l00303"></a> 303 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00310"></a> 310 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00311"></a>[ 311](interfacefortran_1_1syscgetinputvectordatacompactdimf.xhtml#aa3d515558f3000a9fb0665a9ae28eeaa) function syscgetinputvectordatacompactdimf_r41d(data, dataSize, dimension)&amp;

<a name="l00312"></a> 312 result(ret)

<a name="l00313"></a> 313 import :: [syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)

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

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

<a name="l00316"></a> 316  real(kind=4), intent(in), target :: data(datasize * dimension)

<a name="l00317"></a> 317 type([syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)) :: ret

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

<a name="l00319"></a> 319 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataCompactDimF\_R41D

<a name="l00320"></a> 320 !DIR$ ENDIF

<a name="l00321"></a> 321 end function syscgetinputvectordatacompactdimf_r41d

<a name="l00322"></a> 322 !

<a name="l00323"></a> 323 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00330"></a> 330 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00331"></a>[ 331](interfacefortran_1_1syscgetinputvectordatacompactdimf.xhtml#a8586f25cee2cac6419af313ab0c5b6cc) function syscgetinputvectordatacompactdimf_r81d(data, dataSize, dimension)&amp;

<a name="l00332"></a> 332 result(ret)

<a name="l00333"></a> 333 import :: [syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)

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

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

<a name="l00336"></a> 336  real(kind=8), intent(in), target :: data(datasize * dimension)

<a name="l00337"></a> 337 type([syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)) :: ret

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

<a name="l00339"></a> 339 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataCompactDimF\_R81D

<a name="l00340"></a> 340 !DIR$ ENDIF

<a name="l00341"></a> 341 end function syscgetinputvectordatacompactdimf_r81d

<a name="l00342"></a> 342 !

<a name="l00343"></a> 343 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00350"></a> 350 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00351"></a>[ 351](interfacefortran_1_1syscgetinputvectordatacompactdimf.xhtml#ac3ae853697a231bd047767a7f3585854) function syscgetinputvectordatacompactdimf_r42d(data, dataSize, dimension)&amp;

<a name="l00352"></a> 352 result(ret)

<a name="l00353"></a> 353 import :: [syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)

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

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

<a name="l00356"></a> 356  real(kind=4), intent(in), target :: data(dimension, datasize)

<a name="l00357"></a> 357 type([syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)) :: ret

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

<a name="l00359"></a> 359 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataCompactDimF\_R42D

<a name="l00360"></a> 360 !DIR$ ENDIF

<a name="l00361"></a> 361 end function syscgetinputvectordatacompactdimf_r42d

<a name="l00362"></a> 362 !

<a name="l00363"></a> 363 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00370"></a> 370 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00371"></a>[ 371](interfacefortran_1_1syscgetinputvectordatacompactdimf.xhtml#a4974af83de7113830927bec0d27f67b7) function syscgetinputvectordatacompactdimf_r82d(data, dataSize, dimension)&amp;

<a name="l00372"></a> 372 result(ret)

<a name="l00373"></a> 373 import :: [syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)

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

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

<a name="l00376"></a> 376  real(kind=8), intent(in), target :: data(dimension, datasize)

<a name="l00377"></a> 377 type([syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)) :: ret

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

<a name="l00379"></a> 379 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataCompactDimF\_R82D

<a name="l00380"></a> 380 !DIR$ ENDIF

<a name="l00381"></a> 381 end function syscgetinputvectordatacompactdimf_r82d

<a name="l00382"></a> 382 !

<a name="l00383"></a> 383 end interface [syscgetinputvectordatacompactdimf](interfacefortran_1_1syscgetinputvectordatacompactdimf.xhtml)

<a name="l00384"></a> 384 !

<a name="l00385"></a> 385 end module fortran

[fortran::syscgetinput2dvectordatasplitf](interfacefortran_1_1syscgetinput2dvectordatasplitf.xhtml)

Provide an interface to get 2D input vector data.

**Definition:** [syscInputVectorDataF.fi:147](syscInputVectorDataF_8fi_source.xhtml#l00147)



[fortran::syscgetinputvectordatacompactdimf](interfacefortran_1_1syscgetinputvectordatacompactdimf.xhtml)

Provide an interface to get input vector data with compact storage based on dimension.

**Definition:** [syscInputVectorDataF.fi:301](syscInputVectorDataF_8fi_source.xhtml#l00301)



[fortran::syscgetinputvectordatacompactf](interfacefortran_1_1syscgetinputvectordatacompactf.xhtml)

Provide an interface to get input vector data with compact storage.

**Definition:** [syscInputVectorDataF.fi:225](syscInputVectorDataF_8fi_source.xhtml#l00225)



[fortran::syscgetinputvectordataf](interfacefortran_1_1syscgetinputvectordataf.xhtml)

Provide an interface to get input vector data.

**Definition:** [syscInputVectorDataF.fi:43](syscInputVectorDataF_8fi_source.xhtml#l00043)



[fortran::syscgetinputvectordatasplitf](interfacefortran_1_1syscgetinputvectordatasplitf.xhtml)

Provide an interface to get input vector data with split storage.

**Definition:** [syscInputVectorDataF.fi:66](syscInputVectorDataF_8fi_source.xhtml#l00066)



[fortran::syscinputvectordataf](structfortran_1_1syscinputvectordataf.xhtml)

Create an input vector data access type.

**Definition:** [syscInputVectorDataF.fi:31](syscInputVectorDataF_8fi_source.xhtml#l00031)