FTN4 FUNCTION LNCAR(IBUF,NCAR .,NBCAR),. 92903-16001 REV.1805 770712 C C SOURCE 92903-180037 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$