validate_gmsh_msh1_node Function

private elemental function validate_gmsh_msh1_node(node) result(is_valid)

Checks if the derived type is valid.

Note

Verification by ieee_is_finite is not required by the gmsh documentation.

Arguments

Type IntentOptional Attributes Name
type(gmsh_msh1_node_type), intent(in) :: node

Return Value logical


Calls

proc~~validate_gmsh_msh1_node~~CallsGraph proc~validate_gmsh_msh1_node validate_gmsh_msh1_node interface~validate validate proc~validate_gmsh_msh1_node->interface~validate interface~validate->proc~validate_gmsh_msh1_node proc~validate_gmsh_msh1_file validate_gmsh_msh1_file interface~validate->proc~validate_gmsh_msh1_file proc~validate_gmsh_msh1_number validate_gmsh_msh1_number interface~validate->proc~validate_gmsh_msh1_number proc~all_flag all_flag proc~validate_gmsh_msh1_file->proc~all_flag proc~is_iostat_failure is_iostat_failure proc~validate_gmsh_msh1_file->proc~is_iostat_failure proc~is_stat_failure is_stat_failure proc~validate_gmsh_msh1_file->proc~is_stat_failure

Called by

proc~~validate_gmsh_msh1_node~~CalledByGraph proc~validate_gmsh_msh1_node validate_gmsh_msh1_node interface~validate validate proc~validate_gmsh_msh1_node->interface~validate interface~validate->proc~validate_gmsh_msh1_node

Source Code

    elemental function validate_gmsh_msh1_node(node) result(is_valid)

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

        logical :: is_valid



        is_valid = validate(node%node_number)

        if ( .not. is_valid ) return

        is_valid =     ieee_is_finite(node%x_coord) &!
        &        .and. ieee_is_finite(node%y_coord) &!
        &        .and. ieee_is_finite(node%z_coord)

    end function validate_gmsh_msh1_node