fortran ichar(str(i:i)) .eq.0