        integer function sizeo (string)
c;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
c Wed Dec 11 09:18:42 MST 1991
c;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        character*(*) string

        integer next

c	write (6, '("sizeo (1): string= ",a,".")') string
        do next= len(string), 1, -1
          if (string(next:next) .ne. ' ') then
            itmp= next
            goto 10
          endif
        enddo
 
   10   continue

c	write (6, '("sizeo (2): string= ",a,".")') string(1:itmp)
        do next= 1, itmp
          if (string(next:next) .eq. '_') then
            string(next:next)= ' '
          endif
        enddo
         
        sizeo= itmp
 
        return
        end
