FTN4
      SUBROUTINE FILAB(IL,IP,IF,IFORM), 92903-16304 REV.1913  781211 1552 
C 
C     SOURCE 92903-18304
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 INCLUDE THE FUNCTION LABEL IN THE TABLE  *
C*  USED TO DEFINE THE SFK'S (SCREENS 6/7) IF THIS LABEL IS LEFT     *
C*  EMPTY BY THE USER                                                *
C*            PARAMETERS  :                                          *
C*                IL : LINE # IN THE TABLE                           *
C*                IP : 0 IF NON PREFIXED                             *
C*                     1 IF PREFIXED                                 *
C*                IF : FUNCTION #                                    *
C*                                                                   *
C*********************************************************************
C 
C 
C **** DECLARATIONS ******* 
C 
      DIMENSION IFORM(1),ILAB(14,6) 
C 
      DATA ILAB/2HTR,2H.C,2HOM,2HPL,2HET,2HE ,
     C2H  ,2H R,2HEC,2HAL,2HL ,2H  ,
     C2H S,2HAM,2HE ,2HVA,2HLU,2HE ,
     C2HAB,2HOR,2HT/,2HSE,2HLE,2HCT,
     C2H  ,2H  ,2HAD,2HD ,2H  ,2H+ ,
     C2H S,2HUB,2HTR,2HAC,2HT ,2H- ,
     C2H M,2HUL,2HTI,2HPL,2HY ,2H* ,
     C2H  ,2HDI,2HVI,2HDE,2H  ,2H/ ,
     C2H  ,2H E,2HQU,2HAL,2H  ,2H= ,
     C2H  ,2H P,2HRE,2HFI,2HX ,2H  ,
     C2H  ,2HCO,2HNT,2HIN,2HUE,2H  ,
     C2H N,2HEX,2HT ,2HEN,2HTR,2HY ,
     C2HDE,2HLE,2HTE,2H E,2HNT,2HRY,
     C2HCO,2HMP,2H./,2HAB,2HOR,2HT /
C 
      NCAR=108+(IL-1)*33+IP*858 
      CALL MOVCA(ILAB,1+(IF-1)*12,IFORM,NCAR,12)
      RETURN
      END 
      END$
  
                                                                                                                                