File syscDataTransferF.fi

Location: syscDataTransferF.fi

Classes

• fortran::syscdatatransferf
• fortran::syscgetdatatransferf

Namespaces

• fortran

Source

module fortran
!
! Copyright ANSYS, Inc. 
! Unauthorized use, distribution, or duplication is prohibited.
!
! Provide free-form Fortran interface for
! System Coupling Participant Library.
!
! *********************************************************************
! *********************************************************************
type :: syscdatatransferf
  type(syscvariablef) :: sourcevariable
  type(syscvariablef) :: targetvariable
  integer(kind=4) :: targetside
end type syscdatatransferf
!
!**********************************************************************
!
interface syscgetdatatransferf
!
!**********************************************************************
!**********************************************************************
function syscgetdatatransferf(sourceVariable, targetVariable, &
  targetSide) result(ret)
!
  import :: syscdatatransferf, syscvariablef
  type(syscvariablef), intent(in) :: sourcevariable
  type(syscvariablef), intent(in) :: targetvariable
  integer(kind=4), intent(in) :: targetside
  type(syscdatatransferf) :: ret
!
!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetDataTransferF
!DIR$ ENDIF
!
end function syscgetdatatransferf
!
!**********************************************************************
!
end interface syscgetdatatransferf
!

end module fortran