iachar_string Function

private elemental function iachar_string(string) result(ich)

Code in ASCII collating sequence.

Arguments

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

Return Value integer


Calls

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

Called by

proc~~iachar_string~~CalledByGraph proc~iachar_string iachar_string interface~iachar iachar interface~iachar->proc~iachar_string

Source Code

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

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

end function iachar_string