syscCouplingInterfaceF.fi | Ansys Developer Portal

 module fortran
 !
 ! Copyright ANSYS, Inc. 
 ! Unauthorized use, distribution, or duplication is prohibited.
 !
 ! Provide free-form Fortran interface for
 ! System Coupling Participant Library.
 !
 ! *********************************************************************
 ! *********************************************************************
 type :: sysccouplinginterfacef
   character(len=SyscStrLen) :: name
 end type sysccouplinginterfacef
 !
 !**********************************************************************
 !
 interface syscgetcouplinginterfacef
 !
 !**********************************************************************
 !**********************************************************************
 function syscgetcouplinginterfacef(name) result(ret)
 !
   import :: sysccouplinginterfacef
   character(len=*), intent(in) :: name
   type(sysccouplinginterfacef) :: ret
 !
 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetCouplingInterfaceF
 !DIR$ ENDIF
 !
 end function syscgetcouplinginterfacef
 !
 !**********************************************************************
 !
 end interface syscgetcouplinginterfacef
 !
 interface syscaddsideoneregionf
 !
 !**********************************************************************
 !**********************************************************************
 !
 function syscaddsideoneregionf(interface, region) result (ret)
 !
   import :: sysccouplinginterfacef
   import :: syscregionf
   import :: syscerrorf
   type(sysccouplinginterfacef), intent(in) :: interface
   type(syscregionf), intent(in) :: region
   type(syscerrorf) :: ret
 !
 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
 !DIR$ ATTRIBUTES DLLIMPORT :: syscAddSideOneRegionF
 !DIR$ ENDIF
 !
 end function syscaddsideoneregionf
 !
 end interface syscaddsideoneregionf
 !
 !**********************************************************************
 !
 interface syscaddsidetworegionf
 !
 !**********************************************************************
 !**********************************************************************
 !
 function syscaddsidetworegionf(interface, region) result (ret)
 !
   import :: sysccouplinginterfacef
   import :: syscregionf
   import :: syscerrorf
   type(sysccouplinginterfacef), intent(in) :: interface
   type(syscregionf), intent(in) :: region
   type(syscerrorf) :: ret
 !
 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
 !DIR$ ATTRIBUTES DLLIMPORT :: syscAddSideTwoRegionF
 !DIR$ ENDIF
 !
 end function syscaddsidetworegionf
 !
 end interface syscaddsidetworegionf
 !
 !**********************************************************************
 !
 interface syscadddatatransferf
 !
 !**********************************************************************
 !**********************************************************************
 !
 function syscadddatatransferf(couplingInterface, dataTransfer)&
   result(ret)
 !
   import :: sysccouplinginterfacef
   import :: syscdatatransferf
   import :: syscerrorf
   type(sysccouplinginterfacef), intent(in) :: couplinginterface
   type(syscdatatransferf), intent(in) :: datatransfer
   type(syscerrorf) :: ret
 !
 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
 !DIR$ ATTRIBUTES DLLIMPORT :: syscAddDataTransferF
 !DIR$ ENDIF
 !
 end function syscadddatatransferf
 !
 end interface syscadddatatransferf
 !
 !**********************************************************************
 !
 interface sysccouplinginterfacegetnumdatatransfersf
 !
 !**********************************************************************
 !**********************************************************************
 !
 function sysccouplinginterfacegetnumdatatransfersf(&
   couplingInterface) result (ret)
 !
   import :: sysccouplinginterfacef
   type(sysccouplinginterfacef), intent(in) :: couplinginterface
   integer(kind=8) :: ret
 !
 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
 !DIR$ ATTRIBUTES DLLIMPORT :: syscCouplingInterfaceGetNumDataTransfersF
 !DIR$ ENDIF
 !
 end function sysccouplinginterfacegetnumdatatransfersf
 !
 end interface sysccouplinginterfacegetnumdatatransfersf
 !
 !**********************************************************************
 !
 interface sysccouplinginterfacegetnumsideoneregionsf
 !
 !**********************************************************************
 !**********************************************************************
 !
 function sysccouplinginterfacegetnumsideoneregionsf(&
   couplingInterface) result (ret)
 !
   import :: sysccouplinginterfacef
   type(sysccouplinginterfacef), intent(in) :: couplinginterface
   integer(kind=8) :: ret
 !
 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
 !DIR$ ATTRIBUTES DLLIMPORT :: syscCouplingInterfaceGetNumSideOneRegionsF
 !DIR$ ENDIF
 !
 end function sysccouplinginterfacegetnumsideoneregionsf
 !
 end interface sysccouplinginterfacegetnumsideoneregionsf
 !
 !**********************************************************************
 !
 interface sysccouplinginterfacegetnumsidetworegionsf
 !
 !**********************************************************************
 !**********************************************************************
 !
 function sysccouplinginterfacegetnumsidetworegionsf(&
   couplingInterface) result (ret)
 !
   import :: sysccouplinginterfacef
   type(sysccouplinginterfacef), intent(in) :: couplinginterface
   integer(kind=8) :: ret
 !
 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
 !DIR$ ATTRIBUTES DLLIMPORT :: syscCouplingInterfaceGetNumSideTwoRegionsF
 !DIR$ ENDIF
 !
 end function sysccouplinginterfacegetnumsidetworegionsf
 !
 end interface sysccouplinginterfacegetnumsidetworegionsf
 !
 !**********************************************************************
 !
 !
 interface sysccouplinginterfacegetdatatransferf
 !
 !**********************************************************************
 !**********************************************************************
 !
 function sysccouplinginterfacegetdatatransferf(&
   couplingInterface, index) result (ret)
 !
   import :: sysccouplinginterfacef, syscdatatransferf
   type(sysccouplinginterfacef), intent(in) :: couplinginterface
   integer(kind=8), intent(in) :: index
   type(syscdatatransferf) :: ret
 !
 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
 !DIR$ ATTRIBUTES DLLIMPORT :: syscCouplingInterfaceGetDataTransferF
 !DIR$ ENDIF
 !
 end function sysccouplinginterfacegetdatatransferf
 !
 end interface sysccouplinginterfacegetdatatransferf
 !
 !**********************************************************************
 !
 !
 interface sysccouplinginterfacegetsideoneregionf
 !
 !**********************************************************************
 !**********************************************************************
 !
 function sysccouplinginterfacegetsideoneregionf(&
   couplingInterface, index) result (ret)
 !
   import :: sysccouplinginterfacef, syscregionf
   type(sysccouplinginterfacef), intent(in) :: couplinginterface
   integer(kind=8), intent(in) :: index
   type(syscregionf) :: ret
 !
 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
 !DIR$ ATTRIBUTES DLLIMPORT :: syscCouplingInterfaceGetSideOneRegionF
 !DIR$ ENDIF
 !
 end function sysccouplinginterfacegetsideoneregionf
 !
 end interface sysccouplinginterfacegetsideoneregionf
 !
 !**********************************************************************
 !
 !
 interface sysccouplinginterfacegetsidetworegionf
 !
 !**********************************************************************
 !**********************************************************************
 !
 function sysccouplinginterfacegetsidetworegionf(&
   couplingInterface, index) result (ret)
 !
   import :: sysccouplinginterfacef, syscregionf
   type(sysccouplinginterfacef), intent(in) :: couplinginterface
   integer(kind=8), intent(in) :: index
   type(syscregionf) :: ret
 !
 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
 !DIR$ ATTRIBUTES DLLIMPORT :: syscCouplingInterfaceGetSideTwoRegionF
 !DIR$ ENDIF
 !
 end function sysccouplinginterfacegetsidetworegionf
 !
 end interface sysccouplinginterfacegetsidetworegionf
 !
 end module fortran
System Coupling Fortran library 2025 R1

syscCouplingInterfaceF

Connect with Ansys
