syscVolumeMeshF 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 ! ********************************************************************* 11 ! ********************************************************************* 12 type :: syscvolumemeshf 13 type(syscnodedataf) :: nodes 14 15 type(syscelementnodecountdataf) :: facenodecounts 16 17 type(syscelementnodeconnectivitydataf) :: facenodeconnectivity 18 19 type(syscfacecellconnectivitydataf) :: facecellconnectivity 20 21 type(sysccelliddataf) :: cellids 22 23 type(syscelementtypedataf) :: celltypes 24 25 type(syscelementnodeconnectivitydataf) :: cellnodeconnectivity 26 27 end type syscvolumemeshf 28 ! 29 !********************************************************************** 31 !********************************************************************** 32 interface syscgetvolumemeshf 33 ! 34 !********************************************************************** 36 !********************************************************************** 37 function syscgetvolumemeshf_empty() result (ret) 38 import :: syscvolumemeshf 39 type(syscvolumemeshf) :: ret 40 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY)) 41 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetVolumeMeshF_Empty 42 !DIR$ ENDIF 43 end function syscgetvolumemeshf_empty 44 ! 45 !********************************************************************** 57 !********************************************************************** 58 function syscgetvolumemeshf_facebased(& 59 nodes,& 60 faceNodeCounts,& 61 faceNodeConn,& 62 faceCellConn,& 63 cellIds) 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 !********************************************************************** 87 function 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 ! 102 end interface syscgetvolumemeshf 103 ! 104 end 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
