From: fca <fca@f7af4fe6-9843-0410-8265-dc069ae4e863>
Date: Thu, 10 Jun 1999 17:04:57 +0000 (+0000)
Subject: Added the address of GCBANK, not for Zebra stores, but to get access to
X-Git-Url: http://git.uio.no/git/?p=u%2Fmrichter%2FAliRoot.git;a=commitdiff_plain;h=ce5b0b9634277d485cba3ee85eb79d651b45b0e0

Added the address of GCBANK, not for Zebra stores, but to get access to
the store variables like IXCONS.
---

diff --git a/GEANT321/comad/gcomad.F b/GEANT321/comad/gcomad.F
index 00b8d00f192..45f597579ac 100644
--- a/GEANT321/comad/gcomad.F
+++ b/GEANT321/comad/gcomad.F
@@ -239,6 +239,8 @@ C
          IADD=GCADDF(THRIND)
       ELSE IF(CHCOMM.EQ.'QUEST') THEN
          IADD=GCADDI(IQUEST)
+      ELSE IF(CHCOMM.EQ.'GCBANK') THEN
+         IADD=GCADDI(NZEBRA)
       ELSE
          WRITE(6,123) CHCOMM
          IADD=0