syscPointCloudF.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 :: syscpointcloudf
  type(syscoutputintegerdataf) :: nodeids
  type(syscoutputvectordataf) :: nodecoords
end type syscpointcloudf
!
!**********************************************************************
!**********************************************************************
interface syscgetpointcloudf
!
!**********************************************************************
!**********************************************************************
function syscgetpointcloudf_empty() result (ret)
  import :: syscpointcloudf
  type(syscpointcloudf) :: ret
!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetPointCloudF_Empty
!DIR$ ENDIF
end function syscgetpointcloudf_empty
!
!**********************************************************************
!**********************************************************************
function syscgetpointcloudf(nodeIds, nodeCoords) result (ret)
  import :: syscpointcloudf, syscoutputintegerdataf, &
    syscoutputvectordataf
  type(syscoutputintegerdataf), intent(in) :: nodeids
  type(syscoutputvectordataf), intent(in) :: nodecoords
  type(syscpointcloudf) :: ret
!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetPointCloudF
!DIR$ ENDIF
end function syscgetpointcloudf
!
end interface syscgetpointcloudf
!
end module fortran
System Coupling Fortran library 2024 R1

syscPointCloudF

Connect with Ansys
