check_text_line Subroutine

private subroutine check_text_line(text_line, str, iostat, iomsg)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: text_line
character(len=*), intent(in) :: str
integer, intent(inout) :: iostat
character(len=*), intent(inout) :: iomsg

Called by

proc~~check_text_line~~CalledByGraph proc~check_text_line check_text_line proc~read_formatted_kernel read_formatted_kernel proc~read_formatted_kernel->proc~check_text_line proc~read_unformatted read_unformatted proc~read_unformatted->proc~check_text_line interface~read(unformatted) read(unformatted) interface~read(unformatted)->proc~read_unformatted proc~read_formatted read_formatted proc~read_formatted->proc~read_formatted_kernel interface~read(formatted) read(formatted) interface~read(formatted)->proc~read_formatted

Source Code

    subroutine check_text_line(text_line, str, iostat, iomsg)

        character(*), intent(in) :: text_line, str

        integer, intent(inout) :: iostat

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



        if ( trim(text_line) .eq. str ) return



        iostat = iostat_error

        write( iomsg, '(A)' ) "Failed to read " // str

    end subroutine check_text_line