## On this page

  

 

 # syscPointCloudF

 Last update: 17.07.2025 

<a id="l00001" name="l00001"></a> 1module fortran

<a id="l00002" name="l00002"></a> 2!

<a id="l00003" name="l00003"></a> 3! Copyright 2023 ANSYS, Inc. 

<a id="l00004" name="l00004"></a> 4! Unauthorized use, distribution, or duplication is prohibited.

<a id="l00005" name="l00005"></a> 5!

<a id="l00006" name="l00006"></a> 6! Provide free-form Fortran interface for

<a id="l00007" name="l00007"></a> 7! System Coupling Participant Library.

<a id="l00008" name="l00008"></a> 8!

<a id="l00009" name="l00009"></a> 9! \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a id="l00011" name="l00011"></a> 11! \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a id="l00012" name="l00012"></a>[ 12](structfortran_1_1syscpointcloudf.xhtml)type :: [syscpointcloudf](structfortran_1_1syscpointcloudf.xhtml)

<a id="l00013" name="l00013"></a>[ 13](structfortran_1_1syscpointcloudf.xhtml#a34207f80097afcc6f7e37b61187e604e) type([syscoutputintegerdataf](structfortran_1_1syscoutputintegerdataf.xhtml)) :: nodeids

<a id="l00014" name="l00014"></a>[ 14](structfortran_1_1syscpointcloudf.xhtml#ada1acb5d25c5ab0e62ade22161a73b14) type([syscoutputvectordataf](structfortran_1_1syscoutputvectordataf.xhtml)) :: nodecoords

<a id="l00015" name="l00015"></a> 15end type [syscpointcloudf](structfortran_1_1syscpointcloudf.xhtml)

<a id="l00016" name="l00016"></a> 16!

<a id="l00017" name="l00017"></a> 17!\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a id="l00019" name="l00019"></a> 19!\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a id="l00020" name="l00020"></a>[ 20](interfacefortran_1_1syscgetpointcloudf.xhtml)interface [syscgetpointcloudf](interfacefortran_1_1syscgetpointcloudf.xhtml)

<a id="l00021" name="l00021"></a> 21!

<a id="l00022" name="l00022"></a> 22!\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a id="l00024" name="l00024"></a> 24!\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a id="l00025" name="l00025"></a>[ 25](interfacefortran_1_1syscgetpointcloudf.xhtml#a6b35486af7700d2b1882bc3999ee6532)function syscgetpointcloudf_empty() result (ret)

<a id="l00026" name="l00026"></a> 26 import :: [syscpointcloudf](structfortran_1_1syscpointcloudf.xhtml)

<a id="l00027" name="l00027"></a> 27 type([syscpointcloudf](structfortran_1_1syscpointcloudf.xhtml)) :: ret

<a id="l00028" name="l00028"></a> 28!DIR$ IF DEFINED(\_WIN32)

<a id="l00029" name="l00029"></a> 29!DIR$ ATTRIBUTES DLLIMPORT :: syscGetPointCloudF\_Empty

<a id="l00030" name="l00030"></a> 30!DIR$ ENDIF

<a id="l00031" name="l00031"></a> 31end function syscgetpointcloudf_empty

<a id="l00032" name="l00032"></a> 32!

<a id="l00033" name="l00033"></a> 33!\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a id="l00043" name="l00043"></a> 43!\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

<a id="l00044" name="l00044"></a>[ 44](interfacefortran_1_1syscgetpointcloudf.xhtml#a9c8dc2d4d850a43b30daa744c6a58b9d)function [syscgetpointcloudf](interfacefortran_1_1syscgetpointcloudf.xhtml)(nodeIds, nodeCoords) result (ret)

<a id="l00045" name="l00045"></a> 45 import :: [syscpointcloudf](structfortran_1_1syscpointcloudf.xhtml), [syscoutputintegerdataf](structfortran_1_1syscoutputintegerdataf.xhtml), &amp;

<a id="l00046" name="l00046"></a> 46 [syscoutputvectordataf](structfortran_1_1syscoutputvectordataf.xhtml)

<a id="l00047" name="l00047"></a> 47 type([syscoutputintegerdataf](structfortran_1_1syscoutputintegerdataf.xhtml)), intent(in) :: nodeids

<a id="l00048" name="l00048"></a> 48 type([syscoutputvectordataf](structfortran_1_1syscoutputvectordataf.xhtml)), intent(in) :: nodecoords

<a id="l00049" name="l00049"></a> 49 type([syscpointcloudf](structfortran_1_1syscpointcloudf.xhtml)) :: ret

<a id="l00050" name="l00050"></a> 50!DIR$ IF DEFINED(\_WIN32)

<a id="l00051" name="l00051"></a> 51!DIR$ ATTRIBUTES DLLIMPORT :: syscGetPointCloudF

<a id="l00052" name="l00052"></a> 52!DIR$ ENDIF

<a id="l00053" name="l00053"></a> 53end function [syscgetpointcloudf](interfacefortran_1_1syscgetpointcloudf.xhtml)

<a id="l00054" name="l00054"></a> 54!

<a id="l00055" name="l00055"></a> 55end interface [syscgetpointcloudf](interfacefortran_1_1syscgetpointcloudf.xhtml)

<a id="l00056" name="l00056"></a> 56!

<a id="l00057" name="l00057"></a> 57end module fortran

[fortran::syscgetpointcloudf](interfacefortran_1_1syscgetpointcloudf.xhtml)

Provide an interface to get point cloud.

**Definition:** [syscPointCloudF.fi:20](syscPointCloudF_8fi_source.xhtml#l00020)



[fortran::syscoutputintegerdataf](structfortran_1_1syscoutputintegerdataf.xhtml)

Provide an output integer data access type.

**Definition:** [syscOutputIntegerDataF.fi:29](syscOutputIntegerDataF_8fi_source.xhtml#l00029)



[fortran::syscoutputvectordataf](structfortran_1_1syscoutputvectordataf.xhtml)

Create an output vector data access type.

**Definition:** [syscOutputVectorDataF.fi:31](syscOutputVectorDataF_8fi_source.xhtml#l00031)



[fortran::syscpointcloudf](structfortran_1_1syscpointcloudf.xhtml)

Provide a point cloud access type.

**Definition:** [syscPointCloudF.fi:12](syscPointCloudF_8fi_source.xhtml#l00012)