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

c     + + + PURPOSE + + +
c     The WATCOM compiler uses a function called LENTRIM to return the
c     length of the a character string (last nonblank character).
c     The Unix compiler use a function called LNBLNK to do the same.
c     This function takes care of the discrepancy by using the WATCOM
c     directives to trigger additional code to get both compilers to
c     do the same thing with a common function name (LENTRM).
c
c     + + + KEYWORDS + + +
c     lentrm, lentrim, lnblnk, utility
c
c     + + + ARGUMENT DECLARATIONS + + +
c
      character*(*) val
c
c     + + + ARGUMENT DEFINITIONS + + +
c
c     + + + PARAMETERS + + +
c
*$INCLUDE fsublib.fi

C     Use the following DEFINE to trigger specific code for WATCOM compiler
*$ifndef WATCOM
*$define   WATCOM
*$endif
c
c     + + + LOCAL VARIABLES + + +
c
C     Declaration of internal Unix function
C     (Want to hide from Watcom compiler)
*$ifndef WATCOM
      integer lnblnk
*$endif
c
c     + + + END SPECIFICATIONS + + +
c
C     Correct for differences between "iargc" among compilers
*$ifndef WATCOM
      lentrm = lnblnk (val)
*$else
*$INCLUDE util/lentrim.fi
*$endif

      return
      end