read_gmsh_msh1_node Subroutine

private subroutine read_gmsh_msh1_node(file_unit, itr_node, node, status)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: file_unit
integer, intent(in) :: itr_node
type(gmsh_msh1_node_type), intent(out) :: node
type(gmsh_msh1_status_type), intent(inout) :: status

Calls

proc~~read_gmsh_msh1_node~~CallsGraph proc~read_gmsh_msh1_node read_gmsh_msh1_node proc~clear_msg clear_msg proc~read_gmsh_msh1_node->proc~clear_msg proc~is_iostat_failure is_iostat_failure proc~read_gmsh_msh1_node->proc~is_iostat_failure

Called by

proc~~read_gmsh_msh1_node~~CalledByGraph proc~read_gmsh_msh1_node read_gmsh_msh1_node proc~read_gmsh_msh1_file_kernel read_gmsh_msh1_file_kernel proc~read_gmsh_msh1_file_kernel->proc~read_gmsh_msh1_node proc~read_gmsh_msh1_file read_gmsh_msh1_file proc~read_gmsh_msh1_file->proc~read_gmsh_msh1_file_kernel

Source Code

    subroutine read_gmsh_msh1_node(file_unit, itr_node, node, status)

        integer, intent(in) :: file_unit

        integer, intent(in) :: itr_node

        type(gmsh_msh1_node_type), intent(out) :: node

        type(gmsh_msh1_status_type), intent(inout) :: status



        read( &!
        unit   = file_unit        , &!
        fmt    = *                , &!
        iostat = status%io%code   , &!
        iomsg  = status%io%msg(:)   &!
        ) &!
        node%node_number , &!
        node%x_coord     , &!
        node%y_coord     , &!
        node%z_coord

        if ( is_iostat_failure(status) ) then

            status%err%code = status%io%code

            write( &!
            unit = status%err%msg(:) , &!
            fmt  = '(A,I0,*(1X,A))'    &!
            ) &!
            'Failed to read No.'     , &!
            itr_node                 , &!
            'node:'                  , &!
            trim( status%io%msg(:) )

            call clear_msg(status%io%msg)

        end if

    end subroutine read_gmsh_msh1_node