FTN4 SUBROUTINE ERFLG(N,IMAI,IMKY,IMFLG,IMAS,IMDT), 92903-16305 REV.191 C3 781020 1630 C C SOURCE 92903-18305 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 SUBROUTINE IS USED TO RESET THE * C* IMAGE FLAGS IMFLG,IMAS,IMDT,IMKY WHEN THE USER ERASE AN * C* OPERATION PREVIOUSLY DEFINED * C* * C********************************************************************* C* C DIMENSION IMAI(45,5) C C ERASE IMAI ARRAY AFTER LINE N C DO 100 I=N,45 DO 100 K=1,5 100 IMAI(I,K)=0 C-----INIT FLAGS IFDM=0 IFDT=0 IUP=0 IAD=0 ICK=0 IDE=0 IDI=0 ISM=0 C C CHECK IF OPERATIONS STILL EXIST IN IMAI C DO 120 I=1,N L=IAND(IMAI(I,3),377B) K=IAND(IMAI(I,2),7) IF((K.EQ.0).AND.(L.EQ.IMAS).AND.(IMAS.NE.0)) IFDM=1 IF((K.EQ.0).AND.(L.EQ.IMDT).AND.(IMDT.NE.0)) IFDT=1 IF(K.EQ.1) IUP=1 IF(K.EQ.2) IAD=1 IF(K.EQ.3) ICK=1 IF(K.EQ.4) IDE=1 IF(K.EQ.5) IDI=1 IF(IMAI(I,5).LT.0) ISM=1 120 CONTINUE L=0 K=0 IF((IFDM.EQ.1).OR.(IFDT.EQ.1)) L=1 IF((IAD+IDE+IUP).GT.0) K=1 I=IAD+L*2+IDE*4+IUP*8+ICK*16+IDI*32+ISM*64+K*100000B IMFLG=IAND(IMFLG,I) IF(IFDM.EQ.0) IMAS=0 IF(IFDT.EQ.0) IMDT=0 IF((IFDM+IFDT).EQ.0) IMKY=0 RETURN END END$