trim_null Subroutine

private subroutine trim_null(string)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(inout) :: string

Called by

proc~~trim_null~~CalledByGraph proc~trim_null trim_null proc~parse_contact parse_contact proc~parse_contact->proc~trim_null proc~parse_contactindex parse_contactindex proc~parse_contactindex->proc~trim_null

Source Code

subroutine trim_null(string)

  character(len=*), intent(inout) :: string
  
  integer :: i

  do i=1,len(string)
   if (iachar(string(i:i))==0) then
      string(i:i)=' '
   endif
  enddo
  return
end subroutine trim_null