initialize_gmsh_msh1_element Subroutine

private subroutine initialize_gmsh_msh1_element(element, stat, errmsg)

Arguments

Type IntentOptional Attributes Name
type(gmsh_msh1_element_type), intent(inout) :: element
integer, intent(out) :: stat
character(len=*), intent(inout) :: errmsg

Called by

proc~~initialize_gmsh_msh1_element~~CalledByGraph proc~initialize_gmsh_msh1_element initialize_gmsh_msh1_element proc~lookup_element_by_loc_gmsh_msh1_file lookup_element_by_loc_gmsh_msh1_file proc~lookup_element_by_loc_gmsh_msh1_file->proc~initialize_gmsh_msh1_element proc~read_gmsh_msh1_element read_gmsh_msh1_element proc~read_gmsh_msh1_element->proc~initialize_gmsh_msh1_element interface~lookup_element lookup_element interface~lookup_element->proc~lookup_element_by_loc_gmsh_msh1_file proc~read_gmsh_msh1_file_kernel read_gmsh_msh1_file_kernel proc~read_gmsh_msh1_file_kernel->proc~read_gmsh_msh1_element proc~read_gmsh_msh1_file read_gmsh_msh1_file proc~read_gmsh_msh1_file->proc~read_gmsh_msh1_file_kernel

Source Code

    subroutine initialize_gmsh_msh1_element(element, stat, errmsg)

        type(gmsh_msh1_element_type), intent(inout) :: element

        integer, intent(out) :: stat

        character(len=*), intent(inout) :: errmsg



        element%elm_number = 0
        element%elm_type   = 0
        element%reg_elem   = 0
        element%reg_phys   = 0

        if ( allocated(element%node_number_list) ) then

            deallocate( &!
            element%node_number_list , &!
            stat   = stat            , &!
            errmsg = errmsg(:)         &!
            )

        end if

    end subroutine initialize_gmsh_msh1_element