System Coupling Fortran library 2025 R1

syscSurfaceMeshF

Last update: 17.07.2025
1 module fortran
2 !
3 ! Copyright 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 !
15 type :: syscsurfacemeshf
16  type(syscnodedataf) :: nodes
17 
18  type(syscelementtypedataf) :: elemtypes
19 
20  type(syscelementnodecountdataf) :: elemnodecounts
21 
22  type(syscelementnodeconnectivitydataf) :: elemnodeconnectivity
23 
24 end type syscsurfacemeshf
25 !
26 !**********************************************************************
28 !**********************************************************************
29 interface syscgetsurfacemeshf
30 !
31 !**********************************************************************
36 !**********************************************************************
37 function syscgetsurfacemeshf() result (ret)
38  import :: syscsurfacemeshf
39  type(syscsurfacemeshf) :: ret
40 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
41 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetSurfaceMeshF
42 !DIR$ ENDIF
43 end function syscgetsurfacemeshf
44 !
45 !**********************************************************************
52 !**********************************************************************
53 function 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) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
59 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetSurfaceMeshF_NF
60 !DIR$ ENDIF
61 end function syscgetsurfacemeshf_nf
62 !
63 !**********************************************************************
73 !**********************************************************************
74 function 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) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
87 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetSurfaceMeshF_NTCI
88 !DIR$ ENDIF
89 end function syscgetsurfacemeshf_ntci
90 !
91 !**********************************************************************
99 !**********************************************************************
100 function 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) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
111 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetSurfaceMeshF_NCI
112 !DIR$ ENDIF
113 end function syscgetsurfacemeshf_nci
114 !
115 !**********************************************************************
123 !**********************************************************************
124 function 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) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
135 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetSurfaceMeshF_NTI
136 !DIR$ ENDIF
137 end function syscgetsurfacemeshf_nti
138 !
139 !**********************************************************************
154 !**********************************************************************
155 function 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) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
169 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetSurfaceMeshF_A
170 !DIR$ ENDIF
171 end function syscgetsurfacemeshf_a
172 !
173 !**********************************************************************
186 !**********************************************************************
187 function 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) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
199 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetSurfaceMeshF_B
200 !DIR$ ENDIF
201 end function syscgetsurfacemeshf_b
202 !
203 end interface syscgetsurfacemeshf
204 !
205 end 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