Previous: uttsin Up: ../plot79_u.html Next: uttsli

UTTSL

       SUBROUTINE  UTTSL (TEXT,L1,L2,L1NEW,L2NEW)
 C$    (String Length)
 C$    Given a packed  string stored in  "TEXT(*)" from  positions
 C$    "L1" to "L2" inclusive (numbering 1,2,3,... from the left),
 C$    determine new values "L1NEW" and "L2NEW" which point to the
 C$    first and last non-blank characters in the string.  If  the
 C$    string is entirely blank, then on return, L1NEW = L2+1  and
 C$    L2NEW = L1-1.  The new string length L2NEW+1-L1NEW then  is
 C$    (L1-1)+1-(L2+1) =
 C$     -(L2+1-L1), a negative number.
 C$    (02-FEB-82)