## On this page

  

 

 # syscCommonTypesF

 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 ! This interfaces file provides commonly-used types and parameters.

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

<a name="l00011"></a> 11 ! \*\*\*\*\*\* Parameter for string legth \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00012"></a> 12 !

<a name="l00013"></a> 13 integer(kind=4), parameter :: SyscStrLen = 256

<a name="l00014"></a> 14 integer(kind=4), parameter :: SyscFilePathLen = 4096

<a name="l00015"></a> 15 !

<a name="l00016"></a> 16 ! \*\*\*\*\*\* Parameters for variable mesh locations \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00017"></a> 17 !

<a name="l00018"></a> 18 integer(kind=4), parameter :: SyscNode = 0

<a name="l00019"></a> 19 integer(kind=4), parameter :: SyscElement = 1

<a name="l00020"></a> 20 !

<a name="l00021"></a> 21 ! \*\*\*\*\*\* Parameters for variable tensor types \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00022"></a> 22 !

<a name="l00023"></a> 23 integer(kind=4), parameter :: SyscScalar = 0

<a name="l00024"></a> 24 integer(kind=4), parameter :: SyscVector = 1

<a name="l00025"></a> 25 !

<a name="l00026"></a> 26 ! \*\*\*\*\*\* Parameters for region topologies \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00027"></a> 27 !

<a name="l00028"></a> 28 integer(kind=4), parameter :: SyscSurface = 2

<a name="l00029"></a> 29 integer(kind=4), parameter :: SyscVolume = 3

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

<a name="l00031"></a> 31 ! \*\*\*\*\*\* Parameters for region discretization types \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

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

<a name="l00033"></a> 33 integer(kind=4), parameter :: SyscMeshRegion = 0

<a name="l00034"></a> 34 integer(kind=4), parameter :: SyscPointCloudRegion = 1

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

<a name="l00036"></a> 36 ! \*\*\*\*\*\*\*\*\*\*\* Parameters for interface side \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00037"></a> 37 !

<a name="l00038"></a> 38 integer(kind=4), parameter :: SyscInterfaceSide_One = 1

<a name="l00039"></a> 39 integer(kind=4), parameter :: SyscInterfaceSide_Two = 2

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

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

<a name="l00042"></a> 42 !! \\brief Provide a structure for dimensionality

<a name="l00043"></a>[ 43](structfortran_1_1syscdimensionalityf.xhtml) type :: [syscdimensionalityf](structfortran_1_1syscdimensionalityf.xhtml)

<a name="l00044"></a> 44  real(kind=8) :: length

<a name="l00045"></a> 45  real(kind=8) :: time

<a name="l00046"></a> 46  real(kind=8) :: mass

<a name="l00047"></a> 47  real(kind=8) :: temperature

<a name="l00048"></a> 48  real(kind=8) :: amountofsubstance

<a name="l00049"></a> 49  real(kind=8) :: current

<a name="l00050"></a> 50  real(kind=8) :: luminousintensity

<a name="l00051"></a> 51  real(kind=8) :: angle

<a name="l00052"></a> 52 end type [syscdimensionalityf](structfortran_1_1syscdimensionalityf.xhtml)

<a name="l00053"></a> 53 !

<a name="l00054"></a> 54 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00056"></a> 56 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

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

<a name="l00058"></a>[ 58](interfacefortran_1_1syscgetdimensionalityf.xhtml) interface [syscgetdimensionalityf](interfacefortran_1_1syscgetdimensionalityf.xhtml)

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

<a name="l00060"></a> 60 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

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

<a name="l00065"></a>[ 65](interfacefortran_1_1syscgetdimensionalityf.xhtml#aa3941d7e6725d55891d181a71c40fd44) function [syscgetdimensionalityf](interfacefortran_1_1syscgetdimensionalityf.xhtml)() result(ret)

<a name="l00066"></a> 66 !

<a name="l00067"></a> 67 import :: [syscdimensionalityf](structfortran_1_1syscdimensionalityf.xhtml)

<a name="l00068"></a> 68 type([syscdimensionalityf](structfortran_1_1syscdimensionalityf.xhtml)) :: ret

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

<a name="l00070"></a> 70 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetDimensionalityF

<a name="l00071"></a> 71 !DIR$ ENDIF

<a name="l00072"></a> 72 end function [syscgetdimensionalityf](interfacefortran_1_1syscgetdimensionalityf.xhtml)

<a name="l00073"></a> 73 !

<a name="l00074"></a> 74 end interface [syscgetdimensionalityf](interfacefortran_1_1syscgetdimensionalityf.xhtml)

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

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

<a name="l00077"></a> 77 ! \\brief Provide parameters for supported quantity types.

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

<a name="l00079"></a> 79 ! Quantity type provides information about the physical meaning of

<a name="l00080"></a> 80 ! the variable. This can be useful for detecting validation errors

<a name="l00081"></a> 81 ! during the coupled analysis setup. If the variable does not match

<a name="l00082"></a> 82 ! any of the provided quantity types, quantity type can be set to

<a name="l00083"></a> 83 ! unspecified.

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

<a name="l00085"></a> 85 integer(kind=4), parameter :: syscunspecified = 0

<a name="l00086"></a> 86 integer(kind=4), parameter :: syscforce = 1

<a name="l00087"></a> 87 integer(kind=4), parameter :: syscincrementaldisplacement = 2

<a name="l00088"></a> 88 integer(kind=4), parameter :: sysctemperature = 3

<a name="l00089"></a> 89 integer(kind=4), parameter :: syscheatrate = 4

<a name="l00090"></a> 90 integer(kind=4), parameter :: syscheattransfercoefficient = 5

<a name="l00091"></a> 91 integer(kind=4), parameter :: syscconvectionreferencetemperature = 6

<a name="l00092"></a> 92 integer(kind=4), parameter :: syscmodeshape = 7

<a name="l00093"></a> 93 integer(kind=4), parameter :: syscelectricalconductivity = 8

<a name="l00094"></a> 94 !

<a name="l00095"></a> 95 ! \*\*\*\*\*\* Parameters for data type \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

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

<a name="l00097"></a> 97 integer(kind=4), parameter :: syscdatatype_real = 0

<a name="l00098"></a> 98 integer(kind=4), parameter :: syscdatatype_complex = 1

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

<a name="l00100"></a> 100 ! \*\*\*\*\*\* Parameters for participant solver's convergence status \*\*\*\*\*\*\*

<a name="l00101"></a> 101 !

<a name="l00102"></a> 102 integer(kind=4), parameter :: syscdiverging = -1

<a name="l00103"></a> 103 integer(kind=4), parameter :: syscnotyetconverged = 0

<a name="l00104"></a> 104 integer(kind=4), parameter :: syscconverged = 1

<a name="l00105"></a> 105 integer(kind=4), parameter :: sysccomplete = 2

<a name="l00106"></a> 106 integer(kind=4), parameter :: syscnotevaluated = 3

<a name="l00107"></a> 107 !

<a name="l00108"></a> 108 ! \*\*\*\*\*\* Parameters for analysis types \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

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

<a name="l00110"></a> 110 integer(kind=4), parameter :: syscsteady = 0

<a name="l00111"></a> 111 integer(kind=4), parameter :: sysctransient = 1

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

<a name="l00113"></a> 113 ! \*\*\*\*\*\* Parameters for dimension \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00114"></a> 114 !

<a name="l00115"></a> 115 integer(kind=8), parameter :: syscd2 = 2

<a name="l00116"></a> 116 integer(kind=8), parameter :: syscd3 = 3

<a name="l00117"></a> 117 !

<a name="l00118"></a> 118 ! \*\*\*\*\*\* Parameters for time integration \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00119"></a> 119 !

<a name="l00120"></a> 120 integer(kind=8), parameter :: syscimplicit = 0

<a name="l00121"></a> 121 integer(kind=8), parameter :: syscexplicit = 1

<a name="l00122"></a> 122 !

<a name="l00123"></a> 123 ! \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00124"></a> 124 !

<a name="l00126"></a>[ 126](structfortran_1_1sysctimestepf.xhtml) type :: [sysctimestepf](structfortran_1_1sysctimestepf.xhtml)

<a name="l00127"></a>[ 127](structfortran_1_1sysctimestepf.xhtml#a6e5ddd537aaf8d69b811abda71510ca7) integer(kind=8) :: timestepnumber

<a name="l00128"></a>[ 128](structfortran_1_1sysctimestepf.xhtml#aadc3370b9e2337739a8831790220ea37)  real(kind=8) :: starttime 

<a name="l00129"></a>[ 129](structfortran_1_1sysctimestepf.xhtml#a19b7d81773f470750c5427fd5153bdf2)  real(kind=8) :: timestepsize 

<a name="l00130"></a> 130 end type [sysctimestepf](structfortran_1_1sysctimestepf.xhtml)

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

<a name="l00132"></a> 132 ! \*\*\*\*\*\* Parameters for return codes \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00133"></a> 133 !

<a name="l00134"></a> 134 integer(kind=4), parameter :: syscstatusok = 0

<a name="l00135"></a> 135 integer(kind=4), parameter :: syscstatuserror = 1

<a name="l00136"></a> 136 !

<a name="l00138"></a>[ 138](structfortran_1_1syscerrorf.xhtml) type :: [syscerrorf](structfortran_1_1syscerrorf.xhtml)

<a name="l00140"></a>[ 140](structfortran_1_1syscerrorf.xhtml#a79a9fe07cdde873d9bf5a786ee076cba) integer(kind=4) :: retcode

<a name="l00142"></a>[ 142](structfortran_1_1syscerrorf.xhtml#a03ea72a9d280946f9411ff9c261f7fa6) character(len=SyscStrLen) :: message

<a name="l00143"></a> 143 end type [syscerrorf](structfortran_1_1syscerrorf.xhtml)

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

<a name="l00145"></a> 145 ! \*\*\*\*\*\* Provide parameters for supported primitive types \*\*\*\*\*\*\*\*\*\*\*\*\*

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

<a name="l00147"></a> 147 integer(kind=4), parameter :: syscreal4 = 0

<a name="l00148"></a> 148 integer(kind=4), parameter :: syscreal8 = 1

<a name="l00149"></a> 149 integer(kind=4), parameter :: syscint4 = 2

<a name="l00150"></a> 150 integer(kind=4), parameter :: syscint8 = 3

<a name="l00151"></a> 151 !

<a name="l00152"></a> 152 ! \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00164"></a> 164 ! \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00165"></a>[ 165](structfortran_1_1syscsetupinfof.xhtml) type :: [syscsetupinfof](structfortran_1_1syscsetupinfof.xhtml)

<a name="l00166"></a>[ 166](structfortran_1_1syscsetupinfof.xhtml#aeab455ed168e2f3e178793e8f6c69c50) integer(kind=8) :: analysistype

<a name="l00167"></a>[ 167](structfortran_1_1syscsetupinfof.xhtml#a4a6aff883f05c2ab2f3fedc949218ed0) logical(kind=8) :: restartssupported

<a name="l00168"></a>[ 168](structfortran_1_1syscsetupinfof.xhtml#a86ac613c1baf4a60d347742b387bb8e4) integer(kind=8) :: dimension

<a name="l00169"></a>[ 169](structfortran_1_1syscsetupinfof.xhtml#aaba5b0455fb1c9d401a6bdc7eec0adc3) integer(kind=8) :: timeintegration

<a name="l00170"></a> 170 end type [syscsetupinfof](structfortran_1_1syscsetupinfof.xhtml)

<a name="l00171"></a> 171 !

<a name="l00172"></a> 172 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

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

<a name="l00175"></a> 175 !

<a name="l00176"></a>[ 176](interfacefortran_1_1syscgetsetupinfof.xhtml) interface [syscgetsetupinfof](interfacefortran_1_1syscgetsetupinfof.xhtml)

<a name="l00177"></a> 177 !

<a name="l00178"></a> 178 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

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

<a name="l00188"></a>[ 188](interfacefortran_1_1syscgetsetupinfof.xhtml#a73374df2183a799e03180e006525fcfe) function [syscgetsetupinfof](interfacefortran_1_1syscgetsetupinfof.xhtml)() result(ret)

<a name="l00189"></a> 189 !

<a name="l00190"></a> 190 import :: [syscsetupinfof](structfortran_1_1syscsetupinfof.xhtml)

<a name="l00191"></a> 191 type([syscsetupinfof](structfortran_1_1syscsetupinfof.xhtml)) :: ret

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

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

<a name="l00194"></a> 194 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetSetupInfoF

<a name="l00195"></a> 195 !DIR$ ENDIF

<a name="l00196"></a> 196 !

<a name="l00197"></a> 197 end function [syscgetsetupinfof](interfacefortran_1_1syscgetsetupinfof.xhtml)

<a name="l00198"></a> 198 !

<a name="l00199"></a> 199 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00209"></a> 209 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00210"></a>[ 210](interfacefortran_1_1syscgetsetupinfof.xhtml#af89452107509346cb3968adad6f1c6d9) function syscgetsetupinfof_a(analysisType) result(ret)

<a name="l00211"></a> 211 !

<a name="l00212"></a> 212 import :: [syscsetupinfof](structfortran_1_1syscsetupinfof.xhtml)

<a name="l00213"></a> 213 integer(kind=4), intent(in) :: analysistype

<a name="l00214"></a> 214 type([syscsetupinfof](structfortran_1_1syscsetupinfof.xhtml)) :: ret

<a name="l00215"></a> 215 !

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

<a name="l00217"></a> 217 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetSetupInfoF\_A

<a name="l00218"></a> 218 !DIR$ ENDIF

<a name="l00219"></a> 219 !

<a name="l00220"></a> 220 end function syscgetsetupinfof_a

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

<a name="l00222"></a> 222 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

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

<a name="l00233"></a>[ 233](interfacefortran_1_1syscgetsetupinfof.xhtml#ac3020d59c6b0721f63232f77546a302e) function syscgetsetupinfof_ar(analysisType, &amp;

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

<a name="l00235"></a> 235 !

<a name="l00236"></a> 236 import :: [syscsetupinfof](structfortran_1_1syscsetupinfof.xhtml)

<a name="l00237"></a> 237 integer(kind=4), intent(in) :: analysistype

<a name="l00238"></a> 238 logical, intent(in) :: restartssupported

<a name="l00239"></a> 239 type([syscsetupinfof](structfortran_1_1syscsetupinfof.xhtml)) :: ret

<a name="l00240"></a> 240 !

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

<a name="l00242"></a> 242 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetSetupInfoF\_AR

<a name="l00243"></a> 243 !DIR$ ENDIF

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

<a name="l00245"></a> 245 end function syscgetsetupinfof_ar

<a name="l00246"></a> 246 !

<a name="l00247"></a> 247 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00257"></a> 257 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00258"></a>[ 258](interfacefortran_1_1syscgetsetupinfof.xhtml#a3c851b3d577d4f00298c0f2359156269) function syscgetsetupinfof_ard(analysisType, &amp;

<a name="l00259"></a> 259 restartsSupported, dimension) result(ret)

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

<a name="l00261"></a> 261 import :: [syscsetupinfof](structfortran_1_1syscsetupinfof.xhtml)

<a name="l00262"></a> 262 integer(kind=4), intent(in) :: analysistype

<a name="l00263"></a> 263 logical, intent(in) :: restartssupported

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

<a name="l00265"></a> 265 type([syscsetupinfof](structfortran_1_1syscsetupinfof.xhtml)) :: ret

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

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

<a name="l00268"></a> 268 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetSetupInfoF\_ARD

<a name="l00269"></a> 269 !DIR$ ENDIF

<a name="l00270"></a> 270 !

<a name="l00271"></a> 271 end function syscgetsetupinfof_ard

<a name="l00272"></a> 272 !

<a name="l00273"></a> 273 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00282"></a> 282 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00283"></a>[ 283](interfacefortran_1_1syscgetsetupinfof.xhtml#a46881d97ac682f3165cfaa087727300c) function syscgetsetupinfof_ardt(analysisType, &amp;

<a name="l00284"></a> 284 restartsSupported, dimension, timeIntegration) &amp;

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

<a name="l00286"></a> 286 !

<a name="l00287"></a> 287 import :: [syscsetupinfof](structfortran_1_1syscsetupinfof.xhtml)

<a name="l00288"></a> 288 integer(kind=4), intent(in) :: analysistype

<a name="l00289"></a> 289 logical, intent(in) :: restartssupported

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

<a name="l00291"></a> 291 integer(kind=8), intent(in) :: timeintegration

<a name="l00292"></a> 292 type([syscsetupinfof](structfortran_1_1syscsetupinfof.xhtml)) :: ret

<a name="l00293"></a> 293 !

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

<a name="l00295"></a> 295 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetSetupInfoF\_ARDT

<a name="l00296"></a> 296 !DIR$ ENDIF

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

<a name="l00298"></a> 298 end function syscgetsetupinfof_ardt

<a name="l00299"></a> 299 !

<a name="l00300"></a> 300 end interface [syscgetsetupinfof](interfacefortran_1_1syscgetsetupinfof.xhtml)

<a name="l00301"></a> 301 !

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

<a name="l00315"></a> 315 ! \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00316"></a>[ 316](structfortran_1_1syscsetupfileinfof.xhtml) type :: [syscsetupfileinfof](structfortran_1_1syscsetupfileinfof.xhtml)

<a name="l00317"></a>[ 317](structfortran_1_1syscsetupfileinfof.xhtml#ab4e2b5c783a6f184674e32cfaaa4f09e) character(len=SyscFilePathLen) :: setupfilename

<a name="l00318"></a>[ 318](structfortran_1_1syscsetupfileinfof.xhtml#a2758579ead626ca02c0c38e9d0407056) logical :: restartssupported

<a name="l00319"></a> 319 end type [syscsetupfileinfof](structfortran_1_1syscsetupfileinfof.xhtml)

<a name="l00320"></a> 320 !

<a name="l00321"></a> 321 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00324"></a> 324 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00325"></a> 325 !

<a name="l00326"></a>[ 326](interfacefortran_1_1syscgetsetupfileinfof.xhtml) interface [syscgetsetupfileinfof](interfacefortran_1_1syscgetsetupfileinfof.xhtml)

<a name="l00327"></a> 327 !

<a name="l00328"></a> 328 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00334"></a> 334 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00335"></a>[ 335](interfacefortran_1_1syscgetsetupfileinfof.xhtml#abe48d99971ec8f83f367fdb7a87dfed3) function [syscgetsetupfileinfof](interfacefortran_1_1syscgetsetupfileinfof.xhtml)(setupFileName) result(ret)

<a name="l00336"></a> 336 !

<a name="l00337"></a> 337 import :: [syscsetupfileinfof](structfortran_1_1syscsetupfileinfof.xhtml)

<a name="l00338"></a> 338 character(len=\*), intent(in) :: setupfilename

<a name="l00339"></a> 339 type([syscsetupfileinfof](structfortran_1_1syscsetupfileinfof.xhtml)) :: ret

<a name="l00340"></a> 340 !

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

<a name="l00342"></a> 342 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetSetupFileInfoF

<a name="l00343"></a> 343 !DIR$ ENDIF

<a name="l00344"></a> 344 !

<a name="l00345"></a> 345 end function [syscgetsetupfileinfof](interfacefortran_1_1syscgetsetupfileinfof.xhtml)

<a name="l00346"></a> 346 !

<a name="l00347"></a> 347 end interface [syscgetsetupfileinfof](interfacefortran_1_1syscgetsetupfileinfof.xhtml)

<a name="l00348"></a> 348 !

<a name="l00349"></a> 349 ! \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00351"></a> 351 ! \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00352"></a>[ 352](structfortran_1_1syscresultsinfof.xhtml) type :: [syscresultsinfof](structfortran_1_1syscresultsinfof.xhtml)

<a name="l00353"></a>[ 353](structfortran_1_1syscresultsinfof.xhtml#ab87a2b05cc2fa1114379c39b325438b4) character(len=SyscFilePathLen) :: basefilename

<a name="l00354"></a> 354 end type [syscresultsinfof](structfortran_1_1syscresultsinfof.xhtml)

<a name="l00355"></a> 355 !

<a name="l00356"></a> 356 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00359"></a> 359 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00360"></a> 360 !

<a name="l00361"></a>[ 361](interfacefortran_1_1syscgetresultsinfof.xhtml) interface [syscgetresultsinfof](interfacefortran_1_1syscgetresultsinfof.xhtml)

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

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

<a name="l00369"></a> 369 !\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a name="l00370"></a>[ 370](interfacefortran_1_1syscgetresultsinfof.xhtml#a0f2168e1376a79a7ccfc251f63f008d2) function [syscgetresultsinfof](interfacefortran_1_1syscgetresultsinfof.xhtml)(baseFileName) result(ret)

<a name="l00371"></a> 371 import :: [syscresultsinfof](structfortran_1_1syscresultsinfof.xhtml)

<a name="l00372"></a> 372 character(len=\*), intent(in) :: basefilename

<a name="l00373"></a> 373 type([syscresultsinfof](structfortran_1_1syscresultsinfof.xhtml)) :: ret

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

<a name="l00375"></a> 375 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetResultsInfoF

<a name="l00376"></a> 376 !DIR$ ENDIF

<a name="l00377"></a> 377 end function [syscgetresultsinfof](interfacefortran_1_1syscgetresultsinfof.xhtml)

<a name="l00378"></a> 378 !

<a name="l00379"></a> 379 end interface [syscgetresultsinfof](interfacefortran_1_1syscgetresultsinfof.xhtml)

<a name="l00380"></a> 380 !

<a name="l00381"></a> 381 

<a name="l00382"></a> 382 end module fortran

[fortran::syscgetdimensionalityf](interfacefortran_1_1syscgetdimensionalityf.xhtml)

Provide an interface to get dimensionality.

**Definition:** [syscCommonTypesF.fi:58](syscCommonTypesF_8fi_source.xhtml#l00058)



[fortran::syscgetresultsinfof](interfacefortran_1_1syscgetresultsinfof.xhtml)

Provide an interface to get a System Coupling results info type.

**Definition:** [syscCommonTypesF.fi:361](syscCommonTypesF_8fi_source.xhtml#l00361)



[fortran::syscgetsetupfileinfof](interfacefortran_1_1syscgetsetupfileinfof.xhtml)

Provide an interface to get a System Coupling setup file info type.

**Definition:** [syscCommonTypesF.fi:326](syscCommonTypesF_8fi_source.xhtml#l00326)



[fortran::syscgetsetupinfof](interfacefortran_1_1syscgetsetupinfof.xhtml)

Provide an interface to get a setup info type.

**Definition:** [syscCommonTypesF.fi:176](syscCommonTypesF_8fi_source.xhtml#l00176)



[fortran::syscdimensionalityf](structfortran_1_1syscdimensionalityf.xhtml)

**Definition:** [syscCommonTypesF.fi:43](syscCommonTypesF_8fi_source.xhtml#l00043)



[fortran::syscerrorf](structfortran_1_1syscerrorf.xhtml)

Provide an error type returned by the Fortran interface calls.

**Definition:** [syscCommonTypesF.fi:138](syscCommonTypesF_8fi_source.xhtml#l00138)



[fortran::syscresultsinfof](structfortran_1_1syscresultsinfof.xhtml)

Provide a type for writing results files.

**Definition:** [syscCommonTypesF.fi:352](syscCommonTypesF_8fi_source.xhtml#l00352)



[fortran::syscsetupfileinfof](structfortran_1_1syscsetupfileinfof.xhtml)

Provide a type for writing System Coupling setup files.

**Definition:** [syscCommonTypesF.fi:316](syscCommonTypesF_8fi_source.xhtml#l00316)



[fortran::syscsetupinfof](structfortran_1_1syscsetupinfof.xhtml)

Provide a type for System Coupling setup information.

**Definition:** [syscCommonTypesF.fi:165](syscCommonTypesF_8fi_source.xhtml#l00165)



[fortran::sysctimestepf](structfortran_1_1sysctimestepf.xhtml)

Provide a time step type.

**Definition:** [syscCommonTypesF.fi:126](syscCommonTypesF_8fi_source.xhtml#l00126)