FTN4 C C SUBROUTINE ERLIT(ILITE,N), 92903-16306 REV.1805 770722 C* C SOURCE 92903-18306 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* THIS SUBROUTINE RESETS THE ILITE BUFFER USED FOR * C* THE LIGHTS ASSIGNEMENTS. * C* * C* PARAMETERS : * C* * C* ILITE : BUFFER TO RESET * C* N : IF > 0 RESET BEFORE A QUESTION * C* IF < 0 RESET BEFORE A DISPLAY * C* * C* IF N > 0 AND ABS(ILITE(I))>=N THEN ILITE(I)=0 * C* * C* IF N < 0 AND ABS(ILITE(I))>(-N) OR ILITE(I)=N THEN * C* ILITE(I)=0 * C* * C********************************************************************* C* C* DIMENSION ILITE(1) C DO 100 I=1,15 M=ILITE(I) IF(M.EQ.-99) GO TO 100 IF(M.LT.0) M=-M IF(N.LT.0) GO TO 110 IF(M.GE.N) GO TO 120 GO TO 100 110 IF(ILITE(I).EQ.N) GO TO 120 IF(M.GT.-N) GO TO 120 GO TO 100 120 ILITE(I)=0 100 CONTINUE C RETURN END END$