FTN4 SUBROUTINE FNCT(N3,IY,KFORM,IFN,IX), 92080-1X310 REV.2026 800515 C C SOURCE 92080-18310 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 SUBROUTINE IS USED TO INCLUDE A NEW * C* FUNCTION IN KFORM FUNCTION EDIT BUFFER . * C* IT IS USED BY FORM5 AND CALLED WITH THE * C* FOLLOWING PARAMETERS : * C* N3 : CURRENT LINE IN KFORM * C* IY : # OF FUNCTIONS ALREADY ACCEPTED * C* KFORM : BUFFER * C* IFN : FUNCTION # TO ADD * C* IX : START WORD ADDRESS OF EDIT SPECIF IN KFORM * C* * C* PARAMETERS N3,IY ARE UPDATED * C* * C********************************************************************* C DIMENSION KFORM(1) IF(IY.EQ.0) N3=N3+1 IF(IAND(IY,1).EQ.0) GO TO 100 KFORM(N3)=IFN*256 GO TO 200 100 KFORM(N3)=IOR(KFORM(N3),IFN) N3=N3+1 200 IY=IY+1 KFORM(IX)=IOR(KFORM(IX),100000B) RETURN END END$