INTEGER L, LS
LS = LEN(string)
DO while ((L.le.LS).and.(string(L:L) .eq. ' '))
L=LS
ILNBLNK = LS
DO 10 L = LS, 1, -1
DO 10 L = 1, LS