read_formatted Subroutine

private subroutine read_formatted(gmsh_msh_format, unit, iotype, v_list, iostat, iomsg)

Read an $MshMeshFormat from a connected formatted unit.

Arguments

Type IntentOptional Attributes Name
class(gmsh_msh_format_type), intent(inout) :: gmsh_msh_format
integer, intent(in) :: unit
character(len=*), intent(in) :: iotype
integer, intent(in) :: v_list(:)
integer, intent(out) :: iostat
character(len=*), intent(inout) :: iomsg

Calls

proc~~read_formatted~~CallsGraph proc~read_formatted read_formatted proc~read_formatted_kernel read_formatted_kernel proc~read_formatted->proc~read_formatted_kernel proc~check_text_line check_text_line proc~read_formatted_kernel->proc~check_text_line

Called by

proc~~read_formatted~~CalledByGraph proc~read_formatted read_formatted interface~read(formatted) read(formatted) interface~read(formatted)->proc~read_formatted

Source Code

    subroutine read_formatted(gmsh_msh_format, unit, iotype, v_list, iostat, iomsg)

        class(gmsh_msh_format_type), intent(inout) :: gmsh_msh_format

        integer, intent(in) :: unit

        character(*), intent(in) :: iotype

        integer, intent(in) :: v_list(:)

        integer, intent(out) :: iostat

        character(*), intent(inout) :: iomsg



        iomsg = ''



        if ( size( v_list(:) ) .gt. 0 ) then

            iostat = iostat_error

            write( iomsg, '(A)' ) "gmsh_msh_format_type does NOT support `v_list` formatters."

            return

        end if



        select case(iotype)

            case("LISTDIRECTED")

                call read_formatted_kernel(gmsh_msh_format, unit, iostat, iomsg)

            case default

                iostat = iostat_error

                write( iomsg, '(A)' ) "gmsh_msh_format_type only supports the `LISTDIRECTED` iotype."

        end select

    end subroutine read_formatted