ichar_string Function

private elemental function ichar_string(string) result(ich)

Character-to-integer conversion function.

Arguments

Type IntentOptional Attributes Name
type(string_type), intent(in) :: string

Return Value integer


Calls

proc~~ichar_string~~CallsGraph proc~ichar_string ichar_string interface~slen slen proc~ichar_string->interface~slen proc~len_string len_string interface~slen->proc~len_string

Called by

proc~~ichar_string~~CalledByGraph proc~ichar_string ichar_string interface~ichar ichar interface~ichar->proc~ichar_string

Source Code

elemental function ichar_string(string) result(ich)
   type(string_type), intent(in) :: string
   integer :: ich

   if (allocated(string%raw) .and. slen(string) > 0) then
      ich = ichar(string%raw(1:1))
   else
      ich = 0
   end if

end function ichar_string