c To find the occupied length of a string c The assumption is made that the string passed c HAS BEEN DECLARED TO BE OF LENGTH 80! Function LENGTH(s) character*80 s do 10 i=80,1,-1 if(s(i:i).ne.' ')goto 20 10 continue 20 length=i return end