File syscPointCloudF.fi

Location: syscPointCloudF.fi

Classes

• fortran::syscpointcloudf
• fortran::syscgetpointcloudf

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 :: 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