FTN4
      FUNCTION ILIN(IMAI,ITN,IDS,IOP), 92080-1X314 REV.2026  800515 
C*
C*     SOURCE 92080-18314 
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 IS USED TO FIND AN ENTRY  *
C*  IN THE IMAI ARRAY WHICH ITEM# & DATA SET # MATCHES A GIVEN *
C*  ITEM & DATA SET AND                                        *
C*  WHOSE OPERATION CODE MATCHES A GIVEN OPERATION CODE (IOP)  *
C*                                                             *
C*                IF THE ENTRY IS FOUND THE LINE #OF THE ARRAY *
C*  IS RETURNED OTHERWISE IF NOT FOUND -1 IS RETURNED          *
C*                                                             *
C***************************************************************
C*
C*
      DIMENSION IMAI(45,5)
      DO 100 I=1,45 
      K=IAND(IMAI(I,1),377B)
      L=IAND(IMAI(I,2),7) 
      J=IAND(IMAI(I,3),377B)
      IF((K.EQ.ITN).AND.(J.EQ.IDS).AND.(L.EQ.IOP)) GO TO 120
100   CONTINUE
      I=-1
120   ILIN=I
      RETURN
      END 
      END$
                                                                                                                                                                                                                                  