## On this page

  

 

 # syscInputVectorDataF

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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



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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

<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 :: syscGetInputVectorDataSplitF\_R83A

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



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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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



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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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



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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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



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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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



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

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

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