FTN4 SUBROUTINE FILAC(IL,IP,IF,IFORM), 92080-1X581 REV.2026 791231 C C SOURCE 92080-18581 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./,2HSE,2HLE,2HCT/ C NCAR=108+(IL-1)*33+IP*858 CALL MOVCA(ILAB,1+(IF-1)*12,IFORM,NCAR,12) RETURN END END$