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$