syscDataTransferF Last update: 17.07.2025 1 module fortran 2 ! 3 ! Copyright ANSYS, Inc. 4 ! Unauthorized use, distribution, or duplication is prohibited. 5 ! 6 ! Provide free-form Fortran interface for 7 ! System Coupling Participant Library. 8 ! 9 ! ********************************************************************* 11 ! ********************************************************************* 12 type :: syscdatatransferf 13 type(syscvariablef) :: sourcevariable 14 type(syscvariablef) :: targetvariable 15 integer(kind=4) :: targetside 16 end type syscdatatransferf 17 ! 18 !********************************************************************** 19 ! 21 interface syscgetdatatransferf 22 ! 23 !********************************************************************** 31 !********************************************************************** 32 function syscgetdatatransferf(sourceVariable, targetVariable, & 33 targetSide) result(ret) 34 ! 35 import :: syscdatatransferf, syscvariablef 36 type(syscvariablef), intent(in) :: sourcevariable 37 type(syscvariablef), intent(in) :: targetvariable 38 integer(kind=4), intent(in) :: targetside 39 type(syscdatatransferf) :: ret 40 ! 41 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY)) 42 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetDataTransferF 43 !DIR$ ENDIF 44 ! 45 end function syscgetdatatransferf 46 ! 47 !********************************************************************** 48 ! 49 end interface syscgetdatatransferf 50 ! 51 52 end module fortran fortran::syscgetdatatransferfProvide an interface to get a data transfer.Definition: syscDataTransferF.fi:21 fortran::syscdatatransferfProvide a struct for a data transfer.Definition: syscDataTransferF.fi:12 fortran::syscvariablefProvide a struct for a System Coupling variable.Definition: syscVariableF.fi:23