c
c     LENTRM is used to deal with compiler differences
c
      integer   function begtrm
     i                         (val)
c

c     + + + ARGUMENT DECLARATIONS + + +
c
      character*(*) val
c
c     + + + ARGUMENT DEFINITIONS + + +
c
c     + + + PARAMETERS + + +
c
c     + + + LOCAL VARIABLES + + +
c
      integer idx
c
c     + + + END SPECIFICATIONS + + +
c
      do idx = 1, len(val)
        if (val(idx:idx).ne.' ') then
          begtrm = idx
          return
        endif
      end do

      begtrm = 1
      return 
      end