FTN4
      SUBROUTINE FNCT(N3,IY,KFORM,IFN,IX), 92903-16310 REV.1805  770722 
C 
C     SOURCE 92903-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$
                                                                                                                                