GEANT321/gdraw/gdclos.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:22  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.26  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE GDCLOS
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *       Close last view bank opened and reset IVIEW to 0,        *
  17 C.    *       meaning screen; a release of unused space in             *
  18 C.    *       view banks is also done by negative pushing              *
  19 C.    *                                                                *
  20 C.    *    ==>Called by : <USER>, <GXINT>                              *
  21 C.    *       Author : P.Zanarini   *********                          *
  22 C.    *                                                                *
  23 C.    ******************************************************************
  24 C.
  25 #include "geant321/gcbank.inc"
  26 #include "geant321/gcdraw.inc"
  27 C.
  28 C.    ------------------------------------------------------------------
  29 C.
  30 C             If current view is screen don't do anything
  31 C
  32       IF (IDVIEW.EQ.0) GO TO 999
  33 C
  34 C             Close view number IDVIEW
  35 C
  36       JV=LQ(JDRAW-IDVIEW)
  37 C
  38 C             Store parameters for that view, i.e. logical (I..)
  39 C             and phisical (MAX..) length of view banks
  40 C
  41       Q(JV+1)=IGU
  42 C---  Q(JV+2)=MAXGU
  43       Q(JV+4)=IGS
  44 C---  Q(JV+5)=MAXGS
  45       Q(JV+7)=ITU
  46 C---  Q(JV+8)=MAXTU
  47       Q(JV+10)=ITS
  48 C---  Q(JV+11)=MAXTS
  49 C
  50       Q(JV+22)=ICUT
  51 C
  52 C             Release unused space
  53 C
  54       ND1=MAXGU-IGU
  55       ND2=ND1
  56       ND3=MAXTU-ITU
  57       ND4=MAXGS-IGS
  58       ND5=ND4
  59       ND6=MAXTS-ITS
  60       JV = LQ(JV-1)
  61       CALL MZPUSH(IXCONS,JV,0,-ND1,'I')
  62       JV = LQ(JDRAW-IDVIEW)
  63       JV = LQ(JV-2)
  64       CALL MZPUSH(IXCONS,JV,0,-ND2,'I')
  65       JV = LQ(JDRAW-IDVIEW)
  66       JV = LQ(JV-3)
  67       CALL MZPUSH(IXCONS,JV,0,-ND3,'I')
  68       JV = LQ(JDRAW-IDVIEW)
  69       JV = LQ(JV-4)
  70       CALL MZPUSH(IXCONS,JV,0,-ND4,'I')
  71       JV = LQ(JDRAW-IDVIEW)
  72       JV = LQ(JV-5)
  73       CALL MZPUSH(IXCONS,JV,0,-ND5,'I')
  74       JV = LQ(JDRAW-IDVIEW)
  75       JV = LQ(JV-6)
  76       CALL MZPUSH(IXCONS,JV,0,-ND6,'I')
  77 C
  78 C             Reset view number to 0 (screen)
  79 C
  80       IDVIEW=0
  81 C
  82   999 RETURN
  83       END