ADAS Subroutine lenstr

      FUNCTION LENSTR(ASTR)
C
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 FUNCTION: LENSTR ***********************
C
C     PURPOSE : RETURNS THE EFFECTIVE LENGTH OF A GIVEN STRING
C               (IGNORING TRAILING BLANKS)
C
C NOTES: THIS ROUTINE IS NOT YET PROPERLY ANNOTATED
C
C UNIX-IDL PORT:
C
C VERSION: 1.1                          DATE: 18-1-96
C MODIFIED: TIM HAMMOND (TESSELLA SUPPORT SERVICES PLC)
C               - PUT UNDER SCCS CONTROL
C
C VERSION  : 1.2                          
C DATE     : 10-04-2007
C MODIFIED : Allan Whiteford
C               - Modified documentation as part of automated
C		  subroutine documentation preparation.
C-----------------------------------------------------------------------
C
      CHARACTER*(*)       ASTR