System Coupling Fortran library 2023 R2

syscSurfaceMeshF

Last update: 17.07.2025
1module fortran
2!
3! Copyright 2023 ANSYS, Inc.
4! Unauthorized use, distribution, or duplication is prohibited.
5!
6! Provide free-form Fortran interface for
7! System Coupling Participant Library.
8!
9! *********************************************************************
10!
15type :: syscsurfacemeshf
16 type(syscnodedataf) :: nodes
17
18 type(syscelementtypedataf) :: elemtypes
19
20 type(syscelementnodecountdataf) :: elemnodecounts
21
22 type(syscelementnodeconnectivitydataf) :: elemnodeconnectivity
23
24end type syscsurfacemeshf
25!
26!**********************************************************************
28!**********************************************************************
29interface syscgetsurfacemeshf
30!
31!**********************************************************************
36!**********************************************************************
37function syscgetsurfacemeshf() result (ret)
38 import :: syscsurfacemeshf
39 type(syscsurfacemeshf) :: ret
40!DIR$ IF DEFINED(_WIN32)
41!DIR$ ATTRIBUTES DLLIMPORT :: syscGetSurfaceMeshF
42!DIR$ ENDIF
43end function syscgetsurfacemeshf
44!
45!**********************************************************************
52!**********************************************************************
53function syscgetsurfacemeshf_nf(nodes, faces) result (ret)
54 import :: syscsurfacemeshf, syscnodedataf, syscfacedataf
55 type(syscnodedataf), intent(in) :: nodes
56 type(syscfacedataf), intent(in) :: faces
57 type(syscsurfacemeshf) :: ret
58!DIR$ IF DEFINED(_WIN32)
59!DIR$ ATTRIBUTES DLLIMPORT :: syscGetSurfaceMeshF_NF
60!DIR$ ENDIF
61end function syscgetsurfacemeshf_nf
62!
63!**********************************************************************
73!**********************************************************************
74function syscgetsurfacemeshf_ntci(&
75 nodes,&
76 elemTypes,&
77 elemNodeCounts,&
78 elemNodeConn) result (ret)
79 import :: syscsurfacemeshf, syscnodedataf, syscelementtypedataf, &
80 syscelementnodecountdataf, syscelementnodeconnectivitydataf
81 type(syscnodedataf), intent(in) :: nodes
82 type(syscelementtypedataf), intent(in) :: elemtypes
83 type(syscelementnodecountdataf), intent(in) :: elemnodecounts
84 type(syscelementnodeconnectivitydataf), intent(in) :: elemnodeconn
85 type(syscsurfacemeshf) :: ret
86!DIR$ IF DEFINED(_WIN32)
87!DIR$ ATTRIBUTES DLLIMPORT :: syscGetSurfaceMeshF_NTCI
88!DIR$ ENDIF
89end function syscgetsurfacemeshf_ntci
90!
91!**********************************************************************
99!**********************************************************************
100function syscgetsurfacemeshf_nci(&
101 nodes,&
102 elemNodeCounts,&
103 elemNodeConn) result (ret)
104 import :: syscsurfacemeshf, syscnodedataf, &
105 syscelementnodecountdataf, syscelementnodeconnectivitydataf
106 type(syscnodedataf), intent(in) :: nodes
107 type(syscelementnodecountdataf), intent(in) :: elemnodecounts
108 type(syscelementnodeconnectivitydataf), intent(in) :: elemnodeconn
109 type(syscsurfacemeshf) :: ret
110!DIR$ IF DEFINED(_WIN32)
111!DIR$ ATTRIBUTES DLLIMPORT :: syscGetSurfaceMeshF_NCI
112!DIR$ ENDIF
113end function syscgetsurfacemeshf_nci
114!
115!**********************************************************************
123!**********************************************************************
124function syscgetsurfacemeshf_nti(&
125 nodes,&
126 elemTypes,&
127 elemNodeConn) result (ret)
128 import :: syscsurfacemeshf, syscnodedataf, syscelementtypedataf, &
129 syscelementnodeconnectivitydataf
130 type(syscnodedataf), intent(in) :: nodes
131 type(syscelementtypedataf), intent(in) :: elemtypes
132 type(syscelementnodeconnectivitydataf), intent(in) :: elemnodeconn
133 type(syscsurfacemeshf) :: ret
134!DIR$ IF DEFINED(_WIN32)
135!DIR$ ATTRIBUTES DLLIMPORT :: syscGetSurfaceMeshF_NTI
136!DIR$ ENDIF
137end function syscgetsurfacemeshf_nti
138!
139!**********************************************************************
154!**********************************************************************
155function syscgetsurfacemeshf_a(&
156 nodeIds,&
157 nodeCoords,&
158 elemNodeCounts,&
159 elemNodeIds) result (ret)
160 import :: syscsurfacemeshf
161 import :: syscoutputscalardataf
162 import :: syscoutputvectordataf
163 type(syscoutputscalardataf), intent(in) :: nodeids
164 type(syscoutputvectordataf), intent(in) :: nodecoords
165 type(syscoutputscalardataf), intent(in) :: elemnodecounts
166 type(syscoutputscalardataf), intent(in) :: elemnodeids
167 type(syscsurfacemeshf) :: ret
168!DIR$ IF DEFINED(_WIN32)
169!DIR$ ATTRIBUTES DLLIMPORT :: syscGetSurfaceMeshF_A
170!DIR$ ENDIF
171end function syscgetsurfacemeshf_a
172!
173!**********************************************************************
186!**********************************************************************
187function syscgetsurfacemeshf_b(&
188 nodeCoords,&
189 elemNodeCounts,&
190 elemNodeIds) result (ret)
191 import :: syscsurfacemeshf
192 import :: syscoutputscalardataf
193 import :: syscoutputvectordataf
194 type(syscoutputvectordataf), intent(in) :: nodecoords
195 type(syscoutputscalardataf), intent(in) :: elemnodecounts
196 type(syscoutputscalardataf), intent(in) :: elemnodeids
197 type(syscsurfacemeshf) :: ret
198!DIR$ IF DEFINED(_WIN32)
199!DIR$ ATTRIBUTES DLLIMPORT :: syscGetSurfaceMeshF_B
200!DIR$ ENDIF
201end function syscgetsurfacemeshf_b
202!
203end interface syscgetsurfacemeshf
204!
205end module fortran
fortran::syscgetsurfacemeshf
Provide an interface to get surface mesh.
Definition: syscSurfaceMeshF.fi:29
fortran::syscoutputscalardataf
Provide an output scalar data access type.
Definition: syscOutputScalarDataF.fi:25
fortran::syscoutputvectordataf
Create an output vector data access type.
Definition: syscOutputVectorDataF.fi:31
fortran::syscsurfacemeshf
Provide a surface mesh access type.
Definition: syscSurfaceMeshF.fi:15

Connect with Ansys