> The problem with TRIM (i.e. my_trim) is clear. It returns a character string
> with length equal to input string s due to the declaration:
> CHARACTER(LEN=LEN(s)) :: my_trim
> but what else can I do?
This looks strange as well:
> my_len_trim = VERIFY(s, space//tab, BACK=.TRUE.)
Don't you want
VERIFY(s, " "//," ", BACK=.TRUE.)
or perhaps something using ACHAR to make the source code more readable?
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|