Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / gdraw / gdclos.F
CommitLineData
fe4da5cc 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
13C.
14C. ******************************************************************
15C. * *
16C. * Close last view bank opened and reset IVIEW to 0, *
17C. * meaning screen; a release of unused space in *
18C. * view banks is also done by negative pushing *
19C. * *
20C. * ==>Called by : <USER>, <GXINT> *
21C. * Author : P.Zanarini ********* *
22C. * *
23C. ******************************************************************
24C.
25#include "geant321/gcbank.inc"
26#include "geant321/gcdraw.inc"
27C.
28C. ------------------------------------------------------------------
29C.
30C If current view is screen don't do anything
31C
32 IF (IDVIEW.EQ.0) GO TO 999
33C
34C Close view number IDVIEW
35C
36 JV=LQ(JDRAW-IDVIEW)
37C
38C Store parameters for that view, i.e. logical (I..)
39C and phisical (MAX..) length of view banks
40C
41 Q(JV+1)=IGU
42C--- Q(JV+2)=MAXGU
43 Q(JV+4)=IGS
44C--- Q(JV+5)=MAXGS
45 Q(JV+7)=ITU
46C--- Q(JV+8)=MAXTU
47 Q(JV+10)=ITS
48C--- Q(JV+11)=MAXTS
49C
50 Q(JV+22)=ICUT
51C
52C Release unused space
53C
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')
77C
78C Reset view number to 0 (screen)
79C
80 IDVIEW=0
81C
82 999 RETURN
83 END