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$