Checks if the derived type is valid.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(gmsh_msh1_element_type), | intent(in) | :: | element | |||
type(gmsh_msh1_data_type), | intent(in) | :: | mesh_data |
elemental function validate_gmsh_msh1_element_with_mesh_data_public(element, mesh_data) result(is_valid) type(gmsh_msh1_element_type), intent(in) :: element type(gmsh_msh1_data_type), intent(in) :: mesh_data logical :: is_valid is_valid = is_read_successful(mesh_data) if (.not. is_valid) return is_valid = validate_gmsh_msh1_element_with_mesh_data_private(element, mesh_data) end function validate_gmsh_msh1_element_with_mesh_data_public