FTN4
      FUNCTION LNCAR(IBUF,NCAR
     .,NBCAR),. 92080-1X037 REV.2026  800515
C 
C     SOURCE 92080-18037
C 
C 
C 
C     **************************************************************
C     * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  ALL RIGHTS    *
C     * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
C     * PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
C     * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
C     **************************************************************
C 
C 
C*********************************************************************
C*                                                                   *
C*             THIS FUNCTION IS USED TO TO COMPUTE THE REAL LENGTH   *
C*   OF A STRING EXCLUDING TRAILING BLANKS.                          *
C*                                                                   *
C*             PARAMETERS :                                          *
C*                           IBUF : INPUT BUFFER * STRING            *
C*                           NCAR : # OF THE FIRST CHAR TO USE IN    *
C*                                  IBUF                             *
C*                           NBCAR : # OF CHARACTERS TO BE USED IN   *
C*                                  IBUF                             *
C*                                                                   *
C*********************************************************************
C 
C 
      DIMENSION IBUF(1) 
      LNCAR=NBCAR 
      DO 100 I=1,NBCAR
      IF(IGET1(IBUF,NCAR+NBCAR-I).NE.1H ) GO TO 200 
100   LNCAR=LNCAR-1 
200   RETURN
      END 
      END$
                                                                                                              