syscVolumeMeshF Last update: 17.07.2025 1module 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! ********************************************************************* 11! ********************************************************************* 12type :: syscvolumemeshf 13type(syscnodedataf) :: nodes 14 15type(syscelementnodecountdataf) :: facenodecounts 16 17type(syscelementnodeconnectivitydataf) :: facenodeconnectivity 18 19type(syscfacecellconnectivitydataf) :: facecellconnectivity 20 21type(sysccelliddataf) :: cellids 22 23type(syscelementtypedataf) :: celltypes 24 25type(syscelementnodeconnectivitydataf) :: cellnodeconnectivity 26 27end type syscvolumemeshf 28! 29!********************************************************************** 31!********************************************************************** 32interface syscgetvolumemeshf 33! 34!********************************************************************** 36!********************************************************************** 37function syscgetvolumemeshf_empty() result (ret) 38import :: syscvolumemeshf 39type(syscvolumemeshf) :: ret 40!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY)) 41!DIR$ ATTRIBUTES DLLIMPORT :: syscGetVolumeMeshF_Empty 42!DIR$ ENDIF 43end function syscgetvolumemeshf_empty 44! 45!********************************************************************** 57!********************************************************************** 58function syscgetvolumemeshf_facebased(& 59nodes,& 60faceNodeCounts,& 61faceNodeConn,& 62faceCellConn,& 63cellIds) result (ret) 64 import :: syscvolumemeshf, syscnodedataf, & 65 syscelementnodecountdataf, syscelementnodeconnectivitydataf, & 66 syscfacecellconnectivitydataf, sysccelliddataf 67 type(syscnodedataf), intent(in) :: nodes 68 type(syscelementnodecountdataf), intent(in) :: facenodecounts 69 type(syscelementnodeconnectivitydataf), intent(in) :: facenodeconn 70 type(syscfacecellconnectivitydataf), intent(in) :: facecellconn 71 type(sysccelliddataf), intent(in) :: cellids 72 type(syscvolumemeshf) :: ret 73!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY)) 74!DIR$ ATTRIBUTES DLLIMPORT :: syscGetVolumeMeshF_FaceBased 75!DIR$ ENDIF 76 end function syscgetvolumemeshf_facebased 77! 78!********************************************************************** 86!********************************************************************** 87function syscgetvolumemeshf_elementbased(& 88 nodes,& 89 cellTypes,& 90 cellNodeConn) result (ret) 91 import :: syscvolumemeshf, syscnodedataf, & 92 syscelementtypedataf, syscelementnodeconnectivitydataf 93 type(syscnodedataf), intent(in) :: nodes 94 type(syscelementtypedataf), intent(in) :: celltypes 95 type(syscelementnodeconnectivitydataf), intent(in) :: cellnodeconn 96 type(syscvolumemeshf) :: ret 97 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY)) 98 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetVolumeMeshF_ElementBased 99 !DIR$ ENDIF 100 end function syscgetvolumemeshf_elementbased 101! 102end interface syscgetvolumemeshf 103! 104end module fortran fortran::syscgetvolumemeshfProvide an interface to get volume mesh.Definition syscVolumeMeshF.fi:32 fortran::sysccelliddatafDefinition syscMeshDefinitionF.fi:245 fortran::syscelementnodeconnectivitydatafDefinition syscMeshDefinitionF.fi:171 fortran::syscelementnodecountdatafDefinition syscMeshDefinitionF.fi:135 fortran::syscelementtypedatafDefinition syscMeshDefinitionF.fi:96 fortran::syscfacecellconnectivitydatafDefinition syscMeshDefinitionF.fi:207 fortran::syscnodedatafDefinition syscMeshDefinitionF.fi:25 fortran::syscvolumemeshfProvide a volume mesh access type.Definition syscVolumeMeshF.fi:12
