FTN4 LOGICAL FUNCTION IMBED(IBUF,IBYT,LNBYT),. 92903-16001 REV.1805 78 .0517 C C C NAME: IMBED C SOURCE: &IMBED 92903-18021 C BINARY: %IMBED 92903-16001 PART OF %GPLB4 C C PMGR: FRANCOIS GAULLIER 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 * * C * THIS FUNCTION FAIL, (RETURN FALSE VALUE) IF NO BLANK * C * CHARACTER IS IMBEDED IN THE STRING STARTING AT BYTE: IBYT * C * INTO BUFFER: IBUF, THE STRING LENGTH BEING: LNBYT. * C * THE LEADING AND TRAILING BLANKS ARE IGNORED. * C * * C **************************************************************** C C DIMENSION IBUF(1) LOGICAL TEXT C TEXT=.FALSE. IMBED=.TRUE. C-----SET UP THE LOOP FOR (LN-1) BECAUSE INSIDE THE LOOP C I+1 IS USED !!! DO 100 I=IBYT,IBYT+LNBYT-2 K=IGET1(IBUF,I) IF(K .NE. 1H ) TEXT=.TRUE. IF(K.EQ.1H .AND. IGET1(IBUF,I+1).NE.1H .AND. TEXT) RETURN 100 CONTINUE IMBED=.FALSE. RETURN END END$