5 * Revision 1.1.1.1 1995/10/24 10:20:22 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.26 by S.Giani
12 SUBROUTINE GDELET(IVIEW)
14 C. ******************************************************************
16 C. * Delete view number IVIEW from view banks *
18 C. * ==>Called by : <USER>, <GXINT>, GDTR0, GDTR99 *
19 C. * Author : P.Zanarini ********* *
21 C. ******************************************************************
23 #include "geant321/gcbank.inc"
24 #include "geant321/gcdraw.inc"
25 #include "geant321/gcunit.inc"
27 C. ------------------------------------------------------------------
29 IF (IVIEW.GE.1.AND.IVIEW.LE.NKVIEW) THEN
30 IF (LQ(JDRAW-IVIEW).NE.0) THEN
31 IF (Q(JDRAW+IVIEW).NE.3.) THEN
33 CALL MZDROP(IXCONS,LQ(JDRAW-IVIEW),' ')
35 * Reset view number to 0 (screen)
36 IF (IDVIEW.EQ.IVIEW) IDVIEW = 0
47 10000 FORMAT (' ERROR IN GDELET: CANNOT DELETE PROTECTED VIEW')