get_delimiter_mode

Variables

delim_buffer local_iomsg

Source Code

All Procedures

add_multiple_attributes add_single_attribute add_stream_attributes add_tag adjustl adjustr alloc_attributes assign_tag attributes autotest b64_decode b64_decode_I1 b64_decode_I1_a b64_decode_I2 b64_decode_I2_a b64_decode_I4 b64_decode_I4_a b64_decode_I8 b64_decode_I8_a b64_decode_R16 b64_decode_R16_a b64_decode_R4 b64_decode_R4_a b64_decode_R8 b64_decode_R8_a b64_decode_string b64_decode_string_a b64_decode_up b64_decode_up b64_decode_up_a b64_encode b64_encode_I1 b64_encode_I1_a b64_encode_I2 b64_encode_I2_a b64_encode_I4 b64_encode_I4_a b64_encode_I8 b64_encode_I8_a b64_encode_R16 b64_encode_R16_a b64_encode_R4 b64_encode_R4_a b64_encode_R8 b64_encode_R8_a b64_encode_string b64_encode_string_a b64_encode_up b64_encode_up b64_encode_up_a b64_init basedir basename bctoi_I1P bctoi_I2P bctoi_I4P bctoi_I8P bcton bctor_R16P bctor_R4P bctor_R8P bit_size bit_size bit_size_chr bit_size_R16P bit_size_R4P bit_size_R8P bstr bstr_I1P bstr_I2P bstr_I4P bstr_I8P bstr_R16P bstr_R4P bstr_R8P byte_size byte_size_chr byte_size_I1P byte_size_I2P byte_size_I4P byte_size_I8P byte_size_R16P byte_size_R4P byte_size_R8P camelcase capitalize character_concat_string character_concat_string_string character_eq_string character_ge_string character_gt_string character_le_string character_lt_string character_ne_string chars check_endian compact_real_string content content count count_substring create_tag_flat create_tag_nested ctoi_I1P ctoi_I2P ctoi_I4P ctoi_I8P cton ctor_R16P ctor_R4P ctor_R8P decode decode_bits delete_content delete_multiple_attributes delete_single_attribute delete_tag digit digit_I1 digit_I2 digit_I4 digit_I8 encode encode_bits end_tag end_with escape extension fill finalize finalize free free free get get_attributes get_decimal_mode get_delimiter_mode get_next_non_blank_character_any_record get_next_non_blank_character_this_record get_value index insert_character insert_string is_allocated is_attribute_present is_digit is_integer is_lower is_number is_parsed is_real is_upper join_characters join_strings len len_trim load_file_as_stream lower name pack_data pack_data_I1_I2 pack_data_I1_I4 pack_data_I1_I8 pack_data_I1_R4 pack_data_I1_R8 pack_data_I2_I1 pack_data_I2_I4 pack_data_I2_I8 pack_data_I2_R4 pack_data_I2_R8 pack_data_I4_I1 pack_data_I4_I2 pack_data_I4_I8 pack_data_I4_R4 pack_data_I4_R8 pack_data_I8_I1 pack_data_I8_I2 pack_data_I8_I4 pack_data_I8_R4 pack_data_I8_R8 pack_data_R4_I1 pack_data_R4_I2 pack_data_R4_I4 pack_data_R4_I8 pack_data_R4_R8 pack_data_R8_I1 pack_data_R8_I2 pack_data_R8_I4 pack_data_R8_I8 pack_data_R8_R4 parse parse parse_attributes_names parse_from_string parse_tag_name partition penf_init penf_print read_delimited read_file read_file read_formatted read_line read_lines read_lines read_undelimited read_undelimited_listdirected read_unformatted repeat replace replace_one_occurrence reverse sadjustl sadjustl_character sadjustr sadjustr_character scan scount search search self_closing_tag set sindex_character_string sindex_string_character sindex_string_string slen slen_trim slice snakecase split srepeat_character_string srepeat_string_string sscan_character_string sscan_string_character sscan_string_string start_tag start_with startcase str str_a_I1P str_a_I2P str_a_I4P str_a_I8P str_a_R16P str_a_R4P str_a_R8P str_bol str_I1P str_I2P str_I4P str_I8P str_R16P str_R4P str_R8P strf_I1P strf_I2P strf_I4P strf_I8P strf_R16P strf_R4P strf_R8P strim string_assign_character string_assign_integer_I1P string_assign_integer_I2P string_assign_integer_I4P string_assign_integer_I8P string_assign_real_R16P string_assign_real_R4P string_assign_real_R8P string_assign_string string_concat_character string_concat_character_string string_concat_string string_concat_string_string string_eq_character string_eq_string string_ge_character string_ge_string string_gt_character string_gt_string string_le_character string_le_string string_lt_character string_lt_string string_ne_character string_ne_string stringify stringify strip strz strz_I1P strz_I2P strz_I4P strz_I8P sverify swapcase to_integer_I1P to_integer_I2P to_integer_I4P to_integer_I8P to_real_R16P to_real_R4P to_real_R8P trim unescape unique upper write_file write_file write_formatted write_line write_lines write_lines write_tag write_unformatted xml_tag

private subroutine get_delimiter_mode(unit, delim, iostat, iomsg)

Uses:
iso_fortran_env

Arguments

Type	Intent		Name
integer,	intent(in)	::	unit	The unit for the connection.
character(kind=len=1,CK),	intent(out)	::	delim	Represents the value of the DELIM mode.
integer,	intent(out)	::	iostat	IOSTAT error code, non-zero on error.
character(len=*),	intent(inout)	::	iomsg	IOMSG explanatory message - only defined if iostat is non-zero.

Description

Get the DELIM changeable connection mode for the given unit.

If the unit is connected to an internal file, then the default value of NONE is always returned.

Variables

Type	Visibility	Attributes		Name		Initial
character(len=10),	public		::	delim_buffer			Buffer for INQUIRE about DELIM, sized for APOSTROHPE.
character(len=len(iomsg)),	public		::	local_iomsg			Local variant of iomsg, so it doesn't get inappropriately redefined.

Source Code

  subroutine get_delimiter_mode(unit, delim, iostat, iomsg)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Get the DELIM changeable connection mode for the given unit.
  !<
  !< If the unit is connected to an internal file, then the default value of NONE is always returned.
  !---------------------------------------------------------------------------------------------------------------------------------
  use, intrinsic :: iso_fortran_env, only : iostat_inquire_internal_unit
  !---------------------------------------------------------------------------------------------------------------------------------
  integer,                   intent(in)    :: unit         !< The unit for the connection.
  character(len=1, kind=CK), intent(out)   :: delim        !< Represents the value of the DELIM mode.
  integer,                   intent(out)   :: iostat       !< IOSTAT error code, non-zero on error.
  character(*),              intent(inout) :: iomsg        !< IOMSG explanatory message - only defined if iostat is non-zero.
  character(10)                            :: delim_buffer !< Buffer for INQUIRE about DELIM, sized for APOSTROHPE.
  character(len(iomsg))                    :: local_iomsg  !< Local variant of iomsg, so it doesn't get inappropriately redefined.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  ! get the string representation of the changeable mode
  inquire(unit, delim=delim_buffer, iostat=iostat, iomsg=local_iomsg)
  if (iostat == iostat_inquire_internal_unit) then
    ! no way of determining the DELIM mode for an internal file
    iostat = 0
    delim = ''
    return
  elseif (iostat /= 0) then
    iomsg = local_iomsg
    return
  endif
  ! interpret the DELIM string
  if (delim_buffer == 'QUOTE') then
    delim = '"'
  elseif (delim_buffer == 'APOSTROPHE') then
    delim = ''''
  else
    delim = '"'
  endif
  !---------------------------------------------------------------------------------------------------------------------------------
  endsubroutine get_delimiter_mode

get_delimiter_mode Subroutine

Variables

Source Code

All Procedures

private subroutine get_delimiter_mode(unit, delim, iostat, iomsg)

Uses:

Arguments

Description

Variables

Source Code