FTN4
      FUNCTION ILIN(IMAI,ITN,IOP), 92903-16314 REV.1805  770722 
* 
*     SOURCE 92903-18314
* 
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# MATCHES A GIVEN # (ITN) AND  *
C*  WHICH 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) 
      IF((K.EQ.ITN).AND.(L.EQ.IOP)) GO TO 120 
100   CONTINUE
      I=-1
120   ILIN=I
      RETURN
      END 
      END$
                                                                                      