This routine tidies up a character string and returns its length ignoring trailing blanks. If the returned length is 0 the returned string will be ’’, otherwise it will be equal to the input string truncated at the used length.

The tidying involves:-

• calling CHR_CLEAN to remove non-printable characters.

• replacing all HT (tab) characters by spaces.

• truncating the string at the character before a COMCHAR character, if present (the characters after COMCHAR are assumed to be comments).

CALL SCULIB_TIDY_LINE (COMCHAR, LINE, LENGTH)

COMCHAR = CHARACTER$\ast$1 (Given)

LINE = CHARACTER$\ast$($\ast$) (Given and returned)

LENGTH = INTEGER (Returned)

Copyright ©1995,1996,1997,1998,1999 Particle Physics and Astronomy Research Council. All Rights Reserved.