!
!$Author: joelevin $
!$Date: 2011-03-24 11:33:26 -0500 (Thu, 24 Mar 2011) $
!$Revision: 11724 $
!$HeadURL: https://svn.weru.ksu.edu/weru/weps1/trunk/weps.src/src/util/lib_misc/begtrim.for $
!
!
!     LENTRM is used to deal with compiler differences

      integer   function begtrm (val)

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

      begtrm = 1
      return 
      end